Routine: PSODRG

Package	Total	Call Graph
Outpatient Pharmacy	9	($$RXRLDT,$$STATUS)^PSOBPSUT ^PSOBUILD (CHK,CHK1,CLASS)^PSODGAL ^PSODGDGI JUMP^PSODIR1 ($$GETNDC,NDCEDT)^PSONDCUT TD^PSONFI ALLERGY^PSOORUT2 ^PSORXI
IHS Changes To Pharmacy	3	$$ERXONLY^APSPFNC6 REMMSG^APSPFUNC PRINT^APSQLAB
VA Fileman	3	MIX^DIC1 $$GET1^DIQ ^DIR
Pharmacy Data Management	2	($$PROMPT,EN)^PSSDIN $$GETNDC^PSSNDCUT
Kernel	1	$$FMADD^XLFDT
Registration	1	FULL^VALM1

Package

Total

Call Graph

($$RXRLDT,$$STATUS)^PSOBPSUT ^PSOBUILD (CHK,CHK1,CLASS)^PSODGAL ^PSODGDGI JUMP^PSODIR1 ($$GETNDC,NDCEDT)^PSONDCUT TD^PSONFI ALLERGY^PSOORUT2
^PSORXI

IHS Changes To Pharmacy

$$ERXONLY^APSPFNC6 REMMSG^APSPFUNC PRINT^APSQLAB

VA Fileman

MIX^DIC1 $$GET1^DIQ ^DIR

Pharmacy Data Management

($$PROMPT,EN)^PSSDIN $$GETNDC^PSSNDCUT

Kernel

$$FMADD^XLFDT

Registration

FULL^VALM1

Package	Total	Caller Graph
Outpatient Pharmacy	13	PSOBKDED PSOCAN2 PSONEW1 PSONEW3 PSOORED2 PSOORED6 PSOORED7 PSOOREDT PSOORNE1 PSOORNE2 PSOORNEW PSOORNW1 PSORENW0
Order Entry Results Reporting	1	ORKLR

Package

Total

Caller Graph

Outpatient Pharmacy

PSOBKDED PSOCAN2 PSONEW1 PSONEW3 PSOORED2 PSOORED6 PSOORED7 PSOOREDT
PSOORNE1 PSOORNE2 PSOORNEW PSOORNW1 PSORENW0

Order Entry Results Reporting

ORKLR

Entry Points

Name	Comments	DBIA/ICR reference
TRADEX
CMP(PSODRUG)	;IHS/MSC/MGH Check for compound med
SET	;
END	;D EOJ
NDC(RX,RFL,DRG,NDC)	; Editing NDC for ECME Released Rx's
POSTX	;
EOJ	;
NOALRGY	;
NFI	;display restriction/guidelines
TRADE	;
START	;
CLOZ	;
SELECTX
EN(DRG)	;returns lab test identified for clozapine order checking	ICR #3478 Status: Active Usage: Private
POST	;order checks
SETX
SELECT	;

External References

Name	Field # of Occurrence
$$ERXONLY^APSPFNC6	SELECT+20
REMMSG^APSPFUNC	START+13
PRINT^APSQLAB	POST+15
MIX^DIC1	SELECT+15
$$GET1^DIQ	SET+10, SET+19, SET+20, SET+23, CMP+9, CMP+11
^DIR	TRADE+2, NOALRGY+4
$$RXRLDT^PSOBPSUT	NDC+3
$$STATUS^PSOBPSUT	NDC+2
^PSOBUILD	POST+3
CHK^PSODGAL	POST+19, CMP+10
CHK1^PSODGAL	POST+20
CLASS^PSODGAL	POST+21, CMP+12
^PSODGDGI	POST+10, CMP+14
JUMP^PSODIR1	SELECT+10
$$GETNDC^PSONDCUT	NDC+1, NDC+5
NDCEDT^PSONDCUT	NDC+6
TD^PSONFI	NFI+2
ALLERGY^PSOORUT2	POST+16
^PSORXI	POST+11, NOALRGY+6
$$PROMPT^PSSDIN	NFI+1
EN^PSSDIN	NFI+1
$$GETNDC^PSSNDCUT	SET+8
FULL^VALM1	POST+11
$$FMADD^XLFDT	SET+24

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: X Line Location: SELECT+4
Function Call: WRITE	Prompt: !!,"Answer with DRUG NUMBER, or GENERIC NAME, or VA PRODUCT NAME, or",!,"NATIONAL DRUG CLASS, or SYNONYM" Line Location: SELECT+7
Function Call: WRITE	Prompt: $C(7),!,"There is no allergy assessment on file for this patient." Line Location: NOALRGY+1
Function Call: WRITE	Prompt: !,"You will be prompted to intervene if you continue with this prescription" Line Location: NOALRGY+2
Routine Call	DIR Line Location: TRADE+2 NOALRGY+4

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	POST+15, CLOZ+3
^APSPCTRL - [#9009033]	SET+22
^PS(50.7 - [#50.7]	SET+3
^PSDRUG - [#50]	SELECT+2, SET+3, SET+4, SET+6, SET+11, SET+12, SET+13, SET+18, POST+8, POST+13 , CMP+5, CMP+6, CMP+7, CLOZ+1, EN+1, EN+2, EN+3, EN+5, EN+6
^TMP($J	POSTX+1!

Label References

Name	Line Occurrences
@(	START+2, POST+4, CLOZ+3
CLOZ	POST+13
CMP	POST+9
END	START+3, START+4, START+9
NDC	START+5
NFI	START+11
NOALRGY	POST+16
POST	START+14
POSTX	POST+12, POST+13, POST+17
SELECT	SELECT+6, SELECT+7, SELECT+17, SELECT+18, SELECT+20
SELECTX	SELECT+8, SELECT+9, SELECT+10, SELECT+16
SET	START+10
SETX	SET+12
TRADE	START+8, SELECT+24
TRADEX	TRADE+4

Name	Field # of Occurrence
^("ND"	SET+4, SET+6, CMP+7
^(0	EN+6
^(2	SET+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %APSITE	SET+24
ANQRTN	CLOZ+1*, CLOZ+2, CLOZ+3, CLOZ+4!
ANQX	CLOZ+1*, CLOZ+3, CLOZ+4!
APSPMAN	SET+22~*, SET+23
CDRG	CMP+1~, CMP+6*, CMP+7, CMP+9, CMP+11
CLOZPAT	SELECT+1!
CMP	POST+2~, POST+8*, POST+9
CMPDR	POST+2~, CMP+2, CMP+5, CMP+6
CNT	EN+3*, EN+4!, EN+5!
>> COPY	POST+4
D	SELECT+13*, SELECT+15!
DA	START+2, TRADE+1!, TRADEX+1!, POSTX+2!
>> DFN	CLOZ+2*
DIC	SELECT+2!, SELECT+13*, SELECT+15!, TRADE+1!, TRADE+2!
DIC("S"	SELECT+14*
DIC("T"	SELECT+13*
DIC(0	SELECT+13*
DIE	TRADEX+1!
DIR	TRADE+1!, TRADE+2!, NOALRGY+3!
DIR("A"	NOALRGY+4*
DIR("B"	TRADE+2, NOALRGY+4
DIR(0	TRADE+2, NOALRGY+4
DIRUT	TRADE+3!, TRADE+4, TRADEX, TRADEX+1!
DR	TRADEX+1!
DRG	NDC~, NDC+6, EN~, EN+1, EN+2, EN+3, EN+5, EN+6
DT	SET+24
DTIME	SELECT+4
DTOUT	SELECT+4*, SELECT+9, SELECT+16, SELECTX!, TRADE+4, TRADEX+1!
DUOUT	SELECT+17!, SELECTX!, TRADE+4, TRADEX+1!
I	EN+3, EN+5, EN+6, EN+7!
LAB	EN+1!
LAB(	EN+6*
LAB("BAD TEST	" , EN+4*
LAB("NOT"	EN+1*
LABT	EN+6*, EN+7!
NDC	START+5~, START+6, NDC~, NDC+1, NDC+5, NDC+6
NDF	POST+1~, POST+18*, POST+19!
NFI	NFI+1*, NFI+2, NFI+3!
>> OR0	SELECT+2
>> P(5	CLOZ+2*, CLOZ+4!
>> POERR	SELECT+2, SELECT+10
>> PSODFN	POST+19, POST+20, POST+21, CMP+10, CMP+12, POSTX+1, CLOZ+2
PSODIR	SELECT+10!
PSODIR("FIELD"	SELECT+10
PSODIR("FLD"	SELECT+10*
PSODRG	EOJ+1!
PSODRG("QFLG"	START+1, START+9, SELECT+10, SELECT+22*
PSODRUG	POST+9, CMP~
PSODRUG("AWP"	SET+18*
PSODRUG("CLN"	SET+6*
PSODRUG("COST"	SET+14*
PSODRUG("DAW"	SELECT+2!, SET+10*
PSODRUG("DEA"	SET+5*
PSODRUG("EXPI	RATION DATE" , SET+16, SET+23, SET+24*
PSODRUG("IEN"	START+4, START+13, SELECT+3, SELECT+5, SET+1*, NFI+1, POST+8, POST+13, CMP+5, CMP+6 , CLOZ+1, CLOZ+2
PSODRUG("LOT	#" , SET+20*
PSODRUG("MANUFACTURER"	SET+19*
PSODRUG("MAXDOSE"	SET+5*
PSODRUG("NAME"	SELECT+3, SET+2*
PSODRUG("NDC"	START+6, SELECT+2!, SET+8, SET+9
PSODRUG("NDF"	SET+4, POST+18, POST+20, CMP+4, CMP+7, CMP+16*
PSODRUG("OI"	SET+3*, NFI+1
PSODRUG("OIN"	SET+3*
PSODRUG("SIG"	SET+7*
PSODRUG("STKLVL"	SET+11*
PSODRUG("TRAD	E NAME" , SELECT+2!, TRADE+5*
PSODRUG("UNIT"	SET+15*
PSODRUG("VA C	LASS" , SET+1, POST+21, CMP+3, CMP+11, CMP+12, CMP+15*
>> PSOEDIT	START+2, START+14, SELECT+22
>> PSOFIN	POST+6
>> PSONEW("DFLG"	START+1, START+9, START+14, SELECT+9, SELECT+16, TRADE+4*
>> PSONEW("FIELD"	START+1, START+8, SELECT+10
>> PSONEW("FLD"	SELECT+10
>> PSONEW("NDC"	SET+9*
>> PSONEW("OLD V	AL" , SELECT+3*, SELECT+22, SELECTX!
PSONOAL	POST+16*!
>> PSORX("DFLG"	START+14!, POST+1, POST+5, POST+12, POST+13, POST+17, CLOZ+3, NOALRGY+5*
>> PSORX("EDIT"	START+4, START+8, START+14, TRADE+4
>> PSORX("INTERVENE"	POST+1!, POST+11, POST+14!, POSTX+2!
>> PSORXED	SELECT+1, SELECT+8
>> PSORXED("DFLG"	START+3, START+4, START+5, START+9, SELECT+8, TRADEX*
>> PSORXED("FLD"	START+6*
>> PSORXED("IRXN"	START+5
>> PSOSITE	NDC+6, SET+8, SET+22
>> PSOTRN	TRADE+2
PSOX1	SET+13*, SET+14, SET+15, SET+16, SETX!
PSOY	START+4, START+5, SELECT+23!*, SET+1, SET+3, SET+4, SET+6, SET+8, SET+10, SET+11 , SET+12, SET+13, SET+18, SET+19, SET+20, SET+23, SETX!
PSOY(0	SELECT+23*, SELECT+24, SET+1, SET+2, SET+5, SET+7
PTR	POST+1~, POST+2~, POST+18, POST+19!, CMP+9, CMP+10!
RFL	NDC~, NDC+1, NDC+2, NDC+3, NDC+5, NDC+6
RX	NDC~, NDC+1, NDC+2, NDC+3, NDC+5, NDC+6
SAVE	CMP+1~
SAVE("NDF"	CMP+4*, CMP+16
SAVE("VA CLAS	S" , CMP+3*, CMP+15
SIG	POST+1~
STAT	SET+1~, POST+1~
U	SELECT+10, SET+18, SET+22, POST+8, CMP+6
>> VALMBCK	POST+11*
VAP	POST+1~, POST+18*, POST+19!
X	SELECT+2!, SELECT+4, SELECT+5, SELECT+6, SELECT+7, SELECT+8, SELECT+9, SELECT+10, SELECTX!, TRADE+1! , TRADE+3, TRADEX+1!, POST+15, CLOZ+2, CLOZ+4!
Y	SELECT+2!, SELECT+3, SELECT+4, SELECT+5, SELECT+18, SELECT+20, SELECT+22, SELECT+23, SELECTX!, TRADE+1! , TRADE+3, TRADE+5, TRADEX+1!, NOALRGY+5
Y(0	SELECT+23

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODRG

Information

Source Information

Call Graph

Call Graph Total: 19