Routine: PSJ0103

Package	Total	Call Graph
Kernel	2	^%ZTLOAD $$FMADD^XLFDT
VA Fileman	2	(NOW,YMD)^%DTC $$GET1^DIQ
Inpatient Medications	1	SENDMSG^PSJA0103

Package	Total	Caller Graph
Inpatient Medications	1	PSJU NSS SEARCH

Entry Points

Name	Comments	DBIA/ICR reference
DANGER(A)	;
ENCHK	;
DWC
DONE	;
ENNV	;
MISC(X)	;
DW	;
ENQN	;

External References

Name	Field # of Occurrence
NOW^%DTC	ENQN+2
YMD^%DTC	ENQN+4, ENQN+12
^%ZTLOAD	ENNV+5
$$GET1^DIQ	ENQN+36
SENDMSG^PSJA0103	ENQN+40
$$FMADD^XLFDT	ENQN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Your DUZ is not defined." Line Location: ENNV+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ENNV+2
Function Call: WRITE	Prompt: "Must be number, 1-999 days." Line Location: ENNV+4
Function Call: WRITE	Prompt: !!,"The check of Pharmacy orders is",$S($D(ZTSK):"",1:" NOT")," queued",! Line Location: ENNV+6
Function Call: WRITE	Prompt: " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED." Line Location: ENNV+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(50.606 - [#50.606]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	ENQN+35, ENQN+36
^PS(51.1 - [#51.1]	ENQN+3, ENQN+9, ENQN+19, ENQN+24, ENQN+28, ENQN+33, ENQN+37, MISC+5
^PS(52.6 - [#52.6]	ENQN+22, ENQN+23, ENQN+26, ENQN+27
^PS(53.2 - [#53.2]	ENQN+30, ENQN+31, ENQN+32, ENQN+33, ENQN+34
^PS(55 - [#55]	ENQN+4, ENQN+5, ENQN+6, ENQN+8, ENQN+11, ENQN+12, ENQN+13, ENQN+14, ENQN+16, ENQN+17
^XTMP("PSJSC"	ENQN+2!, ENQN+3, ENQN+7, ENQN+8, ENQN+11, ENQN+15, ENQN+18, ENQN+21, ENQN+24, ENQN+25* , ENQN+28, ENQN+29, ENQN+33, ENQN+34, ENQN+37, ENQN+38, ENQN+39*

Label References

Name	Line Occurrences
$$DANGER	ENQN+3, ENQN+8, ENQN+18, ENQN+25, ENQN+29, ENQN+34, ENQN+38
DW	MISC+7
DWC	DW+4
ENCHK	MISC+6, DW+2
ENNV	ENNV+4
MISC	ENQN+10, ENQN+20, ENQN+24, ENQN+28, ENQN+33, ENQN+37

Naked Globals

Name	Field # of Occurrence
^(	ENQN+16, ENQN+17
^(0	ENQN+6, ENQN+16, ENQN+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENQN+2
>> %H	ENQN+4, ENQN+12
A	ENQN+1~, ENQN+16, ENQN+17, ENQN+23, ENQN+24, ENQN+25, ENQN+27, ENQN+28, ENQN+29, ENQN+32* , ENQN+36, ENQN+37, ENQN+38, DANGER~, DANGER+2, MISC+1~, MISC+3
B	DANGER+1~, DANGER+2*, DANGER+3
BAD	DANGER+1~, DANGER+2, DANGER+3, DANGER+4
C	DANGER+1~, DANGER+3, MISC+1~, MISC+3
CREAT	ENQN+1~, ENQN+2*, ENQN+39
DTIME	ENNV+2
DUZ	ENNV+1
EXPR	ENQN+1~, ENQN+2*, ENQN+39
I	DANGER+3, MISC+1~, MISC+3
>> ITEM	ENQN+16, ENQN+17, ENQN+18, ENQN+21
OCNT	ENQN+1~
OK	ENQN+1~, ENQN+10, ENQN+20, ENQN+24, ENQN+28, ENQN+33, ENQN+37, MISC+2, MISC+4, MISC+5* , MISC+6, MISC+7
PSG	DONE+1!
PSJBEG	ENQN+1~, ENQN+4, ENQN+5, ENQN+12, ENQN+13
>> PSJDAYS	ENNV+5*, ENQN+4, ENQN+12
>> PSJDOF	ENQN+36*, ENQN+37, ENQN+38
PSJND0	ENQN+1~, ENQN+6, ENQN+8, ENQN+11, ENQN+14, ENQN+18, ENQN+21
PSJND2	ENQN+1~, ENQN+6*
PSJORD	ENQN+1~, ENQN+5, ENQN+6, ENQN+8, ENQN+11, ENQN+13, ENQN+14, ENQN+16, ENQN+17, ENQN+18 , ENQN+21
PSJPDFN	ENQN+1~, ENQN+4, ENQN+5, ENQN+6, ENQN+8, ENQN+11, ENQN+12, ENQN+13, ENQN+14, ENQN+16 , ENQN+17, ENQN+18, ENQN+21
PSJSCHD	ENQN+1~, ENQN+2, ENQN+3, ENQN+6, ENQN+7, ENQN+8, ENQN+9, ENQN+10, ENQN+11, ENQN+14 , ENQN+15, ENQN+18, ENQN+19, ENQN+20, ENQN+21, ENQN+23, ENQN+24, ENQN+25, ENQN+27, ENQN+28 , ENQN+29, ENQN+32, ENQN+33, ENQN+34, ENQN+36, ENQN+37, ENQN+38
>> Q	DW+4*
>> QX	DW+3, DWC+1
S1	ENQN+1~, ENQN+22, ENQN+23, ENQN+26, ENQN+27, ENQN+30, ENQN+31, ENQN+32, ENQN+33, ENQN+34 , ENQN+35*, ENQN+36
S2	ENQN+1~, ENQN+26, ENQN+27, ENQN+31, ENQN+32
>> SDW	DW+1*, DW+3, DW+5
>> SWD	DW+1, DW+4, DWC+1
X	ENNV+2, ENNV+3, ENNV+4, ENNV+5, ENQN+1~, ENQN+4, ENQN+12, DONE+1!, MISC~, MISC+2 , MISC+3, MISC+4, MISC+5, MISC+6, MISC+7, ENCHK+1!, ENCHK+2!, ENCHK+3!, ENCHK+4!, ENCHK+5 , DW+1, DW+2, DW+3, DW+4!, DW+5, DWC!, DWC+2!
X(1	ENCHK+2, ENCHK+3, ENCHK+4, ENCHK+5!, DW+3*, DW+4, DW+5!
X(2	ENCHK+4*, ENCHK+5!
X(3	ENCHK+4*, ENCHK+5!
XMDUZ	DONE+1!
XMSUB	DONE+1!
XMTEXT	DONE+1!
XMY	DONE+1!
Y	DONE+1!, DWC+1*
>> Z	DW+4*, DWC, DWC+1
ZTDESC	ENNV+5*, DONE+1!
ZTDTH	DONE+1!
ZTIO	ENNV+5*, DONE+1!
ZTREQ	DONE+1!*
ZTRTN	ENNV+5*, DONE+1!
ZTSAVE	ENNV+5!, DONE+1!
ZTSAVE("PSJDAYS"	ENNV+5*
ZTSK	ENNV+5!, ENNV+6, ENNV+7, DONE+1!

Customize PDF page

Package: Inpatient Medications

Routine: PSJ0103

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: