Routine: PSS0052

Information

PSS0052 ;BIR/JLC-POPULATE FIRST SERVICE DATE ;01/14/2002

Source file <PSS0052.m>

Name	Comments	DBIA/ICR reference
EN
ENQN
SENDMSG	;Send mail message when check is complete.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Your DUZ is not defined. It must be defined to run this routine." Line Location: EN+0
Function Call: WRITE	Prompt: !!,"The build of first pharmacy service info is",$S($D(ZTSK):"",1:" NOT")," queued",! Line Location: EN+2
Function Call: WRITE	Prompt: " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED." Line Location: EN+4

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SENDMSG+1
^PS(55 - [#55]	ENQN+1, ENQN+2, ENQN+3, ENQN+4, ENQN+5, ENQN+6, ENQN+7*
^PSRX - [#52]	ENQN+6
^XMB("NETNAME"	SENDMSG+1

Name	Field # of Occurrence
^(	ENQN+6

Name	Field # of Occurrence
>> %	SENDMSG+1
A	ENQN+1!, ENQN+7*
A(	ENQN+3, ENQN+4, ENQN+5, ENQN+6
A(""	ENQN+7
>> ARC	ENQN+5*
>> DFN	ENQN, ENQN+1, ENQN+2, ENQN+3, ENQN+4, ENQN+5, ENQN+6, ENQN+7
>> DILOCKTM	ENQN+2
DUZ	EN, SENDMSG+1
>> LOG	ENQN+3, ENQN+4, ENQN+6, ENQN+7
PSG	SENDMSG+1!
>> PSJORD	ENQN+3, ENQN+4
>> PSS(1	SENDMSG+2*
>> PSS(2	SENDMSG+2*
>> RX	ENQN+6*
>> X	ENQN+6*
>> XMDUZ	SENDMSG+1*
>> XMSUB	SENDMSG+1*
>> XMTEXT	SENDMSG+1*
XMY	SENDMSG+1!
XMY(	SENDMSG+1*
XMY("G.PSU PB	M@" , SENDMSG+1*
>> Y	SENDMSG+1*, SENDMSG+2
>> ZTDESC	EN+1*
>> ZTIO	EN+1*
>> ZTRTN	EN+1*
ZTSAVE	EN+1!
ZTSK	EN+1!, EN+2, EN+3, EN+4