Routine: PSOOCPGX

Information

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

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

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