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 |