Routine: PSJ0071

Package	Total	Call Graph
Kernel	2	^%ZTLOAD ($$FMADD,$$FMDIFF)^XLFDT
Inpatient Medications	1	EN^PSGS0
MailMan	1	^XMD
Registration	1	DEM^VADPT
VA Fileman	1	NOW^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
LOG	; Create field change entry in activity log.
ERR
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, LOG+2
^%ZTLOAD	ENNV+2
EN^PSGS0	ENQN+20
DEM^VADPT	CLEAN+3
$$FMADD^XLFDT	ENQN+3
$$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+12, CLEAN+13, CLEANMSG
^PS(51.1 - [#51.1]	ENQN+15, ENQN+16, ENQN+17
^PS(52.6 - [#52.6]	CLEAN+10
^PS(55 - [#55]	ENQN+8, ENQN+10, ENQN+12, ENQN+13, CLEAN+5, CLEAN+7, CLEAN+10, CLEAN+11, LOG+1, LOG+2 , LOG+3, LOG+4*
^VA(200 - [#200]	CLEAN+1
^XPD(9.7 - [#9.7]	ENQN+7
^XTMP("PSJ71"	ENQN+4!, ERR, ERR+1, ERR+3, CLEAN+2, CLEAN+4, CLEAN+6

Label References

Name	Line Occurrences
CLEAN	ERR+3
CLEANMSG	CLEAN+17, CLEAN+18
ERR	ENQN+15
LOG	CLEAN+8
SENDMSG	ERR+2

Naked Globals

Name	Field # of Occurrence
^(	CLEAN+10
^(0	LOG+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENQN+3, SENDMSG+1, SENDMSG+3, CLEANMSG, LOG+1~, LOG+2
A	ENQN+1~, ENQN+15, CLEAN+6
>> AD	CLEAN+10*
>> AIEN	CLEAN+10*
BEG	CLEAN+1, CLEAN+17, CLEAN+18, CLEANMSG~
>> BLANK	CLEAN+1*, CLEAN+9, CLEAN+15
CREAT	ENQN+1~, ENQN+3*, ERR+1
DAYS	ENQN+1~, DONE+1!, SENDMSG+3*, SENDMSG+4
>> DFN	CLEAN+3*
DUZ	ENNV+1, SENDMSG+1, CLEAN+1, CLEANMSG
END	CLEAN+1, CLEAN+17, CLEAN+18, CLEANMSG~
EXPR	ENQN+1~, ENQN+3*, ERR+1
>> FSTOP	CLEAN+13*, CLEAN+15
>> FSTRT	CLEAN+12*, CLEAN+15
HOURS	DONE+1!, SENDMSG+3*, SENDMSG+4
IEN	ENQN+1~, ENQN+7*
>> INS	CLEAN+1*, LOG+2
MINS	ENQN+1~, DONE+1!, SENDMSG+3*, SENDMSG+4
ND	LOG+3, LOG+4!
OCNT	ENQN+1~, ENQN+2, ERR, SENDMSG+5
>> OINAME	CLEAN+10, CLEAN+14, CLEAN+15
>> PCNT	CLEAN+1, CLEAN+9, CLEAN+15, CLEAN+16, CLEAN+17*
PSG	DONE+1!, SENDMSG+1!, CLEAN+17!
PSG(	CLEAN+9, CLEAN+15, CLEAN+16*
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*
>> PSGOES	ENQN+2*
PSGS0XT	ENQN+1~, ENQN+14!, ENQN+15, ENQN+20, ENQN+21, ERR, CLEAN+6*, CLEAN+7, LOG+4
PSGST	ENQN+1~, ENQN+15*
>> PSIVLN	LOG+1*, LOG+2, LOG+3, LOG+4
PSJADM	ENQN+1~, ENQN+13*, ENQN+16
PSJBEG	ENQN+1~, ENQN+7, ENQN+8, ENQN+10, ENQN+12
PSJFRE	ENQN+1~, ENQN+13, ENQN+14, ENQN+15, ENQN+21, ERR, CLEAN+6, LOG+4
>> PSJND	CLEAN+11*
PSJND0	ENQN+1~, ENQN+13*
PSJORD	ENQN+1~, ENQN+11, ENQN+12, ENQN+13, ERR, CLEAN+2, CLEAN+4, CLEAN+5, CLEAN+6, CLEAN+7 , CLEAN+10, CLEAN+11, LOG+1, LOG+2, LOG+3, LOG+4
PSJPDFN	ENQN+1~, ENQN+9, ENQN+10, ENQN+12, ENQN+13, ERR, CLEAN+1, CLEAN+2, CLEAN+3, CLEAN+4 , CLEAN+5, CLEAN+6, CLEAN+7, CLEAN+10, CLEAN+11, LOG+1, LOG+2, LOG+3, LOG+4
PSJSCH	ENQN+1~, ENQN+13*, ENQN+14, ENQN+15, ENQN+16, ENQN+17, ENQN+18, ENQN+19, ENQN+20, ERR
PSJSTA	ENQN+1~, ENQN+13*, ENQN+14
PSJSTART	ENQN+1~, ENQN+3*, DONE+1!, SENDMSG+3
>> PSJSTP	CLEAN+11*, CLEAN+13
>> PSJSTRT	CLEAN+11*, CLEAN+12
U	LOG+4
VADM	CLEAN+3!
VADM(1	CLEAN+9
VADM(2	CLEAN+9
X	ENQN+1~, ENQN+15, ENQN+16, ENQN+17, ENQN+20, DONE+1!, SENDMSG+3, LOG+1~
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+12, CLEAN+13, CLEANMSG, CLEANMSG+1, LOG+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: PSJ0071

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: