Thursday, October 30, 2008

Guide to Global Editor

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

Thursday, October 9, 2008

MIIS/MUMPS

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.

Wednesday, October 8, 2008

Use Notepad software to edit Meditech code


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!

Tuesday, October 7, 2008

$T Magic Format


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




Monday, October 6, 2008

List of FE commands

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

Thursday, October 2, 2008

$FC for free space total

$FC(0) utility - shows free space

View Meditech Data Defs

$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

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

Wednesday, October 1, 2008

Error messages in Meditech

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

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 /

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)