Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APSPRIS

Package: IHS Changes To Pharmacy

Routine: APSPRIS


Information

APSPRIS ;IHS/MSC/PLS- Support for speed REISSUE ;10-Oct-2017 10:55;DU

Source Information

Source file <APSPRIS.m>

Call Graph

Call Graph Total: 23

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  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: REISSUE+17
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"Site Parameters must be defined to use the Release option!",!
  • Line Location: RIS+33
Function Call: WRITE
  • Prompt: !!
  • Line Location: RIS+36
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"Site Parameters must be defined to use the Release option!",!
  • Line Location: RI+39
Function Call: WRITE
  • Prompt: !!
  • Line Location: RI+42
Routine Call
  • DIE
  • Line Location:
    • NDCCH+14
Routine Call
  • DIE
  • Line Location:
    • COSTSAVE+5
Routine Call
  • DIC
  • Line Location:
    • PHNAME1+2
Routine Call
  • DIR
  • Line Location:
    • REISSUE+4
    • REISSUE+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

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!

Label References

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All