Routine: BARUP1

Information

BARUP1 ; IHS/SD/LSL - 3P UPLOAD CONTINUED DEC 5,1996 ;

Source Information

Source file <BARUP1.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	4	FILE^DICN (,WP)^DIE ^DIK $$GET1^DIQ
IHS Accounts Receivable	3	TR^BARTDO $$NEW^BARTR $$CMP^BARUPCHK
IHS VA Utilities	1	$$DIC^XBDIQ1
Kernel	1	$$CJ^XLFSTR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Accounts Receivable	2	BARUP BARUPCH2

Entry Points

External References

Name	Field # of Occurrence
TR^BARTDO	NEWTX+24, MSGTX+32
$$NEW^BARTR	NEWTX+2, MSGTX+12
$$CMP^BARUPCHK	UPLOAD+7
FILE^DICN	ADD+7, SETITM+32, SETCOLL+10
^DIE	UPDATE+7, ITMRLOAD+15, DR01+11, DR02+10, DR11+9, DR12+8, DR278+9, NEWTX+22, MSGTX+28
WP^DIE	MSGTX+30
^DIK	DELITM+7
$$GET1^DIQ	UPDATE+8, NOTX+4, CKEXIST+5
$$DIC^XBDIQ1	ITMRLOAD+14, DELITM+5
$$CJ^XLFSTR	NOTX+5, NOTX+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,@BAR3PUP@("BLNM"),?10,"BILL NOT FOUND NOR ADDED ???" Line Location: NOT+4
Function Call: WRITE	Prompt: !,@BAR3PUP@("BLNM") Line Location: ITMRLOAD+22
Function Call: WRITE	Prompt: " Previously loaded .. deleting existing A/R Bill items",! Line Location: ITMRLOAD+23
Function Call: WRITE	Prompt: !,@BAR3PUP@("BLNM")," Now adding 3P Bill items to A/R Bill",! Line Location: ITMRLOAD+24
Function Call: WRITE	Prompt: !,"--> SETITM FILE^DICN" Line Location: SETITM+32
Function Call: WRITE	Prompt: !,"--> ^DIK" Line Location: DELITM+7
Function Call: WRITE	Prompt: *7,$$CJ^XLFSTR("Could not create a "_BARTYP_" transaction.",IOM) Line Location: NOTX+5
Function Call: WRITE	Prompt: $$CJ^XLFSTR("Please contact IT support.",IOM) Line Location: NOTX+6
Routine Call	DIE Line Location: UPDATE+7 ITMRLOAD+15 DR01+11 DR02+10 DR11+9 DR12+8 DR278+9 NEWTX+22 MSGTX+28
Routine Call	DIE Line Location: MSGTX+30

FileNo	Call Tags
^BARBL(2906 - [#90050.01]	GET1^DIQ
^BARTR(2906 - [#90050.03]	GET1^DIQ, WP^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.01 - [#90052.01]	SETTX+34
^BARBL(	LK2+7, LK2+10, LK2+11, LK2+12, UPDATE+5, DELITM+7
^BARTBL("B"	SETTX+3, SETTX+17
^BARTR(	CKEXIST+4
^DD("DD"	MSGTX+23
^DD(90050.01	SETITM+7, SETCOLL+6
^TMP("BAR"	UPLOAD+6
^TMP($J	UPLOAD+8, ADD+12, BILLOAD+3, BILLOAD+4, BILLOAD+5, BILLOAD+6!, MSGTX+24!, MSGTX+25, MSGTX+26, MSGTX+31!

Label References

Name	Line Occurrences
ADD	UPLOAD+10
BILLOAD	UPLOAD+9, ADD+13
BILLOAD2	BILLOAD+9
CKEXIST	MSGTX+9
DELITM	ITMRLOAD+2
ITMRLOAD	BILLOAD+8
LK2	UPLOAD+3
NEWTX	SETTX+7, SETTX+21, SETTX+27, SETTX+45
NOT	UPLOAD+11
NOTX	SETTX+4, SETTX+18, SETTX+35, NEWTX+5, MSGTX+13
S3PUP	UPLOAD+2, BILLOAD+7, SETITM+3
SETCOLL	BILLOAD+11
SETITM	BILLOAD+10, ITMRLOAD+3
SETTX	ADD+14
STATCODE	MSGTX+11
UPDATE	UPLOAD+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BAR3PUP	UPLOAD+2, S3PUP+1, LK2+4, LK2+11, LK2+12, ADD+4, NOT+4, UPDATE+5, UPDATE+6, BILLOAD+7 , ITMRLOAD+10, ITMRLOAD+13, ITMRLOAD+22, ITMRLOAD+24, BILLOAD2+2, BILLOAD2+4, DR278+8, SETITM+3, SETITM+14, SETITM+15 , SETITM+16, SETITM+19, SETITM+20, SETCOLL+8, SETTX+16, SETTX+28, SETTX+31, SETTX+33, SETTX+38, SETTX+43 , SETTX+44, MSGTX+3, MSGTX+4, MSGTX+5, MSGTX+6, MSGTX+7, MSGTX+8
>> BARACT	UPLOAD+7*
>> BARAMT	SETTX+38*
>> BARBLDA	UPLOAD+4, UPLOAD+7, UPLOAD+10, UPLOAD+11, LK2+3, LK2+7, LK2+10, LK2+13, ADD+10*, ADD+12 , UPDATE+4, UPDATE+8, ITMRLOAD+8, BILLOAD2+7, SETITM+4, SETCOLL+3, DELITM+3, SETTX+4, SETTX+18, SETTX+35 , NEWTX+5, MSGTX+13, CKEXIST+4
BARBLSRV	SETITM+21, SETITM+22, SETITM+23, SETITM+24, SETITM+25, SETITM+26, SETITM+27, SETITM+28, SETITM+29, SETITM+30 , SETITM+33!
BARCKEX	MSGTX+2~, MSGTX+10, CKEXIST+3, CKEXIST+4, CKEXIST+7
BARCNT	SETITM+2~, SETITM+13, SETITM+14, SETITM+15, SETITM+16*, SETITM+19, SETITM+20
BARDATE	MSGTX+2~, MSGTX+7*, MSGTX+25
BARGCN	MSGTX+2~, MSGTX+3*, MSGTX+25, CKEXIST+7
>> BARMIEN	MSGTX+3, MSGTX+5, MSGTX+6, MSGTX+7, MSGTX+8
>> BARNNM	LK2+5, LK2+7, LK2+8, LK2+10
>> BAROPT	SETTX+23
>> BARPAR	BILLOAD2+5
>> BARRSN	MSGTX+8*, MSGTX+26
BARSAT	MSGTX+2~, MSGTX+4*
BARSCODE	MSGTX+2~, MSGTX+5, MSGTX+25, STATCODE+2, STATCODE+3, STATCODE+4, STATCODE+5, RSTATCOD+2, RSTATCOD+3, RSTATCOD+4 , RSTATCOD+5*
>> BARSNM	LK2+4*, LK2+5, LK2+7, LK2+8
>> BARTAC	SETTX+34*, SETTX+35, SETTX+36
>> BARTCNT	SETTX+32, SETTX+33, SETTX+38, SETTX+43, SETTX+44
BARTMP	LK2+2~, LK2+9, LK2+10, LK2+11, LK2+12, LK2+13
>> BARTRIEN	NEWTX+2, NEWTX+5, NEWTX+7, NEWTX+24, MSGTX+12, MSGTX+13, MSGTX+15, MSGTX+23, MSGTX+30, MSGTX+32 , CKEXIST+3, CKEXIST+4, CKEXIST+5
>> BARTRTYP	SETTX+39*
BARTT	SETTX+3, SETTX+4, SETTX+5, SETTX+17, SETTX+18, SETTX+19, SETTX+24!, SETTX+29!, SETTX+39, NEWTX+3 , MSGTX+13
>> BARTTYP	SETTX+30, SETTX+31, SETTX+33, SETTX+34, SETTX+35, SETTX+38, SETTX+43, SETTX+44
BARTYP	NOTX~, NOTX+3*, NOTX+5
>> BARUSER	MSGTX+6*
BARWP	CKEXIST+2~, CKEXIST+3, CKEXIST+5
BARWP(1	CKEXIST+6
BARWP2	CKEXIST+2~, CKEXIST+3, CKEXIST+6, CKEXIST+7
>> BARXX	UPLOAD+6, UPLOAD+8, UPDATE+8, BILLOAD+2, BILLOAD+5, BILLOAD+8
DA	UPDATE+4, UPDATE+5, ITMRLOAD+7!, ITMRLOAD+8, BILLOAD2+7, SETITM+2~, SETCOLL+2~, DELITM+2~, DELITM+4, DELITM+7* , NEWTX+7, MSGTX+15
DA(1	SETITM+4, SETITM+5, SETCOLL+3, SETCOLL+4, DELITM+3*, DELITM+6, DELITM+7
DD	ADD+6!, SETITM+31!, SETCOLL+9!
DIC	ADD+2, ITMRLOAD+7!, SETITM+2~, SETITM+5, SETCOLL+2~, SETCOLL+4*, SETTX+2~
DIC("DR"	SETITM+8, SETITM+12, SETCOLL+7*
DIC("P"	SETITM+7, SETCOLL+6
DIC(0	ADD+3, SETITM+6, SETCOLL+5*
DIDEL	BILLOAD2+8, DR278+10!, NEWTX+21, NEWTX+23!, MSGTX+27*, MSGTX+29!
DIE	UPDATE+3, ITMRLOAD+7!, ITMRLOAD+9, ITMRLOAD+14, BILLOAD2+6, NEWTX+6, MSGTX+14
DIK	DELITM+2~, DELITM+5, DELITM+6
DLAYGO	ADD+5*, ADD+8!, SETITM+34!, SETCOLL+11!
DO	ADD+6!, SETITM+31!, SETCOLL+9!
DR	UPDATE+2!, UPDATE+6, ITMRLOAD+7!, ITMRLOAD+11, ITMRLOAD+12, ITMRLOAD+13, DR01+2, DR01+3, DR01+4, DR01+5 , DR01+6, DR01+7, DR01+8, DR01+9, DR01+10, DR02+2, DR02+3, DR02+4, DR02+5, DR02+7 , DR02+8, DR02+9, DR11+2, DR11+3, DR11+4, DR11+5, DR11+6, DR11+7, DR11+8, DR12+2 , DR12+3, DR12+4, DR12+5, DR12+6, DR12+7, DR278+2, DR278+3, DR278+4, DR278+5, DR278+6 , DR278+7, DR278+8, SETITM+2~, SETCOLL+2~, SETTX+1!, SETTX+6, SETTX+20, SETTX+25, SETTX+26, SETTX+40* , SETTX+41, SETTX+42, SETTX+43, SETTX+44, NEWTX+8, NEWTX+9, NEWTX+10, NEWTX+11, NEWTX+12, NEWTX+13 , NEWTX+14, NEWTX+15, MSGTX+16, MSGTX+17, MSGTX+18, MSGTX+19, MSGTX+20, MSGTX+21, MSGTX+22*
DUZ(2	LK2+7, LK2+10, LK2+11, LK2+12, ADD+12, UPDATE+5, DELITM+7, CKEXIST+4
I	SETITM+2~, SETITM+12*, SETCOLL+2~
IO	NOT+5
IO(0	NOT+3
IOM	NOTX+5, NOTX+6
IOST	ITMRLOAD+19
>> IOT	ITMRLOAD+20
J	SETITM+2~, SETITM+12*, SETCOLL+2~
U	LK2+11, LK2+12, UPDATE+5, SETITM+7, SETCOLL+6, SETCOLL+8, SETTX+43, SETTX+44
X	ADD+4, ITMRLOAD+7!, SETITM+15, SETITM+16, SETITM+17, SETITM+18, SETCOLL+8*, NOTX~, NOTX+4
XVAL	NOTX+2~, NOTX+4*
Y	ADD+9, ADD+10, ITMRLOAD+7!, SETITM+20, SETITM+22, SETITM+23, SETITM+24, SETITM+25, SETITM+26, SETITM+27 , SETITM+28, SETITM+29, SETITM+30, MSGTX+23
>> ZTQUEUED	NOT+2, ITMRLOAD+21

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARUP1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
NOTX(X,BARTYP)
DR02
DR01
NEWTX
BILLOAD	;EP - called by barupchk ; add/reload item from 3P to A/R everytime
S3PUP	;set BAR3PUP variable
SETCOLL
DR11
DR12
TXT
SETTX
SETITM
BILLOAD2
ITMRLOAD
UPDATE	;EP ; Update .01 field of A/R Bill
DR278
MSGTX
DELITM
ADD	; ; Create entry in A/R Bill file
STATCODE
CKEXIST
RSTATCOD
UPLOAD	; EP ; Create a new in A/R Bill File based on 3P data
NOT	; ; Write message
LK2	; ; Try to find the 3PB bill under this parent in A/R