Routine: APSQDRDU

Package	Total	Call Graph
IHS Changes To Pharmacy	2	EN^APSQDRDU ^APSQSHOW
Outpatient Pharmacy	2	CAN^PSOCAN STAT^PSOFUNC
VA Fileman	1	^DIR

Package

Total

Call Graph

IHS Changes To Pharmacy

EN^APSQDRDU ^APSQSHOW

Outpatient Pharmacy

CAN^PSOCAN STAT^PSOFUNC

VA Fileman

^DIR

Package	Total	Caller Graph
IHS Changes To Pharmacy	3	APSQDRDU APSQDRG APSQFAS4

Package

Total

Caller Graph

IHS Changes To Pharmacy

APSQDRDU APSQDRG APSQFAS4

Name	Field # of Occurrence
EN^APSQDRDU	APSQDRDU+4
^APSQSHOW	APSQDRDU+3
^DIR	DOSE+1, DOSE+4, DOSE+5, ASKCAN+2
CAN^PSOCAN	ASKCAN+5
STAT^PSOFUNC	DATA+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,PSONULN,!,*7,"DUPLICATE DRUG "_$P(DNM,"^")_" in Prescription: ",$P(^PSRX(+AZOSD(DNM),0),"^") Line Location: DUP+0
Function Call: WRITE	Prompt: !!,$J("Status: ",24) Line Location: DATA+1
Function Call: WRITE	Prompt: ST Line Location: DATA+1
Function Call: WRITE	Prompt: ST Line Location: DATA+1
Function Call: WRITE	Prompt: !,$J("SIG: ",24),$P(DUPRX0,"^",10),!,$J("QTY: ",24),$P(DUPRX0,"^",7),?40,$J("# of refills: ",24),RFLS Line Location: DATA+2
Function Call: WRITE	Prompt: !,$J("Provider: ",24),PHYS,?40,$J("Refills remaining: ",24),RFLS-$S($D(^PSRX(RXREC,1,0)):$P(^(0),"^",4),1:0) Line Location: DATA+3
Function Call: WRITE	Prompt: !?40,$J("Last filled on: ",24),$E(LSTFL,4,5),"/",$E(LSTFL,6,7),"/",$E(LSTFL,2,3) Line Location: DATA+4
Function Call: WRITE	Prompt: !,"PATIENT ON AUTHORIZED ABSENSE!" Line Location: DATA+5
Function Call: WRITE	Prompt: " RX has been "_ACT_"." Line Location: ASKCAN+5
Function Call: WRITE	Prompt: !,PSONULN Line Location: CLS+0
Routine Call	DIR Line Location: DOSE+1 DOSE+4 DOSE+5 ASKCAN+2

Name	Line Occurrences (* Changed, ! Killed)
^PS(53 - [#53]	DATA+5
^PSRX - [#52]	DUP, DATA, DATA+3, DATA+4, ASKCAN+1, ASKCAN+5
^VA(200 - [#200]	DATA+2
^XUSEC("PSORPH"	EN+3, EN+4

Name	Line Occurrences
CLS	EN+5
DOSE	DOSE+4, DOSE+5
DUP	EN+3, EN+4
EXIT	EN+6, DOSE+1, DOSE+3, DOSE+4, DOSE+5

Name	Field # of Occurrence
^(0	DATA+2, DATA+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	EXIT!, ASKCAN+2*, ASKCAN+3, ASKCAN+4, ASKCAN+5
AZOSD	APSQDRDU+5!
AZOSD(	EN+2, EN+5, DUP, DUP+1, ASKCAN, ASKCAN+1, ASKCAN+2, ASKCAN+3, ASKCAN+4, ASKCAN+5* , CLS+1
CAN	EXIT!, CLS+1*
DA	EXIT!, ASKCAN+2*, ASKCAN+5
DIR	DOSE+1!, DOSE+4!, DOSE+5!, EXIT!, ASKCAN+2!
DIR("?"	ASKCAN+1*
DIR("A"	DOSE+1, DOSE+4, DOSE+5, ASKCAN+1
DIR("B"	DOSE+4*
DIR(0	DOSE+1, DOSE+4, DOSE+5, ASKCAN+1
DNM	EN, EN+2, EN+3, EN+4, EN+5, EXIT!, DUP, DUP+1, ASKCAN, ASKCAN+1 , ASKCAN+2, ASKCAN+3, ASKCAN+4, ASKCAN+5, CLS+1
>> DTOUT	DOSE+1, DOSE+4, DOSE+5
>> DUOUT	DOSE+1, DOSE+4, DOSE+5
DUP	DUP*, ASKCAN+3!, ASKCAN+6!
DUPRX0	EXIT!, DATA*, DATA+2
DUZ	EN+3, EN+4, ASKCAN+3, ASKCAN+4
>> EN	APSQDRDU+3*
ISSD	EXIT!, DATA*, DATA+1
J	EXIT!, DATA+1*
LSTFL	EXIT!, DATA+4*
MSG	EXIT!, DUP+1, ASKCAN+3, ASKCAN+4, CLS
PHYS	EXIT!, DATA+2*, DATA+3
>> PSCAN(	ASKCAN+5*
PSOCD	DOSE+2*, DOSE+3, DOSE+4, DOSE+5, DOSE+6, EXIT!
PSOCLC	EXIT!, ASKCAN+3, ASKCAN+4
PSOCLOZ	EXIT!
>> PSODRUG("NAME"	EN+3, EN+4, EN+5
>> PSODRUG("VA C	LASS" , EN+5
PSOLDT	DOSE+3, DOSE+6, EXIT!
PSOLR	DOSE+3, DOSE+6, EXIT!
>> PSONEW("SAND"	DOSE+3, DOSE+6
PSONULN	EN*, EXIT!, DUP, DATA+5, CLS
>> PSONV	DUP+1, ASKCAN+2, ASKCAN+4, CLS
>> PSOPAR	EN+3, DATA+5
>> PSORX("DFLG"	EN+2, EN+3, EN+4, ASKCAN+3*
>> PSORX("PATIEN	T STATUS" , DATA+5
REA	EXIT!, ASKCAN+3, ASKCAN+4, ASKCAN+5
RFLS	EXIT!, DATA*, DATA+2, DATA+3
RX0	EXIT!, DATA*, DATA+1!
RX2	EXIT!, DATA*, DATA+1!
RXN	EXIT!
RXREC	EXIT!, DUP+1, DATA, DATA+1, DATA+3, DATA+4, ASKCAN+2, CLS+1
>> SPCANC	ASKCAN+2
ST	EXIT!, DATA+1
>> X	DOSE+2, DOSE+4, DOSE+5
Y	EXIT!, ASKCAN+3
ZZ	EXIT!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSQDRDU

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN
ASKCAN
DOSE	;I '$D(PSOCLOZ) G EXIT
EXIT
DUP
DATA
CLS