Routine: BARBAD3

Call Graph Total: 14

Package	Total	Call Graph
IHS Accounts Receivable	10	HIT1^BARBAD2 SETTMP^BARBAD3A (,$$DSPLY)^BARBAD4 EN^BARBAD6 (COMHLP,POSTTX,SETHLP)^BARBADU ASKLIN^BARFPST3 EN^BARPST5 $$AMT^BARPSTU ($$IHS,$$NOTOPEN)^BARUFUT ($$FIND3PB,EOP)^BARUTL
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	1	DIQ^XBLM

Package

Total

Call Graph

HIT1^BARBAD2 SETTMP^BARBAD3A (,$$DSPLY)^BARBAD4 EN^BARBAD6 (COMHLP,POSTTX,SETHLP)^BARBADU ASKLIN^BARFPST3 EN^BARPST5 $$AMT^BARPSTU
($$IHS,$$NOTOPEN)^BARUFUT ($$FIND3PB,EOP)^BARUTL

VA Fileman

^DIC $$GET1^DIQ ^DIR

IHS VA Utilities

DIQ^XBLM

Package	Total	Caller Graph
IHS Accounts Receivable	7	BARBAD BARBAD4 BARBLSUM BARPNP3 BARPRF3 BARPST3 BARPUC3

Package

Total

Caller Graph

IHS Accounts Receivable

BARBAD BARBAD4 BARBLSUM BARPNP3 BARPRF3 BARPST3 BARPUC3

Entry Points

Name	Comments	DBIA/ICR reference
ASKCOM	;EP - select command
GOSR	;
ASKAMT	;
FINISH	;
S1	;
P1	;
LNHLP	;
CKNEG(LIN)	;EP; CHECK FOR NEGATIVE BALANCE ;BAR1.84 DD 4.1.7.2
ASKCOM1	;
FIN	;
GOQ
GETFLGRP()	;
EN1	;
EN2	;
POST()	;
EN	;EP - command processor
GOB	;
LU(X)	;
CANCEL	;
COMHLP	;
REDO
HISTORY	;P.OTT
PDIR	;
ASKLIN	;

External References

Name	Field # of Occurrence
HIT1^BARBAD2	EN1+4, ASKCOM+3, P1+1
SETTMP^BARBAD3A	S1+1
^BARBAD4	GOSR+2
$$DSPLY^BARBAD4	ASKCOM1+60
EN^BARBAD6	ASKCOM1+66
COMHLP^BARBADU	ASKCOM1+9, COMHLP+1
POSTTX^BARBADU	FIN+4
SETHLP^BARBADU	EN2+3
ASKLIN^BARFPST3	ASKLIN+4
EN^BARPST5	HISTORY+3
$$AMT^BARPSTU	ASKAMT+12
$$IHS^BARUFUT	CKNEG+1
$$NOTOPEN^BARUFUT	ASKCOM1+1, FIN+6
$$FIND3PB^BARUTL	ASKCOM1+17
EOP^BARUTL	ASKCOM1+13, ASKCOM1+53, ASKCOM1+57, ASKCOM1+61, GOB+5, ASKAMT+18, ASKAMT+22, ASKAMT+26, P1+2
^DIC	ASKAMT+42
$$GET1^DIQ	ASKCOM1+47, ASKCOM1+65
^DIR	ASKCOM1+27, ASKAMT+10, PDIR+5, GETFLGRP+17
DIQ^XBLM	GOB+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+5
Function Call: WRITE	Prompt: !! Line Location: EN2+1
Function Call: WRITE	Prompt: ! Line Location: ASKCOM+4
Function Call: WRITE	Prompt: !,"Select Command (Line # "_BARLIN_") : " Line Location: ASKCOM1+4
Function Call: WRITE	Prompt: !,"A transaction already exists on this bill. You can cancel it." Line Location: ASKCOM1+11
Function Call: WRITE	Prompt: !,"You can also edit the amount or adjustment type." Line Location: ASKCOM1+12
Function Call: WRITE	Prompt: 7,7,*7 Line Location: ASKCOM1+36
Function Call: WRITE	Prompt: 7,7,*7 Line Location: ASKCOM1+37
Function Call: WRITE	Prompt: 7,7,*7 Line Location: ASKCOM1+38
Function Call: WRITE	Prompt: 7,7,*7 Line Location: ASKCOM1+39
Function Call: WRITE	Prompt: 7,7,*7 Line Location: ASKCOM1+40
Function Call: WRITE	Prompt: 7,7,*7 Line Location: ASKCOM1+41
Function Call: WRITE	Prompt: 7,7,*7 Line Location: ASKCOM1+42
Function Call: WRITE	Prompt: 7,7,*7 Line Location: ASKCOM1+43
Function Call: WRITE	Prompt: !,"The current balance on this bill 0. There is nothing to put into collections." Line Location: ASKCOM1+52
Function Call: WRITE	Prompt: !,"There isn't an amount in collections to take out of collections." Line Location: ASKCOM1+56
Function Call: WRITE	Prompt: *7,!," Sorry.. ["_BARHLP(BARCOM(1))_"] not active!" Line Location: GOB+4
Function Call: WRITE	Prompt: *7," Must be a valid number!" Line Location: ASKAMT+14
Function Call: WRITE	Prompt: !,"You must enter a value larger than 0." Line Location: ASKAMT+17
Function Call: WRITE	Prompt: !,"You can't place more than the current bill amount in collections." Line Location: ASKAMT+21
Function Call: WRITE	Prompt: !,"You can't reverse from collections more than what's in there." Line Location: ASKAMT+25
Function Call: WRITE	Prompt: *7,!! Line Location: ASKAMT+44
Function Call: WRITE	Prompt: *7 Line Location: PDIR+7
Routine Call	DIC Line Location: ASKAMT+42
Routine Call	DIR Line Location: ASKCOM1+27 ASKAMT+10 PDIR+5 GETFLGRP+17

FileNo	Call Tags
^BARBL(2906 - [#90050.01]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	ASKCOM1+21
^BAR(90052.01 - [#90052.01]	ASKAMT+28
^BARBL(	ASKCOM1+23, ASKCOM1+48, ASKCOM1+49
^BARTBL("D"	ASKAMT+33
^BARTMP($J	ASKCOM1+16, ASKCOM1+64, GOB+2, REDO, REDO+1, FIN+8!, CANCEL+1!, HISTORY+2
^TEMP($J	EN+2!

Label References

Name	Line Occurrences
$$GETFLGRP	HISTORY+1
$$LU	ASKCOM1+8
$$POST	FIN+1
ASKAMT	GOSR+1, ASKAMT+14, ASKAMT+16, ASKAMT+20, ASKAMT+24, ASKAMT+44
ASKCOM	ASKCOM1+15, ASKCOM1+35, ASKCOM1+59, ASKCOM1+62, ASKCOM1+68, GOB+1, GOB+6, ASKAMT+13, S1+2
ASKCOM1	ASKLIN+3, ASKLIN+7, ASKCOM1+9, ASKCOM1+10, COMHLP+2
ASKLIN	ASKCOM1+51, ASKCOM1+55
CANCEL	FINISH+1, FIN+3
CKNEG	GOQ+2
COMHLP	ASKCOM1+44
EN1	ASKCOM1+7, GOQ+1, FIN+2
FIN	FIN+7
FINISH	ASKLIN+5, ASKLIN+6, GOQ+1
GOSR	ASKCOM1+71
HISTORY	ASKCOM1+68
PDIR	PDIR+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BARACC	ASKCOM1+63~, ASKCOM1+65*, ASKCOM1+66
BARADJ	EN+3*, FINISH+1, CANCEL+2!
BARAMT	EN1+2!, EN2+2!, ASKCOM+1!, ASKAMT+15*, ASKAMT+16, ASKAMT+20, ASKAMT+24, ASKAMT+44!, S1+1
>> BARASK	ASKAMT+4*, ASKAMT+8
BARATYP	EN1+2!, ASKCOM+1!, ASKAMT+1, ASKAMT+32!, ASKAMT+36, ASKAMT+45*, S1+1
BARB	CKNEG+3~, REDO+1*
BARBLDA	ASKCOM1+16, ASKCOM1+17, ASKCOM1+23, ASKCOM1+47, ASKCOM1+48, ASKCOM1+49, ASKCOM1+63~, ASKCOM1+64, ASKCOM1+65, ASKCOM1+66 , GOB+2, GOB+3, HISTORY+2, HISTORY+3
BARCAM	EN+1~, ASKCOM1+46, ASKCOM1+47, ASKCOM1+51, ASKAMT+20
BARCAT	EN1+2!, ASKCOM+1!, ASKAMT+1, ASKAMT+28, ASKAMT+33, S1+1
>> BARCNT	ASKLIN+3, ASKLIN+7, GOQ+1
BARCOAM	EN+1~, ASKCOM1+46, ASKCOM1+48, ASKCOM1+49, ASKCOM1+50, ASKCOM1+55, ASKAMT+24
BARCOM	EN1+2!, EN2+2!, ASKCOM+1!, ASKCOM1+6, ASKCOM1+7, ASKCOM1+8, ASKCOM1+9, ASKCOM1+10, ASKCOM1+15, ASKCOM1+30
BARCOM(	ASKCOM1+30*, ASKCOM1+31, ASKCOM1+32!, GOQ+1, GOSR+1, GOSR+2
BARCOM(1	ASKLIN+1, ASKLIN+2, ASKCOM1+35, ASKCOM1+36, ASKCOM1+37, ASKCOM1+38, ASKCOM1+39, ASKCOM1+40, ASKCOM1+41, ASKCOM1+42* , ASKCOM1+43*, ASKCOM1+44, ASKCOM1+45, ASKCOM1+51, ASKCOM1+55, ASKCOM1+59, ASKCOM1+62, ASKCOM1+68, ASKCOM1+71, GOB+1 , GOB+4, ASKAMT+2, ASKAMT+3, ASKAMT+4, ASKAMT+20, ASKAMT+24, S1+1
BARDA	CKNEG+3~, REDO*, REDO+1
>> BARDFLT	EN+4, ASKLIN+3
>> BARDSP	EN1+3, ASKCOM+2
>> BARFLGRP	HISTORY+1, GETFLGRP+19, GETFLGRP+20
>> BARHLP	EN2+3
>> BARHLP(	GOB+4
>> BARJ	ASKAMT+31, ASKAMT+33, ASKAMT+34, ASKAMT+35
BARLIN	EN1+2!, ASKLIN+3*, ASKLIN+5, ASKLIN+6, ASKLIN+7, ASKCOM1+4, ASKCOM1+10, ASKCOM1+16, ASKCOM1+60, ASKCOM1+64 , GOQ+2, GOB+2, S1+1, HISTORY+2
>> BARPASS	EN1+4, ASKCOM+3, P1+1
>> BARPAT	ASKCOM1+66
BARPMT	EN+3*, FINISH+1, CANCEL+2!
>> BARQ	FIN+1*, FIN+2, FIN+3, FIN+4
BARROLL	FINISH+1, CANCEL+2!
>> BARSTAT	ASKCOM1+21*, ASKCOM1+22
>> BARSTOP	FIN+7
>> BARTPB	ASKCOM1+17*, ASKCOM1+20, ASKCOM1+21
BARTR	EN+2!, FINISH+1, CANCEL+2!
BARTR(	ASKCOM1+10
BARTYP	EN1+2!, ASKCOM+1!, GOSR+1*, S1+1
>> BARX	ASKAMT+31, ASKAMT+33, ASKAMT+36
DA	ASKCOM1+19!, ASKCOM1+63~, GETFLGRP+10!
DD	ASKAMT+41!
DIC	ASKCOM1+19!, ASKCOM1+63~, ASKAMT+37*, ASKAMT+43!
DIC("A"	ASKAMT+39*
DIC("S"	ASKAMT+40*
DIC(0	ASKAMT+38*
DIE	ASKCOM1+19!
DIR	EN+2!, ASKCOM1+19!, ASKCOM1+27!, ASKAMT+6!, ASKAMT+11!, PDIR+2!, PDIR+6!, GETFLGRP+10!
DIR("A"	ASKCOM1+25, ASKAMT+8, PDIR+4, GETFLGRP+16
DIR("B"	ASKCOM1+26*
DIR("T"	ASKAMT+9*
DIR(0	ASKCOM1+24, ASKAMT+7, PDIR+3, GETFLGRP+11, GETFLGRP+12, GETFLGRP+13, GETFLGRP+14, GETFLGRP+15
DIROUT	ASKCOM1+15, ASKCOM1+18!, GETFLGRP+18
DIRUT	ASKCOM1+15, ASKCOM1+18!, GETFLGRP+18
DO	ASKAMT+41!
DR	ASKCOM1+19!
DTIME	ASKCOM1+6, ASKAMT+9
DTOUT	ASKCOM1+15, ASKCOM1+18!, GETFLGRP+18
DUOUT	ASKCOM1+15, ASKCOM1+18!, PDIR+7, GETFLGRP+18
DUZ	ASKCOM1+1, FIN+6
DUZ(2	ASKCOM1+17, ASKCOM1+23, ASKCOM1+48, ASKCOM1+49, CKNEG+1
>> J	ASKCOM1+29, ASKCOM1+30, ASKCOM1+31, ASKCOM1+32, ASKCOM1+33, ASKCOM1+35, ASKCOM1+59, ASKCOM1+62, ASKCOM1+68, GOQ+1 , GOSR+1, GOSR+2, GOB+1
LIN	CKNEG~, REDO, REDO+1
>> Q	ASKCOM1+28, ASKCOM1+29, ASKCOM1+34
REVERSAL	EN1+2!, ASKCOM1+3!
REVSCHED	EN1+2!, ASKCOM1+3!
U	ASKCOM1+21, ASKCOM1+23, ASKCOM1+49, REDO+1, HISTORY+1, GETFLGRP+18
>> UFMSESID	ASKCOM1+1, FIN+6
X	ASKCOM1+19!, ASKAMT+12*, ASKAMT+13, ASKAMT+14, ASKAMT+15, LU~, LU+1
Y	ASKCOM1+15, ASKCOM1+19!, ASKCOM1+60*, ASKAMT+44, ASKAMT+45, PDIR+7, PDIR+8, GETFLGRP+18, GETFLGRP+19

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARBAD3

Information

Source Information