Routine: PSJ0078

Package	Total	Call Graph
Inpatient Medications	3	$$CHECKDUP^PSGOERI ENQN^PSJ078A EN1^PSJHL2
Kernel	2	^%ZTLOAD ($$FMADD,$$FMDIFF)^XLFDT
VA FileMan	2	NOW^%DTC ^DIE
MailMan	1	^XMD
Order Entry Results Reporting	1	$$STATUS^ORQOR2

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	;
CHECK()	;
SET
CHECK2
A
D
DE
DR
E
H
I
N
O
P
R
RE
U

External References

Name	Field # of Occurrence
NOW^%DTC	ENQN+2, SENDMSG+1, CLEAN+6, CLEAN+23, CHECK+1
^%ZTLOAD	ENNV+2
^DIE	CLEAN+19
$$STATUS^ORQOR2	SET+6
$$CHECKDUP^PSGOERI	CLEAN+16, CLEAN+17
ENQN^PSJ078A	DONE+3
EN1^PSJHL2	CLEAN+20
$$FMADD^XLFDT	ENQN+2
$$FMDIFF^XLFDT	SENDMSG+3
^XMD	SENDMSG+6, CLEAN+35

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 2 MAILMAN MESSAGES WHEN TASK #"_ZTSK_" HAS COMPLETED." Line Location: ENNV+5
Function Call: WRITE	Prompt: !,"IF ERRORS ARE DETECTED, YOU WILL RECEIVE ADDITIONAL MESSAGES INDICATING CLEANUP" Line Location: ENNV+6
Function Call: WRITE	Prompt: !,"HAS COMPLETED." Line Location: ENNV+7
Routine Call	DIE Line Location: CLEAN+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SENDMSG+1, CLEAN+23
^OR(100 - [#100]	SET+3
^PS(55 - [#55]	ENQN+4, ENQN+5, ENQN+6, CLEAN+3, CLEAN+5*!
^PSDRUG - [#50]	CHECK+3
^PSDRUG("ASP"	CHECK+3
^XTMP("PSJ XREF"	DONE+4!
^XTMP("PSJ"	ENQN+3!, ENQN+6, ENQN+7, ENQN+9, ENQN+11, DONE+2!, DONE+4!, CLEAN+2, CLEAN+4, CLEAN+6 , CLEAN+7, CLEAN+20!, CLEAN+21, CLEAN+22!, CLEAN+27, CLEAN+29, SET+4, SET+5, SET+6

Label References

Name	Line Occurrences
$$CHECK	CLEAN+4
@(	CHECK2+4
CHECK2	CLEAN+8
CLEAN	ENQN+11
SENDMSG	ENQN+10
SET	ENQN+8

Naked Globals

Name	Field # of Occurrence
^("I"	CHECK+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENQN+2, SENDMSG+1, SENDMSG+3, CLEAN+8, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+12, CLEAN+13, CLEAN+14 , CLEAN+15, CLEAN+16, CLEAN+17, CLEAN+23, CHECK+1
CCNT	CLEAN+1~, CLEAN+5, CLEAN+26
CHK	CLEAN+1~, CLEAN+8, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+12, CLEAN+13, CLEAN+14, CLEAN+15, CLEAN+16 , CLEAN+17, CLEAN+18, CHECK2+1, CHECK2+2, CHECK2+3, A, D, DE, DR, E , H, I, N, O, P, R, RE, U
CHK3	CLEAN+1~
CREAT	ENQN+1~, ENQN+2*, ENQN+9
>> DA	CLEAN+7*
>> DA(1	CLEAN+7*
DAYS	DONE+1!, SENDMSG+3*, SENDMSG+4
>> DIE	CLEAN+7*
DR	CLEAN+6!, CLEAN+8, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+12, CLEAN+13, CLEAN+14, CLEAN+15, CLEAN+16* , CLEAN+17, CLEAN+18, CLEAN+19
DRG	CLEAN+1~, CLEAN+4, CLEAN+5, CHECK+2~, CHECK+3
DUZ	ENNV+1, SENDMSG+1, CLEAN+23
EXPR	ENQN+1~, ENQN+2*, ENQN+9
>> F	SET+1*, SET+2
HOURS	DONE+1!, SENDMSG+3*, SENDMSG+4
LFCNT	CLEAN+1~, CLEAN+21, CLEAN+22
MINS	DONE+1!, SENDMSG+3*, SENDMSG+4
>> MSGCNT	CLEAN+27, CLEAN+30, CLEAN+31, CLEAN+32, CLEAN+33, CLEAN+34
>> ND	SET+2*, SET+3, SET+5
>> ND2	SET+2*
OCNT	ENQN+1~, ENQN+2, ENQN+6, SENDMSG+5
>> OERR	SET+2*, SET+3, SET+4, SET+5, SET+6
>> ORND	SET+3*
>> ORND3	SET+3*
ORSTART	CLEAN+1~, CLEAN+7, SET+3, SET+6, CHECK2+2
ORSTATUS	CLEAN+1~, CLEAN+7, SET+3, A, D, DE, DR, E, H, I , N, O, P, R, RE
ORSTOP	CLEAN+1~, CLEAN+7, CLEAN+8, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+12, CLEAN+13, CLEAN+14, CLEAN+15 , SET+3, SET+6, CHECK2+3
PSG	DONE+1!, SENDMSG+1!, CLEAN+23!
PSG(	CLEAN+30, CLEAN+31, CLEAN+32, CLEAN+33, CLEAN+34*
PSG(1	SENDMSG+2, CLEAN+24
PSG(2	SENDMSG+2, CLEAN+24
PSG(3	SENDMSG+4, CLEAN+25
PSG(4	SENDMSG+4, CLEAN+26
PSG(5	SENDMSG+4, CLEAN+27
PSG(6	SENDMSG+5, CLEAN+27
PSG(7	CLEAN+28*
>> PSGDT	CHECK+1*, CHECK+3
PSJBEG	ENQN+1~, ENQN+4*, ENQN+5
PSJDRG	ENQN+6, ENQN+7, CLEAN+1~, CLEAN+2, CLEAN+4
>> PSJHLMTN	CLEAN+20*
PSJLORD	ENQN+1~, ENQN+2, ENQN+6, ENQN+7
PSJOI	CLEAN+1~, CLEAN+4*, CHECK+3
PSJORD	ENQN+1~, ENQN+5, ENQN+6, ENQN+7, CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+4, CLEAN+5, CLEAN+6 , CLEAN+7, CLEAN+16, CLEAN+17, CLEAN+20, CLEAN+29*, CLEAN+30, SET+1, SET+4, SET+5, SET+6
PSJPDFN	ENQN+1~, ENQN+4, ENQN+5, ENQN+6, ENQN+7, CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+4, CLEAN+5 , CLEAN+6, CLEAN+7, CLEAN+16, CLEAN+17, CLEAN+20, CLEAN+21, CLEAN+29, CLEAN+30, SET+1, SET+4 , SET+5, SET+6
PSJSTART	ENQN+2*, DONE+1!, SENDMSG+3
>> PSPTR	SET+3*, SET+4, SET+5
PSSTART	CLEAN+1~, CLEAN+6, SET+2, SET+6, CHECK2+2
PSSTATUS	CLEAN+1~, CLEAN+6, CLEAN+16, CLEAN+17, CLEAN+18, SET+2, SET+6, CHECK2+4
PSSTOP	CLEAN+1~, CLEAN+6, CLEAN+8, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+12, CLEAN+13, CLEAN+14, CLEAN+15 , CLEAN+16, CLEAN+17, SET+2, SET+6, CHECK2+3
Q	CHECK+2~, CHECK+3, CHECK+4
QPT	CHECK+2~, CHECK+3, CHECK+4
>> STPDT	CLEAN+8, CLEAN+9
U	CLEAN+4, CLEAN+5, CHECK+3, SET+4, SET+5, SET+6
X	DONE+1!, SENDMSG+3, CHECK+2~, CHECK+3*
XMDUZ	DONE+1!, SENDMSG+1, CLEAN+23
XMSUB	DONE+1!, SENDMSG+1, CLEAN+23
XMTEXT	DONE+1!, SENDMSG+1, CLEAN+23
XMY	DONE+1!, SENDMSG+1!, CLEAN+23!
XMY(	SENDMSG+1, CLEAN+23
Y	DONE+1!, SENDMSG+1, SENDMSG+2, CLEAN+23, CLEAN+24
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: PSJ0078

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: