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
Print Page as PDF
Routine: IBDFOSG

Package: Automated Information Collection System

Routine: IBDFOSG


Information

IBDFOSG ;ALB/MAF/AAS - SCANNED EF FOR OUTPATIENTS WITH BILLS GENERATED REPORT ;8/21/95

Source Information

Source file <IBDFOSG.m>

Entry Points

Name Comments DBIA/ICR reference
DATE ; -- select date
DEV ; -- select device, run option
DQ
END ; -- Clean up
PRINT ; -- print one billing report
; Data sorted into ^tmp arrays
; := ^tmp("mccr",$j) =
; Clinic Totals := ^tmp("ctot",$j,division,clinic)=
; Division Totals := ^tmp("dtot",$j,division) =
; Grand Totals := ^tmp("gtot",$j) =
PR
ONECL ; -- Print one clinics data
ONEDV ; -- Print Division totals
LINE(NAME,IBX) ;
; -- print detail line
; input Name := text to be printed
; ibx ;= 9 piece global node containing data
HDR ; -- Print header for billing report
QUIT
DASH
DIVH ; -- Write division header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?4,"** This option is OUT OF ORDER **"
  • Line Location: IBDFOSG+3
Function Call: WRITE
  • Prompt: !!,"Scanned Encounter Forms with Outpatient Bills Generated."
  • Line Location: IBDFOSG+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled")
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"No Data Meeting This Criteria for the Date Range Chosen",!
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !,$E(NAME,1,25)
  • Line Location: LINE+6
Function Call: WRITE
  • Prompt: ?27,$J($P(IBX,"^",4),8)
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: ?39,$J($P(IBX,"^",3),8)
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: ?51,$J($P(IBX,"^",1),8)
  • Line Location: LINE+9
Function Call: WRITE
  • Prompt: ?63,$J($P(IBX,"^",2),8)
  • Line Location: LINE+10
Function Call: WRITE
  • Prompt: ?75,$J(X,8,2)
  • Line Location: LINE+12
Function Call: WRITE
  • Prompt: ?87,$J($P(IBX,"^",6),8)
  • Line Location: LINE+13
Function Call: WRITE
  • Prompt: ?99,$J($P(IBX,"^",7),8)
  • Line Location: LINE+14
Function Call: WRITE
  • Prompt: ?111,$J($P(IBX,"^",8),8)
  • Line Location: LINE+15
Function Call: WRITE
  • Prompt: ?123,$J($P(IBX,"^",9),8)
  • Line Location: LINE+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Scanned Encounters with Bill Generation Data",?(IOM-33),"Page ",IBPAG," ",IBHDT
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"For Period beginning on ",$$FMTE^XLFDT(IBBDT,2)," to ",$$FMTE^XLFDT(IBEDT,2)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?53,"Visits",?65,"#Bills",?75,"Avg. Days",?114,"Total",?126,"Total"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Clinic",?27,"#Scanned",?39,"#Insured",?53,"Billed",?64,"Printed",?75,"to Print",?87,"$ Billed",?100,"$ Recvd",?114,"Bills",?125,"Visits"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+0
Function Call: WRITE
  • Prompt: !,"------------------",?27,"--------",?39,"--------",?51,"--------",?63,"--------",?75,"--------",?87,"--------",?99,"--------",?111,"--------",?123,"--------"
  • Line Location: DASH+0
Function Call: WRITE
  • Prompt: !!,?(IOM-$L(IBDFDV)+10/2),"DIVISION: ",IBDFDV,!
  • Line Location: DIVH+3
Info |  Source |  Entry Points |  Interaction Calls