Routine: SCRPW28

Package	Total	Call Graph
Scheduling	4	^SCRPW22 STOP^SCRPW26 EXIT^SCRPW27 $$GETOE^SDOE

Package	Total	Caller Graph
Scheduling	1	SCRPW27

Entry Points

External References

Name	Field # of Occurrence
^SCRPW22	RPAR+2, RPAR+3, RPAR+5
STOP^SCRPW26	BRK+1, STOP
EXIT^SCRPW27	PDF+1
$$GETOE^SDOE	OE0+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$BRK("Report Parameters") Line Location: RPAR+0
Function Call: WRITE	Prompt: !,"TYPE^CATEGORY^SUB-CATEGORY^VALUE^METHOD^INCLUDE/EXCLUDE" Line Location: RPAR+1
Function Call: WRITE	Prompt: !,"FORMAT^",$P($T(F+SDI^SCRPW22),";;",2),"^(none)^",$P(SDPAR("F",SDI),U,2),"^^" Line Location: RPAR+2
Function Call: WRITE	Prompt: !,"LIMITATION^",$P($T(L+SDI^SCRPW22),";;",2),"^(none)^",$P(SDPAR("L",SDI),U,2),"^^" Line Location: RPAR+3
Function Call: WRITE	Prompt: !,"ORDER^",$P($T(O+SDI^SCRPW22),";;",2),"^(none)^",$P($G(SDPAR("O",SDI)),U,2),"^^" Line Location: RPAR+5
Function Call: WRITE	Prompt: !,"ADDL. PRINT FIELD^",$P(SDX,U,2),U,$P(SDX,U,3) Line Location: RPAR+6
Function Call: WRITE	Prompt: !,$$BRK("Report Summary") Line Location: RSUM+1
Function Call: WRITE	Prompt: !,$P(SDPAR("P",1,1),U,2),U,"ENCOUNTERS",U,"VISITS",U,"UNIQUES" Line Location: RSUM+2
Function Call: WRITE	Prompt: U,"PRIOR YEAR ENCOUNTERS",U,"PRIOR YEAR VISITS",U,"PRIOR YEAR UNIQUES",U,"% CHANGE ENCOUNTERS",U,"% CHANGE VISITS",U,"% CHANGE UNIQUES" Line Location: RSUM+3
Function Call: WRITE	Prompt: !,"No data found within selected parameters." Line Location: RSUM+4
Function Call: WRITE	Prompt: !,SDX Line Location: RSUM1+5
Function Call: WRITE	Prompt: U,$S(SDX(SDI)="N/A":$J(SDX(SDI),8),1:$J(SDX(SDI),8,$S(SDI<6:0,SDX(SDI)'<100000:0,SDX(SDI)'<10000:1,1:2))) Line Location: RSUM1+5
Function Call: WRITE	Prompt: !,$$BRK(SDX1) Line Location: DPTL+2
Function Call: WRITE	Prompt: !,"PATIENT",U,"SSN" Line Location: DPTL+3
Function Call: WRITE	Prompt: U,"DATE" Line Location: DPTL+3
Function Call: WRITE	Prompt: U,"DATE" Line Location: DPTL+3
Function Call: WRITE	Prompt: !,$$BRK(SDX1_" (LINKED SUB-TABLE)") Line Location: DPTL+7
Function Call: WRITE	Prompt: !,"LINK^DATA VALUE" Line Location: DPTL+7
Function Call: WRITE	Prompt: !,SDAPFM,U,^TMP("SCRPW",$J,"APFM",SDAPFM,SDX) Line Location: DPTL+8
Function Call: WRITE	Prompt: !,SDPNAM,U,$P($G(^DPT(DFN,0)),U,9) Line Location: DPTL1+0
Function Call: WRITE	Prompt: !,SDPNAM,U,$P($G(^DPT(DFN,0)),U,9) Line Location: DPTL2+0
Function Call: WRITE	Prompt: U,Y Line Location: DPTL2+0
Function Call: WRITE	Prompt: !,SDPNAM,U,$P($G(^DPT(DFN,0)),U,9),U,Y,U,SDCL Line Location: DPTL3+1
Function Call: WRITE	Prompt: !,$$BRK($P(SDPAR("P",1,1),U,2)_": "_$$EXT()_" - Diagnosis ranking") Line Location: DDXP+1
Function Call: WRITE	Prompt: !,"DIAGNOSIS",U,"PRIMARY",U,"SECONDARY",U,"TOTAL" Line Location: DDXP+2
Function Call: WRITE	Prompt: !,"No diagnoses found for this detail item." Line Location: DDXP+3
Function Call: WRITE	Prompt: !,"TOTAL",U,$J(SDTCT(1),10),U,$J(SDTCT(2),10),U,$J(SDTCT(3),10) Line Location: DDXP+5
Function Call: WRITE	Prompt: !,$$BRK($P(SDPAR("P",1,1),U,2)_": "_$$EXT()_" - Ambulatory procedure ranking") Line Location: DAPP+0
Function Call: WRITE	Prompt: !,"PROCEDURES",U,"TOTAL" Line Location: DAPP+0
Function Call: WRITE	Prompt: !,"No procedures found for this detail item." Line Location: DAPP+1
Function Call: WRITE	Prompt: !,"TOTAL",U,$J(SDTCT(1),10) Line Location: DAPP+3
Function Call: WRITE	Prompt: !,SDS3,U,$J(SDICT(1),10),U,$J(SDICT(2),10),U,$J(SDICT(3),10) Line Location: DDXP1+1
Function Call: WRITE	Prompt: !,SDS3,U,$J(SDICT(1),10) Line Location: DAPP1+1
Function Call: WRITE	Prompt: U,$P(^TMP("SCRPW",$J,"ACT",$P(SDX,U)),T) Line Location: APFH+2
Function Call: WRITE	Prompt: " (LINK)" Condition for execution: $P(^TMP("SCRPW",$J,"ACT",$P(SDX,U)),T,12) Line Location: APFH+2
Function Call: WRITE	Prompt: U,$$APF() Line Location: APFP+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DPTL2, DPTL3
^DPT - [#2]	DPTL1, DPTL2, DPTL3+1
^SC - [#44]	DPTL3
^TMP("SCRPW"	RSUM+4, RSUM+5, RSUM0, RSUM1+2, RSUM1+3, RDET, RDET1, DSV+1, DSV+2, DSV+3 , DPTL+4!, DPTL+5, DPTL+6, DPTL+8, DPTL1+1, DPTL2+1, DPTL3, DDXP+3, DDXP+4, DAPP+1 , DAPP+2, DDXP1, DAPP1, APFH+2, APFP+2, APF+1*

Label References

Name	Line Occurrences
$$APF	APFP+2
$$BRK	RPAR, RSUM+1, DPTL+2, DPTL+7, DDXP+1, DAPP
$$DSV	DPTL+1
$$EXT	DPTL+2, DDXP+1, DAPP
$$OE0	APFP+2
APFH	DPTL+4
APFP	DPTL1, DPTL2, DPTL3+1
CALC	RSUM1+4
DAPP	DDXP+3
DAPP1	DAPP+2
DDXP	RDET1+1
DDXP1	DDXP+4
DPTL	RDET1+1
DPTL1	DPTL+5
DPTL2	DPTL1+1
DPTL3	DPTL2+1
IPRT	ITEM+1, ITEM+4, ITEM+6
ITEM	RPAR+3, RPAR+4
RDET	PDF+1
RDET1	RDET
RPAR	PDF+1
RSUM	PDF+1
RSUM0	RSUM+5
RSUM1	RSUM+6, RSUM0
STOP	RSUM1, DPTL+8, DPTL1, DPTL2, DPTL3, DDXP1+1, DAPP1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	DPTL+5*, DPTL1, DPTL1+1, DPTL2, DPTL2+1, DPTL3, DPTL3+1, OE0+1
S1	APFH+1~, APFH+2, APFP+1~, APFP+2
S2	APFH+1~, APFH+2, APFP+1~, APFP+2
SD	ITEM+1!
SD(	IPRT
SD(1	ITEM+1*
SD(2	ITEM+1*
SD(3	ITEM+1*
SD(4	ITEM+4, ITEM+6
SD(5	ITEM+2*
SD(6	ITEM+2*
SDACT	APFP+1~, APFP+2*, APF
>> SDAPFM	DPTL+4, DPTL+8, APF+1*, APF+2
>> SDCL	DPTL3*, DPTL3+1
>> SDCT	DDXP+4, DAPP+2, DDXP1+1, DAPP1+1
SDDSV	DPTL+1~*, DPTL+5, DPTL1+1, DPTL2+1, DPTL3
>> SDDT	DPTL2+1*, DPTL3
>> SDENC	RDET1*
>> SDF(1	RDET
>> SDF(2	RSUM+3, RSUM1+3, RSUM1+4
>> SDF(3	RDET1+1
>> SDF(4	DPTL+2, DPTL+3, DPTL1, DPTL2, OE0+1
>> SDF(5	DDXP+4, DAPP+2
SDI	RPAR+2, RPAR+3, RPAR+4, RPAR+5, RPAR+6, IPRT~, RSUM1+4, RSUM1+5, CALC~, CALC+1 , DDXP1*
>> SDICT(	DDXP1*
>> SDICT(1	DDXP1+1, DAPP1*, DAPP1+1
>> SDICT(2	DDXP1+1
>> SDICT(3	DDXP1+1
>> SDII	RPAR+6*
>> SDOE	DPTL2+1*, DPTL3, OE0+2
SDOE0	APFP+1~, APFP+2*
>> SDORD	RSUM+5
>> SDORDV	RSUM+5*, RSUM0
>> SDOUT	PDF+1*, RPAR, BRK+1, RSUM+1, RSUM+5, RSUM+6, RSUM0, RSUM1, RDET, RDET1+1 , DPTL+2, DPTL+5, DPTL+7, DPTL+8, DPTL1+1, DPTL2+1, DPTL3, DDXP+1, DDXP+4, DDXP+5 , DAPP, DAPP+2, DAPP+3
>> SDPAR(	ITEM+1, ITEM+2, ITEM+3, ITEM+4, ITEM+6
>> SDPAR("F"	RPAR+2
>> SDPAR("L"	RPAR+3, RPAR+4
>> SDPAR("O"	RPAR+5
>> SDPAR("P"	EXT+1, RSUM+2, RSUM1+1, DPTL+2, DDXP+1, DAPP
>> SDPAR("PF"	RPAR+6, DPTL+4, APFH+2, APFP+2
SDPER	DSV~, DSV+1, DSV+3
>> SDPNAM	DPTL+5*, DPTL1, DPTL1+1, DPTL2, DPTL2+1, DPTL3, DPTL3+1
>> SDQT	DDXP+4, DAPP+2
SDRPT	RSUM1~, RSUM1+1, RSUM1+2, RSUM1+3
SDS1	ITEM~, ITEM+1, ITEM+2, ITEM+3, ITEM+4, ITEM+6, EXT+1, RSUM0, RSUM1~, RSUM1+1 , RSUM1+2, RSUM1+3, RDET, RDET1, DPTL+1, DDXP+3, DDXP+4, DAPP+1, DAPP+2, DDXP1 , DAPP1
SDS2	ITEM~, ITEM+1, ITEM+2, ITEM+3, ITEM+4, ITEM+6, EXT+1, RSUM0, RSUM1~, RSUM1+1 , RSUM1+2, RSUM1+3, RDET, RDET1, DPTL+1, DDXP+3, DDXP+4, DAPP+1, DAPP+2, DDXP1 , DAPP1
>> SDS3	ITEM+3, ITEM+4, ITEM+6, DDXP+4, DAPP+2*, DDXP1, DDXP1+1, DAPP1, DAPP1+1
>> SDSTOP	PDF+1, STOP
>> SDT	DPTL1+1*, DPTL2, DPTL2+1, DPTL3
SDTCT	DDXP+4!, DAPP+2!
SDTCT(	DDXP1*
SDTCT(1	DDXP+5, DAPP+3, DAPP1*
SDTCT(2	DDXP+5
SDTCT(3	DDXP+5
>> SDUNI	RDET1*
>> SDVIS	RDET1*
SDX	RPAR+6, BRK~, BRK+2, RSUM1+1!, RSUM1+5, DSV+1~, DSV+2, DSV+3, DPTL+8, APFH+1~ , APFH+2, APFP+1~, APFP+2!, APF, APF+1
SDX(	RSUM1+5, CALC+1*, APF, APF+1
SDX(0	RSUM1+2*
SDX(1	RSUM1+2*
SDX(2	RSUM1+2*
SDX(3	RSUM1+3*
SDX(4	RSUM1+3*
SDX(5	RSUM1+3*
SDX1	DPTL+1~, DPTL+2*, DPTL+7
SDY	BRK+2~, BRK+3, APFP+1~, APFP+2
SDZ	APF~*
>> T	APFH+2, APFP+2, APF
U	RPAR+2, RPAR+3, RPAR+5, RPAR+6, ITEM+1, ITEM+2, IPRT, RSUM+2, RSUM+3, RSUM1+5 , DSV+1, DSV+3, DPTL+2, DPTL+3, DPTL+8, DPTL1, DPTL2, DPTL3, DPTL3+1, DDXP+1 , DDXP+2, DDXP+5, DAPP, DAPP+3, DDXP1, DDXP1+1, DAPP1+1, APFH+2, APFP+2, APF , APF+1, OE0+1
>> Y	DPTL2, DPTL3, DPTL3+1

Customize PDF page

Package: Scheduling

Routine: SCRPW28

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(F+SDI^SCRPW22	RPAR+2
$T(L+SDI^SCRPW22	RPAR+3
$T(O+SDI^SCRPW22	RPAR+5

Name	Comments	DBIA/ICR reference
DDXP1
STOP
RPAR
DDXP	;Detail dx/procedure lists
RSUM0
RSUM	;Print report summary
DAPP
RDET1
OE0()	;Get encounter node
ITEM(SDS1,SDS2)	;Print parameter item
DPTL	;Detail patient list
IPRT
DPTL1
BRK(SDX)	;Print table break
DPTL3
DPTL2
PDF	;Print delimited format
RSUM1(SDRPT,SDS1,SDS2)
RDET
DAPP1
APFH	;Addl. print fields header
APF()
APFP	;Addl. print fields print
DSV(SDPER)	;Encrypt detail sort values
CALC(SDI)	;Calculate % change
EXT()	;Return external value