PSOTALK2 ;BIR/EJW - SCRIPTALK ENROLLMENT FUNCTIONS ;3-28-02
Source file <PSOTALK2.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 5 | ^DIC FILE^DICN UPDATE^DIE EN^DIK ^DIR |
Kernel | 4 | ^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT |
Outpatient Pharmacy | 1 | EN^PSOPATLK |
Registration | 1 | DEM^VADPT |
Text Integration Utility | 1 | NEW^TIUPNAPI |
Package | Total | Caller Graph |
---|---|---|
Outpatient Pharmacy | 3 | PSO SCRIPTALK AUDIT HISTORY PSO SCRIPTALK ENROLLEES PSO SCRIPTALK PATIENT ENROLL |
Name | Comments | DBIA/ICR reference |
---|---|---|
TITLEA | ;
|
|
GETIND | ; GET INDICATION FOR ENROLLMENT
|
|
ENROLL | ;
|
|
END | ;
|
|
CLEAN | ||
INSTR | ;
|
|
MESS | ||
MAILP | ||
GETDFN | ;
|
|
RPENROLL | ;
|
|
SET55 | ; SET MULTIPLE FOR SCRIPTALK ENROLLMENT AUDIT
|
|
ENQ | ;
|
|
DONE | ||
AUDRQ | ;
|
|
INSTALL | ||
; MAKE SURE MAIL STATUS IS COMPATIBLE WITH SCRIPTALK PATIENT
|
||
NOTE(PSOPT) | ;CREATE A PROGRESS NOTE FOR PATIENT 'PSOPT' ABOUT ENROLLMENT
|
|
AUDREP | ;
|
|
TITLEE | ;
|
Name | Field # of Occurrence |
---|---|
^%ZIS | AUDREP+5, ENQ+3 |
^%ZISC | DONE+2 |
^%ZTLOAD | AUDREP+6, ENQ+4 |
^DIC | AUDRQ+17 |
FILE^DICN | ENROLL+10 |
UPDATE^DIE | SET55+8 |
EN^DIK | ENROLL+11 |
^DIR | ENROLL+13, GETIND+2, END+1, TITLEA+1, ENQ+1, TITLEE+1 |
EN^PSOPATLK | ENROLL+5, AUDREP+1 |
NEW^TIUPNAPI | INSTALL+1 |
DEM^VADPT | ENROLL+7, GETDFN+4 |
$$FMTE^XLFDT | AUDRQ+8, RPENROLL+13, TITLEE+3 |
$$NOW^XLFDT | SET55+3, INSTALL+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
^PS(55 - [#55] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | TITLEA+3 |
^DPT - [#2] | NOTE+4, TITLEA+5 |
^PS(55 - [#55] | ENROLL+8, ENROLL+11*, ENROLL+12, GETIND+1, NOTE+1, AUDRQ+5, AUDRQ+6, TITLEA+5, GETDFN+2, GETDFN+3 , GETDFN+5, GETDFN+7, GETDFN+9, MAIL+2, MAILP+6* |
^TIU(8925.1 - [#8925.1] | INSTR+2, NOTE+2 |
^TMP("TIUP" | NOTE+6*, NOTE+8*, NOTE+9*, CLEAN+1! |
^TMP($J | DONE+1!, RPENROLL+5!, RPENROLL+7, RPENROLL+8, RPENROLL+9, GETDFN+9* |
Name | Line Occurrences |
---|---|
CLEAN | ENROLL+5 |
DONE | AUDREP+5, AUDREP+6, AUDRQ+4, AUDRQ+18, ENQ+1, ENQ+3, ENQ+4, RPENROLL+4, RPENROLL+7, RPENROLL+8 |
END | RPENROLL+14 |
ENROLL | ENROLL+7, ENROLL+19 |
GETDFN | RPENROLL+6 |
GETIND | ENROLL+15 |
INSTR | ENROLL+3 |
ENROLL+15 | |
MAILP | MAILP+4 |
MESS | ENQ+1 |
NOTE | ENROLL+17 |
SET55 | ENROLL+16 |
TITLEA | AUDRQ+4, AUDRQ+10 |
TITLEE | RPENROLL+4, RPENROLL+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | AUDREP+5!*, ENQ+3!* |
%ZSI | AUDREP+6!, ENQ+4! |
DA | ENROLL+10!, ENROLL+11* |
DD | ENROLL+10! |
DFN | ENROLL+1~, ENROLL+7*, GETDFN+1~, GETDFN+4*, GETDFN+5, GETDFN+7 |
DIC | ENROLL+5!, ENROLL+9*, ENROLL+10!, AUDREP+1!, AUDRQ+17!* |
DIC("A" | ENROLL+5*, AUDREP+1* |
DIC(0 | ENROLL+5*, ENROLL+10*, AUDREP+1*, AUDRQ+17* |
DIK | ENROLL+11!* |
DIK(1 | ENROLL+11* |
>> DINUM | ENROLL+10* |
DIR | ENROLL+13!, GETIND+2!, END+1!, TITLEA+1!, ENQ+1!, TITLEE+1! |
DIR("A" | ENROLL+13*, GETIND+2*, END+1*, ENQ+1* |
DIR("B" | ENROLL+13*, GETIND+2*, ENQ+1* |
DIR(0 | ENROLL+13*, GETIND+2*, END+1*, TITLEA+1*, ENQ+1*, TITLEE+1* |
DIRUT | DONE!, ENQ+1 |
>> DLAYGO | ENROLL+9* |
DO | ENROLL+10! |
DR | ENROLL+10! |
DT | NOTE+9, TITLEA+3, TITLEE+3 |
DTOUT | ENROLL+5, AUDREP+1, DONE! |
DUOUT | ENROLL+5, AUDREP+1, DONE! |
DUZ | SET55+7, INSTALL+1 |
IO | AUDRQ+1, RPENROLL+1 |
IO("Q" | AUDREP+6, DONE!, ENQ+4 |
IOF | INSTR+1, END+3, TITLEA+2, TITLEE+2 |
IOP | AUDREP+5!, DONE!, ENQ+3! |
IOSL | AUDRQ+10, RPENROLL+10 |
IOST | AUDRQ+2, RPENROLL+2 |
MAIL+1~, MAIL+2*, MAILP+2*, MAILP+3, MAILP+4, MAILP+5, MAILP+6 | |
POP | AUDREP+5!, DONE!, ENQ+3! |
PSOAUD | AUDRQ+5*, AUDRQ+6, DONE!, GETDFN+6*, GETDFN+7*, GETDFN+9 |
PSODA | SET55+1~ |
PSODA( | SET55+4*, SET55+5*, SET55+6*, SET55+7* |
PSODFN | DONE+1!, GETDFN+2*, GETDFN+3, GETDFN+4, GETDFN+9 |
>> PSODUZ | AUDRQ+16, AUDRQ+17* |
PSODV | AUDRQ+2*, END+1, END+2, DONE!, TITLEA+1, RPENROLL+2*, TITLEE+1 |
PSOERR | SET55+1~ |
PSOFIRST | ENROLL+3*, CLEAN! |
PSOIEN | SET55+1~ |
PSOIND | ENROLL+1~, ENROLL+2*, ENROLL+18!, SET55+6, GETIND+1*, GETIND+2, GETIND+3*, AUDRQ+13*, AUDRQ+14*, AUDRQ+15 , DONE!, DONE+1!, RPENROLL+9*, RPENROLL+11, RPENROLL+12, RPENROLL+13 |
PSOLAST | ENROLL+1~, ENROLL+18!, GETIND+1* |
PSOLINE | NOTE+5*, NOTE+6, NOTE+7*, NOTE+8, NOTE+9, CLEAN! |
PSONM | DONE+1!, RPENROLL+8*, RPENROLL+9, RPENROLL+11 |
PSONODE | AUDRQ+6*, AUDRQ+7, AUDRQ+8, AUDRQ+13, AUDRQ+16, AUDRQ+17, DONE! |
PSOOUT | AUDRQ+2*, AUDRQ+4, AUDRQ+5, AUDRQ+10, AUDRQ+18, END+1, DONE!, TITLEA+1*, RPENROLL+2*, RPENROLL+4 , RPENROLL+8, RPENROLL+10, TITLEE+1* |
PSOPGCT | AUDRQ+3*, DONE!, TITLEA+1, TITLEA+3, TITLEA+4*, RPENROLL+3*, TITLEE+1, TITLEE+3, TITLEE+4* |
PSOPRINT | DONE+1!, ENQ+1*, RPENROLL+11, TITLEE+5, TITLEE+7, GETDFN+3 |
PSOPT | ENROLL+6*, ENROLL+7, ENROLL+8, ENROLL+10, ENROLL+11, ENROLL+12, ENROLL+17, ENROLL+18!, SET55+2, SET55+4 , SET55+5, SET55+6, SET55+7, GETIND+1, NOTE~, NOTE+1, NOTE+4, INSTALL+1, CLEAN!, AUDREP+2* , AUDRQ+5, AUDRQ+6, DONE!, TITLEA+5, MAIL+2, MAILP+6 |
PSOPTLK | ENROLL+5!, AUDREP+1! |
PSOPTNM | NOTE+4*, NOTE+6, CLEAN! |
>> PSOSEQ | GETDFN+5*, GETDFN+7 |
PSOSQ | INSTR+10! |
PSOSSN | DONE+1!, RPENROLL+8*, RPENROLL+9, RPENROLL+11 |
PSOSTAT | AUDRQ+7*, AUDRQ+12, AUDRQ+14, DONE! |
PSOSTDT | SET55+1~, SET55+3*, SET55+4 |
PSOSTEN | ENROLL+1~, ENROLL+12*, ENROLL+13, ENROLL+14*, ENROLL+15, ENROLL+18!, SET55+5 |
PSOSTP | INSTR+10!, CLEAN! |
>> PSOTIME | AUDRQ+8*, AUDRQ+9*, AUDRQ+11 |
PSOTITL | NOTE+2*, NOTE+3, INSTALL+1, CLEAN! |
PSOTT | INSTR+10! |
TIUDA | INSTALL!, INSTALL+1 |
U | NOTE+4, NOTE+9, AUDRQ+8 |
>> VA("PID" | GETDFN+8*, GETDFN+9 |
>> VADM(1 | GETDFN+9 |
>> VADM(6 | ENROLL+7, GETDFN+4 |
X | ENROLL+10*, ENROLL+18!, AUDRQ+17!* |
Y | ENROLL+5*, ENROLL+6, ENROLL+10, ENROLL+14, ENROLL+18!, GETIND+3, AUDREP+1*, AUDREP+2, AUDRQ+17!, DONE! , TITLEA+1, TITLEA+3*, ENQ+1, TITLEE+1 |
>> ZTDESC | AUDREP+6*, ENQ+4* |
>> ZTQUEUED | DONE+2 |
>> ZTREQ | DONE+2* |
>> ZTRTN | AUDREP+6*, ENQ+4* |
>> ZTSAVE("*" | AUDREP+3*, AUDREP+6*, ENQ+4* |