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

Package: Integrated Billing

Routine: IBAGMR1


Information

IBAGMR1 ;WOIFO/AAT-GMT SINGLE PATIENT REPORT;12-JUL-02

Source Information

Source file <IBAGMR1.m>

Entry Points

Name Comments DBIA/ICR reference
REPORT ;
PRINT ; Print report from the temp. global
FORMAT(IBNUM,IBDIG,IBFRM) ;
CHKSTOP
HDR ; Print header.
TOTALS
STAT() ; Display bill number or status
HLD(STAT) ; Return an 'on hold' status string
PAUSE(IBEND) ;
DAT(IBDT) ; Convert FM date to (mm/dd/yy) format.
BILGR(IBACT) ; Input pointer to Action Type File #350.1
; Output - Billing Group

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The patient has no MT/GMT bills within the specified period"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,$$DAT(IBD),?10,"Begin Means Test Billing Clock"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,$$DAT(IBD),?10,"Expire Means Test Billing Clock"
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,$$DAT(IBD)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?10,$$DAT($P(IBZ,U,15))
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: ?20,$E($$ACTNM^IBOUTL(+$P(IBZ,U,3)),1,25)
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?46,$$STAT()
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?56,$$FORMAT(IBCHG,10)
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: ?68,$$FORMAT(IBSAV,10)
  • Condition for execution: IBSAV
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !?5,"Charge Removal Reason: ",$S($D(^IBE(350.3,+$P(IBZ,U,10),0)):$P(^(0),U),1:"UNKNOWN")
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?(80-$L(IBH)\2),IBH
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"From ",$$DAT(IBBDT)," through ",$$DAT(IBEDT)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?IOM-36,IBDTH,?IOM-9,"Page: ",IBPAG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"BILL FROM BILL TO BILL TYPE",?46,"BILL # TOT CHRG TOT GMT DIFF"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?56
  • Line Location: TOTALS+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TOTALS+1
Function Call: WRITE
  • Prompt: !,?54,$$FORMAT(IBTOT,12),?66,$$FORMAT(IBTOTS,12)
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUSE+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUSE+7
Info |  Source |  Entry Points |  Interaction Calls