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

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

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPRIS

Information

Source Information

Call Graph

Call Graph Total: 23

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: