Routine: SCRPW40

Package	Total	Call Graph
Scheduling	6	$$DIVA^SCRPW17 DISP0^SCRPW23 START^SCRPW401 ($$XY,END,SUBT,TITL)^SCRPW50 ($$ICDDX,$$IMP)^SCRPWICD ($$GETOE,GETCPT,GETDX)^SDOE
VA FileMan	4	^%DT NOW^%DTC ^DIR ^DIWP
Kernel	2	$$S^%ZTLOAD EN^XUTMDEVQ
CPT HCPCS Codes	1	$$CPT^ICPTCOD
Registration	1	$$PRIM^VASITE

Package	Total	Caller Graph
Scheduling	16	SCRPW DX/CPT FREQUENCY REPORT SCRPW11 SCRPW15 SCRPW16 SCRPW2 SCRPW401 SCRPW44 SCRPW51 SCRPW54 SCRPW56 SCRPW57 SCRPW58 SCRPW59 SCRPW60 SCRPW61 SCRPW63

Name	Comments	DBIA/ICR reference
BDT
EDT
START	;Print report
EXIT
DIV()	;Check division
STOP	;Check for stop task request
EVAL	;Evaluate encounter
DX	;Get diagnoses
DX1(SDIV)
PROC	;Get procedures
PROC1(SDIV)
ORD	;Determine list order
ORDV()
DPRT(SDIV)	;Print report for a division
DXPRT	;Print diagnosis list
DXP1
DXP2
PRPRT
PRP1	;S SDI=0 F S SDI=$O(^TMP("SCRPW",$J,SDIV,"PROC",2,SDORD,SDI)) Q:'SDI!SDOUT!(SDCT>(SD("FREQ")-1)) S SDPR0=$G(^ICPT(SDI,0)) I $L(SDPR0) S SDPRC=$P(SDPR0,U),SDPRN=$P(SDPR0,U,2) D PRP2
PRP2
PRHD	;Print procedure subheader
DXHD	;Print diagnosis subheader
HDR	;Print report header
DHDR(SDI,SDT)	;Set up division subheaders

Name	Field # of Occurrence
^%DT	BDT, EDT
NOW^%DTC	START+4
$$S^%ZTLOAD	STOP+1
^DIR	EDT+7, EDT+10, EXIT, HDR+1
^DIWP	DXP2+3
$$CPT^ICPTCOD	PRP1+3
$$DIVA^SCRPW17	SCRPW40+8
DISP0^SCRPW23	START+10
START^SCRPW401	PRP2+9
$$XY^SCRPW50	HDR+3, HDR+4
END^SCRPW50	EXIT+2
SUBT^SCRPW50	SCRPW40+9, EDT+5
TITL^SCRPW50	SCRPW40+7
$$ICDDX^SCRPWICD	DXP1
$$IMP^SCRPWICD	SCRPW40+10
$$GETOE^SDOE	START+2
GETCPT^SDOE	PROC+1
GETDX^SDOE	DX+1
$$PRIM^VASITE	START+8
EN^XUTMDEVQ	EDT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BDT+0
Function Call: WRITE	Prompt: ! Line Location: EDT+0
Function Call: WRITE	Prompt: !!,$C(7),"End date cannot be before begin date!",! Line Location: EDT+1
Function Call: WRITE	Prompt: !!,$C(7),"Beginning and Ending dates must both be prior to "_SD("I10DTE")_" (ICD-9) or both be on or after "_SD("I10DTE")_" (ICD-10)." Line Location: EDT+4
Function Call: WRITE	Prompt: ! Line Location: EDT+10
Function Call: WRITE	Prompt: ! Line Location: EDT+12
Function Call: WRITE	Prompt: !!?(IOM-$L(SDX)\2),SDX Line Location: START+10
Function Call: WRITE	Prompt: !!?(IOM-$L(SDX)\2),SDX Line Location: DPRT+2
Function Call: WRITE	Prompt: !?(C),$E(SDLINE,1,7),?(C+9),$E(SDLINE,1,35),?(C+46),$E(SDLINE,1,10),?(C+58),$E(SDLINE,1,10),?(C+70),$E(SDLINE,1,10) Line Location: DXPRT+3
Function Call: WRITE	Prompt: !?(C),"TOTAL:",?(C+46),$J(SDTOT("PRI"),9,0),?(C+58),$J(SDTOT("SEC"),9,0),?(C+70),$J(SDTOT("QTY"),9,0) Line Location: DXPRT+4
Function Call: WRITE	Prompt: !?(C),SDDXC,?(C+9),$E(^UTILITY($J,"W",DIWL,SDL2,0),1,35) Line Location: DXP2+5
Function Call: WRITE	Prompt: !,?(C+9),$E(^UTILITY($J,"W",DIWL,SDL2,0),1,35) Line Location: DXP2+6
Function Call: WRITE	Prompt: ?(C+46),$J(SDDX("PRI"),9,0),?(C+58),$J(SDDX("SEC"),9,0),?(C+70),$J(SDDX("QTY"),9,0) Line Location: DXP2+7
Function Call: WRITE	Prompt: !?(C),$E(SDLINE,1,6),?(C+8),$E(SDLINE,1,28),?(C+38),$E(SDLINE,1,10),?(C+50),$E(SDLINE,1,10),!?(C),"PROCEDURE TOTAL:",?(C+38),$J(SDTOT("ENC"),9,0),?(C+50),$J(SDTOT("QTY"),9,0) Line Location: PRPRT+2
Function Call: WRITE	Prompt: ! Line Location: PRP2+3
Function Call: WRITE	Prompt: !?(C),SDPRC,?(C+8),SDPRN,?(C+38),$J(SDPR("ENC"),9,0),?(C+50),$J(SDPR("QTY"),9,0) Line Location: PRP2+4
Function Call: WRITE	Prompt: !!?(C),"CODE",!?(C),"NUMBER",?(C+8),"PROCEDURE/MODIFIER",?(C+38),"ENCOUNTERS",?(C+52),"QUANTITY",!?(C),$E(SDLINE,1,6),?(C+8),$E(SDLINE,1,28),?(C+38),$E(SDLINE,1,10),?(C+50),$E(SDLINE,1,10) Line Location: PRHD+1
Function Call: WRITE	Prompt: !!?(C),"CODE",?(C+49),"PRIMARY",?(C+59),"SECONDARY",?(C+75),"TOTAL",!?(C),"NUMBER",?(C+9),"DIAGNOSIS",?(C+47),"DIAGNOSIS",?(C+59),"DIAGNOSIS",?(C+71),"FREQUENCY" Line Location: DXHD+1
Function Call: WRITE	Prompt: !?(C),$E(SDLINE,1,7),?(C+9),$E(SDLINE,1,35),?(C+46),$E(SDLINE,1,10),?(C+58),$E(SDLINE,1,10),?(C+70),$E(SDLINE,1,10) Line Location: DXHD+2
Function Call: WRITE	Prompt: $$XY^SCRPW50(IOF,1,0) Line Location: HDR+3
Function Call: WRITE	Prompt: $$XY^SCRPW50("",0,0) Line Location: HDR+4
Function Call: WRITE	Prompt: !?(IOM-$L(SDT(SDI))\2),SDT(SDI) Line Location: HDR+5
Function Call: WRITE	Prompt: !,SDLINE,!,"For date range: ",SDPBDT," to ",SDPEDT,!,"Date printed: ",SDPNOW,?(IOM-6-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE Line Location: HDR+6
Routine Call	DIR Line Location: EDT+7 EDT+10 EXIT HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SCRPW40+10, START+4, START+5
^DG(40.8 - [#40.8]	START+9, DHDR+8
^SCE("B"	START+2
^TMP("SCRPW"	START+1!, START+3, START+9, START+10, START+12, DX1+1, PROC1+1, PROC1+2, PROC1+10, PROC1+11* , ORD+1*, ORDV, DPRT+2, DPRT+3, DPRT+4, DXPRT+1, DXP1, DXP2+1, PRPRT, PRP1+2 , PRP2, PRP2+9, DHDR+8
^UTILITY($J	DXP2+3!, DXP2+4, DXP2+5, DXP2+6

Name	Line Occurrences
$$DIV	START+2
$$ORDV	ORD+1
BDT	EDT+3
DHDR	START+10, DPRT+2
DPRT	START+11, START+13
DX	EVAL+2
DX1	DX+2
DXHD	DXPRT+1, DXPRT+2, DXP2+2
DXP1	DXPRT+1
DXP2	DXP1
DXPRT	DPRT+3
EDT	EDT+1
EVAL	START+2
EXIT	SCRPW40+8, BDT, EDT, EDT+7, EDT+10, EDT+12, START+3, START+4, START+10, START+13
HDR	START+10, DPRT+2, DXPRT+1, DXPRT+2, DXP2+2, PRPRT, PRPRT+1, PRP2+1
ORD	START+3
PRHD	PRPRT, PRPRT+1, PRP2+1
PROC	EVAL+2
PROC1	PROC+2
PRP1	PRPRT
PRP2	PRP1+7
PRPRT	DPRT+4
STOP	START+4, EVAL+1, HDR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+4, EXIT+1!
%DT	SCRPW40+6~, BDT*, EXIT+1!
%DT("A"	BDT, EDT
%DT(0	BDT*
C	EXIT+1!, DPRT+2, DXPRT+3, DXPRT+4, DXP2+5, DXP2+6, DXP2+7, PRPRT, PRPRT+2, PRP2+4 , PRHD+1, DXHD+1, DXHD+2
CPTINFO	PRP1+1~, PRP1+3*, PRP1+4, PRP1+5, PRP1+6
DIR	SCRPW40+6~, EDT+6!, EDT+9!, EXIT~, EXIT+1!, HDR+1~
DIR("?"	EDT+6, EDT+9
DIR("A"	EDT+6, EDT+9
DIR("B"	EDT+9*
DIR(0	EDT+6, EDT+9, EXIT, HDR+1
DIVN	EXIT+1!
DIWF	DXP2~*
DIWL	DXP2~*, DXP2+4, DXP2+5, DXP2+6
DTOUT	EDT+7, EDT+10, EXIT+1!
DUOUT	EDT+7, EDT+10, EXIT+1!
IOF	HDR+3
IOM	START+4, START+10, DPRT+2, PRPRT, HDR+5, HDR+6
IOSL	DXPRT+2, DXP2+2, PRPRT+1, PRP2+1
IOST	START+10, EXIT, HDR+1, HDR+3
LINEFLAG	SCRPW40+6~, PRP2+3, PRP2+5, PRHD+1
SD	SCRPW40+6~, EXIT+1!
SD("BDT"	BDT+1*, EDT+1, EDT+3, START+2, START+5
SD("EDT"	EDT+2*, EDT+3, START+2, START+5
SD("FREQ"	EDT+11*, START+6, DXPRT+1, DXP1, PRPRT, PRP1+2
SD("I10DTE"	SCRPW40+10*, EDT+4
SD("I10DTI"	SCRPW40+10*, EDT+3
SD("TYPE"	EDT+8*, START+5, START+6, EVAL+2
SDCT	EXIT+1!, DXPRT+1, DXP1, DXP2+2, PRPRT, PRP1+2, PRP2+1
SDDIV	SCRPW40+6~, SCRPW40+8, START+1, START+8, START+9, EXIT+1!, DIV+1, DHDR+3, DHDR+4, DHDR+7
SDDIV(	START+1, START+7, DIV+1
SDDIV(""	START+1
SDDIV("MULT"	START+1, START+12, START+13, DX+2, PROC+2
SDDX	EXIT+1!, DX1*, DX1+1
SDDX(	DXP2+1*, DXP2+8
SDDX("PRI"	DXP2+7
SDDX("QTY"	DXP2+7
SDDX("SEC"	DXP2+7
SDDX0	EXIT+1!, DXP1*
SDDXC	EXIT+1!, DXP1*, DXP2+5
SDDXN	EXIT+1!, DXP1*, DXP2+3
SDFF	START+4, EXIT+1!, HDR+1, HDR+3, HDR+6
SDI	START+1, START+9, START+12, EXIT+1!, DX+1~, DX+2, DX1, PROC+1~, PROC+2, PROC1 , PROC1+7, PROC1+8, ORD+1, ORDV, DXP1, DXP2+1, PRP1+2, PRP1+3, PRP2, PRP2+9 , HDR+5~, DHDR~, DHDR+3, DHDR+5, DHDR+8*
SDII	EXIT+1!, ORD+1, ORDV, DXP2+1, DXP2+8, PRP2, PRP2+6*
SDIV	START+3, START+7, START+10, START+11, START+13, EXIT+1!, EVAL+2, DX+2, DX1~, DX1+1 , PROC+2, PROC1~, PROC1+1, PROC1+2, PROC1+10, PROC1+11, ORD+1, ORDV, DPRT~, DPRT+2 , DPRT+3, DPRT+4, DXPRT+1, DXP1, DXP2+1, PRPRT, PRP1+2, PRP2, PRP2+9, DHDR+3 , DHDR+4, DHDR+7, DHDR+8~*
SDIV(	START+7, START+8, START+9*, START+11, DHDR+5
SDIVN	START+11, EXIT+1!, DHDR+3, DHDR+4~, DHDR+5*
SDL2	DXP2~, DXP2+4*, DXP2+5, DXP2+6
SDLINE	START+4*, EXIT+1!, DXPRT+3, PRPRT+2, PRHD+1, DXHD+2, HDR+5, HDR+6
SDLIST	EXIT+1!, DX+1~, PROC+1~
SDLIST(	DX+2, DX1, PROC+2, PROC1, PROC1+7, PROC1+8
SDMOD	PROC1+5~, PROC1+8*, PROC1+9, PROC1+10, PROC1+11
SDMODN	PROC1+5~, PROC1+6, PROC1+7, PROC1+8
SDOE	START+2*, EXIT+1!, DX+1, PROC+1
SDOE0	START+2*, EXIT+1!, DIV+1, EVAL+2
SDORD	EXIT+2!, DXPRT+1, DXP1, PRPRT, PRP1+2
SDOUT	SCRPW40+8, BDT, EDT, EDT+7, EDT+10, EDT+12, START+1, START+2, START+3, START+4 , START+10, START+11, START+13, EXIT, EXIT+2!, STOP+1, EVAL+1, DPRT+2, DPRT+3, DXPRT+1 , DXPRT+2, DXP1, DXP2+2, PRPRT, PRPRT+1, PRP1+2, PRP2+1, PRHD+1, DXHD+1, HDR+1* , HDR+2
SDPAGE	START+4, EXIT+2!, DPRT+2, DXPRT+1, PRPRT, HDR+6*
SDPBDT	START+5*, EXIT+2!, HDR+6
SDPEDT	START+5*, EXIT+2!, HDR+6
SDPNOW	START+4*, EXIT+2!, HDR+6
SDPR	EXIT+2!
SDPR(	PRP2*, PRP2+6
SDPR("ENC"	PRP2+4
SDPR("QTY"	PRP2+4
SDPR0	EXIT+2!
SDPRC	EXIT+2!, PRP1+5*, PRP2+4
SDPRN	EXIT+2!, PRP1+6*, PRP2+4
SDPROC	EXIT+2!, PROC1*, PROC1+1, PROC1+2, PROC1+10, PROC1+11
SDPS	EXIT+2!, DX1, DX1+1
SDQT	EXIT+2!, PROC1*, PROC1+2, PROC1+11
SDSTOP	START+1, EXIT+2!, EVAL+1
SDT	START+2*, START+10, EXIT+2!, DPRT+2, DHDR~
SDT(	HDR+5, DHDR+3, DHDR+5, DHDR+8*
SDT(1	START+5*
SDT(2	START+6*
SDTOT	EXIT+2!, DXPRT+1~, PRPRT~
SDTOT(	DXP2+8, PRP2+6
SDTOT("ENC"	PRPRT+2
SDTOT("PRI"	DXPRT+4
SDTOT("QTY"	DXPRT+4, PRPRT+2
SDTOT("SEC"	DXPRT+4
SDX	SCRPW40+6~, START+9, START+10, EXIT+2!, DPRT+2*
U	START+1, START+2, START+8, START+9, DIV+1, EVAL+2, DX1, PROC1, DXP1, PRP1+5 , PRP1+6, DHDR+3, DHDR+4, DHDR+7, DHDR+8
X	SCRPW40+6~, EXIT+2!, DXP2+3*
Y	SCRPW40+6~, SCRPW40+10, BDT, BDT+1, EDT, EDT+1, EDT+2, EDT+8, EDT+11, START+4 , START+5*, EXIT+2!, HDR+1
>> ZTQUEUED	STOP+1
ZTSAVE	EDT+12~
ZTSAVE("SD("	EDT+12*
ZTSAVE("SDDIV"	EDT+12*
ZTSAVE("SDDIV("	EDT+12*
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling

Routine: SCRPW40

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: