Routine: IBOMTP1

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

Package

Total

Call Graph

Integrated Billing

$$PT^IBEFUNC ($$ACTNM,$$DAT1,$$DAT2,PAUSE)^IBOUTL

Kernel

^%ZISC

VA Fileman

(C,COMMA,NOW)^%DTC

Package	Total	Caller Graph
Integrated Billing	1	IBOMTP

Package

Total

Caller Graph

Integrated Billing

IBOMTP

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!

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

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*

Customize PDF page

Package: Integrated Billing

Routine: IBOMTP1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: