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

Package: Integrated Billing

Routine: IBOMTP1


Information

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

Source Information

Source file <IBOMTP1.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBOMTP  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC IBOMTP1+9
COMMA^%DTC IBOMTP1+43, IBOMTP1+48
NOW^%DTC IBOMTP1+23
^%ZISC END+5
$$PT^IBEFUNC IBOMTP1+25
$$ACTNM^IBOUTL IBOMTP1+36
$$DAT1^IBOUTL IBOMTP1+32, IBOMTP1+38, HDR+3
$$DAT2^IBOUTL IBOMTP1+23
PAUSE^IBOUTL IBOMTP1+27, IBOMTP1+31, IBOMTP1+47, IBOMTP1+49

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This patient has no Category C bills."
  • Line Location: IBOMTP1+27
Function Call: WRITE
  • Prompt: !,$$DAT1^IBOUTL(IBD)
  • Line Location: IBOMTP1+32
Function Call: WRITE
  • Prompt: ?12,"Begin Category C Billing Clock"
  • Line Location: IBOMTP1+33
Function Call: WRITE
  • Prompt: ?14,$S($E(IBTY)="M":"OPT COPAYMENT (UB-82)",1:$$ACTNM^IBOUTL(+$P(IBD0,"^",3)))
  • Line Location: IBOMTP1+36
Function Call: WRITE
  • Prompt: ?44,$S($E(IBTY)="M":$P(IBD0,"^"),1:$$STAT())
  • Line Location: IBOMTP1+37
Function Call: WRITE
  • Prompt: ?54,$$DAT1^IBOUTL($P(IBD0,"^",15))
  • Line Location: IBOMTP1+38
Function Call: WRITE
  • Prompt: ?65,X
  • Line Location: IBOMTP1+43
Function Call: WRITE
  • Prompt: !?5,"Charge Removal Reason: ",$S($D(^IBE(350.3,+$P(IBD0,"^",10),0)):$P(^(0),"^"),1:"UNKNOWN")
  • Line Location: IBOMTP1+45
Function Call: WRITE
  • Prompt: !?63,X
  • Line Location: IBOMTP1+48
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?(80-$L(IBH)\2),IBH
  • Line Location: HDR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] IBOMTP1+10, IBOMTP1+11, IBOMTP1+12, IBOMTP1+34, IBOMTP1+39
^DGCR(399.3 - [#399.3] IBOMTP1+12
^IB - [#350] IBOMTP1+17, IBOMTP1+34
^IB("AF" IBOMTP1+16
^IB("AFDT" IBOMTP1+15
^IBE(350.1 - [#350.1] IBOMTP1+35
^IBE(350.21 - [#350.21] IBOMTP1+42, IBOMTP1+45, STAT+1
^IBE(350.3 - [#350.3] IBOMTP1+45
^IBE(351 - [#351] IBOMTP1+6
^TMP($J IBOMTP1+6*, IBOMTP1+12*, IBOMTP1+20*, IBOMTP1+27, IBOMTP1+29, IBOMTP1+30, END!

Label References

Name Line Occurrences
$$HLD STAT+2
$$STAT IBOMTP1+37
END IBOMTP1+27, IBOMTP1+29, IBOMTP1+47
HDR IBOMTP1+26, IBOMTP1+31, IBOMTP1+47

Naked Globals

Name Field # of Occurrence
^("S" IBOMTP1+12
^(0 IBOMTP1+12, IBOMTP1+17, IBOMTP1+45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % IBOMTP1+23
>> IBBDT IBOMTP1+6, IBOMTP1+9, IBOMTP1+19, HDR+3
IBCHG IBOMTP1+39*, IBOMTP1+40*, IBOMTP1+41*, IBOMTP1+42*, IBOMTP1+43, IBOMTP1+44, END+4!
IBCHGT IBOMTP1+24*, IBOMTP1+44*, IBOMTP1+48, END+4!
IBD IBOMTP1+29*, IBOMTP1+30, IBOMTP1+32, END+4!
IBD0 IBOMTP1+34*, IBOMTP1+35, IBOMTP1+36, IBOMTP1+37, IBOMTP1+38, IBOMTP1+40, IBOMTP1+42, IBOMTP1+45, END+4!, STAT+1
, STAT+2
IBDA IBOMTP1+11*, IBOMTP1+12, IBOMTP1+16*, IBOMTP1+17, IBOMTP1+20, IBOMTP1+34*, IBOMTP1+39, END+4!
>> IBDFN IBOMTP1+6, IBOMTP1+10, IBOMTP1+11, IBOMTP1+15, IBOMTP1+25
>> IBEDT IBOMTP1+6, IBOMTP1+10, IBOMTP1+15, IBOMTP1+19, HDR+3
IBH IBOMTP1+26*, END+4!, HDR+2
IBHDT IBOMTP1+23*, END+4!, HDR+4
IBJ END+4!
IBLINE IBOMTP1+24*, END+4!, HDR+6
IBPAG IBOMTP1+24*, END+4!, HDR+1, HDR+2*, HDR+4
IBPT IBOMTP1+25*, IBOMTP1+26, END+4!
IBQUIT IBOMTP1+24*, IBOMTP1+29, IBOMTP1+30, IBOMTP1+31, IBOMTP1+47, END+4!
IBSEQ IBOMTP1+34*, IBOMTP1+35*, IBOMTP1+41, IBOMTP1+45, END+4!
IBSTAT STAT+1~*, STAT+2
IBTY IBOMTP1+30*, IBOMTP1+33, IBOMTP1+34, IBOMTP1+35, IBOMTP1+36, IBOMTP1+37, IBOMTP1+38, IBOMTP1+39, IBOMTP1+42, END+4!
IBX IBOMTP1+17*, IBOMTP1+18, IBOMTP1+19, IBOMTP1+20, END+4!
IOF HDR+1
IOM IBOMTP1+24, HDR+4
IOSL IBOMTP1+31, IBOMTP1+47
IOST HDR+1
STAT HLD~, HLD+1
X IBOMTP1+6*, IBOMTP1+9, IBOMTP1+39*, IBOMTP1+43*, IBOMTP1+48*, END+4!
>> X1 IBOMTP1+9*
X2 IBOMTP1+9*, IBOMTP1+43*, IBOMTP1+48*, END+4!
X3 IBOMTP1+43*, IBOMTP1+48*, END+4!
Y IBOMTP1+6*, IBOMTP1+9*, IBOMTP1+10*, IBOMTP1+11, IBOMTP1+12, IBOMTP1+15*, END+4!
Y1 IBOMTP1+15*, IBOMTP1+16, END+4!
>> ZTQUEUED END+3
>> ZTREQ END+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All