Routine: SCRPW15

Package	Total	Call Graph
Scheduling	5	(EXIT,STOP)^SCRPW14 DISP0^SCRPW23 DHDR^SCRPW40 $$XY^SCRPW50 $$ICDDX^SCRPWICD
VA FileMan	3	NOW^%DTC ^DIR ^DIWP
CPT HCPCS Codes	2	$$CPT^ICPTCOD $$MOD^ICPTMOD
Registration	1	$$PRIM^VASITE

Package	Total	Caller Graph
Scheduling	1	SCRPW14

Name	Comments	DBIA/ICR reference
EXIT
DCAL	;Calculate numbers for a division
DPRT(SDIV)	;Print report for a division
S1
ORD()	;Produce sort value
HDR(SDPG)	;Print page header
RTOT	;Print report total
T3
PVIEW(SDCOL,SDSKIP)	;Print report parameters
PDIV
SNAME()	;Produce item name
PRT	;Print data
DX	;Print diagnosis information
DX1	;
DXHD	;Diagnosis sub-header
PROC	;Print procedure information
PROC1	;D:$Y>(IOSL-6) HDR(),PROCHD Q:SDOUT S SDP0=^ICPT(SDP,0),SDTOT=SDTOT+SDT W !?12,$P(SDP0,U),?18,$P(SDP0,U,2),?55,$J(SDT,10) Q
PROCHD
NONE	;List items with no activity
NO1

Name	Field # of Occurrence
NOW^%DTC	SCRPW15+7
^DIR	SCRPW15+16, HDR+2
^DIWP	DX1+7
$$CPT^ICPTCOD	PROC1+3
$$MOD^ICPTMOD	PROC1+27
EXIT^SCRPW14	EXIT
STOP^SCRPW14	DCAL+1, HDR+1
DISP0^SCRPW23	SCRPW15+11
DHDR^SCRPW40	SCRPW15+11, T3
$$XY^SCRPW50	HDR+3
$$ICDDX^SCRPWICD	DX1+3
$$PRIM^VASITE	SCRPW15+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?(80-$L(SDX)\2),SDX Line Location: SCRPW15+11
Function Call: WRITE	Prompt: !!?(80-$L(SDX)\2),SDX Line Location: DPRT+1
Function Call: WRITE	Prompt: $$XY^SCRPW50("",0,0) Condition for execution: $X Line Location: HDR+3
Function Call: WRITE	Prompt: SDLINE,!?22,"<> ENCOUNTER ACTIVITY REPORT <>" Line Location: HDR+3
Function Call: WRITE	Prompt: !?(80-$L(SDTIT(SDI))\2),SDTIT(SDI) Line Location: HDR+4
Function Call: WRITE	Prompt: !,SDLINE Line Location: HDR+5
Function Call: WRITE	Prompt: !,SDLINE,!,"Date printed: ",SDPNOW,?(74-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE,! Line Location: HDR+6
Function Call: WRITE	Prompt: !,$S(SD("CAT")="C":"Clinic: ",SD("CAT")="P":"Provider: ",1:"Stop Code: "),$$SNAME()," (cont.)",! Line Location: HDR+8
Function Call: WRITE	Prompt: !,$S(SD("CAT")="C":"Clinic",SD("CAT")="P":"Provider",1:"Stop Code"),?40,"Encounters",?59,"Visits",?73,"Uniques",!,"------------------------------------",?40,"----------",?55,"----------",?70,"----------" Line Location: HDR+9
Function Call: WRITE	Prompt: !!,"====================================",?40,"==========",?55,"==========",?70,"==========",!!,"REPORT TOTAL:",?40,$J(SDRPEN(SDIV),10),?55,$J(SDRPVS(SDIV),10),?70,$J(SDRPUN(SDIV),10) Line Location: RTOT+1
Function Call: WRITE	Prompt: !?SDCOL," Activity date range: " Line Location: PVIEW+3
Function Call: WRITE	Prompt: Y," to " Line Location: PVIEW+3
Function Call: WRITE	Prompt: Y," to " Line Location: PVIEW+3
Function Call: WRITE	Prompt: !?(SDCOL+8),"Report category: ",$S(SD("CAT")="C":"CLINIC",SD("CAT")="P":"PROVIDER",1:"STOP CODE")," perspective",!?(SDCOL+10),"Output format: ",$S(SD("FMT")="S":"SUMMARY",1:"DETAIL") Line Location: PVIEW+4
Function Call: WRITE	Prompt: !?(SDCOL+8),"Collation order: ",$S(SD("ORD")="A":"ALPHABETIC",SD("ORD")="E":"by ENCOUNTER TOTAL",SD("ORD")="V":"by VISIT TOTAL",1:"by UNIQUE TOTAL") Line Location: PVIEW+5
Function Call: WRITE	Prompt: !?(SDCOL+25),$P(^SD(409.63,X,0),U) Line Location: PVIEW+6
Function Call: WRITE	Prompt: !?SDCOL,"Medical Center Division: ",$P(SDDIV,U,2) Line Location: PDIV+0
Function Call: WRITE	Prompt: !?SDCOL,"Medical Center Division: ",SDDIV(SDI) Line Location: PDIV+1
Function Call: WRITE	Prompt: !,$$SNAME(),?40,$J(^TMP("SCRPW",$J,SDIV,1,SDS,"ENC"),10),?55,$J(^TMP("SCRPW",$J,SDIV,1,SDS,"VIS"),10),?70,$J(^TMP("SCRPW",$J,SDIV,1,SDS,"UNIQ"),10) Line Location: PRT+2
Function Call: WRITE	Prompt: !!,"(No diagnosis information identified)" Line Location: DX+1
Function Call: WRITE	Prompt: !,"====================================",?40,"==========",?55,"==========",?70,"==========",!,"TOTAL:",?40,$J(SDTOT1,10),?55,$J(SDTOT2,10),?70,$J(SDTOT,10) Line Location: DX+4
Function Call: WRITE	Prompt: !,$E(^UTILITY($J,"W",DIWL,SDL2,0),1,36) Line Location: DX1+8
Function Call: WRITE	Prompt: ?40,$J(SDT1,10),?55,$J(SDT2,10),?70,$J((SDT1+SDT2),10) Line Location: DX1+9
Function Call: WRITE	Prompt: !!,"Diagnosis",?43,"Primary",?56,"Secondary",?75,"Total",!,"------------------------------------",?40,"----------",?55,"----------",?70,"----------" Line Location: DXHD+1
Function Call: WRITE	Prompt: !!?12,"(No procedure information identified)" Line Location: PROC+1
Function Call: WRITE	Prompt: !?12,"===================================",?55,"==========",!?12,"PROCEDURE TOTAL:",?55,$J(SDTOT,10) Line Location: PROC+4
Function Call: WRITE	Prompt: !?12,$P(SDP0,U),?18,$P(SDP0,U,2),?55,$J(SDT,10) Line Location: PROC1+0
Function Call: WRITE	Prompt: ! Line Location: PROC1+9
Function Call: WRITE	Prompt: !?12,CPTCODE,?18,CPTTEXT,?55,$J(SDT,10) Line Location: PROC1+10
Function Call: WRITE	Prompt: !,?13,"-",MODCODE,?18,MODTEXT,?55,$J(SDMQTY2,10) Line Location: PROC1+35
Function Call: WRITE	Prompt: !!?12,"Procedures/Modifiers",?60,"Total",!?12,"--------------------------------------",?55,"----------" Line Location: PROCHD+0
Function Call: WRITE	Prompt: !!,"No activity found for ",$S(SD("CAT")="C":"clinic",SD("CAT")="P":"provider",1:"stop code"),": ",$$SNAME() Line Location: NO1+0
Routine Call	DIR Line Location: SCRPW15+16 HDR+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SCRPW15+7, PVIEW+3
^DG(40.8 - [#40.8]	SCRPW15+10
^DIC(40.7 - [#40.7]	SNAME+2
^SC - [#44]	SNAME+1
^SD(409.63 - [#409.63]	PVIEW+6
^TMP("SCRPW"	SCRPW15+6, SCRPW15+10, SCRPW15+11, SCRPW15+13, DCAL+2, DCAL+3, DPRT+1, DPRT+3, S1, S1+2 , S1+3, ORD+1, HDR+7, PRT+2, DX+1, DX+2, DX1+4, DX1+5, PROC+1, PROC+2 , PROC1+13!, PROC1+16, PROC1+17, PROC1+18, PROC1+22, PROC1+24, PROC1+39!, NONE+1, NONE+2
^UTILITY($J	DX1+7!, DX1+8
^VA(200 - [#200]	SNAME+1

Name	Line Occurrences
$$ORD	DCAL+2
$$SNAME	ORD+1, HDR+8, PRT+2, NO1
DCAL	SCRPW15+6
DPRT	SCRPW15+12, SCRPW15+14
DX	PRT+2
DX1	DX+2
DXHD	DX+1, DX1+2
EXIT	SCRPW15+11, SCRPW15+14
HDR	SCRPW15+11, DPRT+1, DPRT+2, RTOT+1, PRT+1, PRT+2, DX1+2, PROC+1, PROC1+2, PROC1+25 , NONE+1, NONE+2
NO1	NONE+2
NONE	DPRT+5
PDIV	PVIEW+3
PROC	PRT+2
PROC1	PROC+2
PROCHD	PROC+1, PROC1+2, PROC1+25
PRT	DPRT+3
PVIEW	HDR+5
RTOT	DPRT+4
S1	DCAL+2
T3	DPRT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SCRPW15+7
CPTCODE	PROC1+1~, PROC1+5*, PROC1+10
CPTTEXT	PROC1+1~, PROC1+6*, PROC1+10
>> DFN	DCAL+3*
DIR	SCRPW15+16~, HDR+2~
DIR(0	SCRPW15+16, HDR+2
DIWF	DX1+1~*
DIWL	DX1+1~*, DX1+8
IOF	HDR+3
IOSL	RTOT+1, PRT+2, DX1+2, PROC+1, PROC1+2, PROC1+25, NONE+2
IOST	SCRPW15+11, SCRPW15+16, HDR+2
LINEFLAG	SCRPW15+5~, PROC1+9, PROC1+11, PROC1+37, PROCHD*
MODCODE	PROC1+26~, PROC1+29, PROC1+31, PROC1+35
MODINFO	PROC1+26~, PROC1+27*, PROC1+28, PROC1+29, PROC1+32
MODTEXT	PROC1+26~, PROC1+32*, PROC1+35
SD	EXIT!
SD("BDT"	PVIEW+3
SD("CAT"	HDR+8, HDR+9, PVIEW+4, SNAME+1, NO1
SD("EDT"	PVIEW+3
SD("FMT"	DPRT+1, DPRT+4, DPRT+5, S1+1, HDR+8, PVIEW+4, PVIEW+5, PRT+1, PRT+2
SD("LIST"	NONE+1, NONE+2
SD("ORD"	DPRT+3, ORD+1, PVIEW+5
SD("STAT"	PVIEW+6
SDCOL	PVIEW~, PVIEW+3, PVIEW+4, PVIEW+5, PVIEW+6, PDIV, PDIV+1
>> SDD	S1+2, DX+2, DX1+3, DX1+4, DX1+5
>> SDD0	DX1+3*
SDDET	DPRT+1*, PRT+1, PRT+2!
SDDIAG	DX1+1~, DX1+3*, DX1+7
SDDIV	SCRPW15+9, SCRPW15+10, EXIT!, PDIV
SDDIV(	SCRPW15+8, PDIV+1
>> SDDT	DCAL+3, S1
>> SDFFS	SCRPW15+7, HDR+2, HDR+3, HDR+6
SDI	SCRPW15+10, SCRPW15+13, HDR+4~, PDIV+1~
SDIV	SCRPW15+6, SCRPW15+8, SCRPW15+11, SCRPW15+12, SCRPW15+14*, DCAL+2, DCAL+3, DPRT~, DPRT+1, DPRT+3 , S1, S1+2, S1+3, ORD+1, HDR+7, RTOT+1, PRT+2, DX+1, DX+2, DX1+4 , DX1+5, PROC+1, PROC+2, PROC1+13, PROC1+16, PROC1+17, PROC1+18, PROC1+22, PROC1+24, PROC1+39 , NONE+1, NONE+2
SDIV(	SCRPW15+8, SCRPW15+9, SCRPW15+10*, SCRPW15+12
>> SDIVN	SCRPW15+12*
SDL2	DX1+1~, DX1+8*
>> SDLINE	SCRPW15+7*, HDR+3, HDR+5, HDR+6
>> SDMD	SCRPW15+13*, SCRPW15+14
SDMOD	PROC1+1~, PROC1+14, PROC1+16, PROC1+17, PROC1+18, PROC1+23, PROC1+24, PROC1+27
SDMODQTY	PROC1+1~, PROC1+17, PROC1+18, PROC1+21, PROC1+22*, PROC1+24, PROC1+34
SDMQTY2	PROC1+26~, PROC1+34*, PROC1+35
>> SDN	NONE+1*, NONE+2
>> SDOUT	SCRPW15+6, SCRPW15+11, SCRPW15+12, SCRPW15+14, SCRPW15+16, DCAL+1, DPRT+1, DPRT+2, DPRT+3, DPRT+4 , DPRT+5, HDR+1, HDR+2*, RTOT+1, PRT+1, PRT+2, DX+2, DX+3, DX1+2, DXHD+1 , PROC+1, PROC+2, PROC+3, PROC1+2, PROC1+25, PROCHD, NONE+1, NONE+2
>> SDP	S1+3, PROC+2, PROC1+3, PROC1+15
>> SDP0	PROC1+3*, PROC1+4, PROC1+5, PROC1+6
>> SDPAGE	SCRPW15+7, DPRT+1, HDR+3, HDR+5, HDR+6, HDR+8
SDPG	HDR~, HDR+3, HDR+8
>> SDPNOW	SCRPW15+7*, HDR+6
>> SDPROC	PROC1+15*, PROC1+16, PROC1+17
>> SDPT	S1*
>> SDRPEN(	RTOT+1
>> SDRPUN(	DCAL+3*, RTOT+1
>> SDRPVS(	DCAL+3*, RTOT+1
>> SDS	DCAL+2, DPRT+3, S1, S1+2, S1+3, ORD+1, SNAME+1, SNAME+2, PRT+2, DX+1 , DX+2, DX1+4, DX1+5, PROC+1, PROC+2, PROC1+13, PROC1+16, PROC1+17, PROC1+18, PROC1+22 , PROC1+24, PROC1+39, NONE+1, NONE+2
SDSKIP	PVIEW~, PVIEW+3
>> SDSV	DPRT+3*
>> SDT	SCRPW15+11, DX+2, PROC+2, PROC1+7, PROC1+10
>> SDT1	DX1+4*, DX1+6, DX1+9
>> SDT2	DX1+5*, DX1+6, DX1+9
SDTIT	T3!
SDTIT(	HDR+4
>> SDTOT	S1+2, S1+3, DX+2, DX+4, DX1+6, PROC+2, PROC+4, PROC1+7
>> SDTOT1	DX+2, DX+4, DX1+6
>> SDTOT2	DX+2, DX+4, DX1+6
>> SDUN(	DCAL+2, S1*, ORD+1
>> SDVS(	DCAL+2, S1*, ORD+1
>> SDX	SCRPW15+10, SCRPW15+11, DPRT+1*
U	SCRPW15+9, SCRPW15+10, PVIEW+6, PDIV, SNAME+1, SNAME+2, DX1+3, PROC1+5, PROC1+6
X	PVIEW+6, SNAME+2~, DX1+7*
>> Y	SCRPW15+7, HDR+2, PVIEW+3

Customize PDF page

Package: Scheduling

Routine: SCRPW15

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: