Routine: BARUFEX4

Package	Total	Call Graph
IHS Accounts Receivable	1	ERR^BARUFEXU
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Accounts Receivable	2	BARUFEX3 BARUFEX5

Entry Points

Name	Comments	DBIA/ICR reference
ERR901
ERR902
ERR47
COLCK(BARDUZ)	;EP; CHECK +DOLLAR PAYMENTS ENTRIES IN COLLECTION BATCH FOR REVERSAL PAYMENTS ; ENTERS WITH: BARDUZ= CASHIER ; TRDATE ;TRANSACTION DATE ; ARBILL ;A/R BILL ; ARBILLIN ;A/R BILL IEN ; ARCRDEB ;PAYMENT AMOUNT = +$AMOUNT ONLY ; ARCOLB ;COLLECTION BATCH NAME ; ARCOLITM ;COLLECTION ITEM ; ARCOLIN ;COLLECTION BATCH PTR ; DUZ(2) ; ; RETURNS 0 = NOT OK TO SEND TO UFMS ; 1 = OK TO SEND TO UFMS
ERR24
ERR36
IPAC(X,Y,IENS)	;EP BAR1.84 DD item 4.1.5.4
ERR9
ERR903
ERR(MSG)	;NOT SENT ERROR MESSAGE CENTER
LOOP	; LOOP THROUGH ^BARBOB("BARZ",DUZ THAT IS SET IN BARUFEX5 ; CODE 2 = SIMPLE REVERSALS ARE PAIRED IN BOB ; CODE 1 = COULDN'T FIND ORIGINAL PAYMENT, BUT MADE MATCH IN BATCH/ITEM ; CODE -I = IGNORE--REVERSAL PRECEDES PAYMENT IN BILL AND MATCH IN BATCH/ITEM ; CODES 1,2 are sent to UFMS ; All negative codes are treated as errors and not sent to UFMS ; (CODE -I is currently treated as error; will be coded to ignore -- NO UFMS) ; -25 CODE = DUPLICATE PAYMENT, ERROR ALL OUT ; -6 or -3 = ORIGINAL PAYMENT NOT IN BILL OR BATCH/ITEM, ERROR ALL OUT ; -7 or -4 = MULTIPLE PAYMENTS, ONLY ERROR OUT BILL

Name	Field # of Occurrence
ERR^BARUFEXU	ERR24, ERR9, ERR+2
$$GET1^DIQ	IPAC+1, IPAC+4

FileNo	Call Tags
^BARTR(2906 - [#90050.03]	GET1^DIQ
90051.1101	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BARBOB("BARZ"	ERR24+2, LOOP+21, LOOP+23
^BARCOL(	COLCK+15

Name	Line Occurrences
LOOP	ERR24+3

Name	Field # of Occurrence
>> ARBILLIN	ERR47+1
>> ARCOLIN	COLCK+15, ERR24+2, LOOP+21, LOOP+23
>> ARCOLITM	COLCK+15, ERR24+2, LOOP+21, LOOP+23
>> ARCRDEB	ERR36+1, ERR902, ERR901
BAR	LOOP+17~
BAR(0	ERR903+1*, ERR903+3, ERR9
>> BARCNT	LOOP+18*
BARDUZ	COLCK~, ERR24+2, LOOP+21, LOOP+23
BARFLG	LOOP+17~, LOOP+24*, LOOP+25, ERR47, ERR47+1, ERR36
>> BARIPAC	ERR36+1, ERR902, ERR901
>> BARNEG	LOOP+18*
BAROK	COLCK+14~, ERR24+4, LOOP+20, ERR36+1, ERR903+2, ERR903+4, ERR9+1
>> BARPNEG	LOOP+18*
>> BARZ0	LOOP+23*, LOOP+24, LOOP+26, LOOP+27, LOOP+28, LOOP+29
DUZ(2	COLCK+15, ERR24+2, LOOP+21, LOOP+23
ERR	LOOP+17~, LOOP+18, ERR47+1, ERR36, ERR902, ERR901, ERR903, ERR903+1
ERR(0	LOOP+19!, LOOP+21
IENS	LOOP+22*, IPAC~, IPAC+1
MSG	ERR~, ERR+2
TARBILIN	LOOP+17~, LOOP+28*, ERR47+1
TARBILL	LOOP+17~, LOOP+29*
TARCITM	LOOP+17~
TARCRDB	LOOP+17~
>> TCRDEB	LOOP+27*, LOOP+30, ERR36+1, ERR902, ERR901
TDATE	LOOP+17~, LOOP+18, LOOP+21, LOOP+22, LOOP+23
TIPAC	LOOP+17~, LOOP+26*, ERR36+1, ERR902, ERR901
TTRAN	LOOP+17~
U	LOOP+24, LOOP+26, LOOP+27, LOOP+28, LOOP+29
X	IPAC~, IPAC+4
Y	IPAC~, IPAC+4
>> Z	IPAC+1, IPAC+2, IPAC+4, IPAC+5*, IPAC+6