Routine: SDSCRP1

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZTLOAD ($$FMTE,$$HTE)^XLFDT
Scheduling	3	GETDATE^SDSCOMP RPTEND^SDSCRPT1 ($$SCHNG,DIV,TYPE)^SDSCUTL
VA Fileman	3	EN^DDIOL $$GET1^DIQ ^DIR
Integrated Billing	1	($$TPBILL,$$TPCHG)^IBRSUTL
Registration	1	(DEM,KVA)^VADPT

Package	Total	Caller Graph
Scheduling	1	SDSC UNBILL AMT REPORT

Entry Points

Name	Comments	DBIA/ICR reference
END	; Exit tag
RPT	; Build the report
PRT	; Print
BEG	; Begin report
PER	; Last 2 Persons who edited record
HDR	; Header ; Do not ask 'RETURN' before first page on CRT.
START	;SC Unbilled Amount Report
EXT	;
SCSEL	;Service connection selection

External References

Name	Field # of Occurrence
^%ZIS	RPT+15
^%ZTLOAD	RPT+18
EN^DDIOL	START+9
$$GET1^DIQ	PRT+19, PRT+26, PRT+27, PRT+28, PER+4
^DIR	START+5, SCSEL+5, RPT+4, HDR+2, EXT+2
$$TPBILL^IBRSUTL	PRT+15
$$TPCHG^IBRSUTL	PRT+12
GETDATE^SDSCOMP	RPT+11
RPTEND^SDSCRPT1	EXT+18
$$SCHNG^SDSCUTL	PRT+9
DIV^SDSCUTL	RPT+3
TYPE^SDSCUTL	START+8
DEM^VADPT	PRT+20
KVA^VADPT	END+3
$$FMTE^XLFDT	PRT+25, PRT+29
$$HTE^XLFDT	RPT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Service Connected Unbilled Amount Report" Line Location: START+2
Function Call: WRITE	Prompt: !!,"Encounter to Report" Line Location: SCSEL+2
Function Call: WRITE	Prompt: !!,"You will need a 132 column printer for this report!",! Line Location: RPT+13
Function Call: WRITE	Prompt: !,$E(VADM(1),1,20) Line Location: PRT+21
Function Call: WRITE	Prompt: ?22,SSN Line Location: PRT+24
Function Call: WRITE	Prompt: ?35,$E($$FMTE^XLFDT(SDOEDT,"5Z"),1,16),?55,SDOE Line Location: PRT+25
Function Call: WRITE	Prompt: !,?5,$E($$GET1^DIQ(409.68,SDOE_",",.04,"E"),1,20) Line Location: PRT+26
Function Call: WRITE	Prompt: ?27,$E($$GET1^DIQ(409.48,SDOE_",",.08,"E"),1,20) Line Location: PRT+27
Function Call: WRITE	Prompt: ?49,$E($$FMTE^XLFDT(SDLEDT,"5Z"),1,16) Line Location: PRT+29
Function Call: WRITE	Prompt: ?65,$J(SDINST,0,2) Line Location: PRT+30
Function Call: WRITE	Prompt: ?75,$J(SDPROF,0,2) Line Location: PRT+31
Function Call: WRITE	Prompt: ?85,$E(SDBILL,1,$L(SDBILL)-1) Line Location: PRT+32
Function Call: WRITE	Prompt: ?110,$E(SDNAME,1,$L(SDNAME)-1) Line Location: PRT+34
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: PRT+39
Function Call: WRITE	Prompt: !,"TOTAL:",?65,$J(ITOTAL,0,2),?75,$J(PTOTAL,0,2) Line Location: PRT+40
Function Call: WRITE	Prompt: @IOF Line Location: HDR+4
Function Call: WRITE	Prompt: "ASCD "_$S(SCOPT=2:"Unbilled (SC to NSC)",1:"Billable (NSC to SC)")_" Amounts Report by Division "_SDSCDNM_" ",?90,"Run Date: ",SDRUN,?124,"Page ",$J(P,3) Line Location: HDR+6
Function Call: WRITE	Prompt: !,"* Report reflects ONLY reviewed encounters *" Line Location: HDR+7
Function Call: WRITE	Prompt: !!,"Name",?22,"SSN",?35,"Enc Date/Time",?55,"Encounter No." Line Location: HDR+8
Function Call: WRITE	Prompt: !,?5,"Clinic",?27,"Prim Prov",?49,"Date Edited",?65,"Instit $",?75,"Profess $",?85,"Bill Nos." Line Location: HDR+9
Function Call: WRITE	Prompt: ?110,"Editors" Line Location: HDR+10
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-"),! Line Location: HDR+11
Function Call: WRITE	Prompt: @IOF Line Location: EXT+4
Function Call: WRITE	Prompt: $S(SCOPT=2:"Unbilled (SC to NSC)",1:"Billable (NSC to SC)")_" Amounts Report",?90,"Run Date: ",SDRUN,?124,"Page ",$J(P,3) Line Location: EXT+6
Function Call: WRITE	Prompt: !,"* Report reflects ONLY reviewed encounters *" Line Location: EXT+7
Function Call: WRITE	Prompt: !!,"By Division(s) "_THDR Line Location: EXT+8
Function Call: WRITE	Prompt: !,?65,"Instit $",?75,"Profess $" Line Location: EXT+9
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-"),! Line Location: EXT+10
Function Call: WRITE	Prompt: !,?20,DIV,?65,$J(DITOT(DIV),0,2),?75,$J(DPTOT(DIV),0,2) Line Location: EXT+12
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-"),! Line Location: EXT+15
Function Call: WRITE	Prompt: !,?20,"TOTAL",?65,$J(TOTAI,0,2),?75,$J(TOTAP,0,2) Line Location: EXT+16
Routine Call	DIR Line Location: START+5 SCSEL+5 RPT+4 HDR+2 EXT+2
Routine Call	%ZIS Line Location: RPT+15

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SDSC(409.48 - [#409.48]	GET1^DIQ
409.481	GET1^DIQ
^SCE - [#409.68]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	BEG+8
^SDSC(409.48 - [#409.48]	PRT+4, PRT+6, PRT+7, PER+3

Label References

Name	Line Occurrences
@(	RPT+16
END	RPT+5, RPT+11, RPT+15, RPT+19
EXT	BEG+4, BEG+11
HDR	PRT+2, PRT+18, PRT+38
PER	PRT+34
PRT	BEG+4, BEG+10
RPT	START+12
SCSEL	START+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	RPT+1~, RPT+15*
AI	BEG+1~, BEG+7*
APER	PER+4*, PER+5, END+1!
CT	BEG+1~, BEG+2, BEG+8, EXT+1
DFN	PRT+1~, PRT+19*, END+1!
DIR	START+1~, SCSEL+1~, RPT+1~, HDR+2~, EXT+2~, END+3!
DIR("A"	START+4, SCSEL+4
DIR("B"	START+3, SCSEL+4
DIR(0	START+3, SCSEL+3, HDR+2, EXT+2
DIROUT	END+3!
DIRUT	START+1~, START+5, SCSEL+1~, SCSEL+5, END+3!
DITOT	BEG+1~
DITOT(	BEG+9, PRT+17, EXT+11, EXT+12, EXT+13
DIV	EXT+11*, EXT+12, EXT+13, END+1!
DPTOT	BEG+1~
DPTOT(	BEG+9, PRT+17, EXT+12, EXT+13
DTOUT	RPT+5, END+3!
DUOUT	RPT+5, END+3!
IO	PRT+2
IO("Q"	RPT+16
IOF	HDR+4, EXT+4
IOM	PRT+39, HDR+11, EXT+10, EXT+15
ION	RPT+17
IOSL	PRT+18, PRT+38
IOST	HDR+2, HDR+4, EXT+2, EXT+4
ITOTAL	PRT+1~, PRT+3, PRT+16, PRT+40
L	BEG+1~, BEG+2, PRT+18, PRT+35, PRT+38, PRT+41, HDR+5, END+1!
P	BEG+1~, BEG+2, HDR+2, HDR+4, HDR+5, HDR+6, EXT+2, EXT+4, EXT+6, END+1!
POP	RPT+15, END+1!
PTOTAL	PRT+1~, PRT+3, PRT+16, PRT+40
SCLN	RPT+6, END+3!
SCOPT	START+1~, SCSEL+6*, PRT+10, HDR+6, EXT+6
SCVAL	PRT+1~, PRT+9*, PRT+10
SDABRT	START+11!, SCSEL+5, BEG+1~, BEG+2, BEG+7, PRT+2, PRT+4, PRT+6, PRT+18, PRT+36 , PRT+38, HDR+2, EXT+1, EXT+2, END+1!
SDBILL	PRT+15*, PRT+32, END+1!
SDEDT	PRT+4, END+2!
SDI	PER+1~, PER+3*
SDIBAMT	PRT+1~, PRT+12*, PRT+13
SDINST	PRT+1~, PRT+13*, PRT+14, PRT+16, PRT+17, PRT+30
SDLEDT	PRT+28*, PRT+29, END+2!
SDLI	PER+1~, PER+2, PER+3, PER+4, END+1!
SDNAME	PRT+34, PER+2, PER+5, END+1!
SDOE	PRT+1~, PRT+5, PRT+6, PRT+7, PRT+9, PRT+12, PRT+15, PRT+19, PRT+25, PRT+26 , PRT+27, PRT+28, PER+3, PER+4, END+2!
SDOEDT	PRT+1~, PRT+3, PRT+4, PRT+6, PRT+25, END+2!
SDOPT	START+1~
SDPROF	PRT+1~, PRT+13*, PRT+14, PRT+16, PRT+17, PRT+31
SDRUN	RPT+1~, RPT+9*, HDR+6, EXT+6, END+2!
SDSCBDT	END+2!
SDSCCR	START+1~
SDSCDIV	BEG+1~, BEG+3, BEG+4, BEG+5, BEG+7, BEG+8, PRT+7
SDSCDNM	BEG+1~, BEG+4, BEG+8, BEG+9, PRT+17, HDR+6
SDSCDVLN	RPT+1~, RPT+6*, BEG+3
SDSCDVSL	RPT+1~, RPT+6*, BEG+3, BEG+7
SDSCEDT	END+2!
SDSCTAT	START+1~
SDSCTDT	RPT+1~, RPT+11, PRT+3, END+2!
SDSUPER	START+1~, START+3, START+6, START+10, PRT+34, HDR+10, END+1!
SDTYPE	START+1~, START+9
SSN	PRT+1~, PRT+22, PRT+23, PRT+24
THDR	BEG+1~, BEG+6, BEG+8, EXT+5*, EXT+8
TOTAI	EXT+13*, EXT+16, END+1!
TOTAP	EXT+13*, EXT+16, END+1!
U	PRT+7, PRT+10, PRT+13, PRT+22
VADM	PRT+1~
VADM(1	PRT+21
VADM(2	PRT+22
X	SCSEL+1~, RPT+7!, END+3!
Y	START+1~, START+6, SCSEL+1~, SCSEL+6, RPT+6, RPT+7!, HDR+2, EXT+2, END+3!
ZTDESC	RPT+1~, RPT+14*, RPT+16!
ZTIO	RPT+1~, RPT+17*
ZTRTN	RPT+1~, RPT+14*, RPT+16
ZTSAVE	RPT+1~
ZTSAVE("*"	RPT+17*

Customize PDF page

Package: Scheduling

Routine: SDSCRP1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: