Routine: PSJ0091

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+10
^%ZTLOAD	ENNV+2
$$FMADD^XLFDT	ENQN+2
$$FMDIFF^XLFDT	SENDMSG+3
^XMD	SENDMSG+6, CLEAN+14

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 cleanup 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." Line Location: ENNV+5

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
CLEAN	ENQN+16

Naked Globals

Name	Field # of Occurrence
^(	ENQN+8
^(2	ENQN+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENQN+2, SENDMSG+1, SENDMSG+3, CLEAN+10
CCNT	ENQN+1~, ENQN+2, ENQN+13, SENDMSG+5, CLEAN+9, CLEAN+13
CHK	CLEAN+1~
CHK3	CLEAN+1~
CREAT	ENQN+1~, ENQN+2*, ENQN+15
DAYS	DONE+1!, SENDMSG+3*, SENDMSG+4
DRG	CLEAN+1~
DUZ	ENNV+1, SENDMSG+1, CLEAN+10
EXPR	ENQN+1~, ENQN+2*, ENQN+15
HOURS	DONE+1!, SENDMSG+3*, SENDMSG+4
MINS	DONE+1!, SENDMSG+3*, SENDMSG+4
ND0	ENQN+1~, ENQN+8*
ND2	ENQN+1~, ENQN+8*, ENQN+9, ENQN+10, ENQN+12, ENQN+14
NDPT2	ENQN+1~, ENQN+8*, ENQN+11
>> OCNT	ENQN+2*
ORSTART	CLEAN+1~
ORSTATUS	CLEAN+1~
ORSTOP	CLEAN+1~
PSG	DONE+1!, SENDMSG+1!, CLEAN+10!
PSG(1	SENDMSG+2, CLEAN+11
PSG(2	SENDMSG+2, CLEAN+11
PSG(3	SENDMSG+4, CLEAN+12
PSG(4	SENDMSG+4, CLEAN+13
PSG(5	SENDMSG+4*
PSG(6	SENDMSG+5*
PSJBEG	ENQN+1~, ENQN+5, ENQN+6, ENQN+7
PSJDRG	CLEAN+1~
PSJFREQ	ENQN+1~, ENQN+9*
PSJLORD	ENQN+1~, ENQN+2*
PSJOI	CLEAN+1~
PSJORD	ENQN+1~, ENQN+7, ENQN+8, ENQN+14, CLEAN+1~, CLEAN+3, CLEAN+4, CLEAN+5
PSJPDFN	ENQN+1~, ENQN+6, ENQN+7, ENQN+8, ENQN+14, CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+4, CLEAN+5
PSJPRIO	ENQN+1~, ENQN+11*
PSJSCH	ENQN+1~, ENQN+12*
PSJSTART	ENQN+1~, ENQN+2, ENQN+10, DONE+1!, SENDMSG+3
PSJSTOP	ENQN+1~, ENQN+10*
PSSTART	CLEAN+1~
PSSTATUS	CLEAN+1~
PSSTOP	CLEAN+1~
U	ENQN+9, ENQN+10, ENQN+11, ENQN+12
X	DONE+1!, SENDMSG+3*
XMDUZ	DONE+1!, SENDMSG+1, CLEAN+10
XMSUB	DONE+1!, SENDMSG+1, CLEAN+10
XMTEXT	DONE+1!, SENDMSG+1, CLEAN+10
XMY	DONE+1!, SENDMSG+1!, CLEAN+10!
XMY(	SENDMSG+1, CLEAN+10
XPDIEN58	ENQN+4~*, ENQN+5
Y	DONE+1!, SENDMSG+1, SENDMSG+2, CLEAN+10, CLEAN+11
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: PSJ0091

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: