Routine: SCRPW58

Package	Total	Call Graph
Scheduling	4	DISP0^SCRPW23 STOP^SCRPW40 ($$XY,PROV,RQUE)^SCRPW50 $$GETOE^SDOE
Kernel	2	$$S^%ZTLOAD $$CODE2TXT^XUA4A72
VA Fileman	2	NOW^%DTC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;Print header
HD1	;Print subheader
DLIST	;Create alphabetic list of divisions found
PLINE	;Print output line
STOP	;Check for stop task request
DPRT(SDV)	;Print division
SET(SDIV)	;Set division lists
VALID()	;Check encounter record
START	;Print report
EXIT
DIV()	;Check division

External References

Name	Field # of Occurrence
NOW^%DTC	START+5
$$S^%ZTLOAD	STOP+1
^DIR	EXIT, HDR+1
DISP0^SCRPW23	START+5
STOP^SCRPW40	SET+2
$$XY^SCRPW50	HDR+2
PROV^SCRPW50	SET+4
RQUE^SCRPW50	SCRPW58+4
$$GETOE^SDOE	START+2
$$CODE2TXT^XUA4A72	PLINE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?(IOM-$L(SDX)\2),SDX Line Location: START+6
Function Call: WRITE	Prompt: !,$J(SDII,3,0),?6,$J(SDCD,7,0),?15,$E(SDSPE,1,51),?68,$E(SDSUB,1,52),?122,$J(SDI,10,0) Line Location: PLINE+4
Function Call: WRITE	Prompt: !?(IOM-$L(SDTIT(SDI))\2),SDTIT(SDI) Line Location: HDR+3
Function Call: WRITE	Prompt: !,SDLINE,!,"For Fiscal Year activity through ",SD("PEDT"),!,"Date printed: ",SDPNOW,?(IOM-6-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Rank",?6,"VA Code",?15,"Specialty",?68,"Subspecialty",?123,"Frequency",!,"---- ------- ",$E(SDLINE,1,51),?68,$E(SDLINE,1,52),?122,"----------" Line Location: HD1+1
Routine Call	DIR Line Location: EXIT HDR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+5
^DG(40.8 - [#40.8]	DLIST+1
^SC - [#44]	VALID+1
^SCE("B"	START+2
^TMP("SCRPW"	START+1!, START+4, START+6, EXIT+1!, DPRT+6, SET+6

Label References

Name	Line Occurrences
$$DIV	VALID+2
$$VALID	START+2
DLIST	START+4
DPRT	START+7, START+8
EXIT	START+3, START+5, START+6, START+7, START+8
HD1	DPRT+6, PLINE+1
HDR	START+6, DPRT+6, PLINE+1
PLINE	DPRT+6
SET	START+2
STOP	START+4, HDR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+5, EXIT+1!
%H	EXIT+1!
%I	EXIT+1!
DIR	EXIT~, EXIT+1!, HDR+1~
DIR(0	EXIT, HDR+1
IOF	HDR+2
IOM	START+5, START+6, HDR+3, HDR+4
IOSL	PLINE+1
IOST	START+5, EXIT, HDR+1, HDR+2
SD	EXIT+1!
SD("EDT"	START+2
SD("FYD"	START+1
SD("PEDT"	HDR+4
SDARY	EXIT+1!, SET+3~, SET+4
SDARY(	SET+5
SDCD	EXIT+1!, PLINE+3*, PLINE+4
SDDIV	EXIT+1!, DPRT+2, DPRT+3, DIV+1
SDDIV(	DIV+1
SDI	START+4, EXIT+1!, DPRT+4, DPRT+6, PLINE+4, HDR+3~, SET+3~, SET+5*
SDII	EXIT+1!, DPRT+6, PLINE+3, PLINE+4
SDIV	START+2, START+3, START+4*, EXIT+1!, DLIST+1, VALID+2, DIV+1, SET~, SET+6
SDIV(	START+7, DPRT+4, DLIST+1*
SDIVN	START+7, EXIT+1!, DPRT+2, DPRT+4
SDLINE	START+5*, EXIT+1!, HDR+3, HDR+4, HD1+1
SDMD	START+2, EXIT+1!
SDOE	START+2*, EXIT+1!, SET+4
SDOE0	START+2*, EXIT+1!, VALID+1, VALID+2
SDOUT	START+1, START+2, START+3, START+4, START+5, START+6, START+7, START+8, EXIT, EXIT+1! , DPRT+6, PLINE+1, HDR+1, HDR+2, HD1+1, STOP+1*, SET+2
SDPAGE	START+6, EXIT+1!, DPRT+6, HDR+4*
SDPC	EXIT+1!, PLINE+2*, PLINE+3
SDPG	START+5, EXIT+1!, HDR+1, HDR+2, HDR+4
SDPNOW	START+5*, EXIT+1!, HDR+4
SDSPE	EXIT+1!, PLINE+3*, PLINE+4
SDSTA	SCRPW58+3*, SCRPW58+4, START+5, EXIT+1!, VALID+2
SDSTOP	START+1, EXIT+1!, SET+2
SDSUB	EXIT+1!, PLINE+3*, PLINE+4
SDT	START+1, START+2, EXIT+1!
SDTIT	EXIT+1!
SDTIT(	DPRT+4*, HDR+3
SDTIT(1	START+5*
SDTIT(2	DPRT+2, DPRT+3
SDV	EXIT+1!, DPRT~, DPRT+2, DPRT+3, DPRT+6
SDVCT	START+3, START+8, EXIT+1!, DLIST+1
SDX	START+4, START+6, EXIT+1!, DPRT+6, PLINE+2, PLINE+3, DLIST+1, SET+3~, SET+5*, SET+6
U	START+2, DPRT+3, PLINE+3, DLIST+1, VALID+1, VALID+2
X	EXIT+1!
Y	START+5*, EXIT+1!, HDR+1
>> ZTQUEUED	STOP+1
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling

Routine: SCRPW58

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: