Routine: SCRPW57

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

Package

Total

Call Graph

Scheduling

DISP0^SCRPW23 STOP^SCRPW40 ($$XY,PROV,RQUE)^SCRPW50 ($$GETOE,GETDX)^SDOE

Kernel

$$S^%ZTLOAD $$CODE2TXT^XUA4A72

VA Fileman

NOW^%DTC ^DIR

DRG Grouper

$$ICDDX^ICDCODE

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+13
$$S^%ZTLOAD	STOP+1
^DIR	EXIT, HDR+1
$$ICDDX^ICDCODE	PLINE+3
DISP0^SCRPW23	START+13
STOP^SCRPW40	SET+2
$$XY^SCRPW50	HDR+2
PROV^SCRPW50	SET+4
RQUE^SCRPW50	SCRPW57+3
$$GETOE^SDOE	START+2
GETDX^SDOE	SET+4
$$CODE2TXT^XUA4A72	PLINE+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?(IOM-$L(SDX)\2),SDX Line Location: START+14
Function Call: WRITE	Prompt: !,$J(SDII,3),?6,$E(SDDIAG,1,38) Line Location: PLINE+4
Function Call: WRITE	Prompt: ! Line Location: PLINE+4
Function Call: WRITE	Prompt: ?46,$E(SDPTN,1,38) Line Location: PLINE+9
Function Call: WRITE	Prompt: ?(86+(12*(SDIII-1))),$J($P(SDPTV,U,SDIII),10,0) Line Location: PLINE+10
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: !?87,"Prim. Dx.",?103,"Total",?111,"Prim. Dx.",?127,"Total",!,"Rank IDC-9-DM Diagnosis code",?48,"Provider Type",?89,"Uniques",?101,"Uniques",?110,"Encounters",?122,"Encounters" Line Location: HD1+1
Function Call: WRITE	Prompt: !,"----",?6,$E(SDLINE,1,38),?46,$E(SDLINE,1,38) Line Location: HD1+2
Function Call: WRITE	Prompt: ?(86+(12*SDI)),$E(SDLINE,1,10) Line Location: HD1+2
Routine Call	DIR Line Location: EXIT HDR+1

Global Variables Directly Accessed

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

Name	Line Occurrences
$$DIV	VALID+2
$$VALID	START+2
DLIST	START+4
DPRT	START+15, START+16
EXIT	START+3, START+13, START+14, START+15, START+16
HD1	PLINE+1, PLINE+6
HDR	START+14, DPRT+6, PLINE+1, PLINE+6
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+13, EXIT+1!
%H	EXIT+1!
%I	EXIT+1!
DFN	START+5, START+6, START+8, EXIT+1!, SET+3, SET+10
DIR	EXIT~, EXIT+1!, HDR+1~
DIR(0	EXIT, HDR+1
IOF	HDR+2
IOM	START+13, START+14, HDR+3, HDR+4
IOSL	PLINE+1, PLINE+6
IOST	START+13, EXIT, HDR+1, HDR+2
SD	EXIT+1!
SD("EDT"	START+2
SD("FYD"	START+1
SD("PEDT"	HDR+4
SDDIAG	EXIT+1!, PLINE+3*, PLINE+4, SET+3~
SDDIAG(	SET+5
SDDIV	EXIT+1!, DPRT+2, DPRT+3, DIV+1
SDDIV(	DIV+1
SDDX	START+6, START+7, START+8, START+11, EXIT+1!, DPRT+6, PLINE+3, PLINE+5, PLINE+7, SET+5 , SET+6, SET+8, SET+9, SET+10
SDDXP	EXIT+1!, SET+5*, SET+9, SET+10
SDFL	EXIT+1!, PLINE+5, PLINE+6, PLINE+9*
SDI	START+11, EXIT+1!, DPRT+4, DPRT+6, HDR+3~, HD1+2~, SET+3~, SET+5
SDII	EXIT+1!, DPRT+6, PLINE+3, PLINE+4, SET+3~, SET+7*
SDIII	EXIT+1!, PLINE+10*, SET+3~
SDIV	START+2, START+3, START+4*, START+5, START+6, START+7, START+8, START+11, EXIT+1!, DLIST+1 , VALID+2, DIV+1, SET~, SET+6, SET+8, SET+9, SET+10
SDIV(	START+15, DPRT+4, DLIST+1*
SDIVN	START+15, EXIT+1!, DPRT+2, DPRT+4
SDLINE	START+13*, EXIT+1!, HDR+3, HDR+4, HD1+2
SDMD	START+2, EXIT+1!
SDOE	START+2*, EXIT+1!, SET+4
SDOE0	START+2*, EXIT+1!, VALID+1, VALID+2, SET+3
SDOUT	START+1, START+2, START+3, START+4, START+13, START+14, START+15, START+16, EXIT, EXIT+1! , DPRT+6, PLINE+1, PLINE+5, PLINE+6, HDR+1, HDR+2, HD1+1, STOP+1*, SET+2
SDPAGE	START+14, EXIT+1!, DPRT+6, HDR+4*
SDPG	START+13, EXIT+1!, HDR+1, HDR+2, HDR+4
SDPNOW	START+13*, EXIT+1!, HDR+4
SDPRTY	EXIT+1!, SET+3~, SET+4
SDPRTY(	SET+7
SDPT	START+6, START+7, START+8, EXIT+1!, PLINE+5, PLINE+7, PLINE+8
SDPTN	EXIT+1!, PLINE+8*, PLINE+9
SDPTV	EXIT+1!, PLINE+7*, PLINE+10
SDSTA	SCRPW57+2*, SCRPW57+3, START+13, EXIT+1!, VALID+2
SDSTOP	START+1, EXIT+1!, SET+2
SDT	START+1, START+2, EXIT+1!
SDTIT	EXIT+1!
SDTIT(	DPRT+4*, HDR+3
SDTIT(1	START+13*
SDTIT(2	DPRT+2, DPRT+3
SDV	EXIT+1!, DPRT~, DPRT+2, DPRT+3, DPRT+6, PLINE+5, PLINE+7
SDVCT	START+3, START+16, EXIT+1!, DLIST+1
SDX	START+14, EXIT+1!, DLIST+1, SET+3~, SET+7*, SET+8, SET+9, SET+10
U	START+2, START+7, START+8, DPRT+3, PLINE+3, PLINE+8, PLINE+10, DLIST+1, VALID+1, VALID+2 , SET+3, SET+5, SET+8, SET+9
X	EXIT+1!
Y	START+13*, EXIT+1!, HDR+1
>> ZTQUEUED	STOP+1
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling

Routine: SCRPW57

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: