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

Package: Integrated Billing

Routine: IBTOUA


Information

IBTOUA ;ALB/AAS - CLAIMS TRACKING UNSCHEDULED ADMISSION REPORT ; 27-OCT-93

Source Information

Source file <IBTOUA.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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Unscheduled Admissions Report"
  • Line Location: IBTOUA+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 Unscheduled 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,15)
  • Line Location: ONE+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Unscheduled 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"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,"....task stoped at user request"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"....task stoped at user request"
  • Line Location: SET+1
Info |  Source |  Entry Points |  Interaction Calls