Routine: IBAMTC1

Information

IBAMTC1 ;ALB/CPM - MEANS TEST NIGHTLY COMPILATION REPORT ; 14-NOV-91

Package	Total	Call Graph
Integrated Billing	2	MAIL^IBAERR1 ($$DAT1,$$DAT2)^IBOUTL
VA Fileman	2	DD^%DT (NOW,YMD)^%DTC

Package	Total	Caller Graph
Integrated Billing	1	IBAMTC

Name	Comments	DBIA/ICR reference
HDR
BULL	; Send the Nightly Compilation Job Completion bulletin.
INPT	; Print the Inpatient Report.
ERROR	; Print the Error Report.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No errors encountered during this compilation." Line Location: ERROR+2
Function Call: WRITE	Prompt: !!,"Error: ",$S($D(^IBE(350.8,+IBDA,0)):$P(^(0),"^",2),$P(IBID,"^")]"":$P(IBID,"^"),1:"Unknown Error") Line Location: ERROR+7
Function Call: WRITE	Prompt: !,"Patient: ",$S($D(^DPT(+$P(IBID,"^",2),0)):$P(^(0),"^"),1:"No patient involved") Line Location: ERROR+8
Function Call: WRITE	Prompt: !,$P($T(TEXT+$P(IBID,"^",3)^IBAMTEL),";;",2,99) Line Location: ERROR+9
Function Call: WRITE	Prompt: !!,"No Inpatient charges billed or updated during this compilation." Line Location: INPT+2
Function Call: WRITE	Prompt: ! Line Location: INPT+7
Function Call: WRITE	Prompt: $E($P($G(^DPT(+$P(IBID,"^",2),0)),"^"),1,24),?27,$E($P($G(^DPT(+$P(IBID,"^",2),0)),"^",9),6,9) Line Location: INPT+8
Function Call: WRITE	Prompt: ?35,$S($D(^IBE(350.1,+$P(IBID,"^",3),0)):$P($P(^(0),"^")," ",2,99),1:"Unknown") Line Location: INPT+9
Function Call: WRITE	Prompt: ?66,$$DAT1^IBOUTL($P(IBID,"^",14)),?80,$$DAT1^IBOUTL($P(IBID,"^",15)) Line Location: INPT+10
Function Call: WRITE	Prompt: ?92,$J($P(IBID,"^",6),3) Line Location: INPT+11
Function Call: WRITE	Prompt: ?100,$S($P(IBID,"^",5)=10:$J("($"_$P(IBID,"^",7)_")",10),1:$J("$"_$P(IBID,"^",7),8)) Line Location: INPT+12
Function Call: WRITE	Prompt: ?114,$P("INCOMPLETE^PENDING AR^BILLED^UPDATED^^^^ON HOLD^ERROR ENCOUNTERED^CANCELLED","^",$P(IBID,"^",5)) Line Location: INPT+13
Function Call: WRITE	Prompt: !,IBLINE Line Location: HDR+3

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ERROR+8, INPT+8
^IB - [#350]	INPT+7
^IBE(350.1 - [#350.1]	INPT+9
^IBE(350.8 - [#350.8]	ERROR+6, ERROR+7
^TMP($J	IBAMTC1+13!, ERROR+2, ERROR+4, INPT+2, INPT+4, INPT+5

Name	Field # of Occurrence
^(	ERROR+4
^(0	ERROR+7, ERROR+8, INPT+9

Name	Field # of Occurrence
>> %	IBAMTC1+8, BULL+7
>> %H	IBAMTC1+7, BULL+2
>> DFN	INPT+4*, INPT+5
DUZ	BULL+3
IBCHK	IBAMTC1+13!, INPT+5, INPT+8
>> IBCNT	BULL+9, BULL+10
>> IBDA	ERROR+6*, ERROR+7
IBDATE	BULL+7*, BULL+12!
IBDUZ	BULL+3*, BULL+12!
IBI	IBAMTC1+13!, ERROR+4, INPT+4, INPT+5*, INPT+7
IBID	IBAMTC1+13!, ERROR+4, ERROR+6, ERROR+7, ERROR+8, ERROR+9, INPT+7, INPT+8, INPT+9, INPT+10 , INPT+11, INPT+12, INPT+13
IBLINE	IBAMTC1+9*, IBAMTC1+13!, HDR+3, HDR+4
IBNOW	IBAMTC1+8*, IBAMTC1+13!, HDR+1
IBPAG	IBAMTC1+9, IBAMTC1+13!, HDR, HDR+1
IBRPT	IBAMTC1+13!, ERROR+1, INPT+1, HDR+2, HDR+3
IBT	BULL+3!, BULL+12!
IBT(1	BULL+4*
IBT(2	BULL+5*
IBT(3	BULL+6*
IBT(4	BULL+7*
IBT(5	BULL+8*
IBT(6	BULL+9*
IBT(7	BULL+10*
IBYEST	IBAMTC1+7, IBAMTC1+13!, HDR+1, BULL+2, BULL+5, BULL+12!
IOF	IBAMTC1+4, HDR+1
IOM	IBAMTC1+4, IBAMTC1+9, HDR+1
IOSL	IBAMTC1+4, ERROR+5, INPT+6
>> X	IBAMTC1+7, BULL+2
XMDUZ	BULL+12!
XMSUB	BULL+1*, BULL+12!
XMTEXT	BULL+12!
XMY	BULL+12!
>> Y	IBAMTC1+7, IBAMTC1+8, BULL+2*

Name	Field # of Occurrence
$T(TEXT+$PIECE^2;4(5)^IBAMTEL	ERROR+9