Routine: PSOORDRG

Package	Total	Call Graph
Outpatient Pharmacy	3	EN^PSOHLSN1 REMOTE^PSOORRDI ECAN^PSOUTL
VA Fileman	3	C^%DTC ^DIE $$GET1^DIQ
IHS Changes To Pharmacy	1	($$AWP,$$COST)^APSQDAWP
Inpatient Medications	1	(DDRUG,ENCHK)^PSJORUT2
National Drug File	1	$$DDIEX^PSNAPIS
Order Entry Results Reporting	1	($$HAVEHDR,HAVEHDR)^ORRDI1
Pharmacy Data Management	1	$$GETNDC^PSSNDCUT

Package

Total

Call Graph

Outpatient Pharmacy

EN^PSOHLSN1 REMOTE^PSOORRDI ECAN^PSOUTL

VA Fileman

C^%DTC ^DIE $$GET1^DIQ

IHS Changes To Pharmacy

($$AWP,$$COST)^APSQDAWP

Inpatient Medications

(DDRUG,ENCHK)^PSJORUT2

National Drug File

$$DDIEX^PSNAPIS

Order Entry Results Reporting

($$HAVEHDR,HAVEHDR)^ORRDI1

Pharmacy Data Management

$$GETNDC^PSSNDCUT

Package	Total	Caller Graph
Outpatient Pharmacy	6	PSOORCPY PSOORED1 PSOORFI1 PSOORNE3 PSOORNEW PSORENW1
Inpatient Medications	4	PSGSICHK PSIVEDRG PSJDCHK PSJLIFN
IHS Changes To Pharmacy	1	APSPFNC2
Order Entry Results Reporting	1	ORKPS

Package

Total

Caller Graph

Outpatient Pharmacy

PSOORCPY PSOORED1 PSOORFI1 PSOORNE3 PSOORNEW PSORENW1

Inpatient Medications

PSGSICHK PSIVEDRG PSJDCHK PSJLIFN

IHS Changes To Pharmacy

APSPFNC2

Order Entry Results Reporting

ORKPS

Entry Points

Name	Comments	DBIA/ICR reference
NVA	;checks existing nva
DRGCHK(PSODFN,DREN,DDRUG)	;Only check DREN against drug in DDRG()	ICR #2190 Status: Active Usage: Controlled Subscription
SETTMP	;Create ^TMP($J,"ORDERS"
GET	;data for profiles
NVA1
OIDRG(PSODFN,PSOI)	;checks every drug tied to orderable item passed by package use
BUILDX
BLDOI	;If no DD/non-standard dose, get all drugs for OI
GETX	;
REMOTE	;
EN(PSODFN,DREN)	;	ICR #2190 Status: Active Usage: Controlled Subscription
EXIT
BUILD	;build profiles
CLOZ	;
BLD
DRG	;S X=DREN,DIC="^PSDRUG(",DIC(0)="MQNZO" D ^DIC K DIC,PSOY Q:Y<1 S PSOY=Y,PSOY(0)=Y(0) K X,Y
DOIT(DRG,NDF)	;Process the drug IHS/MSC/MGH 04/08/2013

External References

Name	Field # of Occurrence
C^%DTC	BLD+1
$$AWP^APSQDAWP	DRG+14
$$COST^APSQDAWP	DRG+15
^DIE	GET+7
$$GET1^DIQ	DRG+8
$$HAVEHDR^ORRDI1	REMOTE+2
HAVEHDR^ORRDI1	REMOTE+1
DDRUG^PSJORUT2	DRGCHK+7
ENCHK^PSJORUT2	EN+3, OIDRG+3
$$DDIEX^PSNAPIS	DOIT+3, DOIT+4
EN^PSOHLSN1	GET+9
REMOTE^PSOORRDI	REMOTE+3
ECAN^PSOUTL	GET+8
$$GETNDC^PSSNDCUT	DRG+7

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	CLOZ+2
^PS(50.416 - [#50.416]	DOIT+13
^PS(50.605 - [#50.605]	DRG+23, DRG+25
^PS(50.7 - [#50.7]	DRG+4
^PS(52.41 - [#52.41]	BUILD+4, BUILD+5, BUILD+6, SETTMP+3
^PS(55 - [#55]	BUILD+2, NVA+1, NVA+2, NVA+3
^PS(56 - [#56]	DOIT+2, DOIT+5, DOIT+7, DOIT+12, DOIT+13
^PSDRUG - [#50]	DRG+2, DRG+4, DRG+5, DRG+6, DRG+9, DRG+35, DRG+38, DRG+39, DRG+40, SETTMP+2 , SETTMP+3, GET+3, GET+4, GET+11, CLOZ+1, OIDRG+4, NVA+4, NVA+5, NVA1, NVA1+1
^PSDRUG("ASP"	BLDOI+2, OIDRG+4, NVA+5
^PSDRUG("B"	DRG+25, DRG+33, DOIT+12
^PSRX - [#52]	BUILD+2, GET+1, GET+2
^TMP($J	EN+1!, DRG+18, DRG+19, DRG+20, DRG+21, DRG+22, DRG+24, DRG+25, DRG+31, DRG+32 , DRG+43, DOIT+11, DOIT+12, DOIT+13, EXIT!, BLD!, SETTMP+3, GET+11, DRGCHK+5!, OIDRG+1! , NVA1+2, REMOTE+4!

Name	Line Occurrences
@(	CLOZ+2
BLD	EN+3, OIDRG+3
BLDOI	BUILD+6
BUILD	BLD+1
BUILDX	BUILD+7
DOIT	DRG+41, DRG+44
DRG	DRGCHK+8, OIDRG+4
EXIT	DRG+45, BLD, OIDRG+5
GET	BUILD+2
GETX	BLD+1
NVA	EN+3, OIDRG+3
NVA1	NVA+4, NVA+5
REMOTE	DOIT+14
SETTMP	BUILD+6, BLDOI+2

Name	Field # of Occurrence
^(	DRG+20, DRG+25, DOIT+11
^("ND"	DRG+5, DRG+6, DRG+40, SETTMP+3, GET+11, NVA1+1
^("OR1"	GET+2
^("STA"	GET+1
^(0	NVA+3
^(2	DRG+4
^(3	GET+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANQRTN	CLOZ+1*, CLOZ+2, CLOZ+3!
ANQX	CLOZ+1*, CLOZ+2, CLOZ+3!
CDRG	DRG+27~, DRG+39*, DRG+40
CMP	DRG+27~, DRG+35*, DRG+36
CMPDR	DRG+27~, DRG+37, DRG+38, DRG+39
CNDF	DRG+27~, DRG+40*, DRG+41
COD	DRGCHK+6~*
>> COMM	GET+9*
DA	EXIT!, GET+7~!, GET+8, GET+9
DC	DRG+24*, DRG+25, EXIT!, OIDRG+1!
DD	DRG+20*, EXIT!, OIDRG+1!
DDRUG	DRGCHK~, DRGCHK+7*
DDRUG(	DRGCHK+7
DDRUG0	DRGCHK+6~
DDRUGND	DRGCHK+6~
DFN	EXIT!, CLOZ+1*
DI	DOIT+12*, DOIT+13, EXIT!, OIDRG+1!
DIC	GET+7~!
DIE	GET+7~*!
DNM	DRG+18*, DRG+19, DRG+20, DRG+21, DRG+22, DRG+25, EXIT!
DR	GET+7~*!
DREN	EN~, DRG+2, DRGCHK~, OIDRG+1~, OIDRG+4*, REMOTE+3
DRG	DRG+28, DRG+31, DRG+32, DRG+41, DRG+43, DRG+44, DOIT~, DOIT+11, EXIT!, SETTMP+2* , SETTMP+3, NVA+3, NVA+4!, NVA+5!, NVA+6!, NVA1, NVA1+1
DRGN	NVA+6!, NVA1*, NVA1+2
DRNM	DRG+19, DRG+20, DRG+21, DRG+25, DRG+32, DRG+33, DOIT+11*, DOIT+12, EXIT!
DT	DOIT+5, BLD, BLD+1, GET+6
DUPRX0	EXIT!
EN	BUILD+3, BUILD+5, BUILD+6, SETTMP+3, BUILDX!
EXPDT	EXIT+1!, BUILD+1, BUILD+2, GET+6, GETX+1!
I	NVA+1*, NVA+2, NVA+3, NVA+6!, NVA1+2
>> INDX	EN+1, EN+3, SETTMP+3, GET+10, GET+11, OIDRG+1, OIDRG+3, NVA1+2*
IT	DOIT+1, DOIT+2, DOIT+5, DOIT+6, DOIT+7, DOIT+10*, DOIT+12, DOIT+13, EXIT!
NDF	DRG+43, DRG+44, DOIT~, DOIT+2, DOIT+3, NVA+6!, NVA1+1, NVA1+2
>> O	OIDRG+4
ORN	DOIT+11, DOIT+13, EXIT!, GET+2, GET+11, GETX+1!, NVA+3*, NVA+6!, NVA1+2
>> P(5	CLOZ+1*, CLOZ+3!
>> PHARMST	GET+9*
>> POERR	DRG+16
PSJINX	DRGCHK+6~*
PSOCLOZ	EXIT!
>> PSODC	DRG+23, DRG+25
PSODD	BUILD+6, BLDOI+2, SETTMP+2, SETTMP+3, BUILDX!
PSODFN	EN~, EN+1, EN+3, BLD, BUILD+2, BUILD+4, BUILD+5, CLOZ+1, DRGCHK~, OIDRG~ , OIDRG+3, NVA+1, NVA+2, NVA+3, REMOTE+3, REMOTE+4
PSODRUG	EXIT!, GET+3*, GET+4, GET+11, GETX+1!
PSODRUG("CLN"	DRG+6*
PSODRUG("COST"	DRG+9*
PSODRUG("DAW"	DRG+8*
PSODRUG("DEA"	DRG+6*
PSODRUG("EXPI	RATION DATE" , DRG+9*
PSODRUG("IEN"	DRG+3*, DRG+14, DRG+15, DRG+20, CLOZ+1
PSODRUG("MAXDOSE"	DRG+6*
PSODRUG("NAME"	DRG+3*, DRG+20, DRG+21
PSODRUG("NDC"	DRG+7*, DRG+13, DRG+14, DRG+15
PSODRUG("NDF"	DRG+5*, DOIT+2, DOIT+4
PSODRUG("OI"	DRG+4*
PSODRUG("OIN"	DRG+4*
PSODRUG("SIG"	DRG+7*
PSODRUG("UNIT"	DRG+9*
PSODRUG("VA C	LASS" , DRG+3*, DRG+21, DRG+22, DRG+23, DRG+24
PSODRUG0	EXIT+1!, GET+4*, GETX+1!
>> PSODTCUT	BLD+1*, BUILD+1
PSOEN	BUILD+4*, BUILD+5, BUILDX!
PSOI	BLDOI+1~, BLDOI+2, OIDRG~, OIDRG+4, NVA+3, NVA+5, NVA+6!
PSOICT	DRG+1~, DOIT+1, DOIT+6, DOIT+7, DOIT+9, DOIT+10
>> PSONEW("AWP"	DRG+14*
>> PSONEW("COST"	DRG+15*
>> PSONEW("DFLG"	DRG+14, DRG+15
>> PSONEW("NDC"	DRG+13*, DRG+14, DRG+15
>> PSONEW("QFLG"	DRG+14, DRG+15
PSOOI	BUILD+6*, BLDOI+1, SETTMP+1, BUILDX!
PSOOTC	NVA+6!
PSOPHI	EN+1!, DRG+20, DOIT+15, OIDRG+1*, OIDRG+5!
>> PSORX("DFLG"	CLOZ+2*
PSORX0	EXIT+1!, GET+1*, GET+3, GETX+1!
PSORX2	EXIT+1!, GET+2*, GETX+1!
PSORX3	EXIT+1!, GET+2*, GETX+1!
>> PSOSITE	DRG+7, DRG+12
PSOST0	EXIT+1!, GET+1*, GETX+1!
PSOVACL	EXIT+1!, GET+4*, GET+11, GETX+1!
PSOX	EXIT+1!, GETX+1!
PSOX1	DRG+9*, DRG+16!
PSOY	DRG+2, DRG+3, DRG+4, DRG+5, DRG+6, DRG+7, DRG+8, DRG+9, DRG+16!, EXIT! , NVA+6!, NVA1
PSOY(0	DRG+2*, DRG+3, DRG+6, DRG+7
RX	EXIT!, BUILD+1, BUILD+2, GET+1, GET+2, GET+7, GET+8, GET+11
RXN	DOIT+11*, DOIT+13, EXIT+1!
>> STAT	GET+7*, GET+9
>> TALK	DRG+14, DRG+15
TDRG	DRG+27~, DRG+33*, DRG+34, DRG+35, DRG+38, DRG+39
U	DRG+35, DRG+39
VACL	NVA+6!, NVA1*, NVA1+2
X	DRG+2!, EXIT+1!, BLD+1, GETX+1!, CLOZ+1*, CLOZ+3!
X1	EXIT+1!, BLD+1*, GETX+1!
X2	EXIT+1!, BLD+1*, GETX+1!
Y	DRG+2!, EXIT!, EXIT+1!, GETX+1!
ZZ	EXIT!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOORDRG

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 12

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items