Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Integrated Billing 2 ($$DAT1,$$DAT2)^IBOUTL  ($$FILE,$$SUBFILE)^IBRXUTL  
VA FileMan 2 NOW^%DTC  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IB OUTPUT RELEASED CHARGES RPT  

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.

External References

Name Field # of Occurrence
NOW^%DTC EN+3
^%ZIS DEVICE+2
HOME^%ZIS EN+3, DEVICE+7
^%ZISC END
^%ZTLOAD DEVICE+5
^DIR RANGE+2, RANGE+5, PAUSE+3
$$DAT1^IBOUTL PRINT+16, PRINT+17
$$DAT2^IBOUTL HEADER+5
$$FILE^IBRXUTL PRINT+15
$$SUBFILE^IBRXUTL PRINT+14
DEM^VADPT PAT+1, PRNTPAT+2

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
Routine Call
  • DIR
  • Line Location:
    • RANGE+2
    • RANGE+5
    • PAUSE+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+3
    • DEVICE+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+3
^IB - [#350] CHRGS+4, PRINT+8
^IB("AC" CHRGS+3
^IBE(350.1 - [#350.1] PRINT+10
^TMP($J QUEUED+1!, END+3!, CHRGS1+3*, PRINT+3, PRINT+5, PRINT+7, PRINT+23

Label References

Name Line Occurrences
CHRGS QUEUED+3
CHRGS1 CHRGS+6, CHRGS+7
DEVICE QUEUED+2
END SELECT+2, RANGE+2, RANGE+5
HEADER PRINT+4, PRNTPAT+3
HELP SELECT+3
PAT CHRGS1+3
PAUSE HEADER+2
PRINT QUEUED+3
PRNTPAT PRINT+6, PRINT+23
SELECT SELECT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+2*
DFN END+1!, CHRGS1+2*, CHRGS1+3, PRINT+5*, PRINT+7, PRINT+23
DIR RANGE+2!, RANGE+5!, PAUSE+3!
DIR("?" RANGE+1*, RANGE+4*
DIR("A" RANGE*, RANGE+3*
DIR(0 RANGE*, RANGE+3*, PAUSE+3*
DIRUT RANGE+2, RANGE+5, END+1!, PAUSE+3
DTIME SELECT+1
DUOUT END+1!, PAUSE+3
I END+1!, PAUSE+2*
IBACT END+1!, PRINT+9*, PRINT+20
IBATYPE END+1!
IBBILL END+1!, PRINT+12*, PRINT+20
IBCHG END+1!, PRINT+18*, PRINT+21
IBCNT END+1!, PRINT+4*, PRINT+22*, PRINT+25
IBCRT EN+2*, END+1!, CHRGS+2*, PRINT+2, HEADER+2
IBDT END+1!, CHRGS1+1*
>> IBEDT RANGE+5*, CHRGS+1*, CHRGS1+1, HEADER+5
>> IBFL PRINT+5*
IBFR END+1!, PRINT+16*, PRINT+21
IBGBL END+2!, CHRGS+6*, CHRGS+7*, CHRGS1+3, PRINT+3*, PRINT+5, PRINT+7, PRINT+23, HEADER+3
IBHDR END+2!, HEADER+3*, HEADER+5
IBHR END+2!, CHRGS+5*, CHRGS+7
IBLINE EN+2*, END+2!, HEADER+6, HEADER+8
IBN END+2!, CHRGS+3*, CHRGS+4, CHRGS1+3, PRINT+7*, PRINT+8, PRINT+23
IBNAME END+2!, CHRGS1+3, PRINT+5*, PRINT+7, PRINT+23, PAT+2*, PRNTPAT+4
IBND END+2!, CHRGS+4*, CHRGS1+2, PRINT+8*, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+16, PRINT+17
, PRINT+18
IBND1 END+2!, CHRGS+4*, CHRGS+5, CHRGS1+1, PRINT+8*, PRINT+17
IBNOW EN+3*, END+2!, HEADER+6
IBOH END+2!, CHRGS+5*, CHRGS+6
IBPAGE END+2!, PRINT+4*, HEADER+3*, HEADER+6
IBQUIT EN+2*, QUEUED+2, QUEUED+3, END+2!, DEVICE+2*, DEVICE+7*, CHRGS+1, PRINT+1, PRINT+3, PRINT+4
, PRINT+5, PRINT+6, PRINT+19, PRNTPAT+3, HEADER+1, HEADER+2, PAUSE+3*
IBRDT END+3!, PRINT+9*, PRINT+14*, PRINT+15*, PRINT+16
IBRF END+3!, PRINT+9*, PRINT+13*, PRINT+14, PRINT+20
IBRX END+3!, PRINT+9*, PRINT+13*, PRINT+20
IBRXN END+3!, PRINT+9*, PRINT+13*, PRINT+14, PRINT+15, PRINT+16
IBSDT RANGE+2*, END+3!, CHRGS+1*, CHRGS1+1, HEADER+5
IBSEL SELECT+5*, END+3!, CHRGS+6, CHRGS+7
IBSSN END+3!, PRNTPAT+2*, PRNTPAT+4
IBTO END+3!, PRINT+17*, PRINT+21
IBTYPE END+3!, PRINT+10*, PRINT+11*, PRINT+20
IENS PRINT+1~
IO DEVICE+9
IO("Q" DEVICE+3
IOF EN+4, PRINT+2, HEADER+4
IOM EN+2
ION DEVICE+4
IOSL PRINT+23, PRNTPAT+3, PAUSE+2
IOST CHRGS+2, PAUSE+1
POP END+3!, DEVICE+2
U CHRGS+5, CHRGS1+1, CHRGS1+2, PRINT+10, PRINT+12, PRINT+13, PRINT+16, PRINT+17, PRINT+18
VA END+3!
VA("BID" PRNTPAT+2
VADM PAT+1~!, PRNTPAT+1~
VADM(1 PAT+2
VAERR PAT+1~, PRNTPAT+1~, PRNTPAT+2
X EN+1~, EN+3, SELECT+1*, SELECT+2*, SELECT+3, SELECT+4, SELECT+5, END+3!
Y EN+1~, EN+3*, RANGE+2, RANGE+5
>> ZTDESC DEVICE+4*
ZTIO EN+1~, DEVICE+4*
>> ZTQUEUED DEVICE
>> ZTRTN DEVICE+4*
>> ZTSAVE("IB*" DEVICE+5*
ZTSK DEVICE+6, DEVICE+7!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All