Routine: SCRPW62

Package	Total	Call Graph
Scheduling	4	$$DIVA^SCRPW17 DISP0^SCRPW23 ($$XY,END,SUBT,TITL)^SCRPW50 STOP^SCRPW63
Kernel	2	($$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
VA Fileman	2	WAIT^DICD ^DIR

Package	Total	Caller Graph
Scheduling	1	SCRPW63

Entry Points

Name	Comments	DBIA/ICR reference
RPT
SCEL(SDE,SDSCVT)	;Gather SC eligibility codes
FMT
APPT	;Appointment delay parameters
EXIT
START	;Gather report data
HDRD	;Header for delimited report
ENT	;Date entered parameters
DELIM(ARR)	;enter delimiter in the end of wrapped line
QUE	;Queue output
HDR	;Print report header

External References

Name	Field # of Occurrence
WAIT^DICD	START+2
^DIR	RPT+4, RPT+10, FMT+4, FMT+13, ENT+8, APPT+9, HDR+3
$$DIVA^SCRPW17	APPT+1
DISP0^SCRPW23	QUE+7
$$XY^SCRPW50	HDR+5, HDR+6
END^SCRPW50	EXIT+1
SUBT^SCRPW50	RPT, RPT+6, FMT, FMT+7, ENT+4, APPT+5
TITL^SCRPW50	SCRPW62+8
STOP^SCRPW63	HDR+4
$$FMTE^XLFDT	START+5
$$NOW^XLFDT	START+5
EN^XUTMDEVQ	QUE+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Note: Once the scheduling replacement application has been implemented at your" Line Location: SCRPW62+9
Function Call: WRITE	Prompt: !,"site, this report will no longer be accurate." Line Location: SCRPW62+10
Function Call: WRITE	Prompt: ! Line Location: RPT+4
Function Call: WRITE	Prompt: ! Line Location: RPT+10
Function Call: WRITE	Prompt: ! Line Location: FMT+4
Function Call: WRITE	Prompt: ! Line Location: FMT+13
Function Call: WRITE	Prompt: !!,"This report requires the following steps to be converted to 'EXCEL':" Line Location: QUE+2
Function Call: WRITE	Prompt: !,"1 - Copy it into WORD and replace '!^p' with null" Line Location: QUE+3
Function Call: WRITE	Prompt: !,"2 - Save this file as *.txt format" Line Location: QUE+4
Function Call: WRITE	Prompt: !,"3 - Open this file in 'EXCEL' with the All Files(.) type of file, listing it with one delimiter: '^'." Line Location: QUE+5
Function Call: WRITE	Prompt: ! Line Location: QUE+7
Function Call: WRITE	Prompt: ! Line Location: ENT+8
Function Call: WRITE	Prompt: ! Line Location: APPT+9
Function Call: WRITE	Prompt: !! Line Location: START+9
Function Call: WRITE	Prompt: $$XY^SCRPW50("",0,0) Condition for execution: $X Line Location: HDR+6
Function Call: WRITE	Prompt: SDLINE Line Location: HDR+6
Function Call: WRITE	Prompt: !?(IOM-$L(SDT(X))\2),SDT(X) Line Location: HDR+7
Function Call: WRITE	Prompt: !,SDLINE,!,"Date printed: ",SDPNOW,?((IOM-6)-$L(SDPAGE)),"Page: " Line Location: HDR+8
Function Call: WRITE	Prompt: SDPAGE,!,SDLINE Line Location: HDR+9
Function Call: WRITE	Prompt: !,SDT(X) Line Location: HDRD+2
Function Call: WRITE	Prompt: !,"Date printed: ",SDPNOW,!,SDLINE Line Location: HDRD+3
Function Call: WRITE	Prompt: !,$E(LN,JJ,JJ+78) Line Location: DELIM+4
Function Call: WRITE	Prompt: DELIM Condition for execution: JJ+79<LL Line Location: DELIM+4
Function Call: WRITE	Prompt: $E(LN,LL) Line Location: DELIM+4
Routine Call	DIR Line Location: RPT+4 RPT+10 FMT+4 FMT+13 ENT+8 APPT+9 HDR+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(8 - [#8]	SCEL+11
^DIC(8.1 - [#8.1]	SCEL+5, SCEL+6
^TMP("SCRPW"	START+3!

Label References

Name	Line Occurrences
@(	START+9
APPT	RPT+5
DELIM	HDRD+6
ENT	RPT+5
EXIT	RPT+4, RPT+5, RPT+10, FMT+4, FMT+13, START+10
HDRD	HDR+2
QUE	FMT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	HDRD+4~, HDRD+6, DELIM~
ARR(	DELIM+4
ARR(1	HDRD+4, HDRD+5
DELIM	DELIM+2~, DELIM+3*, DELIM+4
DIR	SCRPW62+5~, RPT+5!, RPT+11!, FMT+5!, HDR+3~
DIR("?"	RPT+2, RPT+3, RPT+9, FMT+3, FMT+10, FMT+11, FMT+12, ENT+7, APPT+8*
DIR("A"	RPT+1, RPT+8, FMT+2, FMT+8, ENT+6, APPT+7
DIR("B"	FMT+9*
DIR(0	RPT+1, RPT+7, FMT+1, FMT+8, ENT+5, APPT+6, HDR+3*
DTOUT	SCRPW62+5~, RPT+4, RPT+10, FMT+4, FMT+13, ENT+8, APPT+9
DUOUT	SCRPW62+5~, RPT+4, RPT+10, FMT+4, FMT+13, ENT+8, APPT+9
II	DELIM+2~, DELIM+4*
IOF	HDR+5
IOM	START+4, HDR+7, HDR+8
IOST	START+2, HDR+3, HDR+5
JJ	DELIM+2~, DELIM+4*
LL	DELIM+2~, DELIM+4*
LN	DELIM+2~, DELIM+4*
SDATES	SCRPW62+5~, ENT+1, ENT+9, APPT+2, APPT+10, START+8, EXIT!
SDDIV	SCRPW62+5~, APPT+1, EXIT!
SDE	SCEL~
SDE(	SCEL+12*
SDE81	SCEL+4~
SDELIM	SCRPW62+6~, FMT+6, FMT+14, EXIT!, HDR+2
SDFMT	SCRPW62+5~, FMT+5*, FMT+6, EXIT!
SDI	SCEL+4~, SCEL+5*, SCEL+6, SCEL+11
SDII	SCEL+4~, SCEL+11*, SCEL+12
SDLINE	START+1~, START+3, START+4, HDR+6, HDR+8, HDR+9, HDRD+2, HDRD+3
SDOUT	SCRPW62+5~, SCRPW62+7, RPT+4, RPT+5, RPT+10, FMT+4, FMT+13, ENT+8, APPT+1, APPT+9 , START+1~, START+3, HDR+3, HDR+4
SDPAGE	START+1~, START+3, HDR+3, HDR+5, HDR+8, HDR+9, HDRD+1, HDRD+7*
SDPNOW	START+1~, START+5*, HDR+8, HDRD+3
SDRPT	SCRPW62+5~, RPT+5*, START+8, START+9, EXIT!, HDRD+5
SDSCVT	SCRPW62+5~, RPT+11*, START+6, SCEL~, SCEL+8, SCEL+9, SCEL+10
SDSTOP	START+1~, START+3*
SDT	START+1~
SDT(	HDR+7, HDRD+2
SDT(1	START+7*
SDT(2	START+8*
SDX	SCRPW62+6~, QUE+6, START+1~, START+6, START+8, SCEL+4~, SCEL+6, SCEL+7, SCEL+8, SCEL+9 , SCEL+10, SCEL+12
U	SCEL+7
X	SCRPW62+6~, HDR+1~, HDR+7, HDRD+2
Y	SCRPW62+6~, RPT+5, RPT+11, FMT+5, FMT+14, ENT+9, APPT+10, HDR+3
ZTQUEUED	START+2, EXIT!
ZTSAVE	SCRPW62+6~, QUE+7
ZTSAVE(	QUE+6*
ZTSTOP	EXIT!

Customize PDF page

Package: Scheduling

Routine: SCRPW62

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: