Routine: PSORXL

Package	Total	Call Graph
Outpatient Pharmacy	10	DEVBAR^PSOBMST (A,RXL)^PSOCMOP H^PSOCPTRH (DEV,RESDIR)^PSOCPTRI ^PSODSPL (FLD,NOOR)^PSOHLD AL^PSOLBL DQ^PSOPRF (ECME,S,SUS)^PSORXL1 (PPLADD,RESET)^PSOSUPOE
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$DT^XLFDT
IHS Changes To Pharmacy	3	(APRTY,BPPLARY,CHKFDT)^APSPFUNC DQ1^APSPLBL ^APSPNE4
VA Fileman	3	YN^DICN $$GET1^DIQ ^DIR
Integrated Billing	1	($$CHPUS,$$TRI)^IBACUS

Package	Total	Caller Graph
Outpatient Pharmacy	20	PSOBBC PSOCAN2 PSOCMOPA PSOHLD PSON52 PSOORFIN PSOPRF PSOPRFSS PSOR52 PSORN52 PSORX1 PSORXEDT PSORXL1 PSORXRP2 PSORXRPT PSOSUPAT PSOSUPRX PSOTPRX1 PSOVER PSOVER1
IHS Changes To Pharmacy	3	APSPHLD APSPNE4 APSPRIS
CMOP	2	PSXOPUTL PSXRPPL

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	Q1, PLBL+1, P+1, PZ, P1+3, P1+4
^%ZISC	Q1+4, QLBL+13, QPRF+2, P1+2, P1+4
^%ZTLOAD	QLBL+13, QPRF+2
APRTY^APSPFUNC	PSORXL+10
BPPLARY^APSPFUNC	SAVEPRI+3
CHKFDT^APSPFUNC	PSORXL+16
DQ1^APSPLBL	P1+2
^APSPNE4	PSORXL+15
YN^DICN	PZ+1
$$GET1^DIQ	PSORXL+15
^DIR	PASS+2, RXS+4
$$CHPUS^IBACUS	TRI+14, SUS+8
$$TRI^IBACUS	TRI+2, SUS+1
DEVBAR^PSOBMST	Q1+2, PZ+2
A^PSOCMOP	PASS+8
RXL^PSOCMOP	QLBL
H^PSOCPTRH	SUS+12
DEV^PSOCPTRI	TRI+5, SUS+4
RESDIR^PSOCPTRI	PASS+1
^PSODSPL	PASS+9
FLD^PSOHLD	H1+3
NOOR^PSOHLD	H1+1
AL^PSOLBL	PASS+3
DQ^PSOPRF	P1+4
ECME^PSORXL1	LBL+1, QLBL+3
S^PSORXL1	S
SUS^PSORXL1	SUSL1
PPLADD^PSOSUPOE	PASS+7, RXS+1
RESET^PSOSUPOE	RXS+4
$$DT^XLFDT	TRI+8, SUS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: LBL+2
Function Call: WRITE	Prompt: ! Line Location: PASS+9
Function Call: WRITE	Prompt: ! Line Location: Q1+0
Function Call: WRITE	Prompt: !!,"No Label(s) printed.",!! Line Location: QLBL+3
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: !,"The label printer is busy, do you want to wait? " Line Location: PZ+1
Routine Call	DIR Line Location: PASS+2 RXS+4
Routine Call	%ZIS Line Location: Q1 PLBL+1 P+1 PZ P1+3 P1+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APSPCTRL - [#9009033]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	TRI+1, SUS
^PSDRUG - [#50]	RXS+3
^PSRX - [#52]	TRI+9, TRI+10, TRI+11, Q+2, SUS+6, SUS+7, H+1, H+2, H+4, RXS+3 , SAVEPRI+6, SAVEPRI+9, SAVEPRI+11
^TMP($J	TRI+6!, TRI+13, TRI+14, TRI+15!, TRI+16, SETP, SETP+5!, H1+1, H1+2, H+1 , RXS+5!

Label References

Name	Line Occurrences
@(	PASS+6, H+1, D1
D1	PASS+8, Q, QLBL, QUEUP, H1+3, H, P, P1+3, P1+4
EX	PASS+2
H	H1+2
H1	TRI+16, SETP+4, PASS+9
LBL	PASS+6, PASS+9, Q1, H1+3, P+1
P	PASS+9
PASS	TRI+1, TRI+2, TRI+3, TRI+15
PLBL	PLBL+1
PSORXL	H1+1
PZ	PZ+1
Q	PASS+9, H+5, RXS
QLBL	Q+3
QUEUP	QLBL+15, PLBL+1
RREST	SETP+4
RSAVE	SETP+4
RXS	EX, RXSQ
RXSQ	Q1
S	PASS+9
SAVEPRI	PSORXL+14
SETP	SETP+4
SUSL1	SUS, SUS+1, SUS+2, SUS+9

Naked Globals

Name	Field # of Occurrence
^("STA"	H+1
^(1	SAVEPRI+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RXS+5!, PZ+1*!
%DT	RXS+5!
%Y	PZ+1!
%ZIS	Q1, PLBL+1!, P+1, P1+3
%ZIS("A"	Q1!, PLBL+1!, P+1!, P1+3!
%ZIS("B"	PASS+6!, Q1*
ACT	EX!, SUS+11~, RXS+5!
APSPPRIO	PSORXL+9~, SAVEPRI+9, SAVEPRI+11
BBFLG	EX!
BBRX	EX!
BINGCRT	EX!
BINGRTE	EX!
COUNT	RXS+5!
>> DA	SUS+1, SUS+2, SUS+9, SUS+12, H+1*, H+2
>> DFN	PASS+9
DG	QLBL+7, QLBL+14, H+5*!
DIR	PASS+9!, EX!, H1+3!, RXS+4!, RXS+5!
DIR("?"	LBL+4, LBL+5, LBL+6, LBL+7
DIR("A"	LBL+2, LBL+3, PASS+1, RXS+4*
DIR("B"	PASS+2, RXS+4
DIR(0	PASS+2, RXS+4
DIROUT	RXS+5!
DIRUT	PASS+2, PASS+3, PASS+4, EX!, H1+1!, H1+3!, RXS+5!
DT	TRI+8, TRI+14, SUS+5, SUS+8
DTOUT	EX!, H, RXS+5!
DUOUT	PASS+2, PASS+3, PASS+4, EX!, H1+3!, RXS+5!
DUZ	TRI+10, QLBL+7, SUS+6, P1+2
EXDT	RXS+5!
FDA	SUS+11~
FLD	H1+3!, RXS+5!
FLD(	SUS+10, H1+2
FLD(99	SUS+10, H1+2
G	QLBL+8, QLBL+10, QLBL+14!, QPRF+1*, QPRF+2!
GGG	TRI+4~, TRI+11, SUS+3~, SUS+7
HOLDRPAS	QLBL+15*, QUEUP!
I	SUS+11~, H+4*
IO	Q1
IO("Q"	PLBL+1!
IO(0	Q1
ION	Q+3, Q1, PLBL, PLBL+1, P+1, P1+3
IOP	PLBL+1!, PZ, P1+4
>> IOS	Q1+2, PZ+2
IOST	PLBL+1
IR	SUS+11~
L	RXS+5!
LBL	TRI+16, SETP+4, PASS+8, PASS+9, D1, RXS+5!
LFN	SAVEPRI+1~, SAVEPRI+7*, SAVEPRI+8, SAVEPRI+9
>> NOBG	EX*
>> NOPP	PASS+5*
NOW	SUS+11~
PBILL	TRI+4~, TRI+14, SUS+3~, SUS+8, SUS+9
PDUZ	QLBL+7, QLBL+14!, RXS+5!, P1+2
PI	H*, H+1, RXS+5!
PMX	RSAVE~, RSAVE+1, RSAVE+2, RSAVE+3*
PMXZ	RREST~, RREST+1, RREST+2, RREST+3*
POP	Q1!, PLBL+1!, QUEUP, P+1!, PZ+1!, P1+3
PPL	PSORXL+7!, PSORXL+13, PSORXL+14, PSORXL+16, PSORXL+17, LBL+1, SETP!, SETP+5, PASS+8, EX! , Q, QLBL, QLBL+3, H1, H1+3, H, H+1, H+5, D1, RXS , RXS+1!, RXS+2, RXS+4!, RXS+5!, P*
PPL1	PASS+8, Q, H1, D1, RXS+5!, P*
PPLARY	SAVEPRI+1~
PPLARY(	SAVEPRI+5
PSDA	SUS+11~
PSDFN	PASS+9*!
PSFROM	PASS+9*!
>> PSL	Q, Q1+4
>> PSLION	LBL+2, Q1*, QLBL+7
>> PSMX	RREST+3*
>> PSNP	Q, Q+2, QLBL+15, QUEUP*
>> PSOBAR0	Q1+3, P1+2
>> PSOBAR1	Q1+3, P1+2
>> PSOBARS	Q1+3, P1+2
>> PSOBEDT	PASS+5
PSOCKDC	LBL+1~*
PSOCLBL	PASS+6!*
>> PSOEXREP	TRI+3, PASS+3, PASS+8, QLBL, QLBL+13, QPRF+2
>> PSOEXREX	PASS+3*
>> PSOFROM	Q, P1+3
PSOHSAVE	SETP+4!
PSOHSAVE(	RSAVE+3*, RREST+3
>> PSOION	PLBL, PLBL+1, P1+3
PSOIOS	Q1+2~, PZ+2~
PSOKLRXS	PSORXL+8~, SETP+4*!, RXS, RXS+5
>> PSOLAP	LBL+2, TRI+14, Q+3, Q1, QLBL+7, SUS+8, P+1, PZ
>> PSONOPRT	Q+1, Q1, QUEUP
>> PSOPAR	LBL+3, LBL+7, PASS+2, PASS+6, Q, Q+1, Q1+3, QLBL+15, P1+2, P1+3
>> PSOPRFLG	QLBL+15
>> PSOPROP	PLBL+1, QPRF, P1+3, P1+4
PSOPRPAS	QLBL+15, QUEUP!
PSOPSAVE	SETP+4!
PSOPSAVE(	RSAVE+2*, RREST+2
>> PSOPULL	PASS+4, PASS+7, PASS+8, PASS+9
>> PSOQFLAG	PASS+4, Q1, Q1+1, QLBL+3, QUEUP, QUEUP+1
PSORSAVE	SETP+4!
PSORSAVE(	RSAVE+1*, RREST+1
>> PSORX("PSOL"	PSORXL+7, PSORXL+13, PSORXL+16, TRI+3, TRI+7, SETP!, SETP+1, SETP+2, SETP+3*, SETP+5 , H1, D1, RXS+1!, P
>> PSOSITE	PSORXL+15, TRI+10, SUS+6
PSOSONE	PSORXL+8~, Q1, QLBL+13, RXS+1*
>> PSOSUREP	TRI+3
>> PSOTIME	QLBL+7, QPRF
>> PSOTRVV	PSORXL+7
>> PSPARTXX	Q1, QLBL+14
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+8, QLBL
REF	RXS+5!
REPRINT	EX!, RXS+5!, P1+3
RFDATE	RXS+5!
RFL1	RXS+5!
RFLL	RXS+5!
RFN	SUS+11~
RSDT	SUS+11~
RX	SAVEPRI+1~, SAVEPRI+4, SAVEPRI+5, SAVEPRI+6, SAVEPRI+9, SAVEPRI+11
RXF	SUS+11~
RXLTOP	PASS+8*, QLBL, D1!
RXN	RXS+5!
RXPR	RXS+5!
RXPR(	TRI+13, Q+2, SUS+2, RSAVE+2, RREST+2*
RXRH	RXS+5!
RXRH(	TRI+13, SUS+2, RSAVE+3, RREST+3*
RXRP	RXS+5!
RXRP(	TRI+13, SUS+2, RSAVE+1, RREST+1*
RXRS	PSORXL+17, PASS+7, EX, QLBL+13!, RXS, RXS+4!, RXS+5!, RXSQ!
RXRS(	Q+2, RXS+3
RXS	SAVEPRI~, SAVEPRI+2, SAVEPRI+3
RXSS	RXS+3*, RXS+5!
SD	RXS+5!
SLBL	PSORXL+8~, PASS+8, PASS+9, EX*, RXS
>> SLPPL	Q+2*
SPPL	H!, H+2, H+3, H+4, H+5!
>> SUSPT	LBL+2, QLBL+7, QLBL+8, QLBL+13, QLBL+14, 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
U	SAVEPRI+9, SAVEPRI+11
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	RXS+5!
X	TRI+1!, EX!, SUS!, RXS+5!
Y	TRI+16, SETP+4, PASS+5, PASS+6, PASS+7, PASS+8, PASS+9, EX!, RXS+4, RXS+5!
ZD	RXS+5!
>> ZTDESC	QLBL+7, QPRF
>> ZTDTH	QLBL+7, QPRF
>> ZTIO	QLBL+7, QPRF
>> ZTRTN	QLBL+7, QPRF
>> ZTSAVE(	QLBL+8, QLBL+10, QPRF+1*
>> ZTSAVE("P*"	QLBL+11*
>> 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+13, QLBL+14!, QPRF+2!, P+1!
ZY	RXS+5!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORXL

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 25

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
Q1
QUEUP
SAVEPRI(RXS)	;EP-
SUS
RXSQ
PZ
PLBL
SUSL1
QPRF
SETP
LBL	;
TRI	;Tricare
P1	; IHS/CIA/PLS - 12/23/03 - Call IHS Label routine
H
Q
P
S
EX
PASS	;
RXS
RREST
H1
QLBL		ICR #1969 Status: Active Usage: Private
RSAVE
D1		ICR #1969 Status: Active Usage: Private