Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SDSCRP2

Package: Scheduling

Routine: SDSCRP2


Information

SDSCRP2 ;ALB/JAM/RBS - Recovered Costs Report for ASCD ; 3/13/07 2:50pm

Source Information

Source file <SDSCRP2.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Scheduling 4 $$GETOE^SDOE  GETDATE^SDSCOMP  RPTEND^SDSCRPT1  ($$SCHNG,DIV)^SDSCUTL  
Kernel 3 ^%ZIS  ^%ZTLOAD  ($$FMTE,$$HTE)^XLFDT  
IFCAP 1 $$GETDATA^PRCAAPI  
Integrated Billing 1 ($$FPBILL,$$TPBILL)^IBRSUTL  
Registration 1 (DEM,KVA)^VADPT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SDSC RECOVERED REPORT  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS EN+11
^%ZTLOAD EN+14
^DIR EN+4, HDR+3, EXT+3
$$FPBILL^IBRSUTL FPCK+2
$$TPBILL^IBRSUTL TPCK+2
$$GETDATA^PRCAAPI FPCK+3, TPCK+4
$$GETOE^SDOE FND+11
GETDATE^SDSCOMP EN+9
RPTEND^SDSCRPT1 EXT+23
$$SCHNG^SDSCUTL FND+13
DIV^SDSCUTL EN+3
DEM^VADPT PRT+17, PRT+45
KVA^VADPT EXIT+2
$$FMTE^XLFDT PRT+21, PRT+22, PRT+23, PRT+50, PRT+51, PRT+52
$$HTE^XLFDT EN+7

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
Routine Call
  • DIR
  • Line Location:
    • EN+4
    • HDR+3
    • EXT+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] BEG+8
^SDSC(409.48 - [#409.48] FND+5, FND+7, FND+8, PRT+14, PRT+42, SVCC+11, SVCC+13
^TMP($J FND+3!, PRT+5, PRT+7, PRT+8, PRT+34, PRT+36, PRT+37, FPCK+5*, TPCK+6*, EXIT+3!

Label References

Name Line Occurrences
$$SVCC PRT+12, PRT+40
@( EN+12
EXIT EN+5, EN+9, EN+11, EN+15
EXT BEG+4, BEG+9
FND BEG+4, BEG+8
FPCK FND+15
HDR PRT+1, PRT+20, PRT+28, PRT+49, PRT+57, PRT+61
TPCK FND+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+11!*
AUTHDT FND+2~, PRT+11*, PRT+23, PRT+39*, PRT+52
BILL EXIT+1!
BILN FND+2~, PRT+6*, PRT+7*, PRT+8, PRT+35*, PRT+36*, PRT+37
BILT EXIT+2!
CT BEG+1~, BEG+2*, BEG+8*, EXT+2
DFN FND+1~, PRT+16*, PRT+44*
DFTOTB BEG+1~
DFTOTB( PRT+3*, PRT+19*, EXT+13, EXT+14, EXT+15
DFTOTP BEG+1~
DFTOTP( PRT+3*, PRT+19*, EXT+14, EXT+15
DIR EN+2~, EN+6!, HDR+3~, EXT+3~, EXIT+2!
DIR(0 HDR+3*, EXT+3*
DIROUT EXIT+2!
DIRUT EXIT+2!
DIV EXT+1~, EXT+13*, EXT+14, EXT+15, EXT+18*, EXT+19, EXT+20
DTOUT EN+5, EXIT+2!
DTTOTB BEG+1~
DTTOTB( PRT+3*, PRT+48*, EXT+18, EXT+19, EXT+20
DTTOTP BEG+1~
DTTOTP( PRT+3*, PRT+48*, EXT+19, EXT+20
DUOUT EN+5, EXIT+2!
ENCDT FND+1~, FND+2~, PRT+15*, PRT+21, PRT+43*, PRT+50
FIND EXIT+2!
FTOTB FND+1~, PRT+2*, PRT+18*, PRT+30
FTOTP FND+1~, PRT+2*, PRT+18*, PRT+30
GTOTB FND+1~, PRT+2*, PRT+18*, PRT+47*, PRT+63
GTOTP FND+1~, PRT+2*, PRT+18*, PRT+47*, PRT+63
IO PRT+1
IO("Q" EN+12
IOF HDR+5, EXT+5
IOM PRT+29, PRT+58, PRT+62, HDR+9, EXT+11, EXT+16, EXT+21
ION EN+13
IOSL PRT+20, PRT+28, PRT+49, PRT+57, PRT+61
IOST HDR+2, HDR+5, EXT+3, EXT+5
L BEG+1~, BEG+2*, PRT+20, PRT+25*, PRT+28, PRT+31*, PRT+49, PRT+54*, PRT+57, PRT+60*
, PRT+61, PRT+64*, HDR+6*, EXT+1~, EXT+6*
P BEG+1~, BEG+2*, HDR+2, HDR+5, HDR+6*, HDR+7, EXT+3, EXT+5, EXT+6*, EXT+8
POP EN+11, EXIT+1!
PYMDT FND+2~, PRT+13*, PRT+23, PRT+41*, PRT+52
SCARTR FPCK+1~, FPCK+3*, FPCK+4*, FPCK+5, TPCK+1~, TPCK+4*, TPCK+5, TPCK+6
SCBID TPCK+1~, TPCK+3*, TPCK+4, TPCK+6
SCBLNS FPCK+1~, FPCK+2*, FPCK+3, FPCK+4, FPCK+5, TPCK+1~, TPCK+2*, TPCK+3
SCI TPCK+1~, TPCK+3*
SCLN EN+6!, EXIT+2!
SCVAL FND+2~, FND+13*, FND+14
SDABRT BEG+1~, BEG+2*, BEG+7, PRT+1, PRT+5, PRT+7, PRT+20, PRT+26, PRT+28, PRT+34
, PRT+36, PRT+49, PRT+55, PRT+57, PRT+61, HDR+2*, EXT+2, EXT+3*, EXIT+1!
SDATA FND+1~, FND+8*, FND+9, FND+10
SDBTR FND+2~, PRT+8*, PRT+9, PRT+10, PRT+11, PRT+13, PRT+37*, PRT+38, PRT+39, PRT+41
, PRT+46
SDCLM FND+1~
SDEDT FND+5, EXIT+1!
SDENC SVCC~, SVCC+11, SVCC+13
SDI BEG+1~, BEG+7*
SDJ SVCC+9~, SVCC+10*, SVCC+11*, SVCC+12, SVCC+13
SDOE FND+1~, FND+6*, FND+7*, FND+8, FND+11, FND+13, PRT+4*, PRT+5*, PRT+7, PRT+8
, PRT+12, PRT+14, PRT+21, PRT+33*, PRT+34*, PRT+36, PRT+37, PRT+40, PRT+42, PRT+50
, FPCK+2, FPCK+5, TPCK+2, TPCK+6, EXIT+1!
SDOEDT FND+1~, FND+4*, FND+5*, FND+7, EXIT+1!
SDPAT FND+2~, PRT+17*, PRT+21, PRT+45*, PRT+50
SDQFL EXIT+1!
SDRUN EN+2~, EN+7*, HDR+7, EXT+8, EXIT+1!
SDSCBDT EXIT+1!
SDSCD FND+2~, PRT+14*, PRT+15, PRT+16, PRT+42*, PRT+43, PRT+44
SDSCDIV BEG+1~, BEG+3*, BEG+4, BEG+5, BEG+7*, BEG+8, FND+10, PRT+3
SDSCDNM BEG+1~, BEG+4*, BEG+8*, PRT+3, PRT+19, PRT+48, HDR+7
SDSCDVLN EN+2~, EN+6*, BEG+3
SDSCDVSL EN+2~, EN+6*, BEG+3, BEG+7
SDSCEDT EXIT+1!
SDSCTDT EN+9, FND+4, EXIT+1!
SDVAL SVCC+9~, SVCC+10*, SVCC+15*, SVCC+16
SDWHO FND+2~, PRT+12*, PRT+22, PRT+40*, PRT+51
SDX SVCC+9~, SVCC+13*, SVCC+14, SVCC+15
TCHRG FND+2~, PRT+9*, PRT+18, PRT+19, PRT+24, PRT+46*, PRT+47, PRT+48, PRT+53
THDR BEG+1~, BEG+6*, BEG+8*, EXT+7*, EXT+9
TOTALB EXT+1~, EXT+6*, EXT+15*, EXT+20*, EXT+22
TOTALP EXT+1~, EXT+6*, EXT+15*, EXT+20*, EXT+22
TPAY FND+2~, PRT+10*, PRT+18, PRT+19, PRT+24, PRT+38*, PRT+47, PRT+48, PRT+53
TTOTB FND+1~, PRT+2*, PRT+47*, PRT+59
TTOTP FND+1~, PRT+2*, PRT+47*, PRT+59
U FND+9, FND+10, FND+14, PRT+9, PRT+10, PRT+11, PRT+13, PRT+15, PRT+16, PRT+17
, PRT+38, PRT+39, PRT+41, PRT+43, PRT+44, PRT+45, PRT+46, FPCK+2, FPCK+3, FPCK+4
, FPCK+5, TPCK+3, SVCC+14, SVCC+15
VADM FND+2~
VADM(1 PRT+17, PRT+45
VADM(2 PRT+17, PRT+45
X EN+2~, EN+6!, EXIT+2!
Y EN+2~, EN+6!, HDR+2, EXT+3, EXIT+2!
ZTDESC EN+2~, EN+7*, EN+12!
ZTIO EN+2~, EN+13*
ZTRTN EN+2~, EN+7*, EN+12
ZTSAVE EN+2~
ZTSAVE("*" EN+13*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All