Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call