Routine: SCRPW51

Information

SCRPW51 ;RENO/KEITH - Encounters by DSS Identifier/DSS ID by Frequency (OP0, OP1, OP2) ; 15 Jul 98 02:38PM

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Scheduling	6	DISP0^SCRPW23 (SCPC,SCSC)^SCRPW25 (DHDR,STOP)^SCRPW40 ($$XY,RQUE)^SCRPW50 (,EXIT)^SCRPW52 $$GETOE^SDOE
VA FileMan	2	NOW^%DTC ^DIR
Kernel	1	$$S^%ZTLOAD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Scheduling	3	SCRPW DVM DSS ID REPORTS SCRPW DVM IP DSS ID REPORTS SCRPW52

Entry Points

Name	Comments	DBIA/ICR reference
START	;Print report
EXIT
SUB0
SUBT
DPRT(SDIV)	;Print division
PLINE	;Print output line
MO()	;Determine FY month
HDR	;Print header
HD1	;Print subheader
DLIST	;Create alphabetic list of divisions found
VALID()	;Check encounter record
DIV()	;Check division
STOP	;Check for stop task request
SET(SDIV)	;Set division lists
SET1(SDC,SDPS)	;Set TMP global

External References

Name	Field # of Occurrence
NOW^%DTC	START+5
$$S^%ZTLOAD	STOP+1
^DIR	HDR+1
DISP0^SCRPW23	START+5
SCPC^SCRPW25	SET+4
SCSC^SCRPW25	SET+5
DHDR^SCRPW40	START+7, DPRT+2
STOP^SCRPW40	SET+2
$$XY^SCRPW50	HDR+2
RQUE^SCRPW50	SCRPW51+5
^SCRPW52	DPRT+8
EXIT^SCRPW52	EXIT
$$GETOE^SDOE	START+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?(IOM-$L(SDX)\2),SDX Line Location: START+7
Function Call: WRITE	Prompt: ! Line Location: DPRT+5
Function Call: WRITE	Prompt: "=" Line Location: DPRT+5
Function Call: WRITE	Prompt: !,"TOTAL:" Line Location: DPRT+6
Function Call: WRITE	Prompt: ?(9+(9*SDYMO)),$J(SDRTOT(SDYMO),7,0) Line Location: DPRT+6
Function Call: WRITE	Prompt: ?117,$J(SDGTOT,15,0) Line Location: DPRT+7
Function Call: WRITE	Prompt: !?2,SDSC Line Location: PLINE+4
Function Call: WRITE	Prompt: ?(9+(9*SDYMO)),$J(SDCT,7,0) Line Location: PLINE+5
Function Call: WRITE	Prompt: ?117,$J(SDTCT,15,0) Line Location: PLINE+6
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: !,"DSS ID",?9 Line Location: HD1+1
Function Call: WRITE	Prompt: ?122,"FYTD TOTAL",!,"-------" Line Location: HD1+3
Function Call: WRITE	Prompt: ?(9+(9*SDM1)),"-------" Line Location: HD1+3
Function Call: WRITE	Prompt: ?117,"---------------" Line Location: HD1+4
Routine Call	DIR Line Location: HDR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+5
^DG(40.8 - [#40.8]	DLIST+1
^DIC(40.7 - [#40.7]	SET+7, SET+8
^DPT - [#2]	SET+6
^SC - [#44]	VALID+1
^SCE("B"	START+2
^TMP("SCRPW"	START+1!, START+4, START+7, SUB0+1, SUB0+2, SUBT, SUBT+1, DPRT+4, PLINE+1, PLINE+2 , SET1+3, SET1+4, SET1+5, SET1+6, SET1+7, SET1+8

Label References

Name	Line Occurrences
$$DIV	VALID+2
$$MO	PLINE+2
$$VALID	START+2
DLIST	START+4
DPRT	START+8, START+9
EXIT	START+3, START+5, START+7, START+8, START+9
HD1	DPRT+4, PLINE+3
HDR	START+7, DPRT+4, PLINE+3
PLINE	DPRT+4
SET	START+2
SET1	SET+7, SET+8
STOP	START+4, HDR+2
SUB0	START+4
SUBT	START+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	START+5
>> DFN	SUB0+1, SUBT
DIR	HDR+1~
DIR(0	HDR+1*
IOF	HDR+2
IOM	START+5, START+7, HDR+3, HDR+4
IOSL	PLINE+3
IOST	START+5, HDR+1, HDR+2
>> SD("EDT"	START+2
>> SD("FYD"	START+1, START+6
>> SD("PEDT"	HDR+4
SDC	SET1~, SET1+3, SET1+4, SET1+5, SET1+8
>> SDCT	SUB0+1, SUB0+2, PLINE+5
>> SDDIV	DIV+1
>> SDDIV(	DIV+1
>> SDFY	START+6*, HD1+2
>> SDGTOT	DPRT+4, DPRT+7, PLINE+5
>> SDHD1	SCRPW51+3, SCRPW51+4, SCRPW51+5
SDI	DPRT+3, DPRT+5, HDR+3~, SET+3~, SET+4, SET+5*
SDIV	START+2, START+3, START+4, START+7, START+8, START+9, SUB0+1, SUB0+2, SUBT, SUBT+1 , DPRT~, DPRT+4, PLINE+1, PLINE+2, DLIST+1, VALID+2, DIV+1, SET~, SET1+3, SET1+4 , SET1+5, SET1+6, SET1+7, SET1+8
SDIV(	START+8, DLIST+1*
>> SDIVN	START+8*
>> SDLINE	START+5*, HDR+3, HDR+4
>> SDM1	HD1+1, HD1+2, HD1+3*
>> SDMD	START+2
>> SDMF	START+4, SUB0, SUB0+1, SUB0+2, SUBT, SUBT+1, SET+6*, SET1+4, SET1+5, SET1+6 , SET1+7
>> SDMO	HD1+1*, HD1+2
>> SDOE	START+2*
>> SDOE0	START+2*, VALID+1, VALID+2, SET+6, SET1+5, SET1+6, SET1+8
>> SDOUT	START+1, START+2, START+3, START+4, START+5, START+7, START+8, START+9, DPRT+4, DPRT+5 , PLINE+3, HDR+1, HDR+2, HD1+1, STOP+1*, SET+2
>> SDPAGE	START+7, DPRT+4, HDR+4*
>> SDPG	START+5, HDR+1, HDR+2, HDR+4
>> SDPNOW	START+5*, HDR+4
SDPS	SET1~, SET1+3, SET1+6, SET1+8
SDPSC	SET+3~, SET+4*, SET+7
>> SDRTOT(	DPRT+3, DPRT+6, PLINE+5
>> SDSC	START+4, SUBT, SUBT+1, DPRT+4, PLINE+1, PLINE+2, PLINE+4
>> SDSCN	SET+7, SET+8
SDSSC	SET+3~, SET+5*, SET+8
>> SDSTA	SCRPW51+2*, SCRPW51+4, START+5, DPRT+2, VALID+2
>> SDSTOP	START+1, SET+2
>> SDT	START+1, START+2
>> SDTCT	PLINE+4, PLINE+5, PLINE+6
>> SDTIT	START+7, DPRT+2
>> SDTIT(	HDR+3
>> SDTIT(1	START+5, DPRT+2
>> SDUNI	SUBT*, SUBT+1
>> SDVCT	START+3, START+9, DLIST+1
SDX	START+7, DLIST+1, SET+3~, SET+4, SET+5!
SDX(	SET+4, SET+5
SDX(""	SET+4, SET+5
SDYMO	DPRT+6, PLINE+1~, PLINE+2, PLINE+4*, PLINE+5, MO+1
SDYMO(	PLINE+2*, PLINE+5
U	START+2, DLIST+1, VALID+1, VALID+2, SET+4, SET+5, SET+6, SET+7, SET+8, SET1+5 , SET1+6
X	MO+1~*
>> Y	START+5*, HDR+1
>> ZTQUEUED	STOP+1
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling