Meditech Magic Blog

Guide to Global Editor

2008-10-30T10:53:00.000-07:00

This tool can be used as a safe way to edit magic data structures.

1. at the FE type GE
2. at the node screen enter the value that you want to edit, example
\GU["USER"]
3. Enter an "E" followed by the node you want to edit at, like "E2"
4. a prompt will show with a Old:
New: value
5. Ok to File? will display, enter "Y" to file

MIIS/MUMPS

2008-10-09T20:19:00.000-07:00

Magic got it start from MUMPS and MIIS. MUMPS actually was built to stop on errors in its tracks and report errors, from what i understand MIIS was built to keep trucking along.

Use Notepad software to edit Meditech code

2008-10-08T14:51:00.001-07:00

This is a notepad program called programmers notepad, using the visual basic layout you can get a match on the "{" which will save you time. Try either the vb or C+ setting, to get the best result. Good programming!

$T Magic Format

2008-10-07T10:55:00.000-07:00

* use the Ctrl F3 key to left justify the code
* use F3 key to view normal formatting

List of FE commands

2008-10-06T09:00:00.000-07:00

RR Recalls last command
S Calls $SEG
D Calls $DIR
CL Closes open prefixes
TR Calls $T("")
WHO Calls $WHO
TC Displays $T APP Change Numbers
OA Calls Office Automation ' Executes T("")
X Executes %[app]("")
TIM Calls $TIME
HALT Calls $HALT
P Calls $PPPE Calls $EP
ET Calls $ETOPS Calls the privileged operators menu
WHERE Displays the directory you are in
SI Locates an employee using OA files
GB Calls $GB, list globals backwards
OP Displays open prefixes
G <1> Calls $G, invoke with argument for PTR format
SPY Calls $INFOL

$FC for free space total

2008-10-02T20:31:00.000-07:00

$FC(0) utility - shows free space

View Meditech Data Defs

2008-10-02T20:26:00.000-07:00

$FE.NPR.DDEF.VIEW(A)
A =
DPM = navigate by DPM
OBJ = find nodes by physical
ELE = search for field by physical
SEG = go straight to a specific segment

Highlight a segment and hit to see the fields
Highlight a segment and hit to see child segments
A field with (A)ttributes, (D)ocumentation, or (T)echnical Documentation will have an asterisk in the appropriate column. to view.

Medtiech Prefix Standards

2008-10-02T18:37:00.000-07:00

Meditech Prefix Standards

Prefix Opens To
% Programs (Current Directory)
$ O.S. System Utilities
# Input Device
/ Temp File
\ MIS Common Dictionaries
& Application Database Dictionaries
: Application Database File(s)
* Application Database File(s)
? Application Database File(s)
! Input

Error messages in Meditech

2008-10-01T13:03:00.000-07:00

Error information is stored in A symbol table by the OS immediately upon error:

["AA"] or ["A"]A= Line of code error was encountered
["AB"] or ["A"]B= Error Location
["AC"] or ["A"]C= Machine Node
["AD"]or ["A"]D= Program Block

Using Nill to Delete structures instead of Kill command

2008-10-01T10:53:00.000-07:00

It is a safer practice to use the following routine when you need to delete a structure instead of using the K command.

so if the structure looked like this

:["LUNCH","APPLE"]
:["LUNCH","COKE"]
:["LUNCH","HOT DOG"]

"LUNCH"^A,""^B,DO{>:[A,B]^B ""^:[A,B]}

Performing a physical next on the structure and placing a value in A will delete everything in "LUNCH".

Way to save prefixes in /

2008-10-01T07:59:00.000-07:00

1. Seg over to directory
2. Open the prefix to \S
O(\S,%.MIS.dic[mis.dbase,"MIS"]),C($U,%U),

3. use Z.fpn to save this value to a / value
%Z.fpn(^\)^/OPEN.MIS.DIC

4. Then you can use this open
O(\S,/OPEN.MIS.DIC)

Way to copy and paste code using Get Key

2008-09-30T06:47:00.000-07:00

1. Type F4 and GOTO BUF?
2. Type a number, 1 and this will bring up the GET TEXT?
3. Type P for a program and type M for a macro
4. If you type M this will bring up the MACRO?
5. Use ? for a lookup of macros to select
6. Now you can use the F1 and F2 to copy and then paste, use the esc key to get back to the orginal program

Better way to view value of NPR field

2008-09-26T12:21:00.000-07:00

Let's say that we have a line of code in our source file that looks like this,

IF{@employer="test" @dosomething}
we need to know that it is = to *AA[aa]E0

to find out the value right away in the object code, if it is really long you could just spend your time looking for this value or put

$DDC("find employer"),
IF{@employer="test" @dosomething}

You can now find this easy by doing a search inputing "find employer". This can be a real time saver.

Most common way to check for nil value

2008-09-26T11:45:00.000-07:00

This is copied from another blog but worth repeating

IF{/SOMEVALUE="" @SOMETHING} <--- THIS WILL NOT WORK To test for a Nil value in a variable, you can concatenate a known value like a period to the variable and then check to see if the period and variable are equal. If they are equal, the variable had a Nil value. If the equation is not equal you know that the variable was not Nil. The following logic is one valid way to check for a Nil value: IF{/SOMEVALUE_.=. DO SOMETHING} <--- THIS WILL WORK

3 ways to check for nil value

2008-09-26T11:41:00.000-07:00

3 ways to check for nil value

1. To test for a Nil value in a variable, you can concatenate a known value like a period to the variable and then check to see if the period and variable are equal. If they are equal, the variable had a Nil value. If the equation is not equal you know that the variable was not Nil. The following logic is one valid way to check for a Nil value:

IF{/SOMEVALUE_.=. DO SOMETHING}

2. Length/Locate
IF{L(@field)=0 "value is nil";"value is not nil"}

3. @Not(@field) in an IF statement

DDC - more stuff

2008-09-26T10:28:00.000-07:00

Include ?? after the DDC? to get information on the "B" symbol table

DDC ? ??
B (CURRENT) SYMBOL TABLE Print on device? S

Using $DDT or $DDC or %Z.ddc find symbol table space

2008-09-25T14:51:00.001-07:00

DDC ? >

150 BYTES USED, 874 BYTES AVAILABLE DDC ?

Way to search $ node

2008-09-25T14:32:00.000-07:00

Node(s): $["A":

gives all the $A values in a list

$G help screen

2008-09-25T14:05:00.000-07:00

* Returns all nodes in the structure pointed to by *.

*TN["BARBER":] Returns all the nodes in the structure pointed to by * having a first subscript of TN and a second subscript between BARBER and the last node of that level.

*[:10,"ABC" Return all the nodes in the structure pointed and to by * having a first subscript between the *[:10]ABC first node of that level and 10 and having a second subscript of ABC. All nodes below those nodes will also be returned.

BJ.MANAGER

2008-09-25T14:04:00.000-07:00

This is a $ utility that allows you to control background jobs

2008-09-19T14:15:00.000-07:00

Way to download NPR program to text file

From npr use F1 and F2 to select your range then use the f5 key to save line. Then you can just cut and paste to a text file.

Way to view DPMs

2008-09-16T10:19:00.000-07:00

Here is a way to view DPM information:
OBJ at Front End will view the following:

VIEW NPR DATA DEFINITIONS by PHYSICAL LOCATION
Seg: A Dir: TEST.5.61.MIS
Node?

ELE at the Front End will view the following:

VIEW NPR DDEF ELEMENTS
Seg: A Dir: TEST.5.61.MIS
DPM? ELE?

DPM at the Front End will view the following:

VIEW NPR DATA DEFINITIONS
Seg: A Dir: TEST.5.61.MIS
DPM?

Great way to view code!

2008-09-10T10:39:00.000-07:00

$VIEW(%NAME.OF.PROGRAM)

This will display the object code in a user friendly viewer