Routine: APSQDGDG

Package	Total	Call Graph
IHS Changes To Pharmacy	2	EN^APSQDGDG ^APSQSHOW
Outpatient Pharmacy	2	ENQ^PSORXDL (,EN1)^PSORXI
VA Fileman	2	FILE^DICN ^DIR
Kernel	1	SIG^XUSESIG

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

Entry Points

Name	Comments	DBIA/ICR reference
EN	;CHANGED PSOSD TO AZOSD IHS/OKCAO/POC
MESS
PPL
PHARM	;pharmacist verification of drug interaction
TECH	;add tech entry to RX VERIFY file (#52.4)
BLD
CRI	;process new drug interactions entered by pharmacist
CRITN	;process multiple new drug interactions

External References

Name	Field # of Occurrence
EN^APSQDGDG	APSQDGDG+5
^APSQSHOW	APSQDGDG+4
FILE^DICN	TECH+1
^DIR	PHARM+4, CRI+3, CRITN+5
ENQ^PSORXDL	CRITN+7, CRITN+8
^PSORXI	PHARM+8, CRI+7, CRITN+6
EN1^PSORXI	CRITN+7, CRITN+8
SIG^XUSESIG	CRI+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,7,7,$S(PSODRUG("NAME")="OUTSIDE DRUG":"THIS DRUG",1:PSODRUG("NAME"))," CANNOT BE CHECKED FOR INTERACTIONS. IT HAS NO ENTRY IN NATIONAL DRUG FILE!!" Line Location: EN+2
Function Call: WRITE	Prompt: !!,7,7,DRG," CANNOT BE CHECKED FOR INTERACTIONS WITH ",PSODRUG("NAME"),". ",DRG," HAS NO ENTRY IN NATIONAL DRUG FILE!!",! Line Location: EN+11
Function Call: WRITE	Prompt: *7,!,"DRUG INTERACTON WITH RX #s: "_LSI,! Line Location: EN+13
Function Call: WRITE	Prompt: 7,7 Line Location: PHARM+3
Function Call: WRITE	Prompt: !!,"Deleting Rx: ",$P($G(^PSRX(DA,0)),"^")," ","Drug: ",$P($G(^PSDRUG($P(^PSRX(DA,0),"^",6),0)),"^"),! Line Location: MESS+0
Routine Call	DIR Line Location: PHARM+4 CRI+3 CRITN+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(52.4 - [#52.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(56 - [#56]	EN+12, BLD+3, PHARM+1
^PSDRUG - [#50]	EN+10, BLD+2, MESS
^PSRX - [#52]	TECH+2*, CRITN+2, CRITN+4, CRITN+6, MESS
^XUSEC("PSORPH"	EN+13, BLD

Label References

Name	Line Occurrences
BLD	EN+12
CRI	PHARM+6
MESS	CRITN+7, CRITN+8
PHARM	BLD
PPL	CRITN+7, CRITN+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ARRDRIEN	EN+10, BLD+2
AZOSD	APSQDGDG+6!, CRITN+7, CRITN+8
AZOSD(	EN+5, EN+8, CRITN+2, CRITN+4, CRITN+6, CRITN+7!, CRITN+8!, PPL+2
CRIT	EN+5, EN+13, TECH+1, TECH+2!, BLD+3
>> DA	CRITN+7, CRITN+8, MESS
DD	TECH+1!
DGI	EN+5, EN+13, TECH+1, TECH+2!, BLD+2, PHARM+5, PHARM+6, PHARM+8, CRI+3, CRITN+3 , CRITN+6*
DGS	EN+5*, TECH+2!
DIC	TECH+1*, TECH+2!
DIC("DR"	TECH+1*
DIC(0	TECH+1*
DINUM	TECH+1*, TECH+2!
DIR	PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+2!, CRI+3!, CRITN+2!, CRITN+5!
DIR("?"	PHARM+1, PHARM+2, CRI+3, CRITN+4, CRITN+5*
DIR("A"	PHARM+3, PHARM+4, CRI+2, CRITN+2, CRITN+3*
DIR("B"	PHARM+4, CRI+2
DIR(0	PHARM+4, CRI+2, CRITN+3*
DIROUT	PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+3!, CRI+8!, CRITN+6!, CRITN+7!, CRITN+9!
DIRUT	PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+3!, CRI+8!, CRITN+6!, CRITN+7!, CRITN+9!
DLAYGO	TECH+1*, TECH+2!
DO	TECH+1!
DRG	EN+5*, EN+8, EN+11, EN+13!, PHARM+3, CRITN+2, CRITN+3, CRITN+4, CRITN+6, CRITN+7 , CRITN+8, PPL+2
DT	TECH+1
DTOUT	PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+3!, CRI+8!, CRITN+6!, CRITN+7!, CRITN+9!
DUOUT	PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+3!, CRI+8!, CRITN+6!, CRITN+7!, CRITN+9!
DUZ	EN+13, TECH+1, BLD
>> EN	APSQDGDG+4*
ENT	PPL+2, PPL+3, PPL+4, PPL+5, PPL+6, PPL+7!
IT	EN+12*, EN+13!, BLD+2, BLD+3, PHARM+1
LSI	EN+5, EN+13!, BLD+2
NDF	EN+8*, EN+11, EN+12, EN+13!
PSHLDDRG	CRITN+6*!
>> PSODFN	TECH+1
PSODI	TECH+1*, TECH+2!
>> PSODRUG("IEN"	CRITN+6*
>> PSODRUG("NAME"	EN+11, CRI+2, CRITN+2
>> PSODRUG("NDF"	EN+3, EN+12
PSOHOLDA	CRITN+7!, CRITN+8!
PSOL	PPL+3*, PPL+4, PPL+5, PPL+6, PPL+7!
PSOL(	PPL+2*, PPL+3
>> PSONEW("STATUS"	EN+13*
>> PSORX("DFLG"	EN+5, EN+12, PHARM+5, CRI+3, CRI+5, CRITN+6, CRITN+8*
>> PSORX("INTERVENE"	PHARM+6, PHARM+8!, CRI+3!, CRI+5!, CRI+6*, CRI+7!
>> PSORX("PHARM"	BLD*
>> PSORX("PSOL"	PPL, PPL+2, PPL+4!, PPL+5, PPL+6
PSOSL	PPL, PPL+2, PPL+7!
>> PSOX("IRXN"	TECH+1, TECH+2
PSOX2	PPL*, PPL+1, PPL+2, PPL+7!
>> PSOZDEA	EN+10*, EN+11
SER	EN+5, TECH+1, TECH+2!, BLD+2, PHARM+1*, PHARM+2, PHARM+3, PHARM+4, PHARM+5, PHARM+6 , PHARM+7, PHARM+8, CRI+4, CRI+6
SERS	EN+5*, TECH+2!
U	EN+10
>> X	TECH+1*
X1	CRI+3!, CRI+5, CRITN+2!
>> Y	PHARM+5, PHARM+6, PHARM+7, PHARM+8, CRI+3, CRITN+6, CRITN+7, CRITN+8

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSQDGDG

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: