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 |