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: IBTOSA

Package: Integrated Billing

Routine: IBTOSA


Information

IBTOSA ;ALB/AAS - CLAIMS TRACKING SCHEDULED ADMISSION REPORT ; 27-OCT-93

Source Information

Source file <IBTOSA.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 from ct
PR
ONE ; -- Print one patients data
HDR ; -- Print header for billing report
SET ; -- set tmp array
SCH(IBTRN) ; -- is patient either admitted or still scheduled
SCHQ
FIX ; -- find bad episode dates and fix
F1(IBTRN) ; fix EPISODE DATE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Scheduled Admissions Report"
  • Line Location: IBTOSA+4
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: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"No Scheduled Admission found in date range",!
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !!,"------------------"
  • Line Location: PR+6
Function Call: WRITE
  • Prompt: !,"TOTAL = ",IBCNT
  • Line Location: PR+7
Function Call: WRITE
  • Prompt: !,$E(IBNAM,1,27),?30,VA("PID"),?45,$$DAT1^IBOUTL($P(IBTRND,"^",6),"2P")
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: ?100,$E($P($G(^DPT(DFN,.1)),"^"),1,12),?115,$E($$EXPAND^IBTRE(356,.07,$P(IBTRND,"^",7)),1,11)
  • Line Location: ONE+7
Function Call: WRITE
  • Prompt: ?129,"YES"
  • Line Location: ONE+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Scheduled Admissions with Insurance",?(IOM-33),"Page ",IBPAG," ",IBHDT
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"For Period beginning on ",$$DAT1^IBOUTL(IBBDT)," to ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Patient",?30,"Pt. ID",?45,"Adm. Date",?66,"Billable",?100,"Ward",?115,"Type",?126,"Buffer"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,"....task stop* ed at user request"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"....task stop* ed at user request"
  • Line Location: SET+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356 - [#356] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call