Routine: PSJUTL6

Package	Total	Call Graph
Kernel	3	^%ZTLOAD $$FMDIFF^XLFDT MES^XPDUTL
VA Fileman	3	^%DT NOW^%DTC ENALL^DIK
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
GETDT	; check date/time for job to run
CON(X)	;
DONE	;
ENNV	; Begin
ENQN	; Loop thru Pharmacy Patient file.
SENDMSG	;Send mail message when check is complete.

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SENDMSG+1
^PS(55 - [#55]	ENQN+2

Name	Line Occurrences
$$CON	ENNV+1
SENDMSG	ENQN+3

Name	Field # of Occurrence
>> %	ENQN+1, SENDMSG+1, SENDMSG+3
%DT	GETDT+1~, CON+1~
DA	DONE+1!
DA(1	ENQN+2*
>> DAYS	SENDMSG+3*, SENDMSG+4
DFN	ENQN+1~, ENQN+2*
DIK	ENQN+2*, DONE+1!
DIK(1	ENQN+2*
DUZ	SENDMSG+1
>> HOURS	SENDMSG+3*, SENDMSG+4
>> MINS	SENDMSG+3*, SENDMSG+4
PSG	SENDMSG+1!
PSG(1	SENDMSG+2*
PSG(2	SENDMSG+4*
PSG(3	SENDMSG+4*
PSJSTART	ENQN+1*, SENDMSG+3, DONE+1!
X	SENDMSG+3, DONE+1!, GETDT+2!, GETDT+3, CON~
XMDUZ	SENDMSG+1*, DONE+1!
XMSUB	SENDMSG+1*, DONE+1!
XMTEXT	SENDMSG+1*, DONE+1!
XMY	SENDMSG+1!, DONE+1!
XMY(	SENDMSG+1*
>> XPDQUES("POS	ONE" , ENNV+1, ENNV+2
Y	SENDMSG+1*, SENDMSG+2, DONE+1!, GETDT+1~, GETDT+2, GETDT+3, CON+2
ZTDESC	ENNV+1*, DONE+1!
ZTDTH	ENNV+1*, DONE+1!
ZTIO	ENNV+1*, DONE+1!
ZTREQ	DONE+1!*
ZTRTN	ENNV+1*, DONE+1!
ZTSAVE	ENNV+1!, DONE+1!
ZTSK	ENNV+1!, ENNV+2, ENNV+3, DONE+1!