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

Package: Integrated Billing

Routine: IBAGMR1


Information

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

Source Information

Source file <IBAGMR1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 2 $$PT^IBEFUNC  $$ACTNM^IBOUTL  
VA FileMan 2 (COMMA,NOW)^%DTC  ^DIR  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Integrated Billing 1 IBAGMR  

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

External References

Name Field # of Occurrence
COMMA^%DTC FORMAT+3
NOW^%DTC PRINT+2
^DIR PAUSE+6
$$PT^IBEFUNC PRINT+4
$$ACTNM^IBOUTL REPORT+29, PRINT+19
$$FMTE^XLFDT PRINT+2, DAT+1

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
Routine Call
  • DIR
  • Line Location:
    • PAUSE+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB - [#350] REPORT+22, PRINT+15, PRINT+23
^IB("AF" REPORT+21
^IB("AFDT" REPORT+19, REPORT+20
^IBE(350.1 - [#350.1] PRINT+18, BILGR+3, BILGR+4
^IBE(350.21 - [#350.21] PRINT+26, PRINT+30, STAT+1
^IBE(350.3 - [#350.3] PRINT+30
^IBE(351 - [#351] REPORT+8, REPORT+10, REPORT+11
^TMP($J REPORT+3

Label References

Name Line Occurrences
$$DAT PRINT+12, PRINT+13, PRINT+14, PRINT+17, HDR+4
$$FORMAT PRINT+27, TOTALS+2
$$HLD STAT+2
$$STAT PRINT+20
CHKSTOP PRINT+11
HDR PRINT+6, CHKSTOP
PAUSE PRINT+7, PRINT+33, CHKSTOP
PRINT REPORT+32
TOTALS PRINT+32

Naked Globals

Name Field # of Occurrence
^(0 PRINT+30, BILGR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+1~, PRINT+2
DIR PAUSE+2~, PAUSE+6!
DIR("A" PAUSE+5*
DIR(0 PAUSE+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~
DTOUT PAUSE+2~
DUOUT PAUSE+2~, PAUSE+6
IBACT BILGR~, BILGR+3, BILGR+4
IBAT REPORT+1~, REPORT+28*, REPORT+29, PRINT+16*
>> IBBDT REPORT+7, REPORT+13, REPORT+26, HDR+4
IBCHG PRINT+1~, PRINT+3*, PRINT+21*, PRINT+23*, PRINT+25, PRINT+26*, PRINT+27, PRINT+28
IBCIS PRINT+1~, PRINT+5*
IBCL REPORT+1~, REPORT+9*, REPORT+10*, REPORT+11, REPORT+13
IBCR REPORT+1~, REPORT+20*, REPORT+21
IBD PRINT+1~, PRINT+9*, PRINT+10, PRINT+12, PRINT+13, PRINT+14
IBDA REPORT+1~, REPORT+21*, REPORT+22, REPORT+30, PRINT+1~, PRINT+15*
>> IBDFN REPORT+8, REPORT+10, REPORT+19, REPORT+20, PRINT+4
IBDIG FORMAT~, FORMAT+2
IBDT REPORT+1~, REPORT+7*, REPORT+8*, REPORT+10, REPORT+13, REPORT+19*, REPORT+20, DAT~, DAT+1
IBDTBF REPORT+1~, REPORT+25*, REPORT+27
IBDTBT REPORT+1~, REPORT+25*, REPORT+26
IBDTE REPORT+1~
IBDTH REPORT+1~, PRINT+2*, HDR+5
>> IBEDT REPORT+13, REPORT+19, REPORT+27, HDR+4
IBEND PAUSE~, PAUSE+5, PAUSE+7
IBFRM FORMAT~, FORMAT+2
IBGMT PRINT+1~, PRINT+22*, PRINT+23*, PRINT+25
IBH PRINT+1~, PRINT+6*, HDR+3
IBI HDR+1~, HDR+7*, TOTALS~, TOTALS+1*
IBJ PAUSE+2~
IBLINE PRINT+1~, PRINT+3*
IBNEW BILGR+2~, BILGR+3*, BILGR+4
IBNUM FORMAT~, FORMAT+2
IBPAG PRINT+1~, PRINT+3*, HDR+2, HDR+3*, HDR+5
IBPT PRINT+1~, PRINT+4*, PRINT+6
>> IBQUIT REPORT+2*, PRINT+3*, PRINT+9, PRINT+10, PRINT+11, PRINT+31, CHKSTOP, PAUSE+6*
IBSAV PRINT+1~, PRINT+25*, PRINT+26*, PRINT+27, PRINT+29
IBSEQ PRINT+1~, PRINT+15*, PRINT+18*, PRINT+23, PRINT+30
IBSTAT STAT+1~*, STAT+2
IBTMP REPORT+1~, REPORT+3*, REPORT+4, REPORT+13, REPORT+30, REPORT+33, PRINT+7, PRINT+9, PRINT+10, PRINT+12
IBTOT PRINT+1~, PRINT+3*, PRINT+28*, PRINT+32, TOTALS+2
IBTOTS PRINT+1~, PRINT+3*, PRINT+29*, TOTALS+2
IBTY PRINT+1~, PRINT+10*, PRINT+12, PRINT+13, PRINT+15
IBZ REPORT+1~, REPORT+11*, REPORT+12, REPORT+22*, REPORT+23, REPORT+25, REPORT+28, REPORT+30, PRINT+1~, PRINT+15*
, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+21, PRINT+22, PRINT+23, PRINT+26, PRINT+30, STAT+1
, STAT+2
IOF HDR+2, PAUSE+6, PAUSE+7
IOM PRINT+3, HDR+5
IOSL CHKSTOP
IOST HDR+2, PAUSE+1
STAT HLD~, HLD+1
U REPORT+12, REPORT+23, REPORT+25, REPORT+28, REPORT+30, PRINT+6, PRINT+16, PRINT+17, PRINT+18, PRINT+19
, PRINT+21, PRINT+22, PRINT+23, PRINT+26, PRINT+30, STAT+1, STAT+2, BILGR+3, BILGR+4
X PRINT+1~, FORMAT+1~, FORMAT+2*, FORMAT+4, TOTALS~
X1 FORMAT+1~
X2 PRINT+1~, FORMAT+1~, FORMAT+2*
X3 PRINT+1~, FORMAT+1~, FORMAT+2*
Y PRINT+1~, PAUSE+2~
>> ZTQUEUED REPORT+34
>> ZTREQ REPORT+34*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All