Routine: PSJ0063

Package	Total	Call Graph
Kernel	2	^%ZTLOAD ($$FMADD,$$FMDIFF)^XLFDT
MailMan	1	^XMD
VA Fileman	1	NOW^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
DONE	;
CLEAN	;
ENQN	; Check of existing Pharmacy orders.
ENNV	; Begin check of existing orders
SENDMSG	;Send mail message when check is complete.

External References

Name	Field # of Occurrence
NOW^%DTC	ENQN+2, SENDMSG+1, CLEAN+14
^%ZTLOAD	ENNV+2
$$FMADD^XLFDT	ENQN+2
$$FMDIFF^XLFDT	SENDMSG+3
^XMD	SENDMSG+6, CLEAN+16

Interaction Calls

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. IF" Line Location: ENNV+5
Function Call: WRITE	Prompt: !,"ERRORS ARE DETECTED, YOU WILL RECEIVE A SECOND MESSAGE INDICATING CLEANUP" Line Location: ENNV+6
Function Call: WRITE	Prompt: !,"HAS COMPLETED." Line Location: ENNV+7

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
CLEAN	ENQN+11
SENDMSG	ENQN+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENQN+2, SENDMSG+1, SENDMSG+3, CLEAN+14
A	CLEAN+1~, CLEAN+8*
CREAT	ENQN+1~, ENQN+2*, ENQN+9
DAYS	DONE+1!, SENDMSG+3*, SENDMSG+4
DUZ	ENNV+1, SENDMSG+1, CLEAN+14
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+14!
PSG(1	SENDMSG+2, CLEAN+15
PSG(2	SENDMSG+2, CLEAN+15
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+8, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+12, CLEAN+13
PSJOSTP	CLEAN+1~, CLEAN+9*
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+8, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+12, CLEAN+13
PSJPREV	CLEAN+1~, CLEAN+4*, CLEAN+7, CLEAN+8, CLEAN+9
PSJST	CLEAN+1~, CLEAN+4*, CLEAN+13
PSJSTART	ENQN+2*, DONE+1!, SENDMSG+3
PSJSTP	ENQN+1~, ENQN+7, ENQN+8, CLEAN+1~, CLEAN+5, CLEAN+12, CLEAN+13
PSJSTRT	ENQN+1~, ENQN+7, ENQN+8, CLEAN+1~, CLEAN+5, CLEAN+7, CLEAN+10, CLEAN+11
X	DONE+1!, SENDMSG+3*
XMDUZ	DONE+1!, SENDMSG+1, CLEAN+14
XMSUB	DONE+1!, SENDMSG+1, CLEAN+14
XMTEXT	DONE+1!, SENDMSG+1, CLEAN+14
XMY	DONE+1!, SENDMSG+1!, CLEAN+14!
XMY(	SENDMSG+1, CLEAN+14
Y	DONE+1!, SENDMSG+1, SENDMSG+2, CLEAN+1~, CLEAN+14, CLEAN+15
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!

Customize PDF page

Package: Inpatient Medications

Routine: PSJ0063

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: