Routine: SCRPW56

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

Package

Total

Call Graph

Scheduling

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

Kernel

$$S^%ZTLOAD $$CODE2TXT^XUA4A72

VA Fileman

NOW^%DTC ^DIR

DRG Grouper

$$CPT^ICPTCOD

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
$$CPT^ICPTCOD	PLINE+4
DISP0^SCRPW23	START+5
STOP^SCRPW40	SET+2
$$XY^SCRPW50	HDR+2
PROV^SCRPW50	SET+4
RQUE^SCRPW50	SCRPW56+5
$$GETOE^SDOE	START+2
GETCPT^SDOE	SET+4
$$CODE2TXT^XUA4A72	PLINE+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?(IOM-$L(SDX)\2),SDX Line Location: START+6
Function Call: WRITE	Prompt: !?7,$J(SDII,3),?13,SDPROC,?50,$J(SDI,10,0) Line Location: PLINE+10
Function Call: WRITE	Prompt: ! Line Location: PLINE+10
Function Call: WRITE	Prompt: ?62,$E(SDPTN,1,50),?114,$J(^TMP("SCRPW",$J,SDV,0,SDCPT,SDPT),10,0) Line Location: PLINE+14
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: !?52,"CPT Code",?114,"Prov. Type",!?7,"Rank",?13,"CPT Code",?51,"Frequency",?62,"Provider Type",?115,"Frequency" Line Location: HD1+1
Function Call: WRITE	Prompt: !?7,"----",?13,$E(SDLINE,1,35),?50,$E(SDLINE,1,10),?62,$E(SDLINE,1,50),?114,$E(SDLINE,1,10) Line Location: HD1+2
Routine Call	DIR Line Location: EXIT HDR+1

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, PLINE+11, PLINE+14, SET+6, SET+8*

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	PLINE+1, PLINE+12
HDR	START+6, DPRT+6, PLINE+1, PLINE+12
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!
CPTCODE	PLINE+3~, PLINE+6*, PLINE+8
CPTINFO	PLINE+3~, PLINE+4*, PLINE+5, PLINE+6, PLINE+7
CPTTEXT	PLINE+3~, PLINE+7*, PLINE+8
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, PLINE+12
IOST	START+5, EXIT, HDR+1, HDR+2
SD	EXIT+1!
SD("EDT"	START+2
SD("FYD"	START+1
SD("PEDT"	HDR+4
SDCPT	START+4, EXIT+1!, DPRT+6, PLINE+4, PLINE+11, PLINE+14, SET+5*, SET+6, SET+8
SDDIV	EXIT+1!, DPRT+2, DPRT+3, DIV+1
SDDIV(	DIV+1
SDFL	EXIT+1!, PLINE+11, PLINE+12, PLINE+14*
SDI	START+4, EXIT+1!, DPRT+4, DPRT+6, PLINE+10, HDR+3~, SET+3~, SET+5*
SDII	EXIT+1!, DPRT+6, PLINE+9, PLINE+10, SET+3~, SET+7*
SDIII	EXIT+1!, SET+3~
SDIV	START+2, START+3, START+4*, EXIT+1!, DLIST+1, VALID+2, DIV+1, SET~, SET+6, SET+8
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+2
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, PLINE+11, PLINE+12, HDR+1, HDR+2, HD1+1, STOP+1*, SET+2
SDPAGE	START+6, EXIT+1!, DPRT+6, HDR+4*
SDPG	START+5, EXIT+1!, HDR+1, HDR+2, HDR+4
SDPNOW	START+5*, EXIT+1!, HDR+4
SDPROC	EXIT+1!, PLINE+8*, PLINE+10, SET+3~
SDPROC(	SET+5
SDPRTY	EXIT+1!, SET+3~, SET+4
SDPRTY(	SET+7
SDPT	EXIT+1!, PLINE+11*, PLINE+13, PLINE+14
SDPTN	EXIT+1!, PLINE+13*, PLINE+14
SDQTY	EXIT+1!, SET+5*, SET+6
>> SDSTA	SCRPW56+4*, SCRPW56+5, START+5, 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+5*
SDTIT(2	DPRT+2, DPRT+3
SDV	EXIT+1!, DPRT~, DPRT+2, DPRT+3, DPRT+6, PLINE+11, PLINE+14
SDVCT	START+3, START+8, EXIT+1!, DLIST+1
SDX	START+6, EXIT+1!, DLIST+1, SET+3~, SET+7*, SET+8
U	START+2, DPRT+3, PLINE+13, DLIST+1, VALID+1, VALID+2, SET+5
X	EXIT+1!
Y	START+5*, EXIT+1!, HDR+1
>> ZTQUEUED	STOP+1
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling

Routine: SCRPW56

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: