Routine: BARBAD3A

Information

BARBAD3A ; IHS/SD/LSL - PAYMENT COMMAND CNT. ; 05/07/2008

Package	Total	Call Graph
IHS Accounts Receivable	5	HIT1^BARBAD2 CKNEG^BARBAD4 $$IHS^BARUFUT EOP^BARUTL $$EN^BARVDF
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Accounts Receivable	1	BARBAD3

Name	Comments	DBIA/ICR reference
HELP	;
B1O	;
SETTMPO(BARTYP,BARAMT,BARLIN,BARCAT,BARATYP,BAROAMT)	;EP - store & check amounts;ORIGINAL CODE;BAR1.84
B1	;
WARN(BARLVL,BARDIF)
SETTMP(BARTYP,BARAMT,BARLIN,BARCAT,BARATYP,BAROAMT,BARCOM1)	;EP - store & check amounts;

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),!! Line Location: HELP+1
Function Call: WRITE	Prompt: "Select one of the following: ",! Line Location: HELP+2
Function Call: WRITE	Prompt: !?5,"P - Post transactions to A/R." Line Location: HELP+3
Function Call: WRITE	Prompt: !?5,"M - More transaction processing." Line Location: HELP+4
Function Call: WRITE	Prompt: !?5,"C - Cancel all transactions and start over." Line Location: HELP+5
Function Call: WRITE	Prompt: !!,"This is a required response - Please select one to proceed!" Line Location: HELP+6
Function Call: WRITE	Prompt: ! Line Location: WARN+3
Function Call: WRITE	Prompt: *7,!,"Warning - Posted amount exceeds the " Line Location: WARN+4
Function Call: WRITE	Prompt: $S(BARLVL=1:"BATCH",BARLVL=2:"ITEM",BARLVL=3:"LOCATION",1:"BILL")_" balance" Line Location: WARN+5
Function Call: WRITE	Prompt: " by "_BARDIF_" amount" Line Location: WARN+6
Routine Call	DIR Line Location: B1O+13

Name	Line Occurrences (* Changed, ! Killed)
^BARTMP($J	SETTMP+5, B1+1, B1+7, B1+10, SETTMPO+3, B1O+1, B1O+16, B1O+20, B1O+22*

Name	Line Occurrences
WARN	B1O+3, B1O+4, B1O+5, B1O+6, B1O+19

Name	Field # of Occurrence
>> BARADJ	B1+11, B1O+21
BARAMT	SETTMP~, B1+4, B1+7, B1+8, B1+10, B1+11, B1+14, SETTMPO~, B1O+3, B1O+4 , B1O+5, B1O+6, B1O+16, B1O+17, B1O+19, B1O+20, B1O+21, B1O+22, B1O+27
BARATYP	SETTMP~, B1+14, SETTMPO~, B1O+27
BARBBAL	B1+1, B1+3, B1+4, B1+15!, B1O+1*, B1O+3, B1O+19
>> BARCAM	B1+14
BARCAT	SETTMP~, B1+2, B1+14, SETTMPO~, B1O+22, B1O+27
>> BARCLV(17	B1O+6
BARCOM1	SETTMP~, B1+14
>> BARDA	SETTMP+5, SETTMP+6, B1+1, B1+7, B1+10, SETTMPO+3, SETTMPO+4, B1O+1, B1O+16, B1O+20 , B1O+22
BARDIF	WARN~, WARN+6
>> BAREOB	B1O+4
>> BAREOV(4	B1O+4
>> BARFLG("BARWARN"	SETTMP+3!, WARN+1!, WARN+3, WARN+7*, SETTMPO+1!, B1O+7, B1O+8!
>> BARITV(19	B1O+5
>> BARJ	B1+12, B1+13, B1+14, B1O+23, B1O+24, B1O+27
BARLIN	SETTMP~, SETTMP+5, B1+1, B1+7, B1+10, B1+12, B1+14, SETTMPO~, SETTMPO+3, B1O+1 , B1O+16, B1O+20, B1O+22, B1O+23, B1O+27
BARLVL	WARN~, WARN+1, WARN+5
BAROAMT	SETTMP~, B1+3, B1+4, B1+15!, SETTMPO~
>> BARPASS	HELP+8
>> BARPMT	B1+8, B1O+4, B1O+5, B1O+6, B1O+17
>> BARSTOP	SETTMP+4, B1+5, B1+6, B1+9, SETTMPO+2, B1O+2, B1O+7, B1O+15*, B1O+18
>> BARTR(	B1+12, B1+14, B1O+23, B1O+27
BARTYP	SETTMP~, B1+6, B1+9, B1+14, SETTMPO~, B1O+2, B1O+18, B1O+27
DIR	B1O+9!, B1O+14!
DIR("A"	B1O+11*
DIR("B"	B1O+12*
DIR(0	B1O+10*
DUZ(2	WARN+1
>> REVERSAL	B1O+27
>> REVSCHED	B1O+27
U	B1+1, B1+7, B1+10, B1+14, B1O+1, B1O+16, B1O+20, B1O+22, B1O+27
>> Y	B1O+15