Routine: PSJ0061

Information

PSJ0061 ;BIR/LDT - Check for Trailing Zeros on dates; 02 MAY-01

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	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Your user code is undefined. 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 TWO MAILMAN MESSAGES WHEN TASK #"_ZTSK_" HAS COMPLETED." Line Location: ENNV+4

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SENDMSG+1, CLEAN+11
^PS(55 - [#55]	ENQN+4, ENQN+5, ENQN+6, ENQN+7, CLEAN+3, CLEAN+4, CLEAN+5, CLEAN+6, CLEAN+7, CLEAN+8!* , CLEAN+9, CLEAN+10!
^XTMP("PSJ"	ENQN+3!, ENQN+8, ENQN+9, ENQN+11, CLEAN+2

Name	Line Occurrences
CLEAN	ENQN+11
SENDMSG	ENQN+10

Name	Field # of Occurrence
>> %	ENQN+2, SENDMSG+1, SENDMSG+3, CLEAN+11
CREAT	ENQN+1~, ENQN+2*, ENQN+9
DAYS	DONE+1!, SENDMSG+3*, SENDMSG+4
DUZ	ENNV+1, SENDMSG+1, CLEAN+11
EXPR	ENQN+1~, ENQN+2*, ENQN+9
HOURS	DONE+1!, SENDMSG+3*, SENDMSG+4
MINS	DONE+1!, SENDMSG+3*, SENDMSG+4
OCNT	ENQN+1~, ENQN+2, ENQN+8, SENDMSG+5
PSG	DONE+1!, SENDMSG+1!, CLEAN+11!
PSG(1	SENDMSG+2, CLEAN+12
PSG(2	SENDMSG+2, CLEAN+12
PSG(3	SENDMSG+4*
PSG(4	SENDMSG+4*
PSG(5	SENDMSG+4*
PSG(6	SENDMSG+5*
PSG(7	SENDMSG+5*
PSJBEG	ENQN+1~, ENQN+4*, ENQN+5
PSJLOG	ENQN+6, ENQN+8, CLEAN+1~, CLEAN+4, CLEAN+6
PSJND	ENQN+6, CLEAN+1~, CLEAN+4
PSJND2	ENQN+1~, ENQN+7, CLEAN+1~, CLEAN+5
PSJORD	ENQN+1~, ENQN+5, ENQN+6, ENQN+7, ENQN+8, CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+4, CLEAN+5 , CLEAN+6, CLEAN+7, CLEAN+8, CLEAN+9, CLEAN+10
PSJPDFN	ENQN+1~, ENQN+4, ENQN+5, ENQN+6, ENQN+7, ENQN+8, CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+4 , CLEAN+5, CLEAN+6, CLEAN+7, CLEAN+8, CLEAN+9, CLEAN+10
PSJST	CLEAN+1~, CLEAN+4*, CLEAN+10
PSJSTART	ENQN+2*, DONE+1!, SENDMSG+3
PSJSTP	ENQN+1~, ENQN+7, ENQN+8, CLEAN+1~, CLEAN+5, CLEAN+9, CLEAN+10
PSJSTRT	ENQN+1~, ENQN+7, ENQN+8, CLEAN+1~, CLEAN+5, CLEAN+7, CLEAN+8
X	DONE+1!, SENDMSG+3*
XMDUZ	DONE+1!, SENDMSG+1, CLEAN+11
XMSUB	DONE+1!, SENDMSG+1, CLEAN+11
XMTEXT	DONE+1!, SENDMSG+1, CLEAN+11
XMY	DONE+1!, SENDMSG+1!, CLEAN+11!
XMY(	SENDMSG+1, CLEAN+11
Y	DONE+1!, SENDMSG+1, SENDMSG+2, CLEAN+11, CLEAN+12
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, DONE+1!