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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SDSCRP1

Package: Scheduling

Routine: SDSCRP1


Information

SDSCRP1 ;ALB/JAM/RBS - Unbilled Amt Report for ASCD ; 3/6/07 10:45am

Source Information

Source file <SDSCRP1.m>

Call Graph

Call Graph

Call Graph Total: 11

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SDSC UNBILL AMT REPORT  

Entry Points

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

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
  • %ZIS
  • Line Location:
    • RPT+15
Routine Call
  • DIR
  • Line Location:
    • START+5
    • SCSEL+5
    • RPT+4
    • HDR+2
    • EXT+2

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All