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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBOHCT

Package: Integrated Billing

Routine: IBOHCT


Information

IBOHCT ;ALB/EMG - CHECK FOR IB CHARGES ON HOLD ; MAY 2 1997

Source Information

Source file <IBOHCT.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 3 $$DAT1^IBOUTL  ^IBR  ($$FILE,$$SUBFILE)^IBRXUTL  
Kernel 1 HOME^%ZIS  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Integrated Billing 2 IBCC1  IBT STATUS CHANGE  

Entry Points

Name Comments DBIA/ICR reference
FIND(DFN,IBTRN) ; find all related IB charges on hold for episodes of care
; for this Claims Tracking entry with Reason Not Billable
; once IB Charge is found, release Charge On Hold to AR
; so patient can be billed.
REL ; allow user to select IB charges to pass to Accounts Receivable
ALLQ
HDR ; Display charge header.
LST ; Display individual IB Action.
RXCHG ; - find related rx copay's on hold in file 350
ERR ; display error message

External References

Name Field # of Occurrence
HOME^%ZIS FIND+10
^DIR REL+9, REL+13, REL+20
$$DAT1^IBOUTL LST+10, LST+11
^IBR REL+17
$$FILE^IBRXUTL LST+6
$$SUBFILE^IBRXUTL LST+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The following IB Action"_$S(IBNUM>2:"s",1:"")_", related to this CT entry, ",$S(IBNUM>2:"are",1:"is")," ON HOLD:"
  • Line Location: REL+3
Function Call: READ
  • Formatting: !
  • Prompt: "Enter RETURN to continue or '^' to stop: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: REL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: REL+9
Function Call: WRITE
  • Prompt: !!,"Passing charges to Accounts Receivable...",!
  • Line Location: REL+16
Function Call: WRITE
  • Prompt: !!,"The charge"_$E("s",$P(IBRANGE,",",2)>0)_" listed above "_$S($P(IBRANGE,",",2):"have",1:"has")_" been passed to Accounts Receivable.",!
  • Line Location: REL+18
Function Call: WRITE
  • Prompt: !
  • Line Location: REL+20
Function Call: WRITE
  • Prompt: !,IBLINE,!," REF Action ID Bill Type",?42,"Bill #",?51,"Fr/Fl Dt",?61,"To/Rls Dt",?73,"Charge"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?1,$J(IBNUM,2),?7,$J(+IBND,9)
  • Line Location: LST+7
Function Call: WRITE
  • Prompt: ?18,$S(IBRXN>0:"Rx #: "_IBRX_$S(IBRF>0:"("_IBRF_")",1:""),1:$P($G(^IBE(350.1,+$P(IBND,"^",3),0)),"^",8))
  • Line Location: LST+8
Function Call: WRITE
  • Prompt: ?42,$P($P(IBND,"^",11),"-",2)
  • Line Location: LST+9
Function Call: WRITE
  • Prompt: ?51,$$DAT1^IBOUTL($S(IBRXN>0:IBRDT,1:$P(IBND,"^",14)))
  • Line Location: LST+10
Function Call: WRITE
  • Prompt: ?70,$J(+$P(IBND,"^",7),9,2)
  • Line Location: LST+12
Function Call: WRITE
  • Prompt: !,?5,"Error encountered - a separate bulletin has been posted"
  • Line Location: ERR+1
Routine Call
  • %ZIS
  • Line Location:
    • FIND+10
Routine Call
  • DIR
  • Line Location:
    • REL+9
    • REL+13
    • REL+20

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB - [#350] FIND+21, LST+2, RXCHG+3
^IB("AF" FIND+20
^IB("AFDT" FIND+19
^IB("APTDT" RXCHG+3
^IBE(350.1 - [#350.1] LST+8
^IBT(356 - [#356] FIND+14

Label References

Name Line Occurrences
ALLQ FIND+9, FIND+15, REL+2, REL+13, REL+20
ERR REL+17
HDR REL+3, REL+16
LST REL+4, REL+17
REL FIND+15
RXCHG FIND+15

Naked Globals

Name Field # of Occurrence
^(0 FIND+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN FIND~, FIND+9, FIND+19, RXCHG+3
DIR REL+9!, REL+13!, REL+20!
DIR("?" REL+8*
DIR("A" REL+8*, REL+12*
DIR(0 REL+8*, REL+12*, REL+20*
DIRUT REL+9, REL+13, ALLQ+2!
DL FIND+12~
DP FIND+12~
DTIME REL+5
DUOUT REL+9, REL+13, ALLQ+2!
DUZ REL+11
IBA FIND+12~
IBA( FIND+23*, REL+4, REL+17, RXCHG+5*
IBC ALLQ!, RXCHG+1~
IBCRG ALLQ!, RXCHG+1~
IBCT FIND+14*, FIND+15, ALLQ!
IBCTR FIND+12~, REL+17*, ALLQ!
IBDUZ FIND+12~, REL+11*
IBEDT FIND+12~, FIND+14*, FIND+19, ALLQ!, RXCHG+3*
IBEND FIND+12~, ALLQ!
IBI FIND+14*, ALLQ!
IBLINE ALLQ!, HDR+1~*, HDR+2, HDR+3
IBN REL+4*, REL+17*, ALLQ!, LST+2
IBND ALLQ!, LST+1~, LST+2*, LST+3, LST+4, LST+7, LST+8, LST+9, LST+10, LST+11
, LST+12
IBND1 LST+1~, LST+2*, LST+11
IBNOS FIND+12~, REL+17*, ALLQ+1!
IBNUM FIND+19*, FIND+23*, REL+2, REL+3, REL+4*, REL+8, REL+17*, ALLQ+1!, LST+7, RXCHG+2*
, RXCHG+5*
IBOHD ALLQ+1!, RXCHG+3*
IBQ FIND+8~, REL+4*, REL+5*, ALLQ+1!
IBRANGE REL+11*, REL+17, REL+18, ALLQ+1!
IBRDT LST+1~, LST+2*, LST+5*, LST+6*, LST+10
IBRF LST+1~, LST+2*, LST+3*, LST+5, LST+8
IBRX LST+1~, LST+2*, LST+3*, LST+8
IBRXBN RXCHG+1~
IBRXDT ALLQ+1!, RXCHG+1~
IBRXEND ALLQ+1!, RXCHG+1~, RXCHG+3*
IBRXN ALLQ+1!, LST+1~, LST+2*, LST+3*, LST+5, LST+6, LST+8, LST+10, RXCHG+1~
IBSEQNO FIND+12~, REL+11*, ALLQ+1!
IBTRN FIND~, FIND+9, FIND+14
IBX FIND+12~, FIND+21*, FIND+22, RXCHG+3*, RXCHG+4
IENS LST+1~, LST+5*, LST+6*
X FIND+12~, REL+5*
Y FIND+12~, FIND+19*, FIND+20, REL+11, REL+12, REL+13, REL+17
Y1 FIND+12~, FIND+20*, FIND+21, FIND+23, RXCHG+3*, RXCHG+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All