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

Package: Integrated Billing

Routine: IBCROI


Information

IBCROI ;ALB/ARH - RATES: REPORTS CHARGE ITEM ; 11/22/96

Source Information

Source file <IBCROI.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$HTE^XLFDT  
Integrated Billing 3 (SRCH1,SRCH2)^IBCROI1  ($$DATE,$$EXPAND,$$GETBED,$$GETCPT,$$GETDRG,$$GETDT,$$GETMISC,$$GETNDC)^IBCRU1  $$RVLNK^IBCRU6  
VA FileMan 2 ^DIC  ^DIR  
CPT HCPCS Codes 1 $$MOD^ICPTMOD  

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

Package Total Caller Graph
Integrated Billing 5 IBCRBH2  IBCREC  IBCRED  IBCROIP  IBCROR  

Entry Points

Name Comments DBIA/ICR reference
EN ; OPTION ENTRY POINT: Charge Item report - get parameters then run the report
RPT ;find, save, and print Charge Item report - entry for tasked jobs
EXIT ;clean up and quit
PRINT ;print the report from the temp sort file to the appropriate device
GETHDR ; set up header lines
HDR() ;print the report header
HDRQ
DEV ;get the device
RVCPT(DRV,ITM,CS) ; returns revenue code: first CI rev code then rv-cpt link
PAUSE ;pause at end of screen if being displayed on a terminal
STOP() ; determine if user has requested the queued report to stop

External References

