PSOPOS10 ;BIR/VRN/EJW/MFR Post install routine ;10/14/03
Source file <PSOPOS10.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENV | ;
|
|
EN | ;
|
|
START | ;
|
|
SRCH | ; SEARCH THROUGH PRESCRIPTIONS
|
|
;
|
||
PS55P | ; CHECK FOR MISSING "P" CROSS=REFERENCES
|
|
PS55PA | ; CHECK FOR MISSING "P","A" CROSS-REFERENCES
|
|
CHKPS | ; SEE IF ^PS(55,PSODFN EXISTS - IF NOT SET TOP LEVEL AT LEAST
|
|
RESET | ; RESET "P" CROSS-REFERENCE BY BUILDING ^TMP GLOBAL IN ISSUE DATE SEQUENCE FOR ALL ENTRIES, THEN RESETTING THE "P" SUBSCRIPT
|
|
GETLIST | ; PROCESS ENTRIES FROM ^XTMP("PSOPOS10" GLOBAL
|
|
GETPT | ||
GETPA |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PS(55 - [#55] | Classic Fileman Calls |