Routine: PSOOCPGX

Information

PSOOCPGX ;BIR/KML - OUTPATIENT PHARMACY PGx ORDER CHECKS DRIVER ;9/10/14 10:53pm

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$DT^XLFDT SIG^XUSESIG
Outpatient Pharmacy	3	EN^PSOHLSN1 ENPGX^PSORXI ECAN^PSOUTL
VA FileMan	3	C^%DTC ^DIE ^DIR
Pharmacy Data Management	1	PGXOC^PSSPGX

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Pharmacy Data Management	2	PSSPGXP2 PSSPGXT1
Outpatient Pharmacy	1	PSODRG

Entry Points

Name	Comments	DBIA/ICR reference
GETPGX(PSODFN,PSODRUG)	; called by POST^PSODRG ; input - PSODRUG = array of data from DRUG entry in file 50 ; PSODFN = patient identifier DFN
DISPWARN	;
OPTINTERV	;Prompt end user for optional intervention
REQINTERV	;Prompt end user for required intervention
ASKAI()	; additional information prompt
ADDINFO(PSOSEV,PSOS4)	;Display additional information
PRINTAI	;
PAUSE(PSOIOF)	;
BLD(PSOXDFN,PSOPGXS)	;	ICR #7527 Status: Active Usage: Private
BUILD	;build profiles
BLDOI	;If no DD/non-standard dose, get all drugs for OI
SETTMP	;Create ^TMP($J,"ORDERS"
GET	;data for profiles
MESS	;display technician message

External References

Name	Field # of Occurrence
C^%DTC	BLD+5
^%ZIS	ADDINFO+4
^%ZISC	ADDINFO+9, ADDINFO+11
^%ZTLOAD	ADDINFO+9
^DIE	GET+8
^DIR	OPTINTERV+5, REQINTERV+6, ASKAI+6, PRINTAI+9, PAUSE+1, MESS+6
EN^PSOHLSN1	GET+10
ENPGX^PSORXI	OPTINTERV+7, REQINTERV+11
ECAN^PSOUTL	GET+9
PGXOC^PSSPGX	GETPGX+6
$$DT^XLFDT	BLD+3
SIG^XUSESIG	REQINTERV+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,PSOTXT Line Location: DISPWARN+11
Function Call: WRITE	Prompt: ! Line Location: OPTINTERV+5
Function Call: WRITE	Prompt: ! Line Location: OPTINTERV+8
Function Call: WRITE	Prompt: ! Line Location: REQINTERV+2
Function Call: WRITE	Prompt: !!,"Signature Code not valid." Line Location: REQINTERV+9
Function Call: WRITE	Prompt: ! Line Location: ADDINFO+4
Function Call: WRITE	Prompt: !,"Pharmacogenomic Additional Information Queued, task# ",ZTSK,".",! Line Location: ADDINFO+10
Function Call: WRITE	Prompt: @IOF Line Location: PRINTAI+2
Function Call: WRITE	Prompt: !,^TMP($J,"PSSXWARN",PSOSEV,PSOS4,"AI",PSOX1) Line Location: PRINTAI+6
Function Call: WRITE	Prompt: ! Line Location: PRINTAI+8
Function Call: WRITE	Prompt: @IOF Line Location: PRINTAI+11
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $G(PSOIOF) Line Location: PAUSE+1
Function Call: WRITE	Prompt: !?3,"WARNING: Unlike other orders with Critical Order Checks, this order will" Line Location: MESS+2
Function Call: WRITE	Prompt: !?3,"not be placed in a Non-Verified status for pharmacist verification after" Line Location: MESS+3
Function Call: WRITE	Prompt: !?3,"you process it. If you are unsure about this order, please stop processing" Line Location: MESS+4
Function Call: WRITE	Prompt: !?3,"by '^'ing out, and consult a pharmacist.",! Line Location: MESS+5
Function Call: WRITE	Prompt: ! Line Location: MESS+6
Routine Call	DIE Line Location: GET+8
Routine Call	DIR Line Location: OPTINTERV+5 REQINTERV+6 ASKAI+6 PRINTAI+9 PAUSE+1 MESS+6
Routine Call	%ZIS Line Location: ADDINFO+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.41 - [#52.41]	BUILD+5, BUILD+6, BUILD+7, BUILD+8, BUILD+10, SETTMP+4
^PS(55 - [#55]	BUILD+3
^PSDRUG - [#50]	SETTMP+3, SETTMP+4, GET+4, GET+5, GET+12
^PSDRUG("ASP"	BLDOI+2
^PSRX - [#52]	BUILD+3, GET+2, GET+3
^TMP($J	GETPGX+7, GETPGX+8!, DISPWARN+4, DISPWARN+6, DISPWARN+7, DISPWARN+8, DISPWARN+12, PRINTAI+5, PRINTAI+6, BLD+2! , SETTMP+4, GET+12
^XUSEC("PSORPH"	DISPWARN+13, DISPWARN+16

Label References

Name	Line Occurrences
$$ASKAI	DISPWARN+14
@(	DISPWARN+18
ADDINFO	DISPWARN+15
BLDOI	BUILD+10
BUILD	BLD+5
DISPWARN	GETPGX+7
GET	BUILD+3
MESS	DISPWARN+13
PAUSE	DISPWARN+9, DISPWARN+10, DISPWARN+12, DISPWARN+19
PRINTAI	ADDINFO+11
SETTMP	BUILD+11, BLDOI+2

Naked Globals

Name	Field # of Occurrence
^("ND"	SETTMP+4, GET+12
^("OR1"	GET+3
^("STA"	GET+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ADDINFO+2~, ADDINFO+3*
DA	GET+8~*!, MESS+1~
DIC	GET+8~!
DIE	GET+8~*!
DIR	DISPWARN+1~, OPTINTERV+1~, REQINTERV+1~, ASKAI+1~, ASKAI+6!, PRINTAI+3~, MESS+1~, MESS+6!
DIR("?"	OPTINTERV+3, OPTINTERV+4, REQINTERV+5, ASKAI+4, ASKAI+5*
DIR("A"	OPTINTERV+2, REQINTERV+3, REQINTERV+4, ASKAI+2, PRINTAI+8, PAUSE+1, MESS+6*
DIR("B"	OPTINTERV+2, REQINTERV+3, ASKAI+3*
DIR(0	OPTINTERV+2, REQINTERV+3, ASKAI+3, PRINTAI+8, PAUSE+1, MESS+6
DIROUT	OPTINTERV+1~, REQINTERV+1~, ASKAI+1~, MESS+1~
DIRUT	OPTINTERV+1~, REQINTERV+1~, ASKAI+1~, MESS+1~
DR	GET+8~*!, MESS+1~
DT	BLD+3*, BLD+5, GET+7
DTOUT	OPTINTERV+1~, REQINTERV+1~, ASKAI+1~, MESS+1~
DUOUT	OPTINTERV+1~, REQINTERV+1~, ASKAI+1~, MESS+1~
DUZ	DISPWARN+13, DISPWARN+16
IO	PRINTAI+1
IO("Q"	ADDINFO+6
IOF	DISPWARN+5, PRINTAI+2, PRINTAI+11, PAUSE+1
IOP	ADDINFO+2~
IOSL	DISPWARN+9, DISPWARN+10, PRINTAI+7
IOST	PRINTAI+2, PRINTAI+7
POP	ADDINFO+2~, ADDINFO+5
PRINT	DISPWARN+1~, DISPWARN+2, DISPWARN+14, DISPWARN+15
PSODD	BUILD+1~, BUILD+11, BLDOI+2, SETTMP+3, SETTMP+4
PSODFN	GETPGX~, GETPGX+6
>> PSODGCK	GETPGX+3
PSODRARRAY	GETPGX+4~, GETPGX+6
PSODRARRAY(	GETPGX+5*
PSODRUG	GETPGX~
PSODRUG("IEN"	GETPGX+5
PSODRUG("NAME"	GETPGX+5, REQINTERV+4
PSODRUGDA	GETPGX+4~, GETPGX+5*
PSOEFLG	DISPWARN+1~, DISPWARN+5!, DISPWARN+7*
PSOEN	BUILD+1~, BUILD+5*, BUILD+6
PSOEN1	BUILD+1~, BUILD+4, BUILD+6, BUILD+7, BUILD+8, BUILD+10, SETTMP+4
PSOGCOMM	GET+8~, GET+10*
PSOGSTAT	GET+8~*, GET+10
PSOI	BLDOI+1~*, BLDOI+2
PSOIOF	PAUSE~, PAUSE+1
PSOOI	BUILD+1~, BUILD+8*, BUILD+9, BUILD+11, BLDOI+1, SETTMP+2
>> PSOPAR	DISPWARN+13
PSOPGX0	GET+1~, GET+2*, GET+4
PSOPGX2	GET+1~, GET+3*
PSOPGXCT	BLD+1~, BLD+5*, BUILD+2
PSOPGXD0	GET+1~, GET+5*
PSOPGXDA	GET+8~, GET+9*, GET+10
PSOPGXDG	GET+1~, GET+4*, GET+5, GET+12
PSOPGXEX	BUILD+1~, BUILD+2, BUILD+3, GET+7
PSOPGXOR	GET+1~, GET+3*, GET+12
PSOPGXRX	BUILD+1~, BUILD+2, BUILD+3, GET+2, GET+3, GET+8, GET+9, GET+12
PSOPGXS	BLD~, BLD+4*, BLD+5
PSOPGXST	GET+1~, GET+2*, GET+7
PSOPGXVC	GET+1~, GET+5*, GET+12
PSOPSTAT	GET+8~, GET+10*
PSOQUIT	GETPGX+4~
>> PSOREINO	OPTINTERV+7
>> PSOREINS	REQINTERV+11
PSORETURN	GETPGX+4~, GETPGX+6
>> PSORX("DFLG"	REQINTERV+7, REQINTERV+9
>> PSORXIEN	OPTINTERV+7, REQINTERV+11
PSOS4	DISPWARN+1~, DISPWARN+2, DISPWARN+4, DISPWARN+6, DISPWARN+8, DISPWARN+12, DISPWARN+15, ADDINFO~, PRINTAI+5, PRINTAI+6
PSOS5	DISPWARN+1~, DISPWARN+2, DISPWARN+6, DISPWARN+8
PSOSEV	DISPWARN+1~, DISPWARN+4*, DISPWARN+6, DISPWARN+7, DISPWARN+8, DISPWARN+9, DISPWARN+12, DISPWARN+13, DISPWARN+14, DISPWARN+15 , DISPWARN+17, ADDINFO~, PRINTAI+5, PRINTAI+6
PSOSOP	DISPWARN+1~, DISPWARN+2*
PSOTAG	DISPWARN+1~, DISPWARN+17*, DISPWARN+18
PSOTXT	DISPWARN+1~, DISPWARN+8*, DISPWARN+9, DISPWARN+11
PSOX1	PRINTAI+3~, PRINTAI+4, PRINTAI+5, PRINTAI+6
PSOXDFN	BLD~, BLD+2, BUILD+3, BUILD+5, BUILD+6
PSOXDRG	SETTMP+1~, SETTMP+3*, SETTMP+4
PSOXINDX	BLD+1~, SETTMP+4, GET+11, GET+12
>> PSOZVER	OPTINTERV+7, REQINTERV+11
STOP	PRINTAI+3~, PRINTAI+4, PRINTAI+5, PRINTAI+10
X	OPTINTERV+1~, REQINTERV+1~, BLD+1~, BLD+5, MESS+1~
X1	REQINTERV+9~, BLD+1~, BLD+5*
X2	BLD+1~, BLD+5*
Y	OPTINTERV+1~, OPTINTERV+7, REQINTERV+1~, REQINTERV+7, REQINTERV+8, ASKAI+7, PRINTAI+3~, PRINTAI+10, BLD+1~, MESS+1~
ZTDESC	ADDINFO+1~, ADDINFO+7*
>> ZTQUEUED	ADDINFO+10
>> ZTREQ	ADDINFO+10*
ZTRTN	ADDINFO+1~, ADDINFO+7*
ZTSAVE	ADDINFO+1~
ZTSAVE("PSOS4"	ADDINFO+8*
ZTSAVE("PSOSEV"	ADDINFO+8*
ZTSAVE("^TMP($J,""PSSXWARN"","	ADDINFO+8*
>> ZTSK	ADDINFO+10

Customize PDF page

Package: Outpatient Pharmacy