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 30, 2008
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
Tuesday, October 7, 2008
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
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
TIM Calls $TIME
HALT Calls $HALT
P
ET
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
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.
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
Highlight a segment and hit
A field with (A)ttributes, (D)ocumentation, or (T)echnical Documentation will have an asterisk in the appropriate column.
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
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
["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".
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)
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)
Subscribe to:
Posts (Atom)