Routine: SDSCRP2

Name	Comments	DBIA/ICR reference
EN	; Entry point - find all records ; Get Division
BEG	; Begin report
FND	; Find records
PRT	;
FPCK	;Check for First Party Bill
TPCK	;Check for Third Party Bill
HDR	; Header ; Do not ask 'RETURN' before first page on CRT.
EXT	;
EXIT	; Exit tag
SVCC(SDENC)	; Service Connected Last Edit Change

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You will need a 132 column printer for this report!",! Line Location: EN+10
Function Call: WRITE	Prompt: !,SDOE,?10,SDPAT,?45,$$FMTE^XLFDT(ENCDT,"5Z") Line Location: PRT+21
Function Call: WRITE	Prompt: ?60,$$FMTE^XLFDT($P(SDWHO,"^",2),"5Z") Line Location: PRT+22
Function Call: WRITE	Prompt: ?75,$$FMTE^XLFDT(AUTHDT,"5Z"),?90,$$FMTE^XLFDT(PYMDT,"5Z") Line Location: PRT+23
Function Call: WRITE	Prompt: ?105,$J(TCHRG,10,2),?115,$J(TPAY,10,2) Line Location: PRT+24
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-"),! Line Location: PRT+29
Function Call: WRITE	Prompt: !,"TOTAL FIRST PARTY: ",?105,$J(FTOTB,10,2),?115,$J(FTOTP,10,2),!! Line Location: PRT+30
Function Call: WRITE	Prompt: !,SDOE,?10,SDPAT,?45,$$FMTE^XLFDT(ENCDT,"5Z") Line Location: PRT+50
Function Call: WRITE	Prompt: ?60,$$FMTE^XLFDT($P(SDWHO,"^",2),"5Z") Line Location: PRT+51
Function Call: WRITE	Prompt: ?75,$$FMTE^XLFDT(AUTHDT,"5Z"),?90,$$FMTE^XLFDT(PYMDT,"5Z") Line Location: PRT+52
Function Call: WRITE	Prompt: ?105,$J(TCHRG,10,2),?115,$J(TPAY,10,2) Line Location: PRT+53
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-"),! Line Location: PRT+58
Function Call: WRITE	Prompt: !,"TOTAL THIRD PARTY: ",?105,$J(TTOTB,10,2),?115,$J(TTOTP,10,2),!! Line Location: PRT+59
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-"),! Line Location: PRT+62
Function Call: WRITE	Prompt: !,"TOTAL FOR BOTH: ",?105,$J(GTOTB,10,2),?115,$J(GTOTP,10,2),!! Line Location: PRT+63
Function Call: WRITE	Prompt: @IOF Line Location: HDR+5
Function Call: WRITE	Prompt: "Recovered Costs Report by Division: "_SDSCDNM_" ",?90,"Run Date: ",SDRUN,?124,"Page ",$J(P,3) Line Location: HDR+7
Function Call: WRITE	Prompt: !,"Enc #",?10,"Patient",?45,"Enc Date",?60,"Change Date",?75,"Auth Date",?90,"Pay Date",?105,"Prncpl Bill",?117,"Prncpl Pay" Line Location: HDR+8
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-"),! Line Location: HDR+9
Function Call: WRITE	Prompt: @IOF Line Location: EXT+5
Function Call: WRITE	Prompt: "Recovered Costs Report",?90,"Run Date: ",SDRUN,?124,"Page ",$J(P,3) Line Location: EXT+8
Function Call: WRITE	Prompt: !,"By Division(s) "_THDR Line Location: EXT+9
Function Call: WRITE	Prompt: !,?105,"Prncpl Bill",?117,"Prncpl Pay" Line Location: EXT+10
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-"),! Line Location: EXT+11
Function Call: WRITE	Prompt: !,?10,"FIRST PARTY TOTAL" Line Location: EXT+12
Function Call: WRITE	Prompt: !,?30,DIV,?105,$J(DFTOTB(DIV),10,2),?115,$J(DFTOTP(DIV),10,2) Line Location: EXT+14
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-"),! Line Location: EXT+16
Function Call: WRITE	Prompt: !,?10,"THIRD PARTY TOTAL" Line Location: EXT+17
Function Call: WRITE	Prompt: !,?30,DIV,?105,$J(DTTOTB(DIV),10,2),?115,$J(DTTOTP(DIV),10,2) Line Location: EXT+19
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-"),! Line Location: EXT+21
Function Call: WRITE	Prompt: !,?10,"TOTAL FOR BOTH FIRST AND THIRD PARTY",?105,$J(TOTALB,10,2),?115,$J(TOTALP,10,2) Line Location: EXT+22

Customize PDF page

Package: Scheduling

Routine: SDSCRP2

Information

Source Information

Entry Points

Interaction Calls