Routine: PSJ0077

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls

Information

PSJ0077 ;BIR/LDT - Check for Dispense Drug ; 02 MAY-01

Source file <PSJ0077.m>

Name	Comments	DBIA/ICR reference
ENNV	; Begin check of existing orders
ENQN	; Check of existing Pharmacy orders.
DONE	;
SENDMSG	;Send mail message when check is complete.
CLEAN	;
CHECK()	;
SET
CHECK2
A
D
DE
DR
E
H
I
N
O
P
R
RE
U

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Your DUZ is not defined. It must be defined to run this routine." Line Location: ENNV+1
Function Call: WRITE	Prompt: !!,"The check of existing Pharmacy orders is",$S($D(ZTSK):"",1:" NOT")," queued",! Line Location: ENNV+3
Function Call: WRITE	Prompt: " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED. IF" Line Location: ENNV+5
Function Call: WRITE	Prompt: !,"ERRORS ARE DETECTED, YOU WILL RECEIVE A SECOND MESSAGE INDICATING CLEANUP" Line Location: ENNV+6
Function Call: WRITE	Prompt: !,"HAS COMPLETED." Line Location: ENNV+7