Routine: PSORXL

Package	Total	Call Graph
Outpatient Pharmacy	13	DEVBAR^PSOBMST (A,RXL)^PSOCMOP H^PSOCPTRH (DEV,RESDIR)^PSOCPTRI ^PSODSPL ($$DEFPRT,$$MGONFILE,$$SELPRT)^PSOFDAUT (FLD,NOOR)^PSOHLD $$ADDCHK^PSOHLDS (AL,DQ1)^PSOLBL DQ^PSOPRF GETPARK^PSORPC01 (ECME,PK,PPLPARK,S,SUS)^PSORXL1 (PPLADD,RESET)^PSOSUPOE
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$DT^XLFDT
VA FileMan	3	^DIC $$GET1^DIQ ^DIR
Integrated Billing	1	($$CHPUS,$$TRI)^IBACUS

Package	Total	Caller Graph
Outpatient Pharmacy	19	PSOBBC PSOCAN2 PSOCMOPA PSOHLD PSON52 PSOORFIN PSOPRF PSOPRFSS PSOPRK PSOR52 PSORN52 PSORX1 PSORXEDT PSORXL1 PSOSUPAT PSOSUPRX PSOTPRX1 PSOVER PSOVER1
CMOP	2	PSXOPUTL PSXRPPL

Name	Field # of Occurrence
^%ZIS	Q1, PLBL+1, P+1, P+2, P1+1, P1+2
^%ZISC	Q1+6, QLBL+13, QPRF+2, P1, P1+2
^%ZTLOAD	QLBL+13, QPRF+2
^DIC	OPAI+13
$$GET1^DIQ	LBL+5, Q2+1, OPAI+16, OPAI+38
^DIR	PASS+5, RXS+4
$$CHPUS^IBACUS	TRI+14, SUS+8
$$TRI^IBACUS	TRI+2, SUS+1
DEVBAR^PSOBMST	Q1+4, P+3
A^PSOCMOP	PASS+11
RXL^PSOCMOP	QLBL
H^PSOCPTRH	SUS+12
DEV^PSOCPTRI	TRI+5, SUS+4
RESDIR^PSOCPTRI	PASS+2
^PSODSPL	PASS+13
$$DEFPRT^PSOFDAUT	LBL+6
$$MGONFILE^PSOFDAUT	FDARX+5
$$SELPRT^PSOFDAUT	Q2+5
FLD^PSOHLD	H1+3
NOOR^PSOHLD	H1+1
$$ADDCHK^PSOHLDS	OPAI+29, OPAI+39
AL^PSOLBL	PASS+6
DQ1^PSOLBL	P1
DQ^PSOPRF	P1+2
GETPARK^PSORPC01	LBL+3, PASS+1
ECME^PSORXL1	LBL+1, QLBL+3
PK^PSORXL1	PK+1
PPLPARK^PSORXL1	PSORXL+7
S^PSORXL1	S
SUS^PSORXL1	SUSL1
PPLADD^PSOSUPOE	PASS+10, RXS+1
RESET^PSOSUPOE	RXS+4
$$DT^XLFDT	TRI+8, SUS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: LBL+4
Function Call: WRITE	Prompt: ! Line Location: PASS+12
Function Call: WRITE	Prompt: ! Line Location: PASS+13
Function Call: WRITE	Prompt: ! Line Location: Q1+0
Function Call: WRITE	Prompt: $C(7),!,"You must select a valid FDA Medication Guide printer." Line Location: Q2+6
Function Call: WRITE	Prompt: !!,"No Label(s) printed.",!! Line Location: QLBL+3
Function Call: WRITE	Prompt: !!,"LABEL(S) QUEUED TO PRINT",!! Line Location: QLBL+15
Function Call: WRITE	Prompt: $C(7),!,"PROFILES MUST BE SENT TO PRINTER !!",! Line Location: PLBL+1
Function Call: WRITE	Prompt: $P(^PSRX($P(SPPL,",",I),0),"^")_", " Line Location: H+4
Function Call: WRITE	Prompt: !!,"You have selected the following Rx(s) to be pulled from suspense:",! Line Location: RXS+2
Function Call: WRITE	Prompt: !," Rx # ",$P($G(^PSRX(+$G(RXSS),0)),"^"),?23,$P($G(^PSDRUG(+$P($G(^PSRX(+$G(RXSS),0)),"^",6),0)),"^") Line Location: RXS+3
Function Call: WRITE	Prompt: !!,"Rx(s) will remain in Suspense!",! Line Location: RXS+4
Function Call: WRITE	Prompt: ! Line Location: P+1
Function Call: WRITE	Prompt: !,"PRESCRIPTIONS SENT TO:" Line Location: OPAI+49
Function Call: WRITE	Prompt: !?3,DEV Line Location: OPAI+50
Function Call: WRITE	Prompt: ! Line Location: OPAI+50
Function Call: WRITE	Prompt: !?5,RX,?20,$P(OPAI(DEV,RX),"^") Line Location: OPAI+51
Function Call: WRITE	Prompt: !,"STORAGE DEVICES" Line Location: OPAI+52
Function Call: WRITE	Prompt: !?3,II Line Location: OPAI+53
Function Call: WRITE	Prompt: !!,$C(7),"Drug Interaction Rx(s) " Line Location: DRUGINT+1
Function Call: WRITE	Prompt: $P(^PSRX($P(SPPL,",",I),0),"^")_", " Line Location: DRUGINT+1
Routine Call	%ZIS Line Location: Q1 PLBL+1 P+1 P+2 P1+1 P1+2
Routine Call	DIC Line Location: OPAI+13
Routine Call	DIR Line Location: PASS+5 RXS+4

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	TRI+1, SUS
^PS(59 - [#59]	OPAI+14, OPAI+27, OPAI+28
^PSDRUG - [#50]	RXS+3, OPAI+37, OPAI+55
^PSRX - [#52]	TRI+9, TRI+10, TRI+11, Q+2, SUS+6, SUS+7, H+1, H+2, H+4, RXS+3 , OPAI+36, OPAI+55, RTE+3, RTE+4, RTE+6, RTE+7, RTE+8, DRUGINT+1
^TMP($J	TRI+6!, TRI+13, TRI+14, TRI+15!, TRI+16, SETP, SETP+5!, H1+1, H1+2, H+1 , RXSQUIT!
^XUSEC("PSO TECH ADV"	LBL+8, PASS+3
^XUSEC("PSORPH"	LBL+8, PASS+3

Name	Line Occurrences
$$FDARX	Q2+1
$$RTE	OPAI+36
@(	PASS+9, H+1, D1
D1	PASS+11, Q, QLBL, QUEUP, H1+3, H, P, P1+1, P1+2, PK1+1 , PK1+7, PK+3
DRUGINT	PK+2
EX	PASS+5
H	H1+2
H1	TRI+16, SETP+4, PASS+13
LBL	PASS+9, PASS+13, Q1+3, Q2+7, H1+3, P+1
OPAI	QLBL+16
P	PSORXL+10, PASS+13
PASS	TRI+1, TRI+2, TRI+3, TRI+15
PK1	PASS+5, PASS+13
PLBL	PLBL+1
PSORXL	H1+1
Q	PASS+13, H+5, RXS, DRUGINT+2
Q2	Q+3
QLBL	Q2+1, Q2+2
QUEUP	QLBL+19, PLBL+1
RREST	SETP+4
RSAVE	SETP+4
RXS	EX, RXSQ
RXSQ	Q1+1
RXSQUIT	PSORXL+7, LBL+1, EX, Q1+1, Q1+3, QLBL+3, QLBL+18, QUEUP
S	PASS+13
SETOP	OPAI+40, OPAI+41, OPAI+43, OPAI+44, OPAI+46
SETP	SETP+4
SUSL1	SUS, SUS+1, SUS+2, SUS+9

Name	Field # of Occurrence
^(	RTE+3
^("STA"	H+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RXSQUIT!
%DT	RXSQUIT!
%ZIS	Q1, PLBL+1!, P+1, P1+1
%ZIS("A"	Q1!, PLBL+1!, P+1!, P1+1!
%ZIS("B"	PASS+9!, Q1*
ACT	EX!, SUS+11~, RXSQUIT!
ADD	OPAI+10~
ADD(	OPAI+31, OPAI+32, OPAI+43, OPAI+44, OPAI+46
ADD("A"	OPAI+41
ADD("S"	OPAI+49, OPAI+52, OPAI+53
BBFLG	EX!
BBRX	EX!
BINGCRT	EX!
BINGRTE	PASS+13!, EX!
COUNT	RXSQUIT!
CSB	OPAI+10~, OPAI+42*, OPAI+43, OPAI+44
>> DA	SUS+1, SUS+2, SUS+9, SUS+12, H+1*, H+2
DAT	OPAI+10~, OPAI+28*, OPAI+29, OPAI+31, OPAI+32
DAT1	OPAI+10~, OPAI+29, OPAI+30, OPAI+31, OPAI+32, OPAI+39, OPAI+40
DDEV	OPAI+10~, OPAI+37*, OPAI+39
DDRG	SETOP~, SETOP+2
DEV	OPAI+10~, OPAI+14, OPAI+27, OPAI+28, OPAI+50*, OPAI+51
>> DFN	PASS+13
DG	QLBL+7, QLBL+18, H+5!, DRUGINT+2!
DIC	OPAI+10~, OPAI+13*!
DIC(0	OPAI+13*
DINF	SETOP~, SETOP+2
DIR	PASS+13!, EX!, H1+3!, RXS+4!, RXSQUIT!
DIR("?"	LBL+11, LBL+12, LBL+14, LBL+15, LBL+16*
DIR("A"	LBL+4, LBL+7, LBL+8, LBL+10, PASS+2, RXS+4*
DIR("B"	PASS+5, RXS+4
DIR(0	PASS+3, PASS+5, RXS+4*
DIROUT	RXSQUIT!
DIRUT	PASS+5, PASS+6, PASS+7, EX!, H1+1!, H1+3!, RXSQUIT!
DNAM	SETOP+1~, SETOP+2*
DRG	OPAI+10~, OPAI+36, OPAI+37, OPAI+38, OPAI+55, OPAI+56
DRG0	OPAI+10~, OPAI+37*, OPAI+40, OPAI+41, OPAI+42, OPAI+43, OPAI+44, OPAI+46
DRX	SETOP~, SETOP+2
DT	TRI+8, TRI+14, SUS+5, SUS+8
DTOUT	EX!, H, RXSQUIT!, PK1+1
DUOUT	PASS+5, PASS+6, PASS+7, EX!, H1+3!, RXSQUIT!
DUZ	LBL+8, TRI+10, PASS+3, QLBL+6, SUS+6, P1
EXDT	RXSQUIT!
FDA	SUS+11~
FDAPRT	Q2+3~, Q2+4, Q2+5, Q2+6, Q2+7, Q2+8
FDARX	FDARX+1~, FDARX+2, FDARX+5, FDARX+6
FDARXIEN	FDARX+1~, FDARX+3*, FDARX+4, FDARX+5
FLD	H1+3!, RXSQUIT!
FLD(	SUS+10, H1+2
FLD(99	SUS+10, H1+2
FLG	OPAI+10~, OPAI+14, OPAI+47, OPAI+48, SETOP+2*
FP	RTE+1~, RTE+2*, RTE+6, RTE+7, RTE+8
FPN	RTE+1~, RTE+5*, RTE+6, RTE+7, RTE+8
G	QLBL+9, QLBL+10, QLBL+11, QLBL+18!, QPRF+1, QPRF+2!
GGG	TRI+4~, TRI+11, SUS+3~, SUS+7
HOLDRPAS	QLBL+19*, QUEUP!
I	SUS+11~, H+4, FDARX+1~, FDARX+2, FDARX+3, DRUGINT+1*
II	OPAI+10~, OPAI+34, OPAI+52, OPAI+53, OPAI+54
IO	Q1+3
IO("Q"	PLBL+1!
IO(0	Q1+3
ION	Q+3, Q1, Q1+3, PLBL, PLBL+1, P+1, P1+1
IOP	PLBL+1!, P+2, P1+2
>> IOS	Q1+4, P+3
IOST	PLBL+1
IR	SUS+11~
L	RXSQUIT!
LBL	TRI+16, SETP+4, PASS+11, PASS+13, D1, RXSQUIT!
LRF	RTE+1~, RTE+3, RTE+4, RTE+5
MTH	OPAI+11~, OPAI+45*, OPAI+46
MW	RTE+1~, RTE+6, RTE+7, RTE+8*, RTE+9
>> NOBG	EX*
>> NOPP	PASS+8*
NOW	SUS+11~
NPPL	OPAI+11~, OPAI+33, OPAI+39, OPAI+54
OPAI	OPAI+10~, OPAI+49, OPAI+53
OPAI(	OPAI+50, OPAI+51, SETOP+2*
OPAIO	QLBL+6*, QLBL+17!, OPAI+12, OPAI+13
PBILL	TRI+4~, TRI+14, SUS+3~, SUS+8, SUS+9
PDAT	OPAI+10~, OPAI+36, OPAI+40, OPAI+41, OPAI+43, OPAI+44, OPAI+46, OPAI+55, OPAI+56
PDUZ	QLBL+6, QLBL+18!, RXSQUIT!, P1
PI	H, H+1, RXSQUIT!, PK1+3, PK1+4, PK1+5, PK1+6
PMX	RSAVE~, RSAVE+1, RSAVE+2, RSAVE+3*
PMXZ	RREST~, RREST+1, RREST+2, RREST+3*
PN	OPAI+10~, OPAI+14*, OPAI+27, OPAI+28
POP	Q1!, Q1+1, Q1+3, PLBL+1!, QUEUP, P+1!, P1+1
PPL	PSORXL+7, PSORXL+8!, PSORXL+10, LBL+1, SETP!, SETP+5, PASS+11, EX!, Q, Q2+1 , QLBL, QLBL+3, H1, H1+3, H, H+1, H+5, D1, RXS, RXS+1! , RXS+2, RXS+4!, RXSQUIT!, P, FDARX~, FDARX+2, FDARX+3, OPAI+12, OPAI+34, PK1+2 , PK1+4, PK1+5, PK1+6, PK1+7, DRUGINT+2*
PPL1	PASS+11, Q, H1, D1, RXSQUIT!, P*
PSDA	SUS+11~
PSDFN	PASS+13*!
PSFROM	PASS+13*!
>> PSL	Q, Q1+6
>> PSLION	LBL+4, Q1*, QLBL+6
>> PSNP	Q, Q+2, QLBL+19, QUEUP*
>> PSOBAR0	Q1+5, P1
>> PSOBAR1	Q1+5, P1
>> PSOBARS	Q1+5, P1
>> PSOBEDT	PASS+8
PSOCKDC	LBL+1~*
PSOCLBL	PASS+9!*
PSOCNT	LBL+2~, LBL+13, LBL+14, LBL+15, LBL+16*
>> PSOEXREP	TRI+3, PASS+6, PASS+11, Q2+1, Q2+2, QLBL, QLBL+14, QPRF+2
>> PSOEXREX	PASS+6*
>> PSOFDAPT	LBL+6, LBL+7, Q2+1, Q2+5, Q2+8
>> PSOFROM	Q, P1+1
PSOHSAVE	SETP+4!
PSOHSAVE(	RSAVE+3*, RREST+3
>> PSOION	PLBL, PLBL+1, P1+1
PSOIOS	Q1+4~, P+3~
PSOKLRXS	PSORXL+9~, SETP+4*!, RXS, RXSQUIT
>> PSOLAP	LBL+4, TRI+14, Q+3, Q1+3, QLBL+6, SUS+8, P+1, P+2
>> PSOMGREP	Q2+1, Q2+2
>> PSONOPRT	Q+1, Q1+1, QUEUP
>> PSOPAR	PSORXL+10, LBL+8, LBL+10, LBL+16, PASS+3, PASS+5, PASS+9, Q, Q+1, Q1+5 , QLBL+19, P1, P1+1, OPAI+15, OPAI+38
PSOPARKX	LBL+2~, PASS+1~
PSOPARKX(0	LBL+10, LBL+14, PASS+5
>> PSOPRFLG	QLBL+19
>> PSOPROP	PLBL+1, QPRF, P1+1, P1+2
PSOPRPAS	QLBL+19, QUEUP!
PSOPSAVE	SETP+4!
PSOPSAVE(	RSAVE+2*, RREST+2
>> PSOPULL	PASS+7, PASS+10, PASS+11, PASS+13
>> PSOQFLAG	PASS+7, Q1+2, Q1+3, QLBL+3, QUEUP, QUEUP+1
PSORSAVE	SETP+4!
PSORSAVE(	RSAVE+1*, RREST+1
>> PSORX("PSOL"	PSORXL+7, PSORXL+8, PSORXL+10, TRI+3, TRI+7, SETP!, SETP+1, SETP+2, SETP+3, SETP+5 , H1, D1, RXS+1!, P, PK1+2
>> PSOSITE	LBL+5, LBL+6, TRI+10, Q2+1, SUS+6, OPAI+14, OPAI+16, OPAI+27, OPAI+28, OPAI+37
PSOSKIP	PSORXL+9~*, Q2+1
PSOSONE	PSORXL+9~, Q1+1, QLBL+13, RXS+1*
>> PSOSUREP	TRI+3
>> PSOTIME	QLBL+6, QPRF
>> PSOTRVV	PSORXL+8
>> PSPARTXX	Q1+1, QLBL+18
PSTRD	TRI+4~, TRI+10, TRI+14, SUS+3~, SUS+6, SUS+8
PSTRDZ	TRI+4~, TRI+10, TRI+14, SUS+3~, SUS+6, SUS+8
PSTRF	TRI+4~, TRI+11, TRI+14, SUS+3~, SUS+7, SUS+8
PSTRIVAR	TRI+4~, SETP, SETP+4*
PSTRP	TRI+4~, TRI+10, TRI+14, SUS+3~, SUS+6, SUS+8
PSUS	SUS+11~
>> PSXSYS	PASS+11, QLBL
REF	RXSQUIT!
REPRINT	EX!, RXSQUIT!, P1+1
RESULTS	LBL+2~, LBL+3, PASS+1~
RFDATE	RXSQUIT!
RFL1	RXSQUIT!
RFLL	RXSQUIT!
RFN	SUS+11~
RSDT	SUS+11~
RTE	OPAI+10~, OPAI+36*, OPAI+39, OPAI+44, OPAI+45
RX	OPAI+10~, OPAI+34, OPAI+35, OPAI+36, OPAI+39, OPAI+51, OPAI+54*, OPAI+55, RTE+2, RTE+3 , RTE+4, RTE+5, RTE+6, RTE+7, RTE+8
RXF	SUS+11~
>> RXFL(	RTE+4
RXLTOP	PASS+11*, QLBL, D1!
RXN	RXSQUIT!
>> RXPR(	TRI+13, Q+2, SUS+2, RSAVE+2, RREST+2*, RTE+2, RTE+3, RTE+4, RTE+5
RXRH	RXSQUIT!
RXRH(	TRI+13, SUS+2, RSAVE+3, RREST+3*
RXRP	RXSQUIT!
RXRP(	TRI+13, SUS+2, FDARX+4, RSAVE+1, RREST+1*, OPAI+35, OPAI+55
RXRS	PASS+10, EX, QLBL+13!, RXS, RXS+4!, RXSQUIT!, RXSQ!, PK1+3
RXRS(	Q+2, RXS+3, PK1+3
RXRS(0	PSORXL+7
RXSS	RXS+3*, RXSQUIT!
SD	RXSQUIT!
SLBL	PSORXL+9~, PASS+11, PASS+13, EX*, RXS
>> SLPPL	Q+2*
SPPL	H!, H+2, H+3, H+4, H+5!, PK+2, DRUGINT+1, DRUGINT+2!
>> SUSPT	LBL+4, QLBL+6, QLBL+7, QLBL+14, QLBL+18, QPRF, QPRF+2
TRIDA	SUS+1~*, SUS+2, SUS+6, SUS+7, SUS+8, SUS+9, SUS+12
TRIRX	TRI+4~, SETP*, SETP+1, SETP+2, SETP+3
TRXI	TRI+4~, TRI+7*, TRI+9, TRI+10, TRI+11, TRI+13, TRI+14
VV	TRI+4~, TRI+7, SETP
VVCT	TRI+4~, TRI+7, TRI+12, TRI+13, TRI+14, SETP, SETP+2, SETP+3
VVV	TRI+4~, TRI+7*
WARN	RXSQUIT!
X	TRI+1!, EX!, SUS!, RXSQUIT!, OPAI+10~, OPAI+13*!
XX	RTE+1~, RTE+3*
Y	TRI+16, SETP+4, PASS+5*, PASS+8, PASS+9, PASS+10, PASS+11, PASS+13, EX!, RXS+4 , RXSQUIT!, OPAI+10~, OPAI+13
ZD	RXSQUIT!
>> ZTDESC	QLBL+7, QPRF
>> ZTDTH	QLBL+6, QPRF
ZTIO	QLBL+6, QPRF, OPAI+11~, OPAI+13*, OPAI+14
>> ZTRTN	QLBL+6, QPRF
>> ZTSAVE(	QLBL+9, QLBL+10, QLBL+11, QPRF+1
>> ZTSAVE("PCOMH("	QLBL+12*
>> ZTSAVE("PSORX("	QLBL+12*
>> ZTSAVE("RXFL("	QLBL+12*
>> ZTSAVE("RXPR("	QLBL+12*
>> ZTSAVE("RXRP("	QLBL+12*
>> ZTSAVE("RXRS("	QLBL+12*
ZTSK	QLBL+14, QLBL+18!, QPRF+2!, P+1!
ZY	RXSQUIT!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORXL

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 21

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LBL	;
TRI	;Tricare
SETP
PASS	;
EX
Q
Q1
Q2	; Checking FDA Med Guide printer
QLBL		ICR #1969 Status: Active Usage: Private
PLBL
QPRF
QUEUP
S
SUS
SUSL1
H1
H
D1		ICR #1969 Status: Active Usage: Private
RXS
RXSQUIT
P
P1
RXSQ
FDARX(PPL)	; Check if any Rx to be printed has an FDA Med Guide
RSAVE
RREST
OPAI	;This section of code will display where an RX is routed.
SETOP(DINF,DRX,DDRG)	; Set OPAI array
RTE()	; get route for RX
PK1	;
PK	;
DRUGINT	;441 PAPI