Routine: PSJ0066

Package	Total	Call Graph
Kernel	2	^%ZTLOAD ($$FMADD,$$FMDIFF)^XLFDT
MailMan	1	^XMD
Registration	1	DEM^VADPT
VA FileMan	1	(NOW,YMD)^%DTC

Entry Points

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	;
CLEANMSG(BEG,END)

External References

Name	Field # of Occurrence
NOW^%DTC	ENQN+2, SENDMSG+1, CLEANMSG
YMD^%DTC	ENQN+6
^%ZTLOAD	ENNV+2
DEM^VADPT	CLEAN+4
$$FMADD^XLFDT	ENQN+2
$$FMDIFF^XLFDT	SENDMSG+3
^XMD	SENDMSG+6, CLEANMSG+2

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+55, CLEAN+56, CLEANMSG
^PS(50.7 - [#50.7]	CLEAN+11
^PS(52.6 - [#52.6]	CLEAN+17
^PS(55 - [#55]	ENQN+8, ENQN+10, ENQN+12, ENQN+13, ENQN+16, ENQN+18, ENQN+20, ENQN+21, CLEAN+6, CLEAN+9 , CLEAN+10, CLEAN+11, CLEAN+12, CLEAN+13, CLEAN+15, CLEAN+16, CLEAN+17, CLEAN+18, CLEAN+19, CLEAN+26* , CLEAN+27!, CLEAN+28, CLEAN+30, CLEAN+31!, CLEAN+32, CLEAN+36, CLEAN+37, CLEAN+46, CLEAN+47!, CLEAN+48* , CLEAN+50, CLEAN+51!, CLEAN+52, CLEAN+53, CLEAN+54
^XTMP("PSJ"	ENQN+3!, ENQN+14, ENQN+22, ENQN+23*, ENQN+25, CLEAN+3, CLEAN+5

Label References

Name	Line Occurrences
CLEAN	ENQN+25
CLEANMSG	CLEAN+60, CLEAN+61
SENDMSG	ENQN+24

Naked Globals

Name	Field # of Occurrence
^(	CLEAN+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENQN+2, SENDMSG+1, SENDMSG+3, CLEANMSG
>> %H	ENQN+6*
AD	CLEAN+1~, CLEAN+17*
AIEN	CLEAN+1~, CLEAN+17*
BEG	CLEAN+1~, CLEAN+2, CLEAN+60, CLEAN+61, CLEANMSG~, CLEANMSG+1
BLANK	CLEAN+1~, CLEAN+2*, CLEAN+39, CLEAN+57, CLEAN+59
CREAT	ENQN+1~, ENQN+2*, ENQN+23
DAYS	DONE+1!, SENDMSG+3*, SENDMSG+4
DFN	CLEAN+1~, CLEAN+4*
DUZ	ENNV+1, SENDMSG+1, CLEANMSG
END	CLEAN+1~, CLEAN+2, CLEAN+60, CLEAN+61, CLEANMSG~, CLEANMSG+1
EXPR	ENQN+1~, ENQN+2*, ENQN+23
FO	CLEAN+1~, CLEAN+12, CLEAN+18, CLEAN+24
FSTOP	CLEAN+1~, CLEAN+7!, CLEAN+56, CLEAN+58, CLEAN+59
FSTRT	CLEAN+1~, CLEAN+7!, CLEAN+55, CLEAN+58, CLEAN+59
HOURS	DONE+1!, SENDMSG+3*, SENDMSG+4
MINS	DONE+1!, SENDMSG+3*, SENDMSG+4
OCNT	ENQN+1~, ENQN+2, ENQN+14, ENQN+22*, SENDMSG+5
OI	CLEAN+1~, CLEAN+11*
OINAME	CLEAN+1~, CLEAN+7!, CLEAN+11, CLEAN+17, CLEAN+58*, CLEAN+59
OPSJSTRT	CLEAN+1~, CLEAN+10, CLEAN+15, CLEAN+27, CLEAN+31, CLEAN+36, CLEAN+37, CLEAN+47, CLEAN+51, CLEAN+54*
PCNT	CLEAN+1~, CLEAN+2, CLEAN+39, CLEAN+40, CLEAN+57, CLEAN+59, CLEAN+60
PREV0	CLEAN+1~, CLEAN+12*
PREV2	CLEAN+1~, CLEAN+18*
PSG	DONE+1!, SENDMSG+1!, CLEAN+60!
PSG(	CLEAN+39, CLEAN+40, CLEAN+57, CLEAN+59
PSG(1	SENDMSG+2, CLEANMSG+1
PSG(2	SENDMSG+2, CLEANMSG+1
PSG(3	SENDMSG+4*
PSG(4	SENDMSG+4*
PSG(5	SENDMSG+4*
PSG(6	SENDMSG+5*
PSJBEG	ENQN+1~, ENQN+7, ENQN+8, ENQN+10, ENQN+12, ENQN+15, ENQN+16, ENQN+18, ENQN+20
PSJLOG	CLEAN+1~
PSJND	CLEAN+1~, CLEAN+9, CLEAN+15, CLEAN+37, CLEAN+54
PSJND0	ENQN+1~, ENQN+21*
PSJND2	ENQN+1~, ENQN+13, CLEAN+1~, CLEAN+10, CLEAN+16, CLEAN+36, CLEAN+53*
PSJORD	ENQN+1~, ENQN+11, ENQN+12, ENQN+13, ENQN+14, ENQN+19, ENQN+20, ENQN+21, ENQN+22, CLEAN+1~ , CLEAN+3, CLEAN+5, CLEAN+6, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+15, CLEAN+16, CLEAN+17, CLEAN+24 , CLEAN+26, CLEAN+27, CLEAN+28, CLEAN+30, CLEAN+31, CLEAN+32, CLEAN+36, CLEAN+37, CLEAN+40, CLEAN+46 , CLEAN+47, CLEAN+48, CLEAN+50, CLEAN+51, CLEAN+52, CLEAN+53, CLEAN+54
PSJOSTP	CLEAN+1~, CLEAN+13, CLEAN+19, CLEAN+26, CLEAN+28, CLEAN+30, CLEAN+32
PSJPDFN	ENQN+1~, ENQN+9, ENQN+10, ENQN+12, ENQN+13, ENQN+14, ENQN+17, ENQN+18, ENQN+20, ENQN+21 , ENQN+22, CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+4, CLEAN+5, CLEAN+6, CLEAN+9, CLEAN+10, CLEAN+11 , CLEAN+12, CLEAN+13, CLEAN+15, CLEAN+16, CLEAN+17, CLEAN+18, CLEAN+19, CLEAN+26, CLEAN+27, CLEAN+28 , CLEAN+30, CLEAN+31, CLEAN+32, CLEAN+36, CLEAN+37, CLEAN+46, CLEAN+47, CLEAN+48, CLEAN+50, CLEAN+51 , CLEAN+52, CLEAN+53, CLEAN+54
PSJPREV	CLEAN+1~, CLEAN+9, CLEAN+12, CLEAN+13, CLEAN+16, CLEAN+18, CLEAN+19, CLEAN+23
PSJST	CLEAN+1~, CLEAN+9, CLEAN+15
PSJSTART	ENQN+2*, DONE+1!, SENDMSG+3
PSJSTP	CLEAN+1~, CLEAN+53, CLEAN+54, CLEAN+56
PSJSTRT	ENQN+1~, ENQN+13, ENQN+14, ENQN+21, ENQN+22, CLEAN+1~, CLEAN+10, CLEAN+15, CLEAN+23, CLEAN+36* , CLEAN+37, CLEAN+38, CLEAN+44, CLEAN+46, CLEAN+48, CLEAN+50, CLEAN+52, CLEAN+53, CLEAN+54, CLEAN+55
RFO	CLEAN+1~, CLEAN+12, CLEAN+18, CLEAN+24
START	ENQN+1~, ENQN+6*, ENQN+7, ENQN+15
TYP	CLEAN+1~, CLEAN+3*, CLEAN+5, CLEAN+6, CLEAN+8, CLEAN+14, CLEAN+25, CLEAN+29, CLEAN+36, CLEAN+37 , CLEAN+39, CLEAN+45, CLEAN+49, CLEAN+53, CLEAN+54, CLEAN+57
VADM	CLEAN+4!
VADM(1	CLEAN+39, CLEAN+57
VADM(2	CLEAN+39, CLEAN+57
X	ENQN+6, DONE+1!, SENDMSG+3*
XMDUZ	DONE+1!, SENDMSG+1, CLEANMSG
XMSUB	DONE+1!, SENDMSG+1, CLEANMSG
XMTEXT	DONE+1!, SENDMSG+1, CLEANMSG
XMY	DONE+1!, SENDMSG+1!, CLEANMSG!
XMY(	SENDMSG+1, CLEANMSG
Y	DONE+1!, SENDMSG+1, SENDMSG+2, CLEAN+1~, CLEAN+55, CLEAN+56, CLEANMSG, CLEANMSG+1
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: PSJ0066

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: