Routine: PSJ0099

Information

PSJ0099 ;BIR/JLC - EVALUATE IV ORDER PROBLEMS ;12/03/2002

Name	Comments	DBIA/ICR reference
ENNV	; Begin check of existing orders
START	;run through entries in XTMP("PSOPOST7"
SENDMSG	;Send mail message when check is complete.
NOSTOP

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." Line Location: ENNV+5
Function Call: WRITE	Prompt: !! Line Location: START+7
Function Call: WRITE	Prompt: S1," = ",@S1,! Line Location: START+8
Routine Call	DIE Line Location: NOSTOP+10

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SENDMSG+1
^PS(55 - [#55]	START+9, START+12, NOSTOP+1, NOSTOP+3, NOSTOP+4, NOSTOP+11*
^XTMP("PSJ0099"	START+9, START+11, START+12!, START+13*, START+15, SENDMSG+6, NOSTOP+12!
^XTMP("PSOPOST7"	START+1, START+2, START+4, START+6, SENDMSG+3

Name	Line Occurrences
NOSTOP	START+13

Name	Field # of Occurrence
^("PSOPOST7"	START+1*
^($J	START+15*

Name	Field # of Occurrence
>> %	START+14, SENDMSG+1
>> A	START+9, START+10, NOSTOP+5, NOSTOP+6, NOSTOP+7
>> ACTDATA	NOSTOP+4*, NOSTOP+5
>> CHK	START+7*, START+8
>> CREAT	START+14*, START+15
>> D2	NOSTOP, NOSTOP+1, NOSTOP+3, NOSTOP+4
>> D3	NOSTOP+2, NOSTOP+3, NOSTOP+4
>> DA	NOSTOP+10*
>> DA(1	NOSTOP+10*
>> DFN	START+3, START+4, START+6, START+7, START+9, START+11, START+12, START+13, NOSTOP+1, NOSTOP+3 , NOSTOP+4, NOSTOP+10, NOSTOP+11, NOSTOP+12
>> DIE	NOSTOP+10*
DR	NOSTOP+10!*
DUZ	ENNV+1, SENDMSG+1
>> EXPR	START+14*, START+15
>> JOB	START+1, START+2, START+4, START+6
>> OLD	NOSTOP, NOSTOP+7, NOSTOP+8*, NOSTOP+9
PSG	SENDMSG+1!
PSG(1	SENDMSG+2*
PSG(2	SENDMSG+2*
PSG(3	SENDMSG+4*
PSG(4	SENDMSG+4*
PSG(5	SENDMSG+5*
PSG(6	SENDMSG+5*
PSG(7	SENDMSG+6*
PSG(8	SENDMSG+6*
>> PSJORD	START+5, START+6, START+7, START+9, START+11, START+12, START+13, NOSTOP+1, NOSTOP+3, NOSTOP+4 , NOSTOP+10, NOSTOP+11, NOSTOP+12
>> PSJSTART	START+14*
>> PSSTART	START+10*
>> PSSTATUS	START+10*, START+11
>> PSSTOP	START+10*, NOSTOP+8
>> S1	START+7, START+8
>> STATUS	NOSTOP+9*, NOSTOP+10, NOSTOP+11
>> XMDUZ	SENDMSG+1*
>> XMSUB	SENDMSG+1*
>> XMTEXT	SENDMSG+1*
XMY	SENDMSG+1!
XMY(	SENDMSG+1*
>> Y	SENDMSG+1*, SENDMSG+2
>> ZTDESC	ENNV+2*
>> ZTIO	ENNV+2*
>> ZTRTN	ENNV+2*
ZTSAVE	ENNV+2!
ZTSK	ENNV+2!, ENNV+3, ENNV+4, ENNV+5