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

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

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
Info |  Source |  Entry Points |  Interaction Calls