Routine: BARBLOS0

Information

BARBLOS0 ; IHS/SD/LSL - IG REPORT ON OUTSTANDING BILLS BY APPROVE DATE 16:11 ;

Source file <BARBLOS0.m>

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE ^DIK ^DIR
IHS Accounts Receivable	3	^BARBLOS0 PRINT^BARBLOS1 ^BARNEWS3
Kernel	2	^%ZISC ($$OPEN,$$SEND)^%ZISH
IHS VA Utilities	1	($$DIC,$$VAL)^XBDIQ1

Package	Total	Caller Graph
IHS Accounts Receivable	2	BARBLOS BARBLOS0

Name	Comments	DBIA/ICR reference
SET	;EP set menu ; remove previous menu name
END	;;EP
DR1	;;build dr for option
TRAN	;EP send to area office if BARAREA=1
DR2	;; build dr for menu item
SET2	;
ASK	;EP ask user questions

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," The file IG",BARSUFAC," will be sent to the area office.",!! Line Location: ASK+7
Function Call: WRITE	Prompt: !,"A mail message has been sent to the A/R Users ",! Line Location: END+1
Routine Call	DIE Line Location: SET2+9 SET2+14
Routine Call	DIC Line Location: SET+2 SET2+1 SET2+4 SET2+10 SET2+12
Routine Call	DIR Line Location: ASK+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	ASK+2

Name	Field # of Occurrence
>> BARAREA	ASK+1, ASK+4, TRAN+1
>> BARDA	SET2+7*
>> BARDEST	TRAN+2*, TRAN+8
>> BARDIR	TRAN+4*, TRAN+5, TRAN+8
>> BARFN	TRAN+4*, TRAN+5, TRAN+8
>> BARSUFAC	ASK+6, ASK+7, TRAN+3, TRAN+4
>> BARX	SET+2, SET2+1, SET2+4*, SET2+12
DA	SET+3!, SET2+6, SET2+13*
DA(1	SET2+11*
DIC	SET+2!, SET2+1!, SET2+4!, SET2+10!, SET2+12!*, SET2+14
DIC(0	SET+2, SET2+1, SET2+4, SET2+10, SET2+12*
>> DIE	SET2+9, SET2+14
DIK	SET+3!*
DIR	ASK+3!
DIR("A"	ASK+3*
DIR(0	ASK+3*
DR	DR1+9!, DR2+4!
DUZ(2	ASK+6, TRAN+3
>> I	DR1+9, DR2+4
>> X	SET+2, SET2+1, SET2+4, SET2+10, SET2+12, DR1+9, DR2+4*
>> Y	ASK+4, ASK+5, TRAN+5, TRAN+8, SET+3, SET2+2, SET2+6, SET2+7, SET2+11, SET2+13

Name	Field # of Occurrence
$T(DR1+I^BARBLOS0	DR1+9
$T(DR2+I^BARBLOS0	DR2+4