Routine: SCRPW29

Package	Total	Call Graph
Scheduling	4	($$DIR,DISP)^SCRPW23 STOP^SCRPW26 HIN^SCRPW27 $$GETOE^SDOE
VA Fileman	1	^DIR

Package	Total	Caller Graph
Scheduling	4	SCRPW20 SCRPW21 SCRPW22 SCRPW27

Name	Comments	DBIA/ICR reference
APF1
VFD
VF(SDISP)	;Verify format parameters
APFL(SDC)	;Addl. print field subheader, cont.
PF1
DPHD	;Detail patient subheader
VFS
HD2
HDR1
APFH(SDC)	;Addl. print field subheader
PF	;Print fields prompter
XY(X)	;Maintain $X, $Y
OE0()	;Get encounter node
DDPH(SDI)	;Detail dx/procedure header
VL(SDISP)	;Verify limitation parameters
VO(SDISP)	;Verify output order parameter
PFC()	;Print field choice
VQ	;Prompt for re-edit
WAIT
HDR(SDTITL)	;Print report header
MAR	;Margin note
PFD
HD1	;Subheader for summary
APFP	;Addl. print fields print
PFL	;List print field selections
APF(S1)	;Addl. print field
PFR	;Remove print fields per parameter re-edits
VP(SDISP)	;Verify perspective parameters

Name	Field # of Occurrence
^DIR	PFD, WAIT, VQ+3, HDR+1
$$DIR^SCRPW23	PF1+2, PF1+3
DISP^SCRPW23	PF+3
STOP^SCRPW26	HDR+2
HIN^SCRPW27	HDR+3
$$GETOE^SDOE	OE0+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: X Line Location: XY+2
Function Call: WRITE	Prompt: !,"This report requires 132 column output!",! Line Location: MAR+1
Function Call: WRITE	Prompt: !!?10,$$XY(IORVON),"Select additional print fields for patient detail: (optional)",$$XY(IORVOFF) Line Location: PF1+0
Function Call: WRITE	Prompt: !,"deleted..." Line Location: PFD+1
Function Call: WRITE	Prompt: !!,"Additional print fields currently selected:" Line Location: PFL+1
Function Call: WRITE	Prompt: !,$J($P(SDX,U,2)_": ",30),$P(SDX,U,3) Line Location: PFL+2
Function Call: WRITE	Prompt: ! Line Location: WAIT+0
Function Call: WRITE	Prompt: ! Condition for execution: SDII Line Location: APF+1
Function Call: WRITE	Prompt: ?(SDC),$P(SDACT,T),": " Line Location: APF+1
Function Call: WRITE	Prompt: ! Condition for execution: SDIII Line Location: APF1+0
Function Call: WRITE	Prompt: ?(SDC1),$E($P(SDX(SDX),U,2),1,(51-(SDC1-SDC)+(81-SDC))) Line Location: APF1+0
Function Call: WRITE	Prompt: !,$C(7),$$XY(IORVON)," ",SDV," parameters are incomplete.",$$XY(IORVOFF) Line Location: VQ+2
Function Call: WRITE	Prompt: !?(IOM-$L(SDX)\2),SDX,!?(IOM-$L(SDX)\2),$E(SDLINE,1,$L(SDX)) Line Location: DDPH+3
Function Call: WRITE	Prompt: !?(SDCOL),"Diagnosis",?(SDCOL+43),"Primary",?(SDCOL+56),"Secondary",?(SDCOL+75),"Total" Line Location: DDPH+4
Function Call: WRITE	Prompt: !?(SDCOL),"------------------------------------",?(SDCOL+40),"----------",?(SDCOL+55),"----------",?(SDCOL+70),"----------" Line Location: DDPH+5
Function Call: WRITE	Prompt: !?(SDCOL+13),"Procedures",?(SDCOL+61),"Total",!?(SDCOL+13),"--------------------------------------",?(SDCOL+56),"----------" Line Location: DDPH+6
Function Call: READ	Prompt: S" Timeout: "V Variable: SDF(4)="V" Line Location: DPHD+1
Function Call: WRITE	Prompt: !?(IOM-$L(SDX)\2),SDX,!?(IOM-$L(SDX)\2),$E(SDLINE,1,$L(SDX)) Line Location: DPHD+2
Function Call: WRITE	Prompt: !?(SDCOL),"Patient:",?(SDCOL+20),"SSN:",?(SDCOL+32),"Date:",?(SDCOL+52),"Location:" Line Location: DPHD+3
Function Call: WRITE	Prompt: !?(SDCOL),$E(SDLINE,1,18),?(SDCOL+20),$E(SDLINE,1,10),?(SDCOL+32),$E(SDLINE,1,18),?(SDCOL+52),$E(SDLINE,1,28) Line Location: DPHD+3
Function Call: WRITE	Prompt: !?(SDCOL+13),"Patient:",?(SDCOL+45),"SSN:",?(SDCOL+57),"Date:" Line Location: DPHD+4
Function Call: WRITE	Prompt: !?(SDCOL+13),$E(SDLINE,1,30),?(SDCOL+45),$E(SDLINE,1,10),?(SDCOL+57),$E(SDLINE,1,11) Line Location: DPHD+4
Function Call: WRITE	Prompt: !?(SDCOL+19),"Patient:",?(SDCOL+51),"SSN:" Line Location: DPHD+5
Function Call: WRITE	Prompt: !?(SDCOL+19),$E(SDLINE,1,30),?(SDCOL+51),$E(SDLINE,1,10) Line Location: DPHD+5
Function Call: WRITE	Prompt: ?(SDC),"Additional print fields:" Line Location: APFH+1
Function Call: WRITE	Prompt: ?(SDC),$E(SDLINE,1,51) Line Location: APFL+1
Function Call: WRITE	Prompt: !?77,"Prior",?87,"Prior",?97,"Prior",?105,"Percent",?115,"Percent",?125,"Percent" Line Location: HD1+1
Function Call: WRITE	Prompt: !?78,"Year",?88,"Year",?98,"Year",?106,"Change",?116,"Change",?126,"Change" Line Location: HD1+2
Function Call: WRITE	Prompt: !?(SDCOL),$P(SDPAR("P",1,1),U,2),":",?(SDCOL+44),"Encount.",?(SDCOL+56),"Visits",?(SDCOL+65),"Uniques" Line Location: HD1+3
Function Call: WRITE	Prompt: ?74,"Encount.",?86,"Visits",?95,"Uniques",?104,"Encount.",?116,"Visits",?125,"Uniques" Line Location: HD1+4
Function Call: WRITE	Prompt: !?(SDCOL),"------------------------------------------ -------- -------- -------- " Line Location: HD1+5
Function Call: WRITE	Prompt: "-------- -------- -------- -------- -------- --------" Condition for execution: SDCOL=0 Line Location: HD1+5
Function Call: WRITE	Prompt: !?(IOM-$L(SDPTX(SDI))\2),SDPTX(SDI) Line Location: HD2+0
Function Call: WRITE	Prompt: !,SDLINE Line Location: HD2+1
Function Call: WRITE	Prompt: SDLINE,!?(IOM-28\2),"<> ACRP AD HOC REPORT <>" Line Location: HDR+4
Function Call: WRITE	Prompt: !?(IOM-$L(SDTITLX)\2),SDTITLX Line Location: HDR+4
Function Call: WRITE	Prompt: !?(IOM-$L(SDTITL)\2),SDTITL,!,SDLINE,! Line Location: HDR+5
Function Call: WRITE	Prompt: "For date range: ",SDPBDT," to ",SDPEDT,! Line Location: HDR+5
Function Call: WRITE	Prompt: "Date printed: ",SDPNOW,?(IOM-7-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE Line Location: HDR+6
Routine Call	DIR Line Location: PFD WAIT VQ+3 HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	HDR+2
^TMP("SCRPW"	PF1+5, APF+1

Name	Line Occurrences
$$OE0	APF1
$$XY	PF1, VQ+2
@(	VF+2
APF	APFP+1
APF1	APF+1
APFH	DPHD+3, DPHD+4, DPHD+5
APFL	DPHD+3, DPHD+4, DPHD+5
DPHD	HDR1
HD2	HDR1
HDR	HDR1
HDR1	APF+1, APF1
PF1	PF+5
PFD	PF1+4
PFL	PF+5
VQ	VF+1, VFD+1, VFD+2, VFD+3, VFS+2, VP+1, VP+2, VL+2, VO+1
WAIT	PFL+2, PFL+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	OE0+1
DIR	PF1+1!, PF1+2, PF1+3!, PFD~, WAIT~, VQ+3~, HDR+1~
DIR("?"	PF1+1*
DIR("A"	PF1+1, PF1+3, PFD, VQ+3
DIR("B"	PFD, VQ+3
DIR(0	PFD, WAIT, VQ+3, HDR+1
>> DTOUT	PFD, VQ+3
>> DUOUT	PFD, VQ+3
DX	XY+2~, HDR+3~
DY	XY+2~, HDR+3~
IOF	HDR+3
IOM	DDPH+3, DPHD+2, HD2, HDR+4, HDR+5, HDR+6
>> IORVOFF	PF1, VQ+2
>> IORVON	PF1, VQ+2
IOSL	APF+1, APF1
IOST	HDR+1
S1	PF1+2, PF1+3, PF1+4, PF1+5, PFD+1, PFL+2*, APFP+1~, APF~, APF+1
S2	PF1+3, PF1+4, PF1+5, PFD+1, PFL+2, PFR+3, APFP+1~, APF+1*
SDACT	APFP+1~, APF+1*, APF1
SDBOT	PF+2!, PF+3
SDBOT(1	PF+2*
SDBOT(2	PF+2*
SDBOT(3	PF+2*
SDC	APFP+1~*, APF+1, APF1, APFH~, APFH+1, APFL~, APFL+1
SDC1	APFP+1~, APF1*
>> SDCOL	DDPH+4, DDPH+5, DDPH+6, DPHD+3, DPHD+4, DPHD+5, HD1+1, HD1+2, HD1+3, HD1+4 , HD1+5
>> SDD	PF+4*, PF1+2, PF1+3
>> SDF(4	APFP+1, OE0+1, DPHD+1, DPHD+3, DPHD+4, DPHD+5
>> SDF(5	DDPH+1
>> SDHIN	HDR+3
SDI	PFL+1~, PFL+2, APFP+1, HDR1, VF+1~, VFD, VFS, VFS+1, VL+1~, DDPH~ , DDPH+2, DDPH+4, DDPH+5, DDPH+6, HD2~
SDII	APFP+1~, APF+1, HDR1, DDPH+1
SDIII	APFP+1~, APF1, HDR1
SDISP	VF~, VP~, VL~, VO~, VQ+2
>> SDLINE	DDPH+3, DPHD+2, DPHD+3, DPHD+4, DPHD+5, APFL+1, HD2+1, HDR+4, HDR+5, HDR+6
>> SDNUL	PF+4, PF+5, PF1+2, PF1+3
>> SDOE	OE0+2
SDOE0	APFP+1~, APF1*
SDOUT	PF+1, PF+4, PF+5, PF1+2, PF1+3, PFL+1~, PFL+2, PFL+3, WAIT, PFR+2 , PFR+3, APF+1, APF1, OE0+1, VQ+2, VQ+3, DDPH+1, DPHD+1, APFH+1, APFL+1 , HD1+1, HD2, HDR+1, HDR+2
>> SDPAGE	HDR+1, HDR+3, HDR+6*
>> SDPAR(	PF1+5*
>> SDPAR("F"	MAR+1, PFC+1, PF+1, PF+4, PFR+1, PFR+2, VF+1, VFD!, VFD+2, VFD+3 , VFS!, VFS+1, VP+2
>> SDPAR("L"	VL+1
>> SDPAR("O"	VO+1
>> SDPAR("P"	VP+1, VP+2, HD1+3
>> SDPAR("PF"	MAR+1, PFD+1!, PFL+1, PFL+2, PFR+1!, PFR+3!, APFP+1, APF+1, APFH+1, APFL+1
>> SDPAR("PFX"	PF1+4, PF1+5*, PFD+1, PFR+1!, PFR+3!
>> SDPAR("SDX"	PFD+1!
>> SDPBDT	HDR+5
>> SDPEDT	HDR+5
>> SDPNOW	HDR+6
>> SDPTX(	HD2
>> SDS1	PF+4, PF+5, PF1+5
>> SDS2	PF1+5*
>> SDS3	PF1+5*
>> SDSEL	PF1+4, PF1+5, PFD+1, PFR+3
SDTITL	HDR~, HDR+5
>> SDTITLX	HDR+4
SDV	VF+1~, VFD, VFD+1, VFD+2, VFD+3, VFS+1, VFS+2, VP+1, VP+2, VL+1~ , VL+2, VO+1, VQ+2, VQ+3
SDX	PFL+1~, PFL+2, APFP+1~, APF1!, VF+1~, VF+2, DDPH+1~, DDPH+2, DDPH+3, DPHD+1~ , DPHD+2
SDX(	APF1
>> SDXY	XY+2, HDR+2*, HDR+3
SDY	APFP+1~, APF+1*
>> T	PF1+5, APF+1, APF1
U	MAR+1, PFC+1, PF+1, PF+4, PF1+3, PF1+4, PF1+5, PFL+2, PFR+1, PFR+2 , PFR+3, APF+1, APF1, OE0+1, VF+2, VFD+2, VP+2, HD1+3
X	XY~, XY+2
>> Y	PFD+1, WAIT, VQ+3, HDR+1

Customize PDF page

Package: Scheduling

Routine: SCRPW29

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: