Routine: PSORXL1

Call Graph Total: 14

Package	Total	Call Graph
Outpatient Pharmacy	8	($$LSTRFL,REVERSE)^PSOBPSU1 $$STATUS^PSOBPSUT SUS1^PSOCMOP EN^PSOHLSN1 $$TRIC^PSOREJP1 $$HDLG^PSOREJU1 $$FIND^PSOREJUT (Q,RXS)^PSORXL
VA Fileman	5	NOW^%DTC FILE^DICN ^DIK $$GET1^DIQ ^DIR
IHS Changes To Pharmacy	1	EN^APSPPCC1

Package

Total

Call Graph

($$LSTRFL,REVERSE)^PSOBPSU1 $$STATUS^PSOBPSUT SUS1^PSOCMOP EN^PSOHLSN1 $$TRIC^PSOREJP1 $$HDLG^PSOREJU1 $$FIND^PSOREJUT (Q,RXS)^PSORXL

VA Fileman

NOW^%DTC FILE^DICN ^DIK $$GET1^DIQ ^DIR

IHS Changes To Pharmacy

EN^APSPPCC1

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSOREJU1 PSOREJU3 PSORXL PSORXPA1

Package

Total

Caller Graph

Outpatient Pharmacy

PSOREJU1 PSOREJU3 PSORXL PSORXPA1

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	ACT+3
EN^APSPPCC1	SUS+6
FILE^DICN	LOCK+1
^DIK	SUS+4, WARN1+1
$$GET1^DIQ	ECME+8
^DIR	S1+3, WARN1, SWARN+6
$$LSTRFL^PSOBPSU1	LOCK+12, TRIC+1
REVERSE^PSOBPSU1	LOCK+13
$$STATUS^PSOBPSUT	SWARN+5, ECME+4
SUS1^PSOCMOP	SUS+7
EN^PSOHLSN1	LOCK+8
$$TRIC^PSOREJP1	TRIC+2
$$HDLG^PSOREJU1	ECME+12
$$FIND^PSOREJUT	ECME+11
Q^PSORXL	S1+6, WARN1+2, SWARN+10
RXS^PSORXL	D1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $P(^PSRX($P(SPPL,",",I),0),"^")_", " Line Location: S1+4
Function Call: WRITE	Prompt: !,"Label device must be selected for Drug Interaction label!" Line Location: S1+5
Function Call: WRITE	Prompt: !!,$S(RXP:"Partial ",1:"")_"RX# ",$P(^PSRX(RXN,0),"^")_" has been suspended until "_LFD_"." Line Location: LOCK+5
Function Call: WRITE	Prompt: ! Line Location: WARN+0
Function Call: WRITE	Prompt: $C(7)," Partial Removed!" Line Location: WARN1+1
Function Call: WRITE	Prompt: !!,"If you choose to suspend this partial Rx, the current suspended fill will",!,"be replaced by the partial. You may want to pull this fill early instead.",! Line Location: HLP+0
Function Call: WRITE	Prompt: !!,"You cannot suspend a partial when a CMOP fill is in suspense, because the partial will replace the CMOP fill in suspense." Line Location: HLP+1
Function Call: WRITE	Prompt: !,"If you choose to queue this partial, the label will printout on the previous",!,"selected label printer.",! Line Location: HLP+2
Function Call: WRITE	Prompt: !,"You may exit without printing or suspending this partial. This will also delete",!,"the partial Rx entered." Line Location: HLP+3
Function Call: WRITE	Prompt: $C(7),!!,"Rx "_$P($G(^PSRX(DA,0)),"^")_" is already suspended "_$S($G(RXCMOP)]"":"for CMOP ",1:"")_"until "_$E(PSORXZD,4,5)_"-"_$E(PSORXZD,6,7)_"-"_$E(PSORXZD,2,3)_"." Line Location: SWARN+2
Function Call: WRITE	Prompt: !,"By suspending this fill, the fill that is already suspended will be overwritten",!,"and a label will not print for that fill!",! Line Location: SWARN+3
Function Call: WRITE	Prompt: !!,"Nothing queued to print for Rx "_$P($G(^PSRX(PSORXLDA,0)),"^"),! Line Location: SWARN+12
Routine Call	DIR Line Location: S1+3 WARN1 SWARN+6

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
^PS(52.5 - [#52.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WARN
^PS(52.5 - [#52.5]	SUS, SUS+2, SUS+3, LOCK+1, LOCK+2, LOCK+3*, WARN, SWARN+1, SWARS+1
^PSRX - [#52]	S1+1, S1+2, S1+4, SUS, SUS+2, SUS+4, LOCK, LOCK+1, LOCK+4, LOCK+5 , LOCK+6, LOCK+7, ACT, ACT+1, ACT+2, ACT+3, WARN+1, WARN1+1, SWARN+2, SWARN+6 , SWARN+12
^TMP("PSORXN"	LOCK+8, LOCK+9*

Name	Line Occurrences
ACT	LOCK+4
D1	S, S1+7
LOCK	SUS+5
RMV	ECME+6, ECME+8, ECME+11
S1	D1
SUS	S1+1
SUSQ	LOCK
SWARN	SUS+2
SWARNQ	SWARN+7, SWARN+8
SWARS	SWARN+10
TRIC	SWARN+4, ECME+4
WARN	SUS+3
WARN1	WARN+2

Name	Field # of Occurrence
^("STA"	S1+1, SUS+4*
^(3	SUS

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ACT+3!, D1+2!
%DT	D1+2!
%H	ACT+3!
%I	ACT+3!
ACT	SUS*, D1+2!
BWH	ECME+1~, ECME+10*, ECME+12
COMM	LOCK+7*, LOCK+8, LOCK+9, LOCK+14!
COUNT	D1+2!
>> DA	S1, S1+1, S1+2, SUS, SUS+2, SUS+3, SUS+4, SUS+5, LOCK+1, ACT , ACT+1, ACT+2, ACT+3, WARN+1, WARN1+1, SWARN+1, SWARN+2, SWARN+4, SWARN+5, SWARN+6 , SWARNQ+1
>> DA(1	WARN1+1*
DD	LOCK+1!, LOCK+2!
DFLG	SUS, SUS+3, D1+2!, WARN!, WARN1+1, WARN1+2
DG	S1+6*!
DIC	LOCK+1*, ACT+3!
DIC("DR"	LOCK+1*
DIC(0	LOCK+1*
DIE	ACT+3!
>> DIK	SUS+4, WARN1+1
DIR	S1+3!, D1+2!, WARN!, WARN1!, SWARN+6!
DIR("?"	WARN1*
DIR("A"	S1+3, WARN+1, WARN+5, WARN+6, SWARN+6*
DIR("B"	WARN1, SWARN+6
DIR(0	S1+3, WARN, SWARN+6*
DIROUT	D1+2!
DIRUT	S1+3!, D1+2!, WARN!, WARN1+1
DO	LOCK+1!, LOCK+2!
DPI	WARN1+2*!
DPPI	WARN1+2!
DPPL	WARN1+2*!
DR	ACT+3!
DTOUT	S1+3!, D1+2!, WARN!
DUOUT	S1+3!, D1+2!, WARN!
DUZ	ACT+3
EACTION	ECME+1~, ECME+5*, ECME+6
ESTAT	ECME+1~, ECME+4*, ECME+5
EXDT	D1+2!
FDA	ACT+1*, ACT+3!
FLD	D1+2!
HOLDPPL1	WARN1+2*!
I	S1+4, ACT, ACT+3!, RMV+1~, RMV+2*
ION	S1+5
>> IR	ACT+1, ACT+2, ACT+3
L	D1+2!
LBL	D1+2!
>> LFD	LOCK+4*, LOCK+5, LOCK+6, LOCK+7, ACT+3
PDUZ	D1+2!
PI	S1, D1+2!, WARN1+2, SWARN+9, SWARN+11*, SWARS+2
PPL	S, S1, S1+6, D1, D1+2!, WARN1+2, SWARN+9, SWARN+10, SWARS+3, ECME+2 , ECME+6, ECME+8, ECME+11, RMV~, RMV+2, RMV+3!
PPL1	S, S1+6~, D1, D1+2!, WARN1+2, SWARN+9, SWARN+11
PPLTMP	ECME+1~, ECME+2*, ECME+3
PSOACT	ECME+1~, ECME+10, ECME+11, ECME+12
>> PSOCKDC	ECME+7
>> PSODFN	SUS+6
>> PSOEXREP	LOCK+2
PSOI	ECME+1~, ECME+3*
PSOJ	ECME+1~
PSOKSPPL	SWARN+9*, SWARN+10, SWARN+11!, SWARS+2
>> PSOLAP	S1+5
>> PSONPROG	LOCK+13
>> PSOQFLAG	SWARN+5*
PSORF	SWARN+4~, SWARN+5, TRIC+1*, TRIC+2, ECME+1~, ECME+4, ECME+10, ECME+11, ECME+12
PSORX	TRIC~, TRIC+1, TRIC+2, ECME+1~, ECME+3*, ECME+4, ECME+6, ECME+8, ECME+9, ECME+11 , ECME+12
PSORX("PSOL"	S, D1
PSORXLDA	SWARN+1*, SWARN+7, SWARN+11, SWARN+12, SWARNQ+1!, SWARS+1, SWARS+4
PSORXZD	SWARN+1*, SWARN+2!
>> PSOSITE	LOCK+1
PSOSTA	ECME+1~, ECME+8*
PSOTRIC	SWARN+4~, SWARN+5, TRIC+2*, ECME+1~, ECME+5, ECME+6
PSOWFLG	SUS, SUS+2, SUS+3!, D1+2!, SWARN+10, SWARN+12*
PSOZXFL	SWARS+1!, SWARS+5!
PSOZXFL(	SWARS+1*, SWARS+4
PSOZXFPL	SWARS+2*, SWARS+3, SWARS+5!
PSOZXFPN	SWARS+3*, SWARS+4, SWARS+5!
PSOZXPI	SWARN+9*, SWARN+11!
PSOZXPPL	SWARN+9*, SWARN+11!
PSPARTXX	WARN1+2*!
>> PSXSYS	SUS+7
REF	D1+2!
REPRINT	D1+2!
RFDATE	D1+2!
RFL1	D1+2!
RFLL	D1+2!
RX	RMV~, RMV+2
>> RX0	SUS*
>> RXCMOP	SUS*, WARN+1, WARN+2, WARN1+1, HLP, HLP+1, SWARN+2
RXF	ACT*, ACT+3!
>> RXFL(	LOCK+3, LOCK+12, SWARN+7!, SWARN+11!, SWARS+4
RXLTOP	WARN1+2!, SWARN+9, SWARN+11!
RXN	SUS*, SUS+4, SUS+6, LOCK, LOCK+1, LOCK+3, LOCK+4, LOCK+5, LOCK+6, LOCK+7 , LOCK+8, LOCK+9, LOCK+12, LOCK+13, D1+2!, WARN1+2, SWARN+10
>> RXP	LOCK+1*, LOCK+5, LOCK+6, LOCK+7, LOCK+13, ACT+3
RXPD	D1+2!, WARN*, WARN+1
>> RXPR(	SUS+2, SUS+3, SUS+5, LOCK+1, WARN1+1, ECME+8, ECME+9
>> RXRP(	SUS+5, LOCK+1, LOCK+6, LOCK+7, ACT+3
>> RXRS	D1+1
>> RXS	SUS*, SUS+2, SUS+3, SUS+4, WARN, SWARN+1, SWARS+1
SD	SUS*, LOCK+1, LOCK+4, D1+2!
SPPL	S, S1+2, S1+3, S1+4, S1+6!
>> SUSPT	S1+7*
>> VALMSG	LOCK+6*
WARN	D1+2!
X	LOCK+1*, ACT+3!, D1+2!
XFLAG	SUS+7!
XPPL	RMV+1~, RMV+2*
Y	LOCK+1, LOCK+2, LOCK+3, ACT+3!, D1+2!, WARN*, WARN1+1, WARN1+2, SWARN+7, SWARN+8
ZD	D1+2!
ZD(	SUS
ZY	D1+2!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORXL1

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 4

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
WARN
RMV(RX,PPL)	; Remove the Rx from the label print queue
SWARNQ	;
WARN1
LOCK
S1
SWARN	;
HLP
SUSQ
TRIC(PSORX)	;
S
SUS
ACT
ECME	; - Looks for DUR/79 REJECTS and send Mail Rx's to ECME that have not been SUSPENDED
SWARS	;
D1