Routine: PSJ089B

Entry Points

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.
SET	;

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 MESSAGES WHEN TASK #"_ZTSK_" HAS COMPLETED." Line Location: ENNV+5

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SENDMSG+5
^PS(55 - [#55]	ENQN+6, ENQN+7, ENQN+10, ENQN+12, ENQN+13

Name	Line Occurrences
SENDMSG	ENQN+16

Name	Field # of Occurrence
>> %	ENQN+3, SENDMSG+5, SENDMSG+8
BDT	ENQN+1~, ENQN+5*, ENQN+6
CREAT	ENQN+1~, ENQN+3*
DAYS	DONE+1!, SENDMSG+9*, SENDMSG+12
DUZ	ENNV+1, SENDMSG+4
HOURS	DONE+1!, SENDMSG+10*, SENDMSG+12
MINS	DONE+1!, SENDMSG+10*, SENDMSG+12
ND0	ENQN+1~, ENQN+7*, ENQN+8, ENQN+11, ENQN+12
ND2	ENQN+1~, ENQN+7*, ENQN+8
OCNT	ENQN+1~, SENDMSG+17, SENDMSG+18
PSG	DONE+1!, SENDMSG+1!
PSG(	SENDMSG+18*
PSG(1	SENDMSG+6*
PSG(2	SENDMSG+7*
PSG(3	SENDMSG+11*
PSG(4	SENDMSG+12*
PSG(5	SENDMSG+12*
PSG(6	SENDMSG+13*
PSG(7	SENDMSG+14, SENDMSG+15, SENDMSG+16*
PSG(8	SENDMSG+16*
PSG(9	SENDMSG+17*
PSJBEG	ENQN+1~
PSJCNTX	ENQN+1~, ENQN+2, ENQN+15, SENDMSG+15, SENDMSG+16
PSJCNTY	ENQN+1~, ENQN+2, ENQN+14, SENDMSG+14, SENDMSG+15
PSJOI	ENQN+1~, ENQN+13*, ENQN+14, ENQN+15
PSJORD	ENQN+1~, ENQN+6*, ENQN+7, ENQN+9, ENQN+10, ENQN+12, ENQN+13, ENQN+14, ENQN+15
PSJPDFN	ENQN+1~, ENQN+6*, ENQN+7, ENQN+9, ENQN+10, ENQN+12, ENQN+13, ENQN+14, ENQN+15
PSJSTART	ENQN+3*, DONE+1!, SENDMSG+8
PSJX	ENQN+1~
PSJX(	ENQN+15*, SENDMSG+18
U	ENQN+8, ENQN+10, ENQN+11, ENQN+12, ENQN+15, SENDMSG+18
WBDT	ENQN+1~, ENQN+6*
X	DONE+1!, SENDMSG+1~, SENDMSG+8, SENDMSG+9, SENDMSG+10, SENDMSG+18*
XMDUZ	DONE+1!, SENDMSG+2*
XMSUB	DONE+1!, SENDMSG+3*
XMTEXT	DONE+1!, SENDMSG+4*
XMY	DONE+1!, SENDMSG+1!
XMY(	SENDMSG+4*
XX	ENQN+9~*, ENQN+10, ENQN+11
Y	DONE+1!, SENDMSG+5*, SENDMSG+7
ZTDESC	ENNV+2*, DONE+1!
ZTDTH	DONE+1!
ZTIO	ENNV+2*, DONE+1!
ZTREQ	DONE+1!*
ZTRTN	ENNV+2*, DONE+1!
ZTSAVE	ENNV+2!, DONE+1!
ZTSK	ENNV+2!, ENNV+3, ENNV+4, ENNV+5, DONE+1!