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

Package: Integrated Billing

Routine: IBCF


Information

IBCF ;ALB/RLW - task 1500/UB printing ;12-JUN-92

Source Information

Source file <IBCF.m>

Entry Points

Name Comments DBIA/ICR reference
EN1(IBABORT) ; call appropriate print routine for the claim form type to be printed ;WCJ;US3380;ADDED IBABORT
EN1X(IBABORT) ; Entrypoint for reprint (IBRESUB will be defined);WCJ;US3380;added parameter
EN1TAG
END
EN2 ; send to default A/R device
EN3 ;queue an Rx Addendum for a bill, IBIFN must be defined
EN4 ;queue bills, IBIFN must be defined
EN5 ;queue 1500 Rx Addendum to Follow-up (AR) printer, IBIFN must be defined - no longer used
ENFMT(IBIFN,IB,IBF,ZTIO,IBRESUB,IBABORT) ; Use formatter to print bill IBIFN
; WCJ;USS3380;added IBABORT which will be set to 1 if they went in to print but dint
FORM ;
QUEUE ;
DISPX ; call to exclude transmittable bills
DISP ; call to include all bills
DISP1(IBTX) ;print list of authorized bills - exclude transmittables if
; IBTX=1
DISPT ;print list of all bills awaiting transmission

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IBAR("ERR")
  • Line Location: EN4+9
Function Call: WRITE
  • Prompt: IBAR("ERR")
  • Line Location: QUEUE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP1+3
Function Call: WRITE
  • Prompt: !,$P(IBX,U,1),?10,$E($P($G(^DPT(+$P(IBX,U,2),0)),U,1),1,20),?32,$$DATE^IBCFP(+$P(IBX,U,3)),?42,$S(+$P(IBX,U,5)<3:"INPT",1:"OUTPT")
  • Line Location: DISP1+8
Function Call: WRITE
  • Prompt: ?49,$P($G(^DGCR(399.3,+$P(IBX,U,7),0)),U,4),?59,$E($$EXSET^IBEFUNC(+$P(IBX,U,13),399,.13),1,7),?68,$E($$FTN^IBCU3($$FT^IBCU3(IBIFN)),1,11)
  • Line Location: DISP1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPT+1
Function Call: WRITE
  • Prompt: !,$P(IBX,U,1),?10,$E($P($G(^DPT(+$P(IBX,U,2),0)),U,1),1,20),?32,$$DATE^IBCFP(+$P(IBX,U,3)),?42,$S(+$P(IBX,U,5)<3:"INPT",1:"OUTPT")
  • Line Location: DISPT+3
Function Call: WRITE
  • Prompt: ?49,$P($G(^DGCR(399.3,+$P(IBX,U,7),0)),U,4),?59,$E($$EXSET^IBEFUNC(+$P(IBX,U,13),399,.13),1,7),?68,$E($$FTN^IBCU3($$FT^IBCU3(IBIFN)),1,11)
  • Line Location: DISPT+4
Info |  Source |  Entry Points |  Interaction Calls