Routine: BARPST3

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
IHS Accounts Receivable	10	HISTORY^BARBAD3 ASKLIN^BARFPST3 HIT1^BARPST2 SETTMP^BARPST3A (,$$DSPLY)^BARPST4 EN^BARPST6 ($$AMT,COMHLP,POSTTX,SETHLP)^BARPSTU EN^BARROLL ($$IHS,$$NOTOPEN)^BARUFUT ($$FIND3PB,$$UPC,EOP)^BARUTL
VA Fileman	5	COMMA^%DTC ^DIC ^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	1	(DIQ,VIEWR)^XBLM

Package	Total	Caller Graph
IHS Accounts Receivable	5	BARPNP3 BARPRF3 BARPST BARPST4 BARUFUT

Package

Total

Caller Graph

IHS Accounts Receivable

BARPNP3 BARPRF3 BARPST BARPST4 BARUFUT

Entry Points

Name	Comments	DBIA/ICR reference
ASKCOM	;EP - select command
ASKAMT	;
FINISH	;
S1	;
EN	;EP - command processor
ASKREV	;EP - ASK AGAIN
EXCHK(BARDA,TX)	; BAR1.86 DD 4.2.6 ; ENTERS WITH TRANSACTION DATE/TIME OF ORIGINAL PAYMENT
LNHLP	;
CKNEG(LIN)	;EP; CHECK FOR NEGATIVE BALANCE ;BAR1.84 DD 4.1.7.2
ASKCOM1	;
EN1	;
GOQ	;
0	;start new code IHS/SD/SDR bar1.84 DD item 4.1.7.1
EN2	;
REVERSAL()	;EP - GET THE ORIGINAL TRANSACTION
POST()	;
P1	;
GOD	;
GOA	;
GOB	;
REVHDR	;EP - REVERSAL HEADER
CANCEL	;
COMHLP	;
FIN
GOP	;
PDIR	;
XYZ
ROLLE
ASKLIN	;
REDO
CKREV	; CHECK FOR PAYMENT PRECEDING REVERSAL ;BAR1.84 DD 4.1.7.3
B
ROLL	;EP - tag a bill for rollback to 3P ; enable posting rollback

External References

Name	Field # of Occurrence
COMMA^%DTC	ASKREV+42, ASKREV+48
HISTORY^BARBAD3	0+40
ASKLIN^BARFPST3	ASKLIN+2
HIT1^BARPST2	EN1+4, ASKCOM+3, P1+1
SETTMP^BARPST3A	B, S1+1
^BARPST4	GOB+4
$$DSPLY^BARPST4	0+38
EN^BARPST6	0+35
$$AMT^BARPSTU	B+2, ASKAMT+10
COMHLP^BARPSTU	COMHLP+1
POSTTX^BARPSTU	FIN+4
SETHLP^BARPSTU	EN2+3
EN^BARROLL	FIN+8
$$IHS^BARUFUT	ASKAMT+16, ASKAMT+25, CKNEG+1
$$NOTOPEN^BARUFUT	ASKCOM1+1, FIN+6
$$FIND3PB^BARUTL	0+3
$$UPC^BARUTL	XYZ+1
EOP^BARUTL	0+39, ASKAMT+27, P1+2, ROLL+13, ASKREV+5, ASKREV+61, REDO+6, CKREV+3, EXCHK+4, EXCHK+8
^DIC	ASKAMT+38, ASKAMT+55
^DIE	ROLL+9
$$GET1^DIQ	0+33, ASKREV+21, ASKREV+22, ASKREV+25, ASKREV+26, ASKREV+27, ASKREV+28, ASKREV+36, ASKREV+37, ASKREV+38
^DIR	0+13, ASKAMT+8, PDIR+4, ASKREV+67, ASKREV+74
DIQ^XBLM	GOB+3
VIEWR^XBLM	GOD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+4
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+3
Function Call: WRITE	Prompt: 7,7,*7 Line Location: 0+24
Function Call: WRITE	Prompt: 7,7,*7 Line Location: 0+25
Function Call: WRITE	Prompt: 7,7,*7 Line Location: 0+26
Function Call: WRITE	Prompt: *7," (You must enter a valid number)" Line Location: B+3
Function Call: WRITE	Prompt: *7 Line Location: B+7
Function Call: WRITE	Prompt: " Sorry.. ["_BARHLP(BARCOM(1))_"] not active!" Line Location: B+8
Function Call: WRITE	Prompt: *7," Must be a valid number!" Line Location: ASKAMT+12
Function Call: WRITE	Prompt: !!,"You can not post a payment of anything other than $0 if the TDN is NONPAYMENT" Line Location: ASKAMT+26
Function Call: WRITE	Prompt: *7 Line Location: ASKAMT+40
Function Call: WRITE	Prompt: !! Line Location: ASKAMT+40
Function Call: WRITE	Prompt: *7,!! Line Location: ASKAMT+57
Function Call: WRITE	Prompt: *7 Line Location: PDIR+6
Function Call: WRITE	Prompt: !!,"PAYMENT REVERSALS ARE NO LONGER ALLOWED," Line Location: ASKREV+3
Function Call: WRITE	Prompt: !,"PLEASE USE THE 'PAYMENT CREDIT' TRANSACTION TYPE" Line Location: ASKREV+4
Function Call: WRITE	Prompt: !!,"There are no transactions to reverse!" Line Location: ASKREV+13
Function Call: WRITE	Prompt: !!,"NO TRANSACTIONS MATCH THE REVERSAL AMOUNT ENTERED!" Line Location: ASKREV+62
Function Call: WRITE	Prompt: !!,BARDSH Line Location: ASKREV+63
Function Call: WRITE	Prompt: !,"You have chosen "_TRANTYP_" dated "_EXTRDT_"." Line Location: ASKREV+69
Function Call: WRITE	Prompt: @IOF Line Location: REVHDR+1
Function Call: WRITE	Prompt: !!,"Which Original Payment does this apply to?" Line Location: REVHDR+2
Function Call: WRITE	Prompt: ! Line Location: REVHDR+3
Function Call: WRITE	Prompt: "TRANS DATE",?25,"TRANS TYPE",?50,"AMOUNT",?65,"BALANCE" Line Location: REVHDR+4
Function Call: WRITE	Prompt: !,?10,"A/R ACCT",?25,"BATCH",?55,"BATCH ITEM" Line Location: REVHDR+5
Function Call: WRITE	Prompt: !,BARDSH Line Location: REVHDR+6
Function Call: WRITE	Prompt: !!,"<<YOU ARE ATTEMPTING TO POST A REVERSAL WHEN THERE IS NO PAYMENT ON THE BILL" Line Location: CKREV+1
Function Call: WRITE	Prompt: !,"PLEASE CHECK YOUR TRANSACTION AND TRY AGAIN" Line Location: CKREV+2
Routine Call	DIE Line Location: ROLL+9
Routine Call	DIC Line Location: ASKAMT+38 ASKAMT+55
Routine Call	DIR Line Location: 0+13 ASKAMT+8 PDIR+4 ASKREV+67 ASKREV+74

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	0+7
^BAR(90052.01 - [#90052.01]	B+5, ASKAMT+30
^BAR(90052.06	EXCHK+5
^BARBL(	0+9
^BARTBL("D"	ASKAMT+45
^BARTMP($J	0+2, 0+34, GOB+2, FIN+9!, ROLL+3, CANCEL+2!, ASKREV+12, REDO, REDO+1
^BARTR(	ASKREV+20, EXCHK+12, EXCHK+13
^DD("DD"	ASKREV+35
^TEMP($J	EN+1!

Label References

Name	Line Occurrences
$$EXCHK	ASKREV+30
$$POST	FIN
$$REVERSAL	ASKAMT+18
ASKAMT	GOP+1, GOP+2, GOA+1, GOA+2, ASKAMT+12, ASKAMT+40, ASKAMT+57
ASKCOM	0+1, 0+23, 0+28, 0+37, 0+40, GOP+3, GOD+1, GOB+1, B, B+9 , ASKAMT+11, ASKAMT+16, ASKAMT+25, S1+3
ASKCOM1	ASKLIN+1, ASKLIN+5, COMHLP+2
ASKREV	ASKREV+76
CANCEL	FINISH+1, FIN+2, FIN+6
CKNEG	GOQ+3
CKREV	ASKREV+14, ASKREV+58
COMHLP	0+27
EN1	GOQ+2, FIN+1
FIN	FIN+7
FINISH	ASKLIN+3, ASKLIN+4, GOQ+2
PDIR	PDIR+6
REVHDR	ASKREV+7
ROLL	GOP+3
S1	ASKAMT+29, ASKAMT+49

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACCT	ASKREV+8~, ASKREV+36*, ASKREV+55
AMOUNT	ASKREV+8~, ASKREV+44*, ASKREV+52
ARBILLIN	ASKREV+8~, ASKREV+12*, ASKREV+14, ASKREV+20, ASKREV+30
ARRAY	ASKREV+8~
ARRAY(	ASKREV+32*, ASKREV+77
BALANCE	ASKREV+8~, ASKREV+49*, ASKREV+53
BARACC	0+29~, 0+33*, 0+35
BARADJ	EN+2*, FINISH+1, CANCEL+3!
BARAMT	EN1+2!, EN2+2!, ASKCOM+1!, B, B+1, B+4, B+6, ASKAMT+13, ASKAMT+16, ASKAMT+25 , ASKAMT+40!, ASKAMT+42, ASKAMT+57!, S1+1, ASKREV+24
>> BARASK	ASKAMT+2*, ASKAMT+6
BARATYP	EN1+2!, ASKCOM+1!, ASKAMT+1, ASKAMT+44!, ASKAMT+48, ASKAMT+49, ASKAMT+58*, S1+1
BARB	CKNEG+2~, REDO+1*, REDO+2, REDO+4
>> BARBAL	ASKREV+16, ASKREV+47, ASKREV+48
BARBLDA	0+2, 0+3, 0+9, 0+29~, 0+34, 0+35, GOB+2, GOB+3, ROLL+2~, ROLL+3 , ROLL+4, ROLL+7
BARCAT	EN1+2!, ASKCOM+1!, B, B+5, ASKAMT+1, ASKAMT+30, ASKAMT+41, ASKAMT+42, ASKAMT+45, S1+1
BARCK	ASKREV+11~, ASKREV+15, ASKREV+23*, ASKREV+58
>> BARCNT	ASKLIN+1, ASKLIN+5, GOQ+2
>> BARCOL	0+31, EXCHK+2
>> BARCOL(0	ASKAMT+25
BARCOM	EN1+2!, EN2+2!, ASKCOM+1!, XYZ, XYZ+1, XYZ+2*, 0+1, 0+18
BARCOM(	0+18*, 0+19, 0+20!, 0+28, 0+37, 0+40, GOQ+2, GOP+1, GOP+2, GOP+3 , GOA+1, GOA+2, GOD+1, GOB+1, GOB+4
BARCOM(1	0+23, 0+24, 0+25, 0+26*, 0+27, B, B+8
BARCOM(2	B+2, B+4
BARDA	CKNEG+2~, REDO*, REDO+1, EXCHK~, EXCHK+12
>> BARDFLT	EN+3, ASKLIN+1
>> BARDSH	ASKREV+63, REVHDR+6
>> BARDSP	EN1+3, ASKCOM+2
>> BARHLP	EN2+3
>> BARHLP(	0+27, B+8
>> BARITDA	0+30
>> BARITM	EXCHK+2
>> BARJ	ASKAMT+43, ASKAMT+45, ASKAMT+46, ASKAMT+47, ASKAMT+49
BARLIN	EN1+2!, ASKLIN+1*, ASKLIN+3, ASKLIN+4, ASKLIN+5, ASKCOM1+3, 0+2, 0+34, 0+38, GOQ+3 , GOB+2, B, B+6, S1+1, ROLL+3, ASKREV+12, EXCHK+18, EXCHK+19
BARNOTZ	ASKREV+19!, ASKREV+59, EXCHK+20*
>> BARPASS	EN1+4, ASKCOM+3, P1+1
>> BARPAT	0+35, GOD+2
BARPMT	EN+2*, FINISH+1, CANCEL+3!, ASKREV+15
>> BARQ	FIN*, FIN+1, FIN+2, FIN+4
BARROLL	FINISH+1, CANCEL+3!
BARROLL(	ROLL+4*
>> BARSTAT	0+7*, 0+8
>> BARSTOP	FIN+7
>> BARTPB	0+3*, 0+6, 0+7
BARTR	EN+1!, FINISH+1, CANCEL+3!
BARTR(	EXCHK+18, EXCHK+19
BARTYP	EN1+2!, ASKCOM+1!, GOP+1, GOP+2, GOA+1, GOA+2, B, B+1*, ASKAMT+2, ASKAMT+16 , ASKAMT+25, ASKAMT+29, S1+1
>> BARX	ASKAMT+43, ASKAMT+45, ASKAMT+48, ASKREV+39*, ASKREV+47
>> CNT	ASKREV+18, ASKREV+31, ASKREV+32, ASKREV+33, ASKREV+59, ASKREV+62, ASKREV+65
>> COLBAT	ASKREV+37*, ASKREV+56
COLDA	ASKREV+9~, ASKREV+26*, ASKREV+28, EXCHK+2
>> COLITEM	ASKREV+38*, ASKREV+57
CREDIT	ASKREV+10~, ASKREV+22*, ASKREV+23, ASKREV+24, ASKREV+39
DA	0+5!, 0+29~, 0+30, 0+33, ROLL+7
DA(1	0+31*
DD	ASKAMT+37!, ASKAMT+54!
DEBIT	ASKREV+10~, ASKREV+21*, ASKREV+39
>> DFN	GOD+2*
DIC	0+5!, 0+29~, 0+32, 0+33, ASKAMT+33, ASKAMT+39!, ASKAMT+50*, ASKAMT+56!, ROLL+5!, ROLL+10!
DIC("A"	ASKAMT+35, ASKAMT+52
DIC("S"	ASKAMT+36, ASKAMT+53
DIC(0	ASKAMT+34, ASKAMT+51
DIE	0+5!, ROLL+5!, ROLL+6*, ROLL+10!
DIR	EN+1!, 0+5!, 0+13!, ASKAMT+4!, ASKAMT+9!, PDIR+1!, PDIR+5!, ROLL+11!, ASKREV+64!, ASKREV+70!
DIR("A"	0+11, ASKAMT+6, PDIR+3, ROLL+12, ASKREV+66, ASKREV+73
DIR("B"	0+12, ASKREV+72
DIR("T"	ASKAMT+7*
DIR(0	0+10, ASKAMT+5, PDIR+2, ASKREV+65, ASKREV+71*
DIROUT	0+1, 0+4!
DIRUT	0+1, 0+4!
DO	ASKAMT+37!, ASKAMT+54!
DR	0+5!, ROLL+8*, ROLL+10!
DTIME	XYZ, ASKAMT+7
DTOUT	0+1, 0+4!, ASKAMT+16, ASKREV+68, ASKREV+75
DUOUT	0+1, 0+4!, ASKAMT+16, PDIR+6, ASKREV+68, ASKREV+75
DUZ	ASKCOM1+1, FIN+6
DUZ(2	0+3, 0+9, ASKAMT+16, ASKAMT+25, ASKREV+20, CKNEG+1, EXCHK+5, EXCHK+12, EXCHK+13
EXTRDT	ASKREV+8~, ASKREV+34, ASKREV+35, ASKREV+50, ASKREV+69
IOF	REVHDR+1
ITEMDA	ASKREV+9~, ASKREV+27*, ASKREV+28, EXCHK+2
>> J	0+16, 0+18, 0+19, 0+20, 0+21, 0+23, 0+28, 0+37, 0+40, GOQ+2 , GOP+1, GOP+2, GOP+3, GOA+1, GOA+2, GOD+1, GOB+1, GOB+4, B
LIN	CKNEG~, REDO, REDO+1
>> Q	0+15, 0+16, 0+22
RETURN	ASKREV+8~
REVERS	ASKAMT+17!, ASKAMT+18*, ASKAMT+19, ASKAMT+20
REVERSAL	EN1+2!, ASKCOM1+2!, ASKAMT+16, ASKAMT+17!, ASKAMT+19*
REVSCHED	EN1+2!, ASKCOM1+2!, ASKAMT+17!, ASKAMT+20, ASKREV+9~, ASKREV+28, ASKREV+32
TRANDATE	ASKREV+8~
TRANSDAT	ASKREV+8~, ASKREV+17, ASKREV+20, ASKREV+21, ASKREV+22, ASKREV+25, ASKREV+26, ASKREV+27, ASKREV+30, ASKREV+32 , ASKREV+34, ASKREV+36, ASKREV+37, ASKREV+38
TRANTYP	ASKREV+8~, ASKREV+25*, ASKREV+29, ASKREV+43, ASKREV+46, ASKREV+51, ASKREV+69
TX	EXCHK~, EXCHK+3, EXCHK+5, EXCHK+6, EXCHK+14, EXCHK+19
U	0+7, 0+9, ASKAMT+19, ASKAMT+20, ASKAMT+25, ASKREV+32, REDO+1, EXCHK+5, EXCHK+13, EXCHK+19
>> UFMSESID	ASKCOM1+1, FIN+6
X	0+5!, B+2, B+3, ASKAMT+10, ASKAMT+11, ASKAMT+12, ASKAMT+13, ROLL+10!, ASKREV+39, ASKREV+43 , ASKREV+44, ASKREV+45~, ASKREV+48, ASKREV+49, EXCHK+9~, EXCHK+11, EXCHK+12, EXCHK+13, EXCHK+17, EXCHK+18* , EXCHK+19
>> X2	ASKREV+40, ASKREV+48
>> X3	ASKREV+41, ASKREV+48
Y	0+1, 0+5!, 0+38, ASKAMT+16, ASKAMT+21, ASKAMT+40, ASKAMT+41, ASKAMT+57, ASKAMT+58, PDIR+6 , PDIR+7, ROLL+10!, ASKREV+35, ASKREV+68, ASKREV+76, ASKREV+77, EXCHK+9~, EXCHK+13, EXCHK+14
Z	EXCHK+9~, EXCHK+10, EXCHK+15, EXCHK+16, EXCHK+19*, EXCHK+20, EXCHK+21

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPST3

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: