APSPRIS ;IHS/MSC/PLS- Support for speed REISSUE ;10-Oct-2017 10:55;DU
Source file <APSPRIS.m>
Package | Total | Call Graph |
---|---|---|
Outpatient Pharmacy | 11 | ^PSOBUILD DIR^PSODIR1 (EXP,FILLDT,MW)^PSODIR2 OERR1^PSODISPS ULP^PSOHLD ^PSOLSET UPDATE1^PSOORED6 BLD^PSOORUT1 SUS^PSORXL BCK1^PSORXRPT IBSSR^PSOUTL |
IHS Changes To Pharmacy | 5 | (AWP,BST,INSURER,NDC)^APSPDIR $$ISSCH^APSPFNC2 $$ESIG^APSPFUNC DIRZ^APSPUTIL ($$AWP,$$COST)^APSQDAWP |
VA Fileman | 4 | ^DIC (,UPDATE)^DIE $$GET1^DIQ ^DIR |
Integrated Billing | 1 | $$SERV^IBARX1 |
Pharmacy Data Management | 1 | (PSOL,PSOUL)^PSSLOCK |
Registration | 1 | (FULL,PAUSE)^VALM1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
COST(PSODIR) | ;EP-
|
|
ULP | ||
ASKVAL(APSPVAL,RXIEN) | ;EP-
|
|
REISSUEX | ||
RI | ;EP- Called from APSP REISSUE protocol
|
|
ULK | ||
NDCCH(RX) | ;Check and see if the NDC changed since RX written
|
|
REISSUE | ;speed REISSUE
|
|
PHNAME(APSPVAL) | ;Get pharmacist
|
|
EX | ;D PSOUL^PSSLOCK($P(PSOLST(ORN),"^",2))
|
|
ASKNEWV(DATAARY) | ;EP - 03/28/2016
|
|
COSTSAVE(RX,VAL) | ;EP- Update UNIT PRICE OF DRUG field based on user input
|
|
CHKSUSP | ;EP-P1021 - Call Suspend function if auto suspend is true
|
|
RIS(DA) | ;EP-
|
|
BLDFLD(ARY) | ;EP-
|
|
PHNAME1 |
Name | Field # of Occurrence |
---|---|
AWP^APSPDIR | ASKNEWV+23 |
BST^APSPDIR | ASKNEWV+12 |
INSURER^APSPDIR | ASKNEWV+16 |
NDC^APSPDIR | ASKNEWV+20 |
$$ISSCH^APSPFNC2 | ASKVAL+8 |
$$ESIG^APSPFUNC | RIS+10, RI+20 |
DIRZ^APSPUTIL | REISSUE+11, REISSUE+14, RI+6, RI+10, RI+13 |
$$AWP^APSQDAWP | NDCCH+8 |
$$COST^APSQDAWP | NDCCH+9 |
^DIC | PHNAME1+2 |
^DIE | COSTSAVE+5 |
UPDATE^DIE | NDCCH+14 |
$$GET1^DIQ | NDCCH+3, NDCCH+4, NDCCH+5 |
^DIR | REISSUE+4, REISSUE+17 |
$$SERV^IBARX1 | RIS+34, RI+40 |
^PSOBUILD | REISSUE+22, EX+1 |
DIR^PSODIR1 | COST+5 |
EXP^PSODIR2 | ASKNEWV+9 |
FILLDT^PSODIR2 | ASKVAL+11 |
MW^PSODIR2 | ASKNEWV+2 |
OERR1^PSODISPS | RIS+37, RI+43 |
ULP^PSOHLD | ULP |
^PSOLSET | RIS+33, RI+39 |
UPDATE1^PSOORED6 | RIS+20, RI+28 |
BLD^PSOORUT1 | REISSUE+22 |
SUS^PSORXL | CHKSUSP+5 |
BCK1^PSORXRPT | RIS+29, RI+36 |
IBSSR^PSOUTL | RIS+34, RI+40 |
PSOL^PSSLOCK | REISSUE+15 |
PSOUL^PSSLOCK | ULK |
FULL^VALM1 | REISSUE+5, RIS+1 |
PAUSE^VALM1 | REISSUE+15 |
Name | Line Occurrences |
---|---|
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 |
^PSDRUG - [#50] | GET1^DIQ |
^PSRX - [#52] | Classic Fileman Calls, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(59 - [#59] | RIS+34, RI+40 |
^PS(59.7 - [#59.7] | RIS+36, RI+42 |
^PSRX - [#52] | REISSUE+9, REISSUE+12, REISSUE+15, REISSUE+16, REISSUE+17, RIS+16, RIS+17, RIS+31!, ASKVAL+5, ASKVAL+6 , ASKVAL+7, ASKVAL+8, ASKNEWV+1, ASKNEWV+8, ASKNEWV+14, ASKNEWV+15, ASKNEWV+19, ASKNEWV+22, ASKNEWV+25, RI+8 , RI+11, RI+25, RI+26, RI+37! |
Name | Line Occurrences |
---|---|
ASKNEWV | ASKVAL+14 |
ASKVAL | RIS+8, RI+15 |
BLDFLD | RIS+13, RI+22 |
CHKSUSP | RIS+22, RI+29 |
COST | ASKNEWV+26 |
COSTSAVE | RIS+28, RI+35 |
EX | REISSUEX, RIS+34, RI+40 |
NDCCH | RIS+12, RI+21 |
PHNAME | ASKVAL+9 |
PHNAME1 | PHNAME1+2 |
REISSUEX | REISSUE+5 |
RIS | REISSUE+19 |
ULK | REISSUE+16, REISSUE+18, REISSUE+20 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | EX+2! |
ACT | EX+2! |
AO | RIS+2~ |
APSPRCHK | RIS+3~*, RI+3~* |
>> APSPREIS | RIS+14*, RI+23* |
APSPRFLG | RIS+3~*, RI+3~* |
APSPVAK | RI+2~ |
APSPVAL | REISSUE+2~, ASKVAL~, ASKVAL+9, PHNAME~, RI+2~ |
APSPVAL("AWP" | ASKVAL+20* |
APSPVAL("BST" | ASKVAL+18* |
APSPVAL("COST" | ASKVAL+21* |
APSPVAL("DFLG" | ASKVAL+10, ASKVAL+12*, ASKVAL+15*, PHNAME1*, PHNAME1+3* |
APSPVAL("DUR" | ASKVAL+23* |
APSPVAL("EXPI | RATION DATE" , ASKVAL+17* |
APSPVAL("FILL | DATE" , ASKVAL+13* |
APSPVAL("INSURER" | ASKVAL+22* |
APSPVAL("MAIL/WINDOW" | ASKVAL+16* |
APSPVAL("METH | OD OF PICK-UP" , ASKVAL+24* |
APSPVAL("NDC" | ASKVAL+19* |
ARY | BLDFLD~ |
ARY("AWP" | BLDFLD+4 |
ARY("BST" | BLDFLD+10 |
ARY("COST" | BLDFLD+5 |
ARY("DUR" | BLDFLD+11 |
ARY("EXPIRATI | ON DATE" , BLDFLD+8 |
ARY("FILL DAT | E" , BLDFLD+1 |
ARY("FLD" | BLDFLD+1*, BLDFLD+2*, BLDFLD+3*, BLDFLD+4*, BLDFLD+5*, BLDFLD+8*, BLDFLD+9*, BLDFLD+10*, BLDFLD+11*, BLDFLD+12* |
ARY("INSURER" | BLDFLD+12 |
ARY("MAIL/WINDOW" | BLDFLD+2 |
ARY("METHOD O | F PICK-UP" , BLDFLD+3 |
ARY("NDC" | BLDFLD+9 |
AWP | NDCCH+1~, NDCCH+8*, NDCCH+13 |
C | EX+2! |
CHGNDC | RIS+2~, RI+2~ |
COST | NDCCH+1~, NDCCH+9*, NDCCH+12 |
D0 | EX+2! |
DA | RIS~, RIS+7, RIS+8, EX+2!, COSTSAVE+1~, COSTSAVE+2*, CHKSUSP+2~, CHKSUSP+3*, CHKSUSP+4 |
DATAARY | ASKVAL+1~, ASKVAL+11, ASKVAL+14, ASKNEWV~, ASKNEWV+2, ASKNEWV+9, ASKNEWV+12, ASKNEWV+16, ASKNEWV+20, ASKNEWV+23 , ASKNEWV+26 |
DATAARY("# OF | REFILLS" , ASKVAL+6* |
DATAARY("AWP" | ASKVAL+20, ASKNEWV+22* |
DATAARY("BST" | ASKVAL+18 |
DATAARY("COST" | ASKVAL+21, ASKNEWV+25* |
DATAARY("CS" | ASKVAL+8* |
DATAARY("DAYS | SUPPLY" , ASKVAL+5* |
DATAARY("DFLG" | ASKVAL+3*, ASKVAL+12, ASKVAL+15, ASKNEWV+3, ASKNEWV+10, ASKNEWV+13, ASKNEWV+17, ASKNEWV+21, ASKNEWV+24 |
DATAARY("DUR" | ASKVAL+23, ASKNEWV+15* |
DATAARY("EXPI | RATION DATE" , ASKVAL+17, ASKNEWV+8* |
DATAARY("FIELD" | ASKVAL+4* |
DATAARY("FILL | DATE" , ASKVAL+13 |
DATAARY("INSURER" | ASKVAL+22, ASKNEWV+14* |
DATAARY("MAIL/WINDOW" | ASKVAL+16, ASKNEWV+1* |
DATAARY("METH | OD OF PICK-UP" , ASKVAL+24 |
DATAARY("NDC" | ASKVAL+19, ASKNEWV+19* |
DATAARY("QFLG" | ASKVAL+3* |
DI | EX+2! |
DIC | EX+2!, PHNAME1+1*, PHNAME1+2!, COST+1~ |
DIC("A" | PHNAME1+1* |
DIC("S" | PHNAME1+1* |
DIC(0 | PHNAME1+1* |
DIE | EX+2!, COSTSAVE+1~, COSTSAVE+3* |
DIK | EX+2! |
DIR | REISSUE+4!, REISSUE+5!, REISSUE+17!, RIS+1!, EX+2!, ASKVAL+1~, COST+1~, COSTSAVE+1~ |
DIR("A" | REISSUE+4*, REISSUE+17*, COST+3* |
DIR("B" | COST+4* |
DIR(0 | REISSUE+4*, REISSUE+17*, COST+2* |
DIRUT | REISSUE+4!, REISSUE+5!, RIS+1!, EX+2!, PHNAME1+3 |
DQ | EX+2! |
DR | EX+2!, COSTSAVE+1~, COSTSAVE+4* |
DRNDC | NDCCH+1~, NDCCH+2*, NDCCH+5*, NDCCH+7, NDCCH+8, NDCCH+9, NDCCH+11 |
DT | CHKSUSP+1 |
DTOUT | REISSUE+4!, REISSUE+5!, RIS+1!, PHNAME1+3 |
DUOUT | REISSUE+4!, RIS+1!, EX+2!, PHNAME1+3 |
ERR | NDCCH+1~ |
FDA | NDCCH+1~, NDCCH+10*, NDCCH+11, NDCCH+12, NDCCH+13 |
FDA(52 | NDCCH+10 |
FLD | EX+2! |
FLDS | RIS+2~, RI+2~ |
HRX | EX+3! |
I | EX+2! |
IR | EX+2! |
JJ | EX+3! |
LFD | REISSUEX!, EX+2! |
LST | REISSUE+1!, REISSUE+5*, REISSUE+8, REISSUEX+1!, RIS+30 |
MAX | REISSUEX! |
MESS | NDCCH+1~, NDCCH+8, NDCCH+9 |
MIN | REISSUEX! |
NEW1 | EX+2! |
NEW11 | EX+2! |
NODE | REISSUEX! |
NOW | EX+2! |
>> ORD | REISSUE+8*, RIS+36, RI+42 |
>> ORN | REISSUE+8*, REISSUE+9, REISSUE+12, REISSUE+15, REISSUE+16, REISSUE+17, REISSUE+19, ULK, RI+4, RI+7 , RI+21 |
POERR | RIS+19*, RI+1~, RI+36* |
PPL | EX+2! |
PS | REISSUEX! |
PSDA | EX+2! |
PSHLD | EX+3! |
>> PSIN | RIS+36*, RI+42* |
PSL | EX+2! |
PSLST | RIS+1!, RIS+30*, RIS+36, RI+42 |
PSNP | EX+2! |
>> PSOBILST | ASKNEWV+11 |
>> PSOCNT | REISSUE+3, REISSUE+4 |
PSODIR | COST~ |
PSODIR("COST" | COST+4, COST+6* |
PSODIR("DFLG" | COST+6 |
PSOEDIT | ASKVAL+1~, ASKVAL+2* |
PSOERR | REISSUEX! |
PSOFDR | REISSUE+4!, REISSUEX+1! |
PSOHRL | EX+2! |
>> PSOIBFL | RIS+34, RI+40 |
>> PSOIBSS | RIS+34*, RI+40* |
PSOID | ASKVAL+1~, ASKVAL+7* |
PSOLIST | REISSUEX!, EX+3! |
>> PSOLST( | REISSUE+8, REISSUE+9, REISSUE+12, REISSUE+15, REISSUE+16, REISSUE+17, REISSUE+19, ULK, RIS+36, RI+4 , RI+7, RI+21, RI+42 |
PSOMSG | REISSUE+15!, EX+2! |
>> PSONDC | ASKNEWV+18 |
PSONEW | REISSUE+4! |
PSONEW("DFLG" | REISSUE+5 |
PSONEW("QFLG" | REISSUE+5, REISSUE+8, REISSUE+18 |
PSOOELSE | REISSUE+5!*, REISSUE+21, REISSUEX+1! |
>> PSOPAR | RIS+33, RI+39, CHKSUSP+1 |
PSOPLCK | EX+2! |
PSOREF | REISSUEX!, REISSUEX+1! |
>> PSORX("BAR CO | DE" , REISSUEX! |
>> PSORX("FILL D | ATE" , REISSUE+1!, REISSUEX!, REISSUEX+2!, EX+3! |
>> PSORX("MAIL/WINDOW" | REISSUEX+2!, EX+4! |
>> PSORX("METHOD | OF PICK-UP" , REISSUEX+2!, EX+4! |
PSORX0 | EX+3! |
PSORXED | REISSUE+22*, REISSUEX+1!, RIS+1!, RIS+8, RIS+13, RI+1~, RI+15, RI+22 |
PSORXED("COST" | RIS+28, RI+35 |
PSORXED("DFLG" | RIS+9, RI+14*, RI+19 |
PSORXED("FILL | DATE" , CHKSUSP+1 |
PSORXED("IRXN" | RIS+7*, RIS+12, RIS+16, RIS+17, RIS+28, RIS+31, RI+7*, RI+8, RI+11, RI+15 , RI+25, RI+26, RI+35, RI+37, CHKSUSP+3 |
>> PSOSITE | RIS+34, RI+40 |
>> PSRH | PHNAME1+4* |
PSRXN | EX+3! |
QTY | EX+3! |
REF | REISSUEX! |
RF | REISSUEX! |
RFDATE | EX+2! |
RFDT | EX+3! |
RFN | EX+2! |
RTN | EX+2! |
RX | NDCCH~, NDCCH+3, NDCCH+4, NDCCH+10, COSTSAVE~, COSTSAVE+2 |
RX0 | EX+2! |
RXDRG | NDCCH+1~, NDCCH+3*, NDCCH+5, NDCCH+8, NDCCH+9 |
RXF | EX+3! |
RXFL | CHKSUSP+2~ |
RXFL( | CHKSUSP+4* |
RXIEN | ASKVAL~, ASKVAL+5, ASKVAL+6, ASKVAL+7, ASKVAL+8, ASKNEWV+1, ASKNEWV+8, ASKNEWV+14, ASKNEWV+15, ASKNEWV+19 , ASKNEWV+22, ASKNEWV+25 |
RXN | REISSUEX!, EX+2! |
RXNDC | NDCCH+1~, NDCCH+4*, NDCCH+7 |
RXO | REISSUEX! |
RXP | REISSUEX!, RIS+36*, EX+2!, RI+42* |
RXREF | RIS+2~, RIS+17*, RIS+18*, RI+2~, RI+26*, RI+27* |
RXS | REISSUEX!, EX+2! |
SD | REISSUEX! |
SPEED | REISSUE+5*, REISSUEX+1! |
ST | EX+2! |
STA | EX+3! |
SUSPT | EX+2! |
U | REISSUE+9, REISSUE+12, REISSUE+19, RIS+17, ASKVAL+5, ASKVAL+6, ASKVAL+7, ASKVAL+8, ASKNEWV+1, ASKNEWV+8 , ASKNEWV+14, ASKNEWV+15, ASKNEWV+19, ASKNEWV+22, ASKNEWV+25, RI+7, RI+8, RI+21, COST+1~, CHKSUSP+1 |
UPDATE | RIS+2~, RI+2~ |
VAERR | REISSUEX! |
VAL | COSTSAVE~, COSTSAVE+4 |
>> VALMBCK | REISSUE+3*, REISSUE+4*, REISSUE+21*, REISSUEX+1*, RIS+33*, RIS+34*, RI+19*, RI+39*, RI+40* |
VALMCNT | REISSUE+3~ |
>> VALMSG | REISSUE+3* |
X | EX+2!, PHNAME1+2, PHNAME1+3, COSTSAVE+1~ |
XFLAG | EX+2! |
Y | REISSUE+5, RIS+34*, EX+2!, PHNAME1+3, PHNAME1+4, RI+40*, COST+6 |