Routine: PSODGDGI

Package	Total	Call Graph
Outpatient Pharmacy	7	NOOR^PSOCAN4 NVA^PSODRDU1 DC^PSOORFI2 (DRGINT,PAUSE)^PSOORRD2 REMOTE^PSORX1 ENQ^PSORXDL (,EN1)^PSORXI
VA Fileman	2	FILE^DICN ^DIR
Kernel	1	SIG^XUSESIG
National Drug File	1	$$DDIEX^PSNAPIS
Order Entry Results Reporting	1	($$HAVEHDR,HAVEHDR)^ORRDI1
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK
Registration	1	FULL^VALM1

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSODRG PSON52 PSORN52C
IHS Changes To Pharmacy	2	APSQDRG APSQFAS4

Entry Points

Name	Comments	DBIA/ICR reference
CHECK(NDF)	; check drug interations
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
ULRX	;
CRITN	;process multiple new drug interactions

External References

Name	Field # of Occurrence
FILE^DICN	TECH+1
^DIR	PHARM+1, PHARM+10, CRI+2, CRITN+5
$$HAVEHDR^ORRDI1	PSODGDGI+33
HAVEHDR^ORRDI1	PSODGDGI+32
$$DDIEX^PSNAPIS	PSODGDGI+9, CHECK+5
NOOR^PSOCAN4	CRITN+8, CRITN+15, CRITN+19, CRITN+26
NVA^PSODRDU1	CHECK+12
DC^PSOORFI2	CRITN+17, CRITN+29
DRGINT^PSOORRD2	PSODGDGI+38
PAUSE^PSOORRD2	PSODGDGI+36, PSODGDGI+37
REMOTE^PSORX1	PSODGDGI+35
ENQ^PSORXDL	CRITN+9, CRITN+21, CRITN+28, CRITN+32
^PSORXI	CRITN+11
EN1^PSORXI	CRITN+22, CRITN+30
PSOL^PSSLOCK	PHARM+1
PSOUL^PSSLOCK	ULRX+2
FULL^VALM1	CRITN+9, CRITN+11, CRITN+22, CRITN+30, CRITN+32
SIG^XUSESIG	CRI+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"DRUG INTERACTION WITH RX #s: "_LSI,! Line Location: PSODGDGI+28
Function Call: WRITE	Prompt: !,"Remote data not available - Only local order checks processed." Line Location: PSODGDGI+37
Function Call: WRITE	Prompt: ! Line Location: CHECK+12
Function Call: WRITE	Prompt: !!,$P(PSOMSG,"^",2) Line Location: PHARM+2
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: PHARM+9
Function Call: WRITE	Prompt: $C(7)," ACTION NOT TAKEN!",! Line Location: CRITN+8
Function Call: WRITE	Prompt: !!,"Canceling 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+1 PHARM+10 CRI+2 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]	CHECK+4, CHECK+6, CHECK+8, BLD+1, BLD+2, BLD+3, PHARM+7
^PSDRUG - [#50]	PSODGDGI+16, PSODGDGI+20, PSODGDGI+21, PSODGDGI+22, BLD+1, PHARM+3, MESS
^PSDRUG("B"	PSODGDGI+15
^PSRX - [#52]	TECH+2, BLD+1, PHARM+3, PHARM+5, PHARM+9, CRITN+1, CRITN+3, CRITN+4, CRITN+11, MESS
^TMP($J	PSODGDGI+38!*, PSODGDGI+39!
^XTMP("ORRDI"	PSODGDGI+34, PSODGDGI+37
^XUSEC("PSORPH"	PSODGDGI+28, BLD

Label References

Name	Line Occurrences
BLD	CHECK+13
CHECK	PSODGDGI+23, PSODGDGI+27
CRI	PHARM+12
CRITN	CRI+1
MESS	CRITN+9, CRITN+21, CRITN+28, CRITN+32
PHARM	BLD
PPL	CRITN+22, CRITN+30
ULRX	PHARM+13, PHARM+15, CRI+2, CRI+6, CRITN+6, CRITN+18, CRITN+35

Naked Globals

Name	Field # of Occurrence
^("ND"	PSODGDGI+22
^(0	BLD+1, PHARM+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CDRG	PSODGDGI+10~, PSODGDGI+18~, PSODGDGI+21*, PSODGDGI+22
CMP	PSODGDGI+10~, PSODGDGI+14, PSODGDGI+16, PSODGDGI+17
CMPDR	PSODGDGI+10~, PSODGDGI+18~, PSODGDGI+19, PSODGDGI+20, PSODGDGI+21
CNDF	PSODGDGI+18~
CRIT	PSODGDGI+11, PSODGDGI+28, TECH+1, TECH+2!, BLD+3
>> DA	CRITN+9, CRITN+18, CRITN+22, CRITN+25, CRITN+30, CRITN+32, MESS
DD	TECH+1!
DGI	PSODGDGI+11, PSODGDGI+28, TECH+1, TECH+2!, BLD+1, PHARM+11, PHARM+12, PHARM+14, CRI+2, CRITN+6*
DGS	PSODGDGI+11, TECH+2!, BLD+2
DIC	TECH+1*, TECH+2!
DIC("DR"	TECH+1*
DIC(0	TECH+1*
DINUM	TECH+1*, TECH+2!
DIR	PHARM+1!, PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+1!, CRI+2!, CRITN+1!, CRITN+5!
DIR("?"	PHARM+7, PHARM+8, CRI+2, CRITN+3, CRITN+4, CRITN+5
DIR("A"	PHARM+1, PHARM+9, PHARM+10, CRI+1, CRITN+1, CRITN+2
DIR("B"	PHARM+10, CRI+1
DIR(0	PHARM+1, PHARM+10, CRI+1, CRITN+2
DIROUT	PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+2!, CRI+6!, CRITN+10!, CRITN+13!, CRITN+23!, CRITN+33! , CRITN+34!
DIRUT	PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+2!, CRI+6!, CRITN+8, CRITN+10!, CRITN+13!, CRITN+15 , CRITN+19, CRITN+23!, CRITN+26, CRITN+33!, CRITN+34!
DLAYGO	TECH+1*, TECH+2!
DNM	CHECK+12*!
DO	TECH+1!
DRG	PSODGDGI+11, PSODGDGI+12, PSODGDGI+15, PSODGDGI+25, PSODGDGI+26, PSODGDGI+28!, CHECK+12, BLD+1, BLD+2, PHARM+1 , PHARM+3, PHARM+5, PHARM+6, PHARM+9, CRI+1, CRITN+1, CRITN+2, CRITN+3, CRITN+4, CRITN+11 , CRITN+18, CRITN+23, CRITN+25, CRITN+30, PPL+2
DT	CHECK+6, TECH+1
DTOUT	PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+2!, CRI+6!, CRITN+10!, CRITN+13!, CRITN+23!, CRITN+33! , CRITN+34!
DUOUT	PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+2!, CRI+6!, CRITN+10!, CRITN+13!, CRITN+23!, CRITN+33! , CRITN+34!
DUZ	PSODGDGI+28, TECH+1, BLD
ENT	PPL+2, PPL+3, PPL+4, PPL+5, PPL+6, PPL+7!
IT	PSODGDGI+28!, PSODGDGI+29!, CHECK+3, CHECK+4, CHECK+6, CHECK+7, CHECK+8, CHECK+11*, CHECK+12!, BLD+1 , BLD+2, BLD+3, PHARM+7
LSI	PSODGDGI+11, PSODGDGI+28!, BLD+1
NDF	PSODGDGI+22, PSODGDGI+23, PSODGDGI+26, PSODGDGI+27, PSODGDGI+28!, CHECK~, CHECK+4, CHECK+5
>> OR0	CRITN+14, CRITN+29
>> ORN	CRITN+9, CRITN+10, CRITN+32, CRITN+33
PSHLDDRG	CRITN+6*, CRITN+12, CRITN+13!
>> PSODFN	PSODGDGI+37, PSODGDGI+38, PSODGDGI+39, TECH+1
PSODGRLX	PHARM+6*, ULRX+1, ULRX+2!
PSODI	TECH+1*, TECH+2!
>> PSODRUG("IEN"	CRITN+6, CRITN+11, CRITN+12
>> PSODRUG("NAME"	CRI+1, CRITN+1, CRITN+10, CRITN+33
>> PSODRUG("NDF"	PSODGDGI+9, CHECK+4
PSOHOLDA	CRITN+18, CRITN+22, CRITN+23!, CRITN+25, CRITN+30!
PSOICT	PSODGDGI+10~, PSODGDGI+11, PSODGDGI+28!, CHECK+3, CHECK+7, CHECK+8, CHECK+10, CHECK+11, CHECK+12!
PSOL	PPL+3*, PPL+4, PPL+5, PPL+6, PPL+7!
PSOL(	PPL+2*, PPL+3
>> PSOLST(	CRITN+9, CRITN+10, CRITN+32, CRITN+33
PSOMSG	PHARM+1!, PHARM+2
>> PSONEW("STATUS"	PSODGDGI+28*
>> PSORX("DFLG"	PSODGDGI+12, PSODGDGI+31, CHECK+13, PHARM+1, PHARM+11, CRI+2, CRI+4, CRITN+6, CRITN+8, CRITN+16* , CRITN+20, CRITN+27, CRITN+28*
>> PSORX("INTERVENE"	PHARM+12, PHARM+14, CRI+2!, CRI+4!, CRI+5*, CRITN+8!, CRITN+16!, CRITN+20!, CRITN+27!
>> PSORX("PSOL"	PPL, PPL+2, PPL+4!, PPL+5, PPL+6
>> PSORXED	CRITN+7, CRITN+31
>> PSOSD	CRITN+10, CRITN+24, CRITN+28, CRITN+33
>> PSOSD(	PSODGDGI+12, PSODGDGI+25, PSODGDGI+26, BLD+1, BLD+2, PHARM+1, PHARM+3, PHARM+5, PHARM+6, PHARM+9 , CRI+1, CRITN+1, CRITN+3, CRITN+4, CRITN+10!, CRITN+11, CRITN+18, CRITN+23!, CRITN+25, CRITN+30! , CRITN+33!, PPL+2
PSOSL	PPL, PPL+2, PPL+7!
>> PSOX("IRXN"	TECH+1, TECH+2
PSOX2	PPL*, PPL+1, PPL+2, PPL+7!
SAVE	PSODGDGI+18~
SER	PSODGDGI+11, TECH+1, TECH+2!, BLD+1, PHARM+7*, PHARM+8, PHARM+9, PHARM+10, PHARM+11, PHARM+12 , PHARM+13, PHARM+14, CRI+3, CRI+5
SERS	PSODGDGI+11, TECH+2!, BLD+2
>> STA	PSODGDGI+11, PSODGDGI+12, PSODGDGI+25, PSODGDGI+26, CHECK+12, BLD+1, BLD+2, PHARM+1, PHARM+3, PHARM+5 , PHARM+6, PHARM+9, CRI+1, CRITN+1, CRITN+3, CRITN+4, CRITN+11, CRITN+18, CRITN+23, CRITN+25 , CRITN+30, PPL+2
TDRG	PSODGDGI+10~, PSODGDGI+15*, PSODGDGI+16, PSODGDGI+20, PSODGDGI+21
U	PSODGDGI+15, PSODGDGI+16, PSODGDGI+21
>> VALMBCK	CRITN+12, CRITN+24, CRITN+25*
>> X	TECH+1*
X1	CRI+2!, CRI+4, CRITN+1!
>> Y	PHARM+11, PHARM+12, PHARM+13, PHARM+14, CRI+2, CRITN+6, CRITN+18, CRITN+25
>> ZONE	CRITN+10, CRITN+33

Marked Items

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODGDGI

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items