Routine: BARCLE

Information

BARCLE ; IHS/SD/LSL - Collection Entry for EOBs ;

Source file <BARCLE.m>

Name	Comments	DBIA/ICR reference
EOB	;EP for EOB entries
INSERT	;
CC	;EP credit card
KSUB	;EP ; kill eob sub
KILLSUB	; EP ; kill eob sub when the entry is 0
ENDEOB	;
EOBSUB	;EP ; Enter data for sub EOB locations and amounts
CHECK	;EP ; for checks
LOOP	;EP ; loop subs for entries and amounts

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"BALANCE OFF BY ",BARCLIT(202.5) Line Location: LOOP+10
Routine Call	DIE Line Location: EOB+12 LOOP+8 CHECK+8
Routine Call	DIC Line Location: LOOP+8

Name	Line Occurrences (* Changed, ! Killed)
^DD(90051.1101	LOOP+7

Name	Line Occurrences
KILLSUB	LOOP+8
LOOP	LOOP+10

Name	Field # of Occurrence
>> BARAMT	LOOP+8
>> BARCLDA	EOB+2, EOB+4, LOOP+3, LOOP+5
>> BARCLID(2	EOB+10
>> BARCLIT(	LOOP+10
>> BARDIC	EOB+2
>> BARITDA	EOB+3, LOOP+4, LOOP+5
>> BARQUIT	EOB+14*
>> BARSPAR(2	EOB+6, CHECK+3
>> BARSPAR(3	EOB+8, CHECK+5
DA	EOB+3, LOOP+2!, LOOP+8
DA(1	EOB+4, LOOP+4
DA(2	LOOP+3*
DIC	LOOP+2!, LOOP+5*, LOOP+8
DIC("P"	LOOP+7*, LOOP+8!
DIC("W"	LOOP+8*
DIC(0	LOOP+6, LOOP+8
DIDEL	EOB+11, EOB+13!, LOOP+8!, CHECK+7*, CHECK+9!
DIE	EOB+2, LOOP+2!, LOOP+8, KSUB+2
DIE("NO^"	EOB+13!
>> DIK	KSUB+2*
DR	EOB+1!, EOB+5, EOB+6, EOB+7, EOB+8, EOB+9, LOOP+2!, LOOP+8, CHECK+2, CHECK+3 , CHECK+4, CHECK+5, CHECK+6*
U	LOOP+7
>> Y	EOB+14, LOOP+8