Name Field # of Occurrence
^%ZIS DEV+1
^%ZISC EXIT+2
^%ZTLOAD DEV+2
$$S^%ZTLOAD STOP+1
^DIC EN+8
^DIR EN+6, EN+15, PAUSE+1
SRCH1^IBCROI1 RPT+20
SRCH2^IBCROI1 RPT+21
$$DATE^IBCRU1 PRINT+15, PRINT+16
$$EXPAND^IBCRU1 PRINT+13
$$GETBED^IBCRU1 EN+13
$$GETCPT^IBCRU1 EN+13
$$GETDRG^IBCRU1 EN+13
$$GETDT^IBCRU1 EN+18, EN+19
$$GETMISC^IBCRU1 EN+13
$$GETNDC^IBCRU1 EN+13
$$RVLNK^IBCRU6 RVCPT+3
$$MOD^ICPTMOD PRINT+19
$$HTE^XLFDT GETHDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?20,"****** Charge Item Report ******",!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"This report will list all charges that are effective within a date range."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"Select a single item to display or press return for all items."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,?20,"CHARGE SET: ",IBS1,!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,$E(IBITEM,1,(31-IBSP1)),?(34-IBSP1),IBEFDT,?(44-IBSP1),IBINDT
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,IBEFDT,?10,IBINDT,?21,$E(IBITEM,1,(32-IBSP1))
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: ?(55-IBSP1),$E(IBCSN,1,(27-IBSP2)),?(82-IBSP1-IBSP2),$J(IBCHG,10,2),IBCHGB,?(102-IBSP1-IBSP2),IBRVCD
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: ?(55-IBSP1),$J(IBCHG,10,2),IBCHGB,?(75-IBSP1),IBRVCD
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !!,$P(^TMP($J,IBSCRPT),U,4)
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,IBHDR1,IBPGN,!,IBHDR2,!,IBHDR3
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: STOP+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • DIC
  • Line Location:
    • EN+8
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • EN+15
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399.2 - [#399.2] RVCPT+4
^IBE(363.1 - [#363.1] EN+12, PRINT+14
^IBE(363.3 - [#363.3] EN+12
^TMP($J RPT+19!, EXIT+1!, PRINT+5, PRINT+8, PRINT+9, PRINT+10, PRINT+12, PRINT+25, GETHDR+2

Label References

Name Line Occurrences
$$HDR PRINT+3, PRINT+10
$$RVCPT PRINT+18
$$STOP HDR+2
DEV EN+21
EXIT EN+21
GETHDR PRINT+3
HDRQ HDR+2, HDR+3, HDR+4
PAUSE PRINT+26, HDR+4
PRINT RPT+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
>> %ZIS("A" DEV+1*
CS RVCPT~, RVCPT+3
DIC EN+1~, EN+8*
DIC(0 EN+8*
DIR EN+1~, EN+6!, EN+15!, PAUSE+1!
DIR("A" EN+6*, EN+15*
DIR(0 EN+6*, EN+15*, PAUSE+1*
DIRUT EN+1~, PAUSE+1
DRV RVCPT~, RVCPT+2
DT EN+18, EN+19
DTOUT EN+1~, EN+6, EN+9
DUOUT EN+1~, EN+6, EN+9, EN+15, PAUSE+1
IBBDT EN+1~, EN+18*, RPT+20, RPT+21
IBCHG PRINT+2~, PRINT+17*, PRINT+23, PRINT+24
IBCHGB PRINT+2~, PRINT+17*, PRINT+23, PRINT+24
IBCSN PRINT+2~, PRINT+14*, PRINT+23
IBDT GETHDR+1~, GETHDR+3*, GETHDR+4
IBEDT EN+1~, EN+19*, RPT+20, RPT+21
IBEFDT PRINT+2~, PRINT+15*, PRINT+19, PRINT+21, PRINT+22
IBHDR EN+1~
IBHDR1 PRINT+1~, GETHDR+4*, HDR+8
IBHDR2 PRINT+1~, GETHDR+1*, GETHDR+6*, GETHDR+7*, GETHDR+8*, GETHDR+9*, HDR+8
IBHDR3 PRINT+1~, GETHDR+10*, HDR+8
IBINDT PRINT+2~, PRINT+16*, PRINT+21, PRINT+22
IBITEM PRINT+2~, PRINT+13*, PRINT+19*, PRINT+21, PRINT+22
IBLIST EN+1~*, EN+8*, EN+9, EN+12, RPT+20, RPT+21
IBLN PRINT+1~, PRINT+3*, PRINT+6*, PRINT+21*, PRINT+22*, HDR+3, HDR+5*
IBLNX PRINT+2~, PRINT+12*, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19
IBPGN PRINT+1~, PRINT+3*, HDR+4, HDR+5*, HDR+6, HDR+8, STOP+1
IBQUIT EN+1~, EN+21*, PRINT+1~, PRINT+3*, PRINT+5, PRINT+8, PRINT+9, PRINT+10*, PRINT+26, HDR+1~*
, HDR+2*, HDR+4, HDRQ, DEV+1*, DEV+2*, PAUSE+1*
IBRVCD PRINT+2~, PRINT+18*, PRINT+23, PRINT+24
IBS GETHDR+1~, GETHDR+2*, GETHDR+4
IBS1 PRINT+1~, PRINT+5*, PRINT+6, PRINT+8, PRINT+9, PRINT+10, PRINT+12
IBS2 PRINT+1~, PRINT+8*, PRINT+9, PRINT+10, PRINT+12
IBS3 PRINT+1~, PRINT+9*, PRINT+10, PRINT+12
IBS4 PRINT+1~, PRINT+10*, PRINT+12
IBSCRPT RPT+19*, EXIT+1!, PRINT+5, PRINT+8, PRINT+9, PRINT+10, PRINT+12, PRINT+25, GETHDR+2
IBSELITM EN+1~, EN+13*, EN+15, RPT+20, RPT+21
IBSORT1 EN+1~, EN+6*, EN+8, EN+12, RPT+20, RPT+21, PRINT+1~, PRINT+6, PRINT+14, PRINT+23
, PRINT+24, GETHDR+2*, GETHDR+8, GETHDR+9
IBSORT2 EN+1~, EN+15*, EN+16*, RPT+20, RPT+21, PRINT+1~, PRINT+21, PRINT+22, GETHDR+2*, GETHDR+6
, GETHDR+7
IBSP1 PRINT+1~, PRINT+21, PRINT+22, PRINT+23, PRINT+24, GETHDR+1*, GETHDR+2*, GETHDR+6, GETHDR+7
IBSP2 PRINT+1~, PRINT+23, GETHDR+1*, GETHDR+2*, GETHDR+8
IBX EN+1~, EN+12*, EN+13, RVCPT+1~*, RVCPT+4*, RVCPT+5
IBY RVCPT+1~*, RVCPT+2*, RVCPT+3*, RVCPT+4
IO PRINT+2
IO("Q" DEV+2!
IOF HDR+6
IOM GETHDR+4, GETHDR+10
IOSL HDR+3
IOST GETHDR+2, HDR+6, PAUSE+1
ITM RVCPT~, RVCPT+3
>> POP DEV+1
U EN+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+25, GETHDR+2
, GETHDR+4, RVCPT+3, RVCPT+4
X EN+1~, HDR+1~
Y EN+1~, EN+6, EN+8, EN+15, HDR+1~
>> ZTDESC DEV+2*
>> ZTQUEUED EXIT+1, PRINT+2, STOP+1
ZTREQ STOP+1!
>> ZTRTN DEV+2*
>> ZTSAVE("IB*" DEV+2*
>> ZTSTOP STOP+1*, STOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All