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

Package: Integrated Billing

Routine: IBOHLD2


Information

IBOHLD2 ;ALB/CJM - REPORT OF CHARGES ON HOLD W/INS ;MAR 6,1991

Source Information

Source file <IBOHLD2.m>

Entry Points

Name Comments DBIA/ICR reference
REPORT ;
LOOP ;
PRNTBILL ; prints bills for a charge
PRNTPAT ; prints patient data
PRNTINS ; prints insurance information
GRP(IBCPOL) ; get group name/group policy
GRPQ
PR(STR,LEN) ; pad right
PRNTCHG ; prints a charge
HEADER ; writes the report header
IBACTYPE(IBTYPE) ; Patch IB*2.0*618 - added community care - action types to HELD CHARGES report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REPORT+6
Function Call: WRITE
  • Prompt: ?123,IBPD,!
  • Line Location: PRNTBILL+11
Function Call: WRITE
  • Prompt: IBLINE,!
  • Line Location: PRNTPAT+3
Function Call: WRITE
  • Prompt: $E(IBNAME,1,20),?22,IBSSN
  • Line Location: PRNTPAT+4
Function Call: WRITE
  • Prompt: IBLINE,!
  • Line Location: PRNTINS+5
Function Call: WRITE
  • Prompt: ?35,"No Insurance Information"
  • Line Location: PRNTINS+6
Function Call: WRITE
  • Prompt: !,?38,"* No Group Plan Information for this Patient - Verify Insurance Info!",!
  • Line Location: PRNTINS+14
Function Call: WRITE
  • Prompt: ?40,COV,?86,"BY DEFAULT",!
  • Line Location: PRNTINS+20
Function Call: WRITE
  • Prompt: ?40,X2,!
  • Line Location: PRNTINS+24
Function Call: WRITE
  • Prompt: ?40,$S(Z0=1:X2_$G(^IBA(355.32,COVFN,2,Z0,0)),1:$$PR(SP,48)_$G(^IBA(355.32,COVFN,2,Z0,0))),!
  • Line Location: PRNTINS+25
Function Call: WRITE
  • Prompt: ?29,IBACT,?39,IBTYPE,?46,IBBILL
  • Line Location: PRNTCHG+32
Function Call: WRITE
  • Prompt: ?55,"Rx #: "_IBRX_$S(IBRF>0:"("_IBRF_")",1:""),?85,"||",!
  • Line Location: PRNTCHG+33
Function Call: WRITE
  • Prompt: ?55,"ECME #: ",IBECME,?85,"||",!
  • Line Location: PRNTCHG+33
Function Call: WRITE
  • Prompt: ?55,IBFR,?66,IBTO,?75,IBCHG
  • Line Location: PRNTCHG+35
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: READ
  • Prompt: " Press RETURN to continue"
  • Variable: T
  • Timeout: DTIME
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?53,"MEANS TEST CHARGES ON HOLD",?110,IBNOW," PAGE ",IBPAGE,!,"HELD CHARGES",?87,"CORRESPONDING THIRD PARTY BILLS",!,IBLINE
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"Name",?22,"Pt.ID",?29,"Act.ID",?39,"Type",?46,"Bill#",?55,"Fr/Fl Dt",?66,"To/Rls Dt",?78,"Charge",?85,"||",?88,"Bill#",?97,"AR-Status",?115,"Charge",?128,"Paid"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,IBLINE,!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?20,"'*' = outpt visit on same day as Rx fill date",?85,"||",!,IBLINE,!
  • Line Location: HEADER+8
Info |  Source |  Entry Points |  Interaction Calls