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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBOMTP1

Package: Integrated Billing

Routine: IBOMTP1


Information

IBOMTP1 ;ALB/CPM - MEANS TEST BILLING PROFILE (CON'T);10-DEC-91

Source Information

Source file <IBOMTP1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 2 $$PT^IBEFUNC  ($$ACTNM,$$DAT1,$$DAT2,PAUSE)^IBOUTL  
VA FileMan 2 (C,COMMA,NOW)^%DTC  $$GET1^DIQ  
Kernel 1 ^%ZISC  

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 IBOMTP  

Entry Points

Name Comments DBIA/ICR reference
END
HDR ; Print header.
STAT() ; Display bill number or status
HLD(STAT) ; Return an 'on hold' status string
LEGEND

External References

Name Field # of Occurrence
C^%DTC IBOMTP1+11
COMMA^%DTC IBOMTP1+58, IBOMTP1+64
NOW^%DTC IBOMTP1+38
^%ZISC END+5
$$GET1^DIQ IBOMTP1+31
$$PT^IBEFUNC IBOMTP1+40
$$ACTNM^IBOUTL IBOMTP1+27, IBOMTP1+51
$$DAT1^IBOUTL IBOMTP1+47, IBOMTP1+53, HDR+4
$$DAT2^IBOUTL IBOMTP1+38
PAUSE^IBOUTL IBOMTP1+42, IBOMTP1+46, IBOMTP1+63, IBOMTP1+65

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This patient has no Means Test bills."
  • Line Location: IBOMTP1+42
Function Call: WRITE
  • Prompt: !,$$DAT1^IBOUTL(IBD)
  • Line Location: IBOMTP1+47
Function Call: WRITE
  • Prompt: ?12,"Begin Means Test Billing Clock"
  • Line Location: IBOMTP1+48
Function Call: WRITE
  • Prompt: ?14,$S($E(IBTY)="M":"OPT COPAYMENT (UB-82)",1:$$ACTNM^IBOUTL(+$P(IBD0,U,3)))
  • Line Location: IBOMTP1+51
Function Call: WRITE
  • Prompt: ?44,$S($E(IBTY)="M":$P(IBD0,U),1:$$STAT())
  • Line Location: IBOMTP1+52
Function Call: WRITE
  • Prompt: ?54,$$DAT1^IBOUTL($P(IBD0,U,15))
  • Line Location: IBOMTP1+53
Function Call: WRITE
  • Prompt: ?65,X
  • Line Location: IBOMTP1+58
Function Call: WRITE
  • Prompt: " *"
  • Line Location: IBOMTP1+59
Function Call: WRITE
  • Prompt: !?5,"Charge Removal Reason: ",$S($D(^IBE(350.3,+$P(IBD0,U,10),0)):$P(^(0),U),1:"UNKNOWN")
  • Line Location: IBOMTP1+61
Function Call: WRITE
  • Prompt: !?63,"-----------"
  • Line Location: IBOMTP1+64
Function Call: WRITE
  • Prompt: !?63,X
  • Line Location: IBOMTP1+64
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 ",$$DAT1^IBOUTL(IBBDT)," through ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?IOM-36,IBHDT,?IOM-9,"Page: ",IBPAG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"BILL DATE BILL TYPE",?44,"BILL # BILL TO TOT CHARGE"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,IBLINE,!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !," '*' - Geographic Means Test rates"
  • Line Location: LEGEND+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.1 - [#350.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] IBOMTP1+12, IBOMTP1+13, IBOMTP1+14, IBOMTP1+49, IBOMTP1+54
^DGCR(399.3 - [#399.3] IBOMTP1+14
^IB - [#350] IBOMTP1+21, IBOMTP1+22, IBOMTP1+30, IBOMTP1+49
^IB("AF" IBOMTP1+20
^IB("AFDT" IBOMTP1+19
^IBE(350.1 - [#350.1] IBOMTP1+50
^IBE(350.21 - [#350.21] IBOMTP1+57, IBOMTP1+61, STAT+1
^IBE(350.3 - [#350.3] IBOMTP1+61
^IBE(351 - [#351] IBOMTP1+8
^TMP($J IBOMTP1+8*, IBOMTP1+14*, IBOMTP1+28*, IBOMTP1+34*, IBOMTP1+42, IBOMTP1+44, IBOMTP1+45, END!

Label References

Name Line Occurrences
$$HLD STAT+2
$$STAT IBOMTP1+52
END IBOMTP1+42, IBOMTP1+44, IBOMTP1+63
HDR IBOMTP1+41, IBOMTP1+46, IBOMTP1+63
LEGEND IBOMTP1+63, IBOMTP1+65

Naked Globals

Name Field # of Occurrence
^("S" IBOMTP1+14
^(0 IBOMTP1+14, IBOMTP1+61

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % IBOMTP1+38
>> IBATYP IBOMTP1+31*
>> IBBDT IBOMTP1+8, IBOMTP1+11, IBOMTP1+24, IBOMTP1+33, HDR+4
>> IBBLG IBOMTP1+31*, IBOMTP1+32
IBCHG IBOMTP1+54*, IBOMTP1+55*, IBOMTP1+56*, IBOMTP1+57*, IBOMTP1+58, IBOMTP1+60, END+4!
IBCHGT IBOMTP1+39*, IBOMTP1+60*, IBOMTP1+64, END+4!
IBCHK IBOMTP1+4~, IBOMTP1+20*, IBOMTP1+28*, IBOMTP1+29
IBD IBOMTP1+44*, IBOMTP1+45, IBOMTP1+47, END+4!
IBD0 IBOMTP1+49*, IBOMTP1+50, IBOMTP1+51, IBOMTP1+52, IBOMTP1+53, IBOMTP1+55, IBOMTP1+57, IBOMTP1+59, IBOMTP1+61, END+4!
, STAT+1, STAT+2
IBDA IBOMTP1+13*, IBOMTP1+14, IBOMTP1+20*, IBOMTP1+21, IBOMTP1+22, IBOMTP1+28, IBOMTP1+49*, IBOMTP1+54, END+4!
>> IBDFN IBOMTP1+8, IBOMTP1+12, IBOMTP1+13, IBOMTP1+19, IBOMTP1+40
>> IBEDT IBOMTP1+8, IBOMTP1+12, IBOMTP1+17, HDR+4
>> IBEDTP1 IBOMTP1+17*, IBOMTP1+19, IBOMTP1+24, IBOMTP1+33
IBH IBOMTP1+41*, END+4!, HDR+3
IBHDT IBOMTP1+38*, END+4!, HDR+5
IBJ END+4!
IBLEG IBOMTP1+4~, IBOMTP1+37*, IBOMTP1+59*, IBOMTP1+63, HDR+1*, LEGEND
IBLINE IBOMTP1+39*, END+4!, HDR+7
IBPAG IBOMTP1+39*, END+4!, HDR+2, HDR+3*, HDR+5
IBPT IBOMTP1+40*, IBOMTP1+41, END+4!
IBQUIT IBOMTP1+39*, IBOMTP1+44, IBOMTP1+45, IBOMTP1+46, IBOMTP1+63, END+4!
IBSEQ IBOMTP1+49*, IBOMTP1+50*, IBOMTP1+56, IBOMTP1+61, END+4!
IBSTAT STAT+1~*, STAT+2
IBTY IBOMTP1+45*, IBOMTP1+48, IBOMTP1+49, IBOMTP1+50, IBOMTP1+51, IBOMTP1+52, IBOMTP1+53, IBOMTP1+54, IBOMTP1+57, END+4!
IBX IBOMTP1+22*, IBOMTP1+23, IBOMTP1+24, IBOMTP1+27, IBOMTP1+28, IBOMTP1+30*, IBOMTP1+31, IBOMTP1+33, IBOMTP1+34, END+4!
IOF HDR+2
IOM IBOMTP1+39, HDR+5
IOSL IBOMTP1+46, IBOMTP1+63
IOST HDR+2
STAT HLD~, HLD+1
U IBOMTP1+8, IBOMTP1+14, IBOMTP1+23, IBOMTP1+24, IBOMTP1+27, IBOMTP1+28, IBOMTP1+31, IBOMTP1+33, IBOMTP1+34, IBOMTP1+41
, IBOMTP1+50, IBOMTP1+51, IBOMTP1+52, IBOMTP1+53, IBOMTP1+54, IBOMTP1+55, IBOMTP1+57, IBOMTP1+59, IBOMTP1+61, STAT+1
, STAT+2
X IBOMTP1+8*, IBOMTP1+11, IBOMTP1+54*, IBOMTP1+58*, IBOMTP1+64*, END+4!
>> X1 IBOMTP1+11*
X2 IBOMTP1+11*, IBOMTP1+58*, IBOMTP1+64*, END+4!
X3 IBOMTP1+58*, IBOMTP1+64*, END+4!
Y IBOMTP1+8*, IBOMTP1+11*, IBOMTP1+12*, IBOMTP1+13, IBOMTP1+14, IBOMTP1+19*, IBOMTP1+25~, END+4!
Y1 IBOMTP1+19*, IBOMTP1+20, IBOMTP1+25~, IBOMTP1+30, IBOMTP1+34, END+4!
>> ZTQUEUED END+3
>> ZTREQ END+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All