Routine: PSJ078A

Package	Total	Call Graph
Kernel	2	^%ZTLOAD ($$FMADD,$$FMDIFF)^XLFDT
Inpatient Medications	1	(IVSTART,IVSTOP,UDSTART,UDSTOP,XREFS)^PSJ078B
MailMan	1	^XMD
Registration	1	DEM^VADPT
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Inpatient Medications	1	PSJ0078

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	ENQN+3, SENDMSG+1, CLEANMSG+3
^%ZTLOAD	ENNV+2
IVSTART^PSJ078B	CLEAN+92
IVSTOP^PSJ078B	CLEAN+92
UDSTART^PSJ078B	CLEAN+91
UDSTOP^PSJ078B	CLEAN+91
XREFS^PSJ078B	ENQN+29
DEM^VADPT	CLEAN+7
$$FMADD^XLFDT	ENQN+4
$$FMDIFF^XLFDT	SENDMSG+3
^XMD	SENDMSG+6, CLEANMSG+5

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+75, CLEANMSG+3
^PS(50.7 - [#50.7]	CLEAN+24, CLEAN+36
^PS(52.6 - [#52.6]	CLEAN+41
^PS(55 - [#55]	ENQN+8, ENQN+10, ENQN+11, ENQN+13, ENQN+15, ENQN+17, ENQN+19, CLEAN+10, CLEAN+11, CLEAN+19 , CLEAN+23, CLEAN+26, CLEAN+27, CLEAN+29, CLEAN+30, CLEAN+35, CLEAN+37, CLEAN+39, CLEAN+40, CLEAN+44 , CLEAN+45, CLEAN+47, CLEAN+48
^XTMP("PSJ XREF"	ENQN+5!
^XTMP("PSJ"	ENQN+5!, ENQN+21, ENQN+23, ENQN+25, ENQN+26, ENQN+28, CLEAN+5, CLEAN+9

Label References

Name	Line Occurrences
CLEAN	ENQN+28
CLEANMSG	CLEAN+94, CLEAN+95
SENDMSG	ENQN+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENQN+3, SENDMSG+1, SENDMSG+3, CLEANMSG+3
AD	CLEAN+2~, CLEAN+39*, CLEAN+40
AEN	CLEAN+2~, CLEAN+4, CLEAN+40, CLEAN+41
BEG	CLEAN+2~, CLEAN+4, CLEAN+94, CLEAN+95, CLEANMSG~, CLEANMSG+2, CLEANMSG+4
BLANK	CLEAN+3~, CLEAN+4*, CLEAN+72, CLEAN+78, CLEAN+86
CREAT	ENQN+1~, ENQN+3*, ENQN+4, ENQN+26
DAYS	DONE+1!, SENDMSG+3*, SENDMSG+4
DFN	CLEAN+2~, CLEAN+7*
DUZ	ENNV+1, SENDMSG+1, CLEANMSG+3
END	CLEAN+2~, CLEAN+4, CLEAN+93, CLEAN+94, CLEAN+95, CLEANMSG~, CLEANMSG+2, CLEANMSG+4
EXPR	ENQN+1~, ENQN+4*, ENQN+26
FOLL0	CLEAN+2~, CLEAN+15!, CLEAN+26, CLEAN+44, CLEAN+46
FOLL2	CLEAN+14!, CLEAN+27, CLEAN+45, CLEAN+46
>> FOLPO	CLEAN+26, CLEAN+46, CLEAN+65
FOLSTRT	CLEAN+14!, CLEAN+27, CLEAN+46, CLEAN+65, CLEAN+66
FSTOP	CLEAN+2~, CLEAN+14!, CLEAN+75, CLEAN+77, CLEAN+79
FSTRT	CLEAN+2~, CLEAN+14!, CLEAN+75, CLEAN+77, CLEAN+79
HOURS	DONE+1!, SENDMSG+3*, SENDMSG+4
MINS	DONE+1!, SENDMSG+3*, SENDMSG+4
>> ND2	ENQN+17*, ENQN+18
OCNT	ENQN+1~, ENQN+4, ENQN+21, ENQN+23, ENQN+25, SENDMSG+5
OI	CLEAN+3~, CLEAN+15!, CLEAN+23, CLEAN+24, CLEAN+35, CLEAN+36
OINAME	CLEAN+3~, CLEAN+14!, CLEAN+24, CLEAN+36, CLEAN+40, CLEAN+41, CLEAN+42, CLEAN+77, CLEAN+78, CLEAN+85 , CLEAN+86
OPSJSTP	CLEAN+3~, CLEAN+13~, CLEAN+20, CLEAN+34
OPSJSTRT	CLEAN+3~, CLEAN+13~, CLEAN+21, CLEAN+33
>> ORD	ENQN+10*, ENQN+11, ENQN+13, ENQN+15, ENQN+17, ENQN+19, ENQN+21, ENQN+23, ENQN+25
PCNT	CLEAN+2~, CLEAN+4, CLEAN+72, CLEAN+74, CLEAN+77, CLEAN+78, CLEAN+79, CLEAN+80, CLEAN+81, CLEAN+82 , CLEAN+83, CLEAN+84, CLEAN+88, CLEAN+94
PO	CLEAN+2~
PREV0	CLEAN+14!, CLEAN+30*, CLEAN+31
PREV2	CLEAN+2~, CLEAN+47*, CLEAN+49
PREVFO	CLEAN+14!, CLEAN+30, CLEAN+49, CLEAN+60
>> PREVRFO	CLEAN+31, CLEAN+49
PSG	DONE+1!, SENDMSG+1!, CLEAN+94!
PSG(	CLEAN+74, CLEAN+78, CLEAN+79, CLEAN+81, CLEAN+82, CLEAN+83, CLEAN+88*
PSG(1	SENDMSG+2, CLEANMSG+4
PSG(2	SENDMSG+2, CLEANMSG+4
PSG(3	SENDMSG+4*
PSG(4	SENDMSG+4*
PSG(5	SENDMSG+4*
PSG(6	SENDMSG+5*
PSGTMP	CLEAN+3~, CLEAN+72, CLEAN+73, CLEAN+74, CLEAN+86, CLEAN+87, CLEAN+88
PSJBEG	ENQN+1~
PSJFOL	CLEAN+2~, CLEAN+13~, CLEAN+18, CLEAN+25, CLEAN+26, CLEAN+27, CLEAN+43, CLEAN+44, CLEAN+45
PSJLOG	CLEAN+1~
PSJND	CLEAN+1~, CLEAN+10*, CLEAN+12, CLEAN+17, CLEAN+18, CLEAN+19, CLEAN+33, CLEAN+34
PSJND0	ENQN+1~, ENQN+13*, ENQN+14
PSJND2	ENQN+1~, CLEAN+1~, CLEAN+19, CLEAN+20, CLEAN+21, CLEAN+37, CLEAN+43
>> PSJND4	CLEAN+11*, CLEAN+22, CLEAN+38
PSJNVDT	ENQN+1~, ENQN+15, ENQN+19, ENQN+24, ENQN+25, CLEAN+22, CLEAN+38
PSJORD	ENQN+1~, CLEAN+1~, CLEAN+8, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+19, CLEAN+23, CLEAN+35, CLEAN+37 , CLEAN+39, CLEAN+40, CLEAN+60, CLEAN+65, CLEAN+83, CLEAN+87
PSJOSTP	CLEAN+1~, CLEAN+29, CLEAN+48, CLEAN+60, CLEAN+61
PSJPDFN	ENQN+1~, ENQN+8, ENQN+10, ENQN+11, ENQN+13, ENQN+15, ENQN+17, ENQN+19, ENQN+21, ENQN+23 , ENQN+25, CLEAN+1~, CLEAN+4, CLEAN+5*, CLEAN+7, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+19, CLEAN+23 , CLEAN+26, CLEAN+27, CLEAN+29, CLEAN+30, CLEAN+35, CLEAN+37, CLEAN+39, CLEAN+40, CLEAN+44, CLEAN+45 , CLEAN+47, CLEAN+48
PSJPREV	CLEAN+13~, CLEAN+19, CLEAN+28, CLEAN+29, CLEAN+30, CLEAN+43, CLEAN+47, CLEAN+48
PSJST	CLEAN+13~, CLEAN+17, CLEAN+33, CLEAN+80
PSJSTART	ENQN+3*, DONE+1!, SENDMSG+3
PSJSTOP	ENQN+1~, ENQN+14, ENQN+18, ENQN+20
PSJSTP	CLEAN+13~, CLEAN+20, CLEAN+34, CLEAN+65, CLEAN+66, CLEAN+67, CLEAN+68, CLEAN+69, CLEAN+71, CLEAN+75 , CLEAN+84, CLEAN+87
PSJSTRT	ENQN+2~, ENQN+14, ENQN+17, ENQN+21, ENQN+22, ENQN+23, CLEAN+1~, CLEAN+13~, CLEAN+21, CLEAN+33 , CLEAN+60, CLEAN+61, CLEAN+62, CLEAN+63, CLEAN+64, CLEAN+71, CLEAN+75, CLEAN+84, CLEAN+86, CLEAN+87
RFO	CLEAN+2~
START	ENQN+1~
STOPCHG	CLEAN+14!, CLEAN+66, CLEAN+67, CLEAN+68, CLEAN+69, CLEAN+71, CLEAN+76, CLEAN+80, CLEAN+85, CLEAN+91 , CLEAN+92
STRTCHG	CLEAN+14!, CLEAN+61, CLEAN+62, CLEAN+63, CLEAN+64, CLEAN+71, CLEAN+76, CLEAN+85, CLEAN+91, CLEAN+92
TYP	ENQN+9, ENQN+10, ENQN+11, ENQN+12, ENQN+16, ENQN+17, ENQN+21, ENQN+23, ENQN+25, CLEAN+3~ , CLEAN+6, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+16, CLEAN+32, CLEAN+74, CLEAN+81, CLEAN+91, CLEAN+92
VADM	CLEAN+7!
VADM(1	CLEAN+72
VADM(2	CLEAN+73
X	DONE+1!, SENDMSG+3*
XMDUZ	DONE+1!, SENDMSG+1, CLEANMSG+1
XMSUB	DONE+1!, SENDMSG+1, CLEANMSG+2
XMTEXT	DONE+1!, SENDMSG+1, CLEANMSG+3
XMY	DONE+1!, SENDMSG+1!, CLEANMSG+1!
XMY(	SENDMSG+1, CLEANMSG+3
Y	DONE+1!, SENDMSG+1, SENDMSG+2, CLEAN+1~, CLEAN+75, CLEANMSG+3*, CLEANMSG+4
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: PSJ078A

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: