Routine: PSO283P1

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL
VA Fileman	3	C^%DTC ($$GET1,GETS)^DIQ ^DIR
MailMan	1	^XMD
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO283PI

Entry Points

Name	Comments	DBIA/ICR reference
LOG(COMMENT)	; Running Log
CALCEXP	; CALCULATE THE EXPIRATION DATE
TOT(FLD)	; returns the field to be displayed
JOBSTS()	; Returns the current job status
JOB(ZTDTH)	; Queue the job to run
MAIL	;
SETLN(TEXT)	; Add a new line to the mailman message text
DISPLAY	; Displays the current results
SETTXT	; Set the PSOTXT array with the Mailman message or screen display

External References

Name	Field # of Occurrence
C^%DTC	CALCEXP+9
^%ZTLOAD	JOB+6
$$GET1^DIQ	SETTXT+60
GETS^DIQ	CALCEXP+2
^DIR	DISPLAY+6
$$SITE^VASITE	DISPLAY+2
$$FMTE^XLFDT	SETTXT+7, SETTXT+9, SETTXT+59
$$NOW^XLFDT	LOG+3
^XMD	MAIL+14
BMES^XPDUTL	JOB+10
MES^XPDUTL	JOB+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,PSOTX(J) Line Location: DISPLAY+5
Routine Call	DIR Line Location: DISPLAY+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^PSDRUG - [#50]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	SETTXT+7, SETTXT+9, SETTXT+10, SETTXT+45, SETTXT+49, SETTXT+50, SETTXT+56, SETTXT+57, SETTXT+58, TOT+1 , JOB+4, JOBSTS+1, JOBSTS+2, JOBSTS+3, JOBSTS+4, LOG+2, LOG+3*

Label References

Name	Line Occurrences
$$JOBSTS	SETTXT+5
$$TOT	SETTXT+17, SETTXT+18, SETTXT+19, SETTXT+20, SETTXT+24, SETTXT+25, SETTXT+26, SETTXT+30, SETTXT+31, SETTXT+32 , SETTXT+36, SETTXT+40, SETTXT+42
LOG	JOB+8
SETLN	SETTXT+3, SETTXT+4, SETTXT+11, SETTXT+12, SETTXT+13, SETTXT+14, SETTXT+15, SETTXT+16, SETTXT+17, SETTXT+18 , SETTXT+19, SETTXT+20, SETTXT+21, SETTXT+22, SETTXT+23, SETTXT+24, SETTXT+25, SETTXT+26, SETTXT+27, SETTXT+28 , SETTXT+29, SETTXT+30, SETTXT+31, SETTXT+32, SETTXT+33, SETTXT+34, SETTXT+35, SETTXT+36, SETTXT+37, SETTXT+38 , SETTXT+39, SETTXT+40, SETTXT+41, SETTXT+42, SETTXT+43, SETTXT+44, SETTXT+46, SETTXT+47, SETTXT+48, SETTXT+50 , SETTXT+51, SETTXT+52, SETTXT+53, SETTXT+54, SETTXT+55, SETTXT+56, SETTXT+61, SETTXT+62
SETTXT	MAIL+12, DISPLAY+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	CALCEXP+1~
COMMENT	LOG~, LOG+3
DA	CALCEXP+1~
>> DAYSSUP	CALCEXP+4, CALCEXP+8
DIFROM	MAIL+1~
DIR	DISPLAY+1~, DISPLAY+6!
DIR("A"	DISPLAY+6*
DIR(0	DISPLAY+6*
>> DRUG	CALCEXP+2, CALCEXP+3
DUZ	MAIL+2, JOB+5, LOG+3
EXCEL	SETTXT+1~, SETTXT+45, SETTXT+46, SETTXT+49, SETTXT+50
>> EXPIRDT	CALCEXP+9*
FLD	TOT~, TOT+1
>> ISSUEDT	CALCEXP+4
J	DISPLAY+1~, DISPLAY+4, DISPLAY+5, DISPLAY+6, SETTXT+1~, SETTXT+45, SETTXT+49, SETTXT+57, SETTXT+58, SETTXT+59
JOBSTS	SETTXT+1~, SETTXT+5*, SETTXT+6, SETTXT+7, SETTXT+8, SETTXT+9
LINE	SETTXT+1~, SETTXT+2, SETLN+1
LOGCNT	LOG+1~, LOG+2*, LOG+3
LOGLN	SETTXT+1~, SETTXT+59, SETTXT+60, SETTXT+61
NMSP	SETTXT+1~, SETTXT+2*, SETTXT+7, SETTXT+9, SETTXT+10, SETTXT+45, SETTXT+49, SETTXT+50, SETTXT+56, SETTXT+57 , SETTXT+58, TOT+1, JOB+4, JOBSTS+1, JOBSTS+2, JOBSTS+3, JOBSTS+4, LOG+2, LOG+3
>> NUMREFS	CALCEXP+4
PSDEA	CALCEXP+1~, CALCEXP+3*, CALCEXP+6
PSOARR	CALCEXP+1~, CALCEXP+2!
PSOARR(50	CALCEXP+3
PSOCS	CALCEXP+1~, CALCEXP+5, CALCEXP+6, CALCEXP+7, CALCEXP+8
PSODUZ	MAIL+2, JOB+1~, JOB+5*, LOG+3
PSOINST	DISPLAY+1~, DISPLAY+2*, SETTXT+13, SETTXT+45, SETTXT+49
PSOTX	MAIL+1~, DISPLAY+1~
PSOTX(	DISPLAY+4, DISPLAY+5, SETLN+1*
QQ	CALCEXP+1~, CALCEXP+6*
STS	SETTXT+1~, SETTXT+6, SETTXT+7, SETTXT+8, SETTXT+9, SETTXT+10*, SETTXT+11
TEXT	SETLN~, SETLN+1
X	CALCEXP+1~, CALCEXP+9
X1	CALCEXP+1~, CALCEXP+4*
X2	CALCEXP+1~, CALCEXP+4, CALCEXP+8
XMDUZ	MAIL+1~, MAIL+3*
XMSUB	MAIL+1~, MAIL+4*
XMTEXT	MAIL+1~, MAIL+14*
XMY	MAIL+1~
XMY(	MAIL+2*
XMY("ANWER.MOHAMED@FORUM.VA.GOV"	MAIL+6*
XMY("BARRON.LUANNE@FORUM.VA.GOV"	MAIL+10*
XMY("JONES.TRES@FORUM.VA.GOV"	MAIL+11*
XMY("ROCHA.MARCELO@FORUM.VA.GOV"	MAIL+9*
XMY("RUZBACKI.RON@FORUM.VA.GOV"	MAIL+5*
XMY("WILLETTE.CANDY@FORUM.VA.GOV"	MAIL+8*
XMY("WILLIAMSON.ERIC@FORUM.VA.GOV"	MAIL+7*
XPDQUES	JOB+12!
Z	SETTXT+1~, SETTXT+58*, SETTXT+59, SETTXT+60
ZTDESC	JOB+1~, JOB+3*
ZTDTH	JOB~
ZTIO	JOB+1~, JOB+2*
ZTRTN	JOB+1~, JOB+2*
ZTSAVE	JOB+1~
ZTSAVE("PSODUZ"	JOB+5*
ZTSK	JOB+1~, JOB+7, JOB+9

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSO283P1

Information

Source Information

Call Graph

Call Graph Total: 8

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

Local Variables

Legend: