PSSDEE ;BIR/WRT - MASTER DRUG ENTER/EDIT ROUTINE ;Nov 27, 2018@10:03
Source file <PSSDEE.m>
Package | Total | Call Graph |
---|---|---|
Pharmacy Data Management | 19 | EPHARM^PSSBPSUT ^PSSCLDRG PKIND^PSSDDUT2 (CKIV,DSPY,MESSAGE,OIKILL,ORDITM,RSET)^PSSDEE1 ^PSSDEE2 (AFTER,BEFORE)^PSSDEEA DRG^PSSDGUPD DOSN^PSSDOS ^PSSGIU EN2^PSSHL1 ENP^PSSHLDFS DRG^PSSHUIDG ^PSSLAB (BLD,PICK2,TEXT)^PSSMARK $$SNDHL7^PSSMSTR EN^PSSPOIDT ^PSSREF (EN1,EN2)^PSSUTIL (ENA,ENS)^PSSVIDRG |
VA FileMan | 7 | DD^%DT NOW^%DTC ^DIC YN^DICN ^DIE ($$GET1,GETS)^DIQ ^DIR |
National Drug File | 3 | ($$FDR,FDT)^PSNACT ($$CPTIER,$$PSJDF)^PSNAPIS REACT1^PSNOUT |
Kernel | 1 | $$UP^XLFSTR |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Pharmacy Data Management | 4 | PSS DRUG ENTER/EDIT PSSCLDRG PSSLAB PSSVIDRG |
Name | Comments | DBIA/ICR reference |
---|---|---|
BEGIN | ||
DONE | ||
ASK | ;
|
|
COMMON | ;
|
|
COMMON1 | ||
CK | ||
ASKND | ||
ONE | ||
CKDF | ||
NOPE | ||
DFNULL | ||
ZAPIT | ||
APP | ||
CHOOSE | ||
CHECK(X) | ; Validates Application Use response
|
|
BRANCH | ||
BRANCH1 | ||
OP | ||
CKCMOP | ||
UD | ||
IV | ||
IV1 | ||
WS | ||
DACCT | ||
CS | ||
NVM | ||
ASKCMOP | ||
ASKCLOZ | ||
MONCLOZ | ||
FLASH | ||
CLOZ | ||
USE | ||
USE1 | ||
WR | ||
PRIMDRG | ||
PRIM1 | ||
MF | ||
MFA | ||
MFS | ||
MFDD | ||
OPEI | ;
|
|
OPEI2 | ; get external dispensing devices associated with the drug
|
|
DEA | ;
|
|
DSH | ||
CPTIER(VAPID) | ;Called from PSSCOMMON Input Template
; VAPID = IEN OF DRUG FILE #50 |
|
GETTIER(PSSTDRUG) | ;called by DIC to get copay tier for today's date
|
|
DATE(PSSCONVD) | ;convert fileman date to mm/dd/yyyy
|
|
FD(PSSTDRUG) | ;
|
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 |
|
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 |
|
FileNo | Call Tags |
---|---|
^PSDRUG - [#50] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ |
^PSNDF(50.68 - [#50.68] | GET1^DIQ |
^PS(59 - [#59] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | ASKND+8, OP+5 |
^PS(52.6 - [#52.6] | MFA |
^PS(52.7 - [#52.7] | MFS |
^PS(59 - [#59] | ASK+10 |
^PS(59.7 - [#59.7] | PRIMDRG, MF, MFA, MFS |
^PSDRUG - [#50] | ASK+3, ASK+5, ASK+14, ASK+16, COMMON+4*, COMMON+5, COMMON1, ASKND+8, ONE, CKDF , NOPE, NOPE+1, NOPE+2, CKCMOP*, ASKCMOP+2, FLASH, USE, PRIMDRG, MF, MFDD , OPEI+3, DEA+1, DSH+2* |
^PSDRUG("AQ" | CKCMOP!, DSH+2! |
^PSNDF(50.68 - [#50.68] | FD+7 |
^TMP($J | ASK+2! |
^XMB("NETNAME" | WR |
^XUSEC("PSA ORDERS" | CHOOSE+4 |
^XUSEC("PSAMGR" | CHOOSE+4 |
^XUSEC("PSDMGR" | CHOOSE+5 |
^XUSEC("PSGWMGR" | CHOOSE+3 |
^XUSEC("PSJI MGR" | CHOOSE+2 |
^XUSEC("PSJU MGR" | CHOOSE+1 |
^XUSEC("PSNMGR" | ASKND |
^XUSEC("PSORPH" | CHOOSE, CHOOSE+6 |
^XUSEC("PSXCMOPMGR" | CHOOSE, ASKCMOP |
Name | Line Occurrences |
---|---|
$$CHECK | CHOOSE+14 |
$$DATE | GETTIER+17 |
APP | COMMON1+1 |
ASK | BEGIN+1 |
ASKCLOZ | OP+5 |
ASKCMOP | OP+4 |
ASKND | COMMON+6, ASKND+1 |
BRANCH | CHOOSE+15 |
BRANCH1 | CHOOSE+15 |
CHOOSE | APP |
CK | COMMON+6 |
CKCMOP | OP+6 |
CKDF | ONE+1 |
CLOZ | MONCLOZ |
COMMON | ASK+6 |
COMMON1 | COMMON+6 |
CS | BRANCH+1, BRANCH1 |
DACCT | BRANCH+1, BRANCH1 |
DEA | ASK+6, COMMON+6 |
DFNULL | NOPE, NOPE+1, NOPE+2 |
DSH | DEA+1 |
FLASH | MONCLOZ |
IV | BRANCH, BRANCH1 |
IV1 | IV, IV1+1 |
MF | ASK+6 |
MFDD | MFA, MFS |
MONCLOZ | ASKCLOZ+2 |
NOPE | ASK+6 |
NVM | BRANCH+1, BRANCH1 |
ONE | ASKND+8 |
OP | BRANCH, BRANCH1 |
OPEI | OP+4 |
PRIM1 | PRIMDRG |
UD | BRANCH, BRANCH1 |
USE | ASK+6, COMMON1+1 |
USE1 | USE+4 |
WR | ONE+1 |
WS | BRANCH, BRANCH1 |
Name | Field # of Occurrence |
---|---|
^(0 | DEA+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | ASKND*, ASKND+1, ASKND+2, ASKND+3, ASKND+4, ASKND+5, OP+3, UD, IV, DSH+2~ |
C | CHECK+1~, CHECK+4*, CHECK+5, CHECK+6, CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11 |
CHECK | CHECK+1~, CHECK+2*, CHECK+12*, CHECK+13 |
CLFALG | DONE!, FLASH! |
CLFLAG | DONE!, FLASH*, FLASH+1* |
CPDATE | CPTIER+2~*!, GETTIER+1~*, GETTIER+12! |
DA | BEGIN+1!, ASK+3*, ASK+5, COMMON+4, COMMON+5, COMMON1+1*, ASKND+8*, ONE, CKDF*, NOPE , NOPE+1, NOPE+2, OP+2, CKCMOP*, UD, IV, CS, NVM, ASKCMOP+2*, PRIM1* , OPEI+1*, OPEI+3, DSH+2* |
DATE | DATE+1~, DATE+2*, DATE+3 |
DIC | ASK+1*! |
DIC("T" | ASK+1* |
DIC("W" | ASK+1* |
DIC(0 | ASK+1* |
DIE | DONE!, COMMON+1*, OP+4*, UD*, WS*, DACCT*, PRIM1*, OPEI+1* |
DIR | DONE!, ASK+25!, ASK+27!, CHOOSE+12!, OP+4!, IV1+1!, ASKCMOP!, ASKCLOZ!, MONCLOZ! |
DIR("?" | ASK+27*, ASKCMOP*, ASKCLOZ* |
DIR("A" | ASK+26*, CHOOSE+13* |
DIR(0 | ASK+26*, CHOOSE+12*, IV1+1*, ASKCMOP*, ASKCLOZ*, MONCLOZ* |
DIRUT | ASK+25!, CHOOSE+10!, CHECK+2, IV1+1, ASKCMOP+1!, ASKCLOZ+1!, MONCLOZ, CLOZ |
DISPDRG | DONE!, ASK+3*, ASK+13, ASK+14, ASK+16, ASK+30, ASK+31, COMMON1, COMMON1+1, ASKND+7 , ASKND+8, ONE+1, CKDF, CKCMOP, FLASH, USE, PRIMDRG, PRIM1, MF, OPEI+1 , DEA+1, DSH+2 |
DLAYGO | DONE!, ASK+1* |
DMFU | ASK+9~, ASK+11*, ASK+13 |
DNSNAM | ASK+9~, ASK+12*, ASK+13 |
DNSPORT | ASK+9~, ASK+12*, ASK+13 |
DR | DONE!, COMMON+1*, OP+4*, UD*, WS*, DACCT*, PRIM1*, OPEI+1*, OPEI2+3* |
DR(2 | UD*, DACCT* |
DT | ASK+5, ONE |
DTOUT | ASK+25!, COMMON+3, CLOZ |
DUOUT | ASK+25!, CLOZ |
DUZ | ASKND, CHOOSE, CHOOSE+1, CHOOSE+2, CHOOSE+3, CHOOSE+4, CHOOSE+5, CHOOSE+6, ASKCMOP |
DVER | ASK+9~, ASK+11*, ASK+13 |
ENTRY | DONE!, MFA, MFS |
FLAG | DONE!, ASK+2*, CHOOSE+7*, CHOOSE+8, BRANCH1 |
FLG1 | DONE!, ASK+2*, CHOOSE*, CHOOSE+7, CHOOSE+10, CHECK+5, OP, OP+6 |
FLG2 | DONE!, ASK+2*, CHOOSE+1*, CHOOSE+7, CHOOSE+10, CHECK+6, UD |
FLG3 | ASK+2*, ASK+32!, CHOOSE+2*, CHOOSE+7, CHOOSE+10, CHECK+7, IV |
FLG4 | DONE!, ASK+2*, CHOOSE+3*, CHOOSE+7, CHOOSE+10, CHECK+8, WS |
FLG5 | DONE!, ASK+2*, CHOOSE+4*, CHOOSE+7, CHOOSE+10, CHECK+9, DACCT |
FLG6 | DONE!, ASK+2*, CHOOSE+5*, CHOOSE+7, CHOOSE+10, CHECK+10, CS |
FLG7 | DONE!, ASK+2*, CHOOSE+6*, CHOOSE+10, CHECK+11, NVM |
FLGKY | DONE!, ASK+2*, CHOOSE+10*, CHOOSE+11 |
FLGMTH | DONE!, ASKND |
FLGNDF | DONE!, CK*, ONE+1*, ZAPIT |
FLGOI | DONE!, ASK+2*, OP+5*, UD*, IV* |
I | CHECK+1~, CHECK+3*, CHECK+4 |
K | DONE!, CKDF* |
LMFLAG | FLASH!*, FLASH+2* |
NEWDF | DONE!, ONE+1, CKDF*, ZAPIT, WR |
NFLAG | DONE+1!, ASKCLOZ+2*, CLOZ |
NWND | DONE+1!, CKDF* |
NWPC1 | DONE+1!, CKDF* |
NWPC2 | DONE+1! |
>> NWPC3 | CKDF* |
NWPC3OLDDF | DONE+1! |
>> OLDDF | ONE+1*, DFNULL*, ZAPIT, WR |
PACK | USE!*, USE+1, USE1, USE1+1, USE1+2, USE1+3, USE1+4 |
PSINACT | ASK+2~*, ASK+5*, ASKND+7 |
PSIUDA | DONE+1!, OP+2*, UD*, IV*, CS*, NVM* |
PSIUX | DONE+1!, OP+2*, UD*, IV*, CS*, NVM* |
PSNP | DONE+1!, ONE* |
PSSANS | DONE+1!, CHOOSE+15*, BRANCH, BRANCH+1, BRANCH1 |
PSSASK | DONE+1!, IV1+1* |
PSSAST | MONCLOZ!* |
PSSCONVD | GETTIER+1~, GETTIER+17*, GETTIER+18, DATE~, DATE+2 |
PSSCP | CPTIER+2~*, CPTIER+4, CPTIER+5!, GETTIER+1~, GETTIER+12*, GETTIER+16 |
PSSDA | DONE+1!, IV* |
PSSDD | DONE+1!, MFA*, MFS*, MFDD |
PSSDRDAT | GETTIER+1~, FD+1~ |
PSSDRDAT(50 | GETTIER+4, GETTIER+5, GETTIER+6, GETTIER+7, GETTIER+8, GETTIER+9, GETTIER+10, FD+3 |
PSSDRGCL | GETTIER+1~, GETTIER+3*, GETTIER+4* |
PSSFD | GETTIER+1~, GETTIER+14*, GETTIER+15, FD+5*, FD+6 |
PSSFLAG | BEGIN+1*, DONE+1!, ASK+1* |
PSSFLAGK | DONE! |
PSSFSN | GETTIER+1~, GETTIER+3*, GETTIER+5*, GETTIER+13 |
PSSHUIDG | ASK+6*! |
PSSINACT | GETTIER+1~, GETTIER+3*, GETTIER+7*, GETTIER+17 |
PSSIVOUT | IV1!, IV1+1, IV1+2! |
PSSK | CKDF+1~ |
PSSMSG | GETTIER+1~, GETTIER+3*, GETTIER+8*, GETTIER+19 |
PSSNEW | ASK+6*, ASK+13, ASK+14, ASK+18, ASK+19, ASK+21, ASK+30, ASK+32! |
PSSNFORM | GETTIER+1~, GETTIER+3*, GETTIER+6*, GETTIER+13 |
PSSOR | DONE+1!, MF*, MFA*, MFS*, MFDD* |
PSSPADE | ASK+29~* |
PSSRESTR | GETTIER+1~, GETTIER+3*, GETTIER+9*, GETTIER+20 |
PSSTDRUG | BEGIN~, GETTIER~, GETTIER+2, GETTIER+4, GETTIER+5, GETTIER+6, GETTIER+7, GETTIER+8, GETTIER+9, GETTIER+10 , GETTIER+11, FD~, FD+2, FD+3 |
PSSUPRA | ASK+9~ |
PSSUPRAF | BEGIN~, ASK+6!, ASKND+2* |
PSSVVDA | COMMON1+1*! |
PSSXX | BEGIN+1*, DONE! |
PSSZ | BEGIN+1*, DONE+1! |
PSXBT | DONE+1!, ASKCMOP+2* |
PSXF | DONE+1!, ASKCMOP+2* |
PSXFL | DONE+1!, ASKCMOP+2* |
PSXGOOD | DONE+1!, ASKCMOP+2* |
PSXLOC | DONE+1!, ASKCMOP+2* |
PSXUDA | ASKCMOP+2~* |
PSXUM | DONE+1!, ASKCMOP+2* |
VAPID | CPTIER~, CPTIER+2, GETTIER+1~ |
VAPROD | GETTIER+1~, GETTIER+3*, GETTIER+10*, GETTIER+12, GETTIER+14, GETTIER+16, FD+1~, FD+3*, FD+4, FD+5 , FD+7 |
VAR | ASK+20~, ASK+21*, ASK+22*, ASK+26, PRIMDRG*, PRIM1! |
WHICH | FLASH!*, FLASH+1, FLASH+2 |
X | ASKND+3!, ASKND+4!, ASKND+8*, CKDF*, CHOOSE+10!, CHOOSE+14, CHOOSE+15, CHECK~, CHECK+2, CHECK+3 , CHECK+4, OP+5*, ASKCMOP+1!, ASKCMOP+2, ASKCLOZ+1!, ASKCLOZ+2, CPTIER+2~!, GETTIER+1~, GETTIER+12! |
XX | ASK+9~*, ASK+10*, ASK+11, ASK+12, ASK+16*, ASK+17*, ASK+18, ASK+19, ASK+21, ASK+29* , USE+2~* |
Y | ASK+1, ASK+3, ASK+6, ASK+28, COMMON+3, COMMON+5, ASKND+3!, ASKND+4!, CHECK+2, ASKCMOP+1! , ASKCLOZ+1!, CPTIER+5*! |
Y(0 | IV1+1, MONCLOZ |
ZAPFLG | DONE+1!, NOPE*, DFNULL*, ZAPIT |