Routine: BARPUC4

Package	Total	Call Graph
IHS Accounts Receivable	8	$$SDT^BARDUTL WARN^BARPST3A CKNEG^BARPST4 ASKCOM^BARPUC3 $$AMT^BARPUCU PAZ^BARRUTL EOP^BARUTL $$EN^BARVDF
VA Fileman	2	^DIC ^DIR

Package

Total

Call Graph

IHS Accounts Receivable

$$SDT^BARDUTL WARN^BARPST3A CKNEG^BARPST4 ASKCOM^BARPUC3 $$AMT^BARPUCU PAZ^BARRUTL EOP^BARUTL $$EN^BARVDF

VA Fileman

^DIC ^DIR

Package	Total	Caller Graph
IHS Accounts Receivable	1	BARPUC3

Package

Total

Caller Graph

IHS Accounts Receivable

BARPUC3

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;
EN	;EP - editing of temporary buffer
ASKAMT	;
B1O	;
S1	;
PARSE	;
SETTMP0(BARTYP,BARAMT,BARLIN,BARCAT,BARATYP)	; ORIGINAL CODE ;BAR1.84 DD 4.1.7.2
B1	;
SETTMP(BARTYP,BARAMT,BARLIN,BARCAT,BARATYP,BAROAMT)	;HEAVILY MODIFIED;BAR1.84 DD 4.1.7.2
DSPLY(BARLIN)	;EP

Name	Field # of Occurrence
$$SDT^BARDUTL	HEAD+3
WARN^BARPST3A	B1O+2, B1O+3, B1O+4
CKNEG^BARPST4	B1+5
ASKCOM^BARPUC3	EN+1, EN+10, ASKAMT+6, S1+3
$$AMT^BARPUCU	ASKAMT+5
PAZ^BARRUTL	B1O+8
EOP^BARUTL	EN+3
$$EN^BARVDF	HEAD+1
^DIC	ASKAMT+19, ASKAMT+37
^DIR	EN+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+7
Function Call: WRITE	Prompt: !!,BARASK_$J(BARAMT,0,2)_"// " Line Location: ASKAMT+2
Function Call: WRITE	Prompt: *7," Must be a valid number!" Line Location: ASKAMT+7
Function Call: WRITE	Prompt: *7 Line Location: ASKAMT+21
Function Call: WRITE	Prompt: !! Line Location: ASKAMT+21
Function Call: WRITE	Prompt: *7,!! Line Location: ASKAMT+39
Function Call: WRITE	Prompt: !,?1,BARSEL_"." Line Location: DSPLY+7
Function Call: WRITE	Prompt: ?8,$P(BARTR(BARLIN,BARJ),U,1) Line Location: DSPLY+8
Function Call: WRITE	Prompt: ?13,$J($P(BARTR(BARLIN,BARJ),U,2),8,2) Line Location: DSPLY+9
Function Call: WRITE	Prompt: ?25,$E($P(^BAR(90052.01,Y,0),U,1),1,23) Line Location: DSPLY+11
Function Call: WRITE	Prompt: ?50,$E($P(^BARTBL(Y,0),U,1),1,28) Line Location: DSPLY+13
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),! Line Location: HEAD+1
Function Call: WRITE	Prompt: "Transactions for "_$P(^DPT(+BARPASS,0),U,1)_" from "_$$SDT^BARDUTL($P(BARPASS,U,2))_" to "_$$SDT^BARDUTL($P(BARPASS,U,3)) Line Location: HEAD+3
Function Call: WRITE	Prompt: ?(IOM-15),"Page: "_BARPG Line Location: HEAD+4
Function Call: WRITE	Prompt: !!,"Trans",?8,"Type",?15,"Amount",?25,"Category",?50,"Adj. Type" Line Location: HEAD+5
Function Call: WRITE	Prompt: !,BARDSH Line Location: HEAD+8
Routine Call	DIC Line Location: ASKAMT+19 ASKAMT+37
Routine Call	DIR Line Location: EN+9

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.01 - [#90052.01]	DSPLY+11
^BARTBL - [#90052.02]	DSPLY+13
^BARTBL("D"	ASKAMT+26
^BARTMP($J	SETTMP+3, B1+2, B1+9, B1+13, B1+16, SETTMP0+3, B1O+10, B1O+13, B1O+15
^DPT - [#2]	HEAD+3

Name	Line Occurrences
$$DSPLY	EN+6
ASKAMT	ASKAMT+7, ASKAMT+21, ASKAMT+39
HEAD	DSPLY+3
S1	ASKAMT+9, ASKAMT+30
SETTMP	S1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARADJ	B1+14, B1O+14
BARAMT	PARSE+8, ASKAMT+2, ASKAMT+3, ASKAMT+8, ASKAMT+23*, S1+2, SETTMP~, B1+5, B1+8, B1+9 , B1+10, B1+12, B1+13, B1+14, B1+16, B1+17, SETTMP0~, B1O+2, B1O+3, B1O+4 , B1O+10, B1O+11, B1O+13, B1O+14, B1O+15, B1O+16
>> BARASK	ASKAMT+1*, ASKAMT+2
BARATYP	PARSE+10, ASKAMT+30, ASKAMT+31, ASKAMT+40*, S1+2, SETTMP~, B1+17, SETTMP0~, B1O+16
BARBBAL	B1+2, B1+4, B1+5, B1+18!, B1O+17!
BARCAT	PARSE+9, ASKAMT+13, ASKAMT+22, ASKAMT+23, ASKAMT+26, S1+2, SETTMP~, B1+3, B1+15, B1+17 , SETTMP0~, B1O+16
>> BARCLV(17	B1O+2
>> BARDA	SETTMP+3, B1+2, B1+9, B1+13, B1+16, SETTMP0+3, B1O+10, B1O+13, B1O+15
>> BARDSH	HEAD+6, HEAD+7, HEAD+8
>> BAREOB	B1O+4
>> BAREOV(4	B1O+4
>> BARFLG("BARWARN"	SETTMP+1!, SETTMP0+1!, B1O+5, B1O+6!
>> BARITV(19	B1O+3
BARJ	EN+5, ASKAMT+24, ASKAMT+26, ASKAMT+27, ASKAMT+28, ASKAMT+30, DSPLY+1~, DSPLY+4, DSPLY+5*, DSPLY+8 , DSPLY+9, DSPLY+10, DSPLY+12, DSPLY+14
BARK	ASKAMT+25!, ASKAMT+29*, ASKAMT+30
BARLIN	EN+1, EN+6, PARSE+1*, PARSE+2, PARSE+3, PARSE+6, S1+2, SETTMP~, SETTMP+3, B1+2 , B1+9, B1+13, B1+16, B1+17, DSPLY~, DSPLY+5, DSPLY+8, DSPLY+9, DSPLY+10, DSPLY+12 , DSPLY+14, SETTMP0~, SETTMP0+3, B1O+10, B1O+13, B1O+15, B1O+16
BAROAMT	PARSE+8*, S1+2, SETTMP~, B1+4, B1+5, B1+8, B1+9, B1+10, B1+12, B1+13 , B1+14, B1+16, B1+18!, B1O+2, B1O+3, B1O+4, B1O+10, B1O+11, B1O+13, B1O+14 , B1O+15, B1O+17!
>> BARPASS	HEAD+3
BARPG	DSPLY+1~, DSPLY+2, HEAD+2, HEAD+4
>> BARPMT	B1+10, B1O+2, B1O+3, B1O+4, B1O+11
BARREC	PARSE+5~, PARSE+6*, PARSE+7, PARSE+8, PARSE+9, PARSE+10
BARSEL	EN+4~, EN+5, EN+6, EN+8, EN+11, PARSE+1, PARSE+3, DSPLY+4, DSPLY+6*, DSPLY+7 , DSPLY+14, DSPLY+16
BARSEL(	PARSE+1, PARSE+3, DSPLY+14*
>> BARSTOP	SETTMP+2, B1+6, SETTMP0+2, B1O+1, B1O+5, B1O+9*
>> BARTR(	EN+1, PARSE+6, B1+17, DSPLY+5, DSPLY+8, DSPLY+9, DSPLY+10, DSPLY+12, B1O+16
>> BARTX(2	ASKAMT+5
BARTYP	PARSE+7*, ASKAMT+1, ASKAMT+9, S1+2, SETTMP~, B1+7, B1+11, B1+17, SETTMP0~, B1O+1 , B1O+12, B1O+16
>> BARV	PARSE+3*, PARSE+4, PARSE+6, B1+17, B1O+16
>> BARX	ASKAMT+24, ASKAMT+26, ASKAMT+29
>> BARZZZZ	B1+1*
DD	ASKAMT+18!, ASKAMT+36!
DIC	ASKAMT+14, ASKAMT+20!, ASKAMT+32, ASKAMT+38!
DIC("A"	ASKAMT+16, ASKAMT+34
DIC("B"	ASKAMT+13, ASKAMT+31
DIC("S"	ASKAMT+17, ASKAMT+35
DIC(0	ASKAMT+15, ASKAMT+33
>> DIR(0	EN+8*
DO	ASKAMT+18!, ASKAMT+36!
DTIME	ASKAMT+2
>> DUOUT	EN+10
IOM	HEAD+4, HEAD+7
U	PARSE+7, PARSE+8, PARSE+9, PARSE+10, B1+2, B1+9, B1+13, B1+16, B1+17, DSPLY+8 , DSPLY+9, DSPLY+10, DSPLY+11, DSPLY+12, DSPLY+13, HEAD+3, B1O+10, B1O+13, B1O+15, B1O+16
>> X	ASKAMT+2, ASKAMT+3, ASKAMT+5*, ASKAMT+6, ASKAMT+7, ASKAMT+8
>> Y	EN+11, ASKAMT+21, ASKAMT+22, ASKAMT+39, ASKAMT+40, DSPLY+10, DSPLY+11, DSPLY+12, DSPLY+13

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPUC4

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: