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

Package: Integrated Billing

Routine: IBOHRAR


Information

IBOHRAR ;ALB/EMG-RELEASED CHARGES REPORT;APR 11 1997

Source Information

Source file <IBOHRAR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point.
SELECT
RANGE
QUEUED ; - Entry point if queued.
END
DEVICE
CHRGS ; - Indexes charges released to AR within date range.
CHRGS1 ; - Set global for report.
PRINT ; - Print charges released to AR.
PAT ; - Print patient data during processing.
PRNTPAT ; - Print patient data on report.
HEADER ; - Report header.
PAUSE ; - Pause for screen output.
HELP ; - 'Print former (O)N HOLD...' prompt help text.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"List of On Hold/Hold-Review Charges Released to AR"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!?5,"This report will list all charges that were previously on"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !?5,"ON HOLD or HOLD-REVIEW status and currently have a status"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !?5,"of BILLED and the DATE LAST UPDATED is within the date range"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !?5,"you specify."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"Print former (O)N HOLD charges,"
  • Line Location: SELECT+0
Function Call: WRITE
  • Prompt: " ",$S("Hh"[X:"HOLD-REVIEW","Oo"[X:"ON HOLD",1:"BOTH")
  • Line Location: SELECT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RANGE+2
Function Call: WRITE
  • Prompt: !!,"*** This output should be queued ***"
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !?10,"No charges were released in this time period.",!!
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: $E(IBNAME,1,20),?21,IBSSN
  • Line Location: PRNTPAT+4
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: "List of ",IBHDR," charges released to AR from ",$P($$DAT2^IBOUTL(IBSDT),"@")," to ",$P($$DAT2^IBOUTL(IBEDT),"@")
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"Date Printed: ",IBNOW,?72,"Page ",IBPAGE,!,IBLINE
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"Name",?20,"Pt.ID",?27,"Act.ID",?37,"Bill #",?46,"Type",?52,"Fr/Fl Dt",?62,"To/Rls Dt",?73,"Charge"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,IBLINE,!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !!?5,"Enter: '<CR>' - To select both On Hold and Hold-Review charges"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?15,"'O' - To select only On Hold charges"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?15,"'H' - To select only Hold-Review charges"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?15,"'^' - To quit this option",!
  • Line Location: HELP+4
Info |  Source |  Entry Points |  Interaction Calls