Routine: PSJ5P193

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

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	START+3, SENDMSG+3, CLEANMSG+4
YMD^%DTC	START+7
^%ZTLOAD	ENVN+3
EN^DIK	CLEAN+23, CLEAN+29
DEM^VADPT	CLEAN+5
$$FMADD^XLFDT	START+3
$$FMDIFF^XLFDT	SENDMSG+5
^XMD	SENDMSG+8, CLEANMSG+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Your DUZ is not defined. It must be defined to run this routine." Line Location: ENVN+1
Function Call: WRITE	Prompt: !!,"The check of existing Pharmacy orders is",$S($D(ZTSK):"",1:" NOT")," queued",! Line Location: ENVN+4
Function Call: WRITE	Prompt: " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED. IF" Line Location: ENVN+6
Function Call: WRITE	Prompt: !,"ERRORS ARE DETECTED, THE VERIFYING PHARMACIST WILL RECEIVE A MESSAGE INDICATING CLEANUP" Line Location: ENVN+7
Function Call: WRITE	Prompt: !,"HAS COMPLETED." Line Location: ENVN+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SENDMSG+3, CLEAN+32, CLEAN+33, CLEANMSG+4
^PS(50.7 - [#50.7]	CLEAN+10
^PS(52.6 - [#52.6]	CLEAN+11
^PS(55 - [#55]	START+9, START+10, START+11, START+13, START+14, START+17, START+18, START+19, START+20, CLEAN+7 , CLEAN+10, CLEAN+11, CLEAN+21, CLEAN+22!, CLEAN+27, CLEAN+28!, CLEAN+30, CLEAN+31
^XTMP("PSJ5P193"	START+4!, START+15, START+21, START+22*, START+24, CLEAN+4, CLEAN+6, CLEAN+9
^XUSEC("PSJ RPHARM"	CLEANMSG+3

Label References

Name	Line Occurrences
CLEAN	START+24
CLEANMSG	CLEAN+37, CLEAN+38
SENDMSG	START+23

Naked Globals

Name	Field # of Occurrence
^(	CLEAN+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	START+3, SENDMSG+3, SENDMSG+5, CLEANMSG+4
>> %H	START+7*
>> AD	CLEAN+11*
>> AIEN	CLEAN+11*
BEG	CLEAN+1~, CLEAN+3, CLEAN+37, CLEAN+38, CLEANMSG~, CLEANMSG+1, CLEANMSG+5
BLANK	CLEAN+1~, CLEAN+3*, CLEAN+16, CLEAN+34, CLEAN+36
CREAT	START+1~, START+3*, START+22
DA	CLEAN+23!, CLEAN+29!
DA(1	CLEAN+23, CLEAN+29
>> DAYS	SENDMSG+5*, SENDMSG+6
DFN	CLEAN+1~, CLEAN+5*
DIFROM	SENDMSG+2~, CLEANMSG~
DIK	CLEAN+23!, CLEAN+29!
DIK(1	CLEAN+23, CLEAN+29
DUZ	ENVN+1, SENDMSG+3
END	CLEAN+1~, CLEAN+3, CLEAN+37, CLEAN+38, CLEANMSG~, CLEANMSG+1, CLEANMSG+5
EXPR	START+1~, START+3*, START+22
FSTOP	CLEAN+1~, CLEAN+8!, CLEAN+33, CLEAN+35, CLEAN+36
FSTRT	CLEAN+1~, CLEAN+8!, CLEAN+32, CLEAN+35, CLEAN+36
>> HOURS	SENDMSG+5*, SENDMSG+6
LOOP	CLEANMSG~, CLEANMSG+2, CLEANMSG+3
>> MINS	SENDMSG+5*, SENDMSG+6
OI	CLEAN+1~, CLEAN+10*
OINAME	CLEAN+1~, CLEAN+8!, CLEAN+10, CLEAN+11, CLEAN+35*, CLEAN+36
PSG	SENDMSG+1!, CLEAN+2!, CLEAN+37!
PSG(	CLEAN+16, CLEAN+17, CLEAN+34, CLEAN+36
PSG(1	SENDMSG+4, CLEANMSG+5
PSG(2	SENDMSG+4, CLEANMSG+5
PSG(3	SENDMSG+6*
PSG(4	SENDMSG+6*
PSG(5	SENDMSG+6*
PSG(6	SENDMSG+7*
PSJBEG	START+1~, START+8, START+9, START+10, START+11, START+16, START+17, START+18, START+19
PSJSTART	START+1~, START+3*, SENDMSG+5
START	START+1~, START+7*, START+8, START+16
TYP	CLEAN+1~, CLEAN+4*, CLEAN+6, CLEAN+7, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+16, CLEAN+18, CLEAN+24 , CLEAN+30, CLEAN+31, CLEAN+34
VADM	CLEAN+1~, CLEAN+5!
VADM(1	CLEAN+16, CLEAN+34
VADM(2	CLEAN+16, CLEAN+34
X	START+1~, START+7, END!, SENDMSG+5, CLEAN+1~, CLEAN+9
X1	START+1~, END!
X2	START+1~, END!
XCNT	START+1~, START+2, START+15, START+21*, SENDMSG+7, CLEANMSG+5
XCNTTOT	START+1~, START+2, START+12
XMDUZ	END!, SENDMSG+2~, SENDMSG+3, CLEANMSG~, CLEANMSG+1
XMSUB	END!, SENDMSG+2~, SENDMSG+3, CLEANMSG~, CLEANMSG+1
XMTEXT	END!, SENDMSG+2~, SENDMSG+3, CLEANMSG~, CLEANMSG+1
XMY	END!, SENDMSG+2~, CLEANMSG~
XMY(	SENDMSG+3, CLEANMSG+3
XPCNT	CLEAN+1~, CLEAN+3, CLEAN+16, CLEAN+17, CLEAN+34, CLEAN+36, CLEAN+37
XPER	CLEAN+1~, CLEAN+8!
XPSJDFN	START+1~, START+2, START+10, START+11, START+13, START+14, START+15, START+16, START+18, START+19 , START+20, START+21, CLEAN+3, CLEAN+4, CLEAN+5, CLEAN+6, CLEAN+7, CLEAN+9, CLEAN+10, CLEAN+11 , CLEAN+21, CLEAN+22, CLEAN+23, CLEAN+27, CLEAN+28, CLEAN+29, CLEAN+30, CLEAN+31
XPSJLGDT	START+1~, START+14, START+15, START+20, START+21, CLEAN+9*, CLEAN+15, CLEAN+21, CLEAN+27
>> XPSJLGTM	CLEAN+9*
>> XPSJN0	START+20*
>> XPSJND0	CLEAN+31*
>> XPSJND2	START+13, CLEAN+30
XPSJON	START+1~, START+2, START+11, START+13, START+14, START+15, START+16, START+19, START+20, START+21 , CLEAN+3, CLEAN+6, CLEAN+7, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+17, CLEAN+21, CLEAN+22, CLEAN+23 , CLEAN+27, CLEAN+28, CLEAN+29, CLEAN+30, CLEAN+31
XPSJSEND	CLEAN+1~
XPSJSTDT	START+1~, START+2*
XPSJSTP	START+1~, CLEAN+30, CLEAN+31, CLEAN+33
XPSJSTRT	START+1~, START+13, START+15, START+20, START+21, CLEAN+9, CLEAN+15, CLEAN+30, CLEAN+31*, CLEAN+32
Y	START+1~, END!, SENDMSG+3, SENDMSG+4, CLEAN+32, CLEAN+33, CLEANMSG+4, CLEANMSG+5
ZSTK	ENVN+2!
ZTDESC	ENVN+3*, END!
>> ZTDTH	ENVN+3*
ZTIO	ENVN+3*, END!
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
ZTRTN	ENVN+3*, END!
ZTSAVE	ENVN+2!, END!
ZTSAVE("DUZ"	ENVN+3*
ZTSK	ENVN+4, ENVN+5, ENVN+6, END!

Customize PDF page

Package: Inpatient Medications

Routine: PSJ5P193

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: