Routine: BARPSTU

Package	Total	Call Graph
IHS Accounts Receivable	5	TR^BARTDO ($$NEW,MSG)^BARTR ($$IHS,$$NOTOPEN)^BARUFUT EOP^BARUTL $$EN^BARVDF
VA Fileman	2	^DIE $$GET1^DIQ
IHS VA Utilities	1	EN^XBDIQ1

Package

Total

Call Graph

IHS Accounts Receivable

TR^BARTDO ($$NEW,MSG)^BARTR ($$IHS,$$NOTOPEN)^BARUFUT EOP^BARUTL $$EN^BARVDF

VA Fileman

^DIE $$GET1^DIQ

IHS VA Utilities

EN^XBDIQ1

Package	Total	Caller Graph
IHS Accounts Receivable	9	BARBAD3 BARFPST5 BARPNP3 BARPNPU BARPRF3 BARPRFU BARPST3 BARPST4 BARPUCU

Package

Total

Caller Graph

IHS Accounts Receivable

BARBAD3 BARFPST5 BARPNP3 BARPNPU BARPRF3 BARPRFU BARPST3 BARPST4
BARPUCU

Entry Points

Name	Comments	DBIA/ICR reference
B
CKCOL	;EP; CHECK COLLECTION BATCH/ITEM BALANCES;BAR1.84 DD 4.1.7.2
SETHLP	;EP - sethelp
COMHLP	;EP - help processor
P1	;
POSTTX	;EP - poster ;Heavily modified for BAR1.84 DD 4.1.7.2
CKBAL(BARL,BARB)	;EP; CHECK IF TX'S WILL CREATE NEGATIVE BALANCE
DONE	;
AMT(X,BARMIN,BARMAX)	;EP - ** number function
STOP(TYPE,BARDIF)	;EP; BAR1.84 DD 4.1.7.2
PX	;

Name	Field # of Occurrence
TR^BARTDO	PX+35
$$NEW^BARTR	PX+1
MSG^BARTR	PX+3
$$IHS^BARUFUT	CKBAL+5
$$NOTOPEN^BARUFUT	POSTTX+4
EOP^BARUTL	STOP+6
$$EN^BARVDF	COMHLP+2
^DIE	PX+32
$$GET1^DIQ	POSTTX+12, POSTTX+14
EN^XBDIQ1	CKCOL+7, CKCOL+14, CKCOL+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),!! Line Location: COMHLP+2
Function Call: WRITE	Prompt: ?IOM-$L(X)\2,X Line Location: COMHLP+4
Function Call: WRITE	Prompt: !?IOM-$L(X)\2 Line Location: COMHLP+5
Function Call: WRITE	Prompt: "-" Line Location: COMHLP+5
Function Call: WRITE	Prompt: !! Line Location: COMHLP+6
Function Call: WRITE	Prompt: !?2,BARHLP(J) Line Location: COMHLP+9
Function Call: WRITE	Prompt: !! Line Location: COMHLP+10
Function Call: WRITE	Prompt: !!,"Please wait... Posting Transactions." Line Location: POSTTX+5
Function Call: WRITE	Prompt: !!,"THE TRANSACTION(S) YOU ARE ATTEMPTING TO POST WILL PUT" Line Location: STOP+1
Function Call: WRITE	Prompt: !,"THE ",TYPE," INTO A NEGATIVE BALANCE BY $"_-BARDIF Line Location: STOP+2
Function Call: WRITE	Prompt: !,"PLEASE CANCEL, OR USE 'M' FOR MORE TO EDIT YOUR TRANSACTION" Line Location: STOP+3
Function Call: WRITE	Prompt: !,"TO PREVENT THE NEGATIVE BALANCE" Line Location: STOP+4
Function Call: WRITE	Prompt: "." Line Location: PX+36
Routine Call	DIE Line Location: PX+32

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

Name	Line Occurrences (* Changed, ! Killed)
^BARTBL("B"	POSTTX+24, POSTTX+25
^BARTMP($J	POSTTX+11

Name	Line Occurrences
CKBAL	POSTTX+15
CKCOL	CKBAL+21
P1	POSTTX+31
SETHLP	COMHLP+7
STOP	CKBAL+18, CKBAL+22, CKBAL+23, CKBAL+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARAC	POSTTX+12, P1+12
BARADJ	POSTTX+33!
>> BARAMT	POSTTX+21*, POSTTX+22, P1+2, P1+3
>> BARASFAC	P1+14*
BARATYP	POSTTX+27*, POSTTX+33!
BARB	CKBAL~, CKBAL+17, CKBAL+18
>> BARBDFN	POSTTX+11*, POSTTX+12, POSTTX+13, POSTTX+14, PX+3
BARBLV	POSTTX+6!, POSTTX+33!
BARBLV(15	POSTTX+14*, POSTTX+15
BARBTOT	POSTTX+17, POSTTX+22, POSTTX+33!
BARCAT	POSTTX+23, POSTTX+33!, CKBAL+7~, CKBAL+13, CKBAL+14, PX+34
BARCLV	CKCOL+1!
BARCLV(17	CKBAL+24
>> BARCOL	CKBAL+19, PX+19, CKCOL+6, CKCOL+13, CKCOL+21
>> BARCOL(0	P1+13, P1+14, P1+15
>> BARCR	P1+2*
>> BARDB	P1+3, P1+4
BARDIF	CKBAL+7~, STOP~, STOP+2
>> BAREOB	CKBAL+22, P1+17, CKCOL+16, CKCOL+20
BAREOV	CKCOL+1!
BAREOV(4	CKBAL+22
>> BARHLP	COMHLP+7
>> BARHLP(	COMHLP+9
>> BARHLP("A"	SETHLP+1*
>> BARHLP("B"	B*
>> BARHLP("C"	SETHLP+2*
>> BARHLP("D"	SETHLP+3*
>> BARHLP("E"	B+1*
>> BARHLP("H"	B+3*
>> BARHLP("I"	B+2*
>> BARHLP("M"	B+4*
>> BARHLP("P"	B+5*
>> BARHLP("Q"	B+6*
>> BARHLP("R"	B+7*
>> BARHLP("T"	B+8*
>> BARITM	CKCOL+12, CKCOL+22
>> BARITM(0	P1+12, P1+16, PX+20
BARITV	CKCOL+1!
BARITV(19	CKBAL+23
BARJ	POSTTX+17, POSTTX+18, POSTTX+19, CKBAL+7~, CKBAL+8, CKBAL+9, CKBAL+10
BARL	CKBAL~, CKBAL+9
>> BARLIN	POSTTX+9, POSTTX+10, POSTTX+11, POSTTX+15, POSTTX+18, POSTTX+19, POSTTX+33, CKBAL+10
BARMAX	AMT~, AMT+8
BARMIN	AMT~, AMT+7
>> BARPAR	P1+13*
>> BARPAT	P1+5
BARPMT	POSTTX+33!
>> BARPT	P1+5*
BARPTOT	CKBAL+7~, CKBAL+8, CKBAL+16, CKBAL+22, CKBAL+23, CKBAL+24
>> BARREC	POSTTX+19, POSTTX+20, POSTTX+21, POSTTX+23, POSTTX+27, POSTTX+28, POSTTX+29, CKBAL+10, CKBAL+11, CKBAL+12 , CKBAL+13
>> BARROLL(	POSTTX+13*
>> BARSECT	P1+15*
>> BARSITE	P1+16, P1+17
>> BARSTOP	POSTTX+16, CKBAL+4, STOP+5
BARTAMT	CKBAL+7~, CKBAL+12*, CKBAL+15, CKBAL+16
BARTOT	CKBAL+7~, CKBAL+8, CKBAL+15, CKBAL+17, CKBAL+18
>> BARTR(	POSTTX+10, POSTTX+18, POSTTX+19, POSTTX+33!, CKBAL+9, CKBAL+10
>> BARTRIEN	PX+2*, PX+35
>> BARTT	POSTTX+24, POSTTX+25, POSTTX+26*
>> BARTXT	POSTTX+20*, POSTTX+24, POSTTX+25, POSTTX+26, PX+23
>> BARTYP	CKBAL+11*, CKBAL+16
>> BARZZZZ	CKBAL+20
DA	POSTTX+7~, PX+4!, PX+5, CKCOL+2~, CKCOL+6, CKCOL+12, CKCOL+20
DA(1	CKCOL+13, CKCOL+22
DA(2	CKCOL+21*
DD	POSTTX+6!
DIC	POSTTX+7~, PX+4!, CKCOL+2~, CKCOL+3, CKCOL+9, CKCOL+17*
DIDEL	PX+31*, PX+33!
DIE	POSTTX+7~, P1+1, PX+4!, PX+5
DIQ	POSTTX+7~, CKCOL+2~, CKCOL+4, CKCOL+10, CKCOL+18*
DO	POSTTX+6!
DR	POSTTX+7~, PX+4!, PX+6, PX+7, PX+8, PX+9, PX+10, PX+11, PX+12, PX+13 , PX+14, PX+15, PX+16, PX+19, PX+20, PX+21, PX+24, PX+25, PX+26, PX+29 , PX+30, CKCOL+2~, CKCOL+5, CKCOL+11, CKCOL+19
DUZ	POSTTX+4
DUZ(2	CKBAL+5
IOM	COMHLP+4, COMHLP+5
J	COMHLP+1~, COMHLP+5, COMHLP+8, COMHLP+9*
REVERSAL	POSTTX+8~, POSTTX+28*, POSTTX+32!, PX+28
REVSCHED	POSTTX+8~, POSTTX+29*, POSTTX+32!
TYPE	STOP~, STOP+2
U	POSTTX+20, POSTTX+21, POSTTX+23, POSTTX+27, POSTTX+28, POSTTX+29, CKBAL+11, CKBAL+12, CKBAL+13, P1+12 , P1+13, P1+14, P1+15, P1+16
>> UFMSESID	POSTTX+4
X	AMT~, AMT+3, AMT+4, AMT+5, AMT+6, AMT+7, AMT+8, AMT+9, COMHLP+1~, COMHLP+3 , COMHLP+4, COMHLP+5, PX+1*, PX+2, PX+3, PX+5

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPSTU

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: