PSOPOS10 ;BIR/VRN/EJW/MFR Post install routine ;10/14/03
Source file <PSOPOS10.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 3 | ^%ZTLOAD $$DT^XLFDT BMES^XPDUTL |
VA Fileman | 3 | (,DD)^%DT (C,NOW)^%DTC FILE^DICN |
MailMan | 1 | ^XMD |
Outpatient Pharmacy | 1 | FIX^PSOPOS12 |
Registration | 1 | PID^VADPT |
Name | Comments | DBIA/ICR reference |
---|---|---|
RESET | ; RESET "P" CROSS-REFERENCE BY BUILDING ^TMP GLOBAL IN ISSUE DATE SEQUENCE FOR ALL ENTRIES, THEN RESETTING THE "P" SUBSCRIPT
|
|
EN | ;
|
|
ENV | ;
|
|
SRCH | ; SEARCH THROUGH PRESCRIPTIONS
|
|
GETLIST | ; PROCESS ENTRIES FROM ^XTMP("PSOPOS10" GLOBAL
|
|
CHKPS | ; SEE IF ^PS(55,PSODFN EXISTS - IF NOT SET TOP LEVEL AT LEAST
|
|
GETPA | ||
START | ;
|
|
PS55P | ; CHECK FOR MISSING "P" CROSS=REFERENCES
|
|
;
|
||
PS55PA | ; CHECK FOR MISSING "P","A" CROSS-REFERENCES
|
|
GETPT |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PS(55 - [#55] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | SRCH+6, SRCH+7, GETLIST+4, GETPT+2 |
^PS(55 - [#55] | PS55P+2, PS55PA+2, PS55PA+9*, CHKPS+1, CHKPS+3, CHKPS+7, RESET+6, RESET+9, RESET+10, RESET+12 , RESET+13!, RESET+14*, RESET+15*, RESET+16 |
^PSRX - [#52] | SRCH+3, PS55PA+5, RESET+8, RESET+11, GETLIST+7, GETPA+2 |
^TMP("PSOPOS10" | RESET+3!, RESET+8*, RESET+11*, RESET+14, RESET+17! |
^TMP($J | MAIL+9, MAIL+10, MAIL+12, MAIL+13, MAIL+14, MAIL+18!, GETLIST+1!, GETLIST+7*, GETPA+2* |
^XTMP("PSOPOS10" | START+1!, START+2, START+4*, START+6*, SRCH+9, SRCH+10, MAIL+3, PS55P+4*, PS55PA+7*, RESET+2 , RESET+5, RESET+7, GETLIST+2, GETLIST+3, GETLIST+5, GETLIST+7, GETPA+1, GETPA+2 |
Name | Line Occurrences |
---|---|
CHKPS | PS55PA+8 |
GETLIST | SRCH+11 |
GETPA | GETLIST+6 |
GETPT | MAIL+11 |
PS55P | SRCH+4 |
PS55PA | SRCH+5 |
RESET | SRCH+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | ENV+2, START+6, MAIL+2 |
%DT | ENV+2!*, ENV+3! |
%DT("A" | ENV+2* |
%DT(0 | ENV+2* |
CNT | MAIL+1~, MAIL+8*, MAIL+11*, MAIL+13*, MAIL+14*, MAIL+15*, MAIL+16*, MAIL+18!, RESET+1~, RESET+4* , RESET+8*, RESET+11*, RESET+12, RESET+13, RESET+14*, RESET+15 |
DD | CHKPS+6! |
DFN | MAIL+10*, MAIL+12, MAIL+13, MAIL+14, MAIL+18!, GETPT+2 |
DIC | CHKPS+5!* |
DIC("DR" | CHKPS+5* |
DIC(0 | CHKPS+5* |
DIE | CHKPS+6! |
DIFROM | MAIL+17~ |
DINUM | CHKPS+5*, CHKPS+6! |
DO | CHKPS+6! |
DT | START+3*, START+4, START+5 |
>> DTOUT | ENV+3 |
DUZ | MAIL+5 |
MSG | MAIL+18! |
NAM | MAIL+9*, MAIL+10, MAIL+12, MAIL+13, MAIL+14, MAIL+18!, GETLIST+4*, GETLIST+7, GETPA+2 |
>> NEWDFN | SRCH+7*, SRCH+8 |
PSOCTP | SRCH+1~, SRCH+2*, RESET+2* |
PSOCTPA | SRCH+1~, SRCH+2*, PS55PA+9* |
PSODFN | SRCH+1~, SRCH+3*, SRCH+6, SRCH+7, SRCH+8, PS55P+2, PS55P+4, PS55PA+2, PS55PA+7, PS55PA+9 , CHKPS+1, CHKPS+3, CHKPS+5, CHKPS+7, RESET+2*, RESET+5, RESET+6, RESET+7, RESET+9, RESET+10 , RESET+12, RESET+13, RESET+14, RESET+15, RESET+16 |
PSODT | SRCH+1~, SRCH+3*, MAIL+18!, PS55P+4, PS55PA+1~, PS55PA+2*, PS55PA+3, RESET+7*, GETPA+1*, GETPA+2 |
PSODT2 | START+5*, SRCH+3, MAIL+18! |
PSOEXP | PS55PA+4~, PS55PA+5*, PS55PA+6, PS55PA+7, PS55PA+9 |
PSOIDT | RESET+1~, RESET+8*, RESET+11*, RESET+14* |
PSOJOB | MAIL+18!, GETLIST+2*, GETLIST+3, GETLIST+5, GETLIST+7, GETPA+1, GETPA+2 |
>> PSORX | MAIL+13*, MAIL+14*, GETLIST+7*, GETPA+2* |
>> PSORXP | GETLIST+7*, GETPA+2* |
PSOSQ | MAIL+12*, MAIL+13, MAIL+14, MAIL+18!, PS55P+1~, PS55P+2*, PS55P+3, RESET+1~, RESET+9*, RESET+10 , RESET+13*, GETLIST+3*, GETLIST+4, GETLIST+5, GETLIST+7, GETPA+1, GETPA+2 |
PSOSQ1 | MAIL+18!, GETLIST+5*, GETLIST+6, GETLIST+7, GETPA+1, GETPA+2 |
PSOTEXT | MAIL+6!, MAIL+18! |
PSOTEXT( | MAIL+11*, MAIL+13*, MAIL+14*, MAIL+15*, MAIL+16* |
PSOTEXT(1 | MAIL+6* |
PSOTEXT(2 | MAIL+6* |
PSOTEXT(3 | MAIL+6* |
PSOTEXT(4 | MAIL+7* |
PSOTIMEA | MAIL+3*, MAIL+6, MAIL+18! |
PSOTIMEB | MAIL+2*, MAIL+4*, MAIL+6, MAIL+18! |
PSOTXT | MAIL+11, MAIL+18!, GETPT+2* |
>> PSOUPD | CHKPS+4*, CHKPS+5 |
RX0 | SRCH+1~, SRCH+3* |
RXP | SRCH+1~, SRCH+3*, PS55P+2, PS55P+4, PS55PA+2, PS55PA+5, PS55PA+7, PS55PA+9, RESET+7*, RESET+8 , RESET+10*, RESET+11, RESET+14* |
>> VA("BID" | GETPT+2 |
X | START+4, CHKPS+5*, CHKPS+6! |
>> X1 | START+4* |
>> X2 | START+4* |
XMDUZ | MAIL+5*, MAIL+18! |
XMSUB | MAIL+5*, MAIL+18! |
XMTEXT | MAIL+17*, MAIL+18! |
>> XMY( | MAIL+5* |
>> XPDABORT | ENV+3* |
>> XPDENV | ENV+1 |
>> XPDGREF | ENV+4, EN+1 |
>> Y | ENV+3, ENV+4, MAIL+3*, MAIL+4* |
ZTDESC | EN+2*! |
ZTDTH | EN+1*, EN+2! |
ZTIO | EN+2*! |
>> ZTQUEUED | EN+3, START+2, MAIL+19 |
>> ZTREQ | START+2*, MAIL+19* |
ZTRTN | EN+2*! |
>> ZTSK | EN+3 |