Routine: BARPBEN

Package	Total	Call Graph
IHS Accounts Receivable	6	^BARDBQUE PAZ^BARRUTL TR^BARTDO ($$NEW,MSG)^BARTR $$NOTOPEN^BARUFUT (EOP,INIT)^BARUTL
VA Fileman	3	^DIC ^DIE ^DIR
IHS VA Utilities	1	ENP^XBDIQ1

Package

Total

Call Graph

^BARDBQUE PAZ^BARRUTL TR^BARTDO ($$NEW,MSG)^BARTR $$NOTOPEN^BARUFUT (EOP,INIT)^BARUTL

^DIC ^DIE ^DIR

ENP^XBDIQ1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR PST BENEFICIARY

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
EN	; EP ; SELECT ACCOUNT
LOG	;EP ; log entry into ^XTMP
GET	;EP pull data for posting
BASIC	;EP ASSEMBLE BASIC DATA FOR TRANSACTION
ASK	; ; Ask AR Account to Auto Post
POST	;EP
LOOP	; EP ; Loop ABAL index

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"*AUTO POSTING JOB IN PROGRESS *" Line Location: EN+7
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: !!,"Account selected is ",BARACNM,! Line Location: ASK+15
Function Call: WRITE	Prompt: !!,"Proceeding with Auto-Posting of: ",BARACNM,!! Line Location: ASK+24
Function Call: WRITE	Prompt: "." Line Location: GET+3
Routine Call	DIE Line Location: POST+12
Routine Call	DIC Line Location: ASK+9
Routine Call	DIR Line Location: ASK+19 ASK+29

Name	Line Occurrences (* Changed, ! Killed)
^BARBL(	LOOP+8
^XTMP("BAR-BEN"	EN+6, LOOP+6, LOG+2, LOG+3*

Name	Field # of Occurrence
>> BAR("LOC"	EN+5*
>> BAR("PRIVACY"	EN+4*
>> BARACDA	EN+10, ASK+3, ASK+11, LOOP+8
>> BARACNM	ASK+12*, ASK+15, ASK+24
>> BARBIL(	LOG+2, LOG+3
>> BARBIL(101	LOG+2, LOG+3
>> BARBIL(102	LOG+2, LOG+3
>> BARBIL(15	LOG+2, LOG+3, LOG+4
BARBL	GET+1!
>> BARBLDA	LOOP+7, LOOP+8, GET+2, POST+6
>> BARCNT	LOOP+2, LOG+5
>> BARDR	LOOP+4*, POST+11
>> BARQ("NS"	EN+15*
>> BARQ("RC"	EN+12*
>> BARQ("RP"	EN+13*
>> BARQ("RX"	EN+14*
>> BARSBY	EN+10, ASK+32*, LOG+2, LOG+3
>> BARTOT	LOOP+2, LOG+4
>> BARTRIEN	LOOP+13, POST+4*, POST+6, POST+8, POST+15
>> BARUSR	EN+3
DA	ASK+4!, POST+8*, POST+13!
DIC	ASK+4!, ASK+5*, ASK+30!
DIC("A"	ASK+6*
DIC("S"	ASK+7*
DIC(0	ASK+8*
DIDEL	POST+10*, POST+13!
DIE	POST+9*, POST+13!
DIR	ASK+16!, ASK+20!, ASK+25!, ASK+30!
DIR("A"	ASK+18, ASK+27
DIR("B"	ASK+28*
DIR(0	ASK+17, ASK+26
>> DIROUT	EN+11
DR	LOOP+4, BASIC+2, BASIC+3, BASIC+4, BASIC+5, BASIC+6, BASIC+7, BASIC+8, BASIC+9, BASIC+10* , BASIC+11, BASIC+12, BASIC+13, BASIC+14, POST+11*, POST+13!
DT	LOOP+6
>> DTOUT	EN+11
>> DUOUT	EN+11
DUZ	POST+2
DUZ(2	LOOP+8
>> HAVETRIEN	LOOP+10, LOOP+12, POST+7
IOST	GET+3
U	LOOP+6, LOG+2, LOG+3
>> UFMSESID	POST+2
>> XQUIT	EN+2
>> Y	ASK+10, ASK+11, ASK+21, ASK+31, ASK+32
>> Y(0	ASK+12

Information