Routine: FBAASCB0

Package	Total	Call Graph
VA FileMan	3	NOW^%DTC FILE^DICN ^DIE
Fee Basis	2	($$SSN,GETNXB)^FBAAUTL $$NAME^FBCHREQ2
IFCAP	2	EN3^PRCS58 ^PRCS58CC

Package	Total	Caller Graph
Fee Basis	2	FBAARD3 FBAASCB

Entry Points

Name	Comments	DBIA/ICR reference
KILL
GET78
INPOST	;PRCSX=INTERNAL DAILY REF #^INTERNAL DATE/TIME^AMT OF PAYMENT^COMMENTS^COMPLETE FLAG
INTER()	;get internal entry number from file 424	ICR #5444 Status: Retired Usage: Controlled Subscription
NEWBT	;open new batch for cnh line items unable to post to 1358
RESETBT	;reset original batch total $ set new batch totals
GETAP	; FB3.5116 build array of invoices in batch
UC	; accumulate amount of unauthorized inpatient claims for later posting

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"No invoices found for this batch. Unable to release.",! Line Location: FBAASCB0+4
Function Call: WRITE	Prompt: !!,"Invoice #: "_FBII_" totals $0.00" Line Location: FBAASCB0+15
Function Call: WRITE	Prompt: $C(7),!!?2,"Batch cannot be released when zero dollar invoices exist." Line Location: FBAASCB0+16
Function Call: WRITE	Prompt: !?2,"Invoices must be corrected or removed from the batch." Line Location: FBAASCB0+17
Function Call: WRITE	Prompt: !,*7,"No associated 7078 for invoice ",FBII,". Unable to release batch.",! Line Location: GET78+0
Function Call: WRITE	Prompt: !!,$$NAME^FBCHREQ2(DFN)," ",$$SSN^FBAAUTL(DFN),!,*7,"Unable to locate reference number on 1358. Run Post Commitments for",!,"Obligation option." Line Location: GET78+5
Function Call: WRITE	Prompt: !,*7,"Unable to locate reference number on 1358.",! Line Location: INPOST+8
Function Call: WRITE	Prompt: !!,*7,"1358 not available for posting!",! Line Location: INPOST+9
Function Call: WRITE	Prompt: !!,$$NAME^FBCHREQ2(DFN)," (",$$SSN^FBAAUTL(DFN,1),")",!,*7,$P(Y,"^",2),! Line Location: INPOST+12
Function Call: WRITE	Prompt: ! Line Location: NEWBT+1
Function Call: WRITE	Prompt: !!,*7,"A new batch, number ",$P(^FBAA(161.7,FBBN,0),U),", was opened for invoices unable to post to 1358.",!,"Adjust 1358 and take action on new batch.",! Line Location: RESETBT+3
Routine Call	DIE Line Location: FBAASCB0+10

FileNo	Call Tags
^FBAA(161.7 - [#161.7]	Classic Fileman Calls
^FBAAI - [#162.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^FB7078 - [#162.4]	GET78, GET78+1
^FBAA(161.7 - [#161.7]	RESETBT+1, RESETBT+2*, RESETBT+3
^FBAAI - [#162.5]	FBAASCB0+6, FBAASCB0+8, FBAASCB0+11
^FBAAI("AC"	FBAASCB0+4, FBAASCB0+6
^PRC(424 - [#424]	INTER+4, INTER+5, INTER+6
^TMP($J	FBAASCB0+3!, FBAASCB0+8!, FBAASCB0+9, KILL!, GET78+6*

Name	Field # of Occurrence
^(	INTER+4, INTER+5, INTER+6
^(0	FBAASCB0+6, GET78+1, RESETBT+1*

Name	Field # of Occurrence
>> %	INPOST+11
DA	FBAASCB0+10*!
DD	NEWBT+3!
>> DFN	GET78+1*, GET78+5, INPOST+12, INTER+4, INTER+5
DIC	NEWBT+2*, NEWBT+3!
DIC("DR"	NEWBT+2*
DIC(0	NEWBT+2*
DIE	FBAASCB0+10*!
DLAYGO	NEWBT+2*, NEWBT+3!
DO	NEWBT+3!
DR	FBAASCB0+10*!
FBAAMT	FBAASCB0+6, FBAASCB0+8, FBAASCB0+9, FBAASCB0+11, KILL!, INPOST+11, RESETBT+1, RESETBT+2, GETAP+2, UC+1
>> FBAAOB	INPOST+9
>> FBAAON	INTER+4, INTER+5
>> FBAARA	UC+1*
FBBN	KILL!, NEWBT+2, NEWBT+3*, RESETBT+1, RESETBT+3
FBCNH	KILL!, GET78+5, GET78+6, INTER+4, INTER+5, INTER+6, GETAP+1
>> FBCOMM	INPOST+11
FBERR	FBAASCB0+3!, FBAASCB0+4, FBAASCB0+6, FBAASCB0+7, FBAASCB0+8!, FBAASCB0+18, GET78, GET78+5, GET78+6!, INPOST+8 , INPOST+9, INPOST+12
FBI78	KILL!, GET78+1*, INTER+6
FBII	FBAASCB0+6, FBAASCB0+8, FBAASCB0+9, FBAASCB0+10, FBAASCB0+11, FBAASCB0+15, KILL!, GET78, GET78+6, GETAP+3
FBII78	FBAASCB0+6, FBAASCB0+8, KILL!, GET78, GET78+1, INTER+4, INTER+5
FBINTOT	FBAASCB0+3, FBAASCB0+7, FBAASCB0+9, FBAASCB0+11*, KILL!, RESETBT+1, RESETBT+2
>> FBINV	FBAASCB0+14
>> FBINV(	FBAASCB0+15, GETAP+3*
FBMM	FBAASCB0+6, FBAASCB0+8, KILL!, INTER+5
>> FBN	FBAASCB0+4, FBAASCB0+6, RESETBT+2
FBRJC	FBAASCB0+3, FBAASCB0+7, FBAASCB0+8, FBAASCB0+9, FBAASCB0+12, KILL!, GET78+6*
FBSTN	KILL!, NEWBT+1*
>> FZ	FBAASCB0+3, GET78+1, NEWBT+1, RESETBT+2*
>> PRCS("TYPE"	INPOST+9*
>> PRCS("X"	INPOST+9*
PRCSX	KILL!, INPOST+11*
U	FBAASCB0+3, FBAASCB0+6, FBAASCB0+8, FBAASCB0+11, NEWBT+1, RESETBT+1, RESETBT+2, RESETBT+3
X	FBAASCB0+8!, NEWBT+2, RESETBT+1*!
>> Y	INPOST+9, INPOST+12, NEWBT+3