Routine: LRAPBR

Package	Total	Call Graph
Lab Service	8	(ENTER,ESIGLN,FOOTER,GLENTRY)^LRAPBR1 ^LRAPBR2 ENTER^LRAPBR4 ^LRAPBR5 ^LRAPBRPW $$INS^LRU (EN,SET)^LRUA ^LRUP
VA Fileman	4	BROWSE^DDBR $$GET1^DID $$GET1^DIQ ^DIWP

Package

Total

Call Graph

(ENTER,ESIGLN,FOOTER,GLENTRY)^LRAPBR1 ^LRAPBR2 ENTER^LRAPBR4 ^LRAPBR5 ^LRAPBRPW $$INS^LRU (EN,SET)^LRUA ^LRUP

BROWSE^DDBR $$GET1^DID $$GET1^DIQ ^DIWP

Package	Total	Caller Graph
Lab Service	1	LRAPRES

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
END	;
POW	;Determine POW or Persian Gulf status
INIT(LRAA,LRSS,LRI,LRDFN,LRAA1,LRAU,LRTIU,LRNTIME)	;
MAIN	;Main Subroutine
FINAL	;Final Section
BROWSER	;

FileNo	Call Tags
^LR - [#63]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	POW+3, POW+4
^LR - [#63]	MAIN+6, POW+1
^LRO(69.2 - [#69.2]	INIT+9, INIT+13, INIT+20, FINAL+3
^UTILITY($J	MAIN+1!, FINAL+4!, FINAL+12, FINAL+13, FINAL+14!

Name	Field # of Occurrence
^(	POW+3, POW+4
^(0	INIT+9

Name	Field # of Occurrence
>> A	FINAL+11, FINAL+12, FINAL+13
>> DFN	POW+3, POW+4
>> DIWF	FINAL+8, FINAL+10
DIWL	FINAL+6~, FINAL+8*, FINAL+12, FINAL+13
DIWR	FINAL+6~, FINAL+8*
IOM	INIT+5, INIT+6, INIT+7, INIT+8, FINAL+8
LCT	INIT+2~
>> LR(	INIT+13*
>> LR("%"	INIT+5, INIT+6
>> LR("%1"	INIT+7, INIT+8
>> LR("DIWF"	INIT+20*
>> LRA	INIT+18*
LRAA	INIT~, INIT+9, INIT+13, INIT+20, FINAL+3, FINAL+5
LRAA1	INIT~
>> LRAC	BROWSER+3
>> LRAP	INIT+12*
LRAU	INIT~, INIT+11, INIT+16, MAIN+2, MAIN+3, MAIN+4, MAIN+7, MAIN+8, BROWSER+2
LRDFN	INIT~, INIT+12, MAIN+6, POW+1, BROWSER+2
LREFLG	INIT+2~
>> LRFILE	FINAL+5*, FINAL+7, FINAL+9
>> LRFLD	FINAL+5*, FINAL+7, FINAL+9
LRI	INIT~
LRIENS	INIT+2~, FINAL+5*, FINAL+7
LRNTIME	INIT~
>> LRP	BROWSER+3
LRPOW	POW+2, POW+3, POW+4*, POW+6!
LRPRAC	INIT+2~
>> LRQ	INIT+10*
>> LRQ(1	INIT+10*
>> LRQ(2	INIT+19*
>> LRQ(8	INIT+9*, BROWSER+2, BROWSER+3
LRROOT	BROWSER+4*, BROWSER+5, END+1!
>> LRS	INIT+12*
>> LRS(5	INIT+13, INIT+19
LRSR1	END+1!
LRSR2	END+1!
LRSS	INIT~, INIT+12
LRTEXT	END+1!
LRTITLE	BROWSER+3*, BROWSER+5, END+1!
LRTIU	INIT~, INIT+3*, MAIN+4, MAIN+7, MAIN+9, END+1!
LRTMP	FINAL+4!
LRTMP(	FINAL+11
>> LRW(1	BROWSER+2*, BROWSER+3
>> LRXR	INIT+12*
>> LRXREF	INIT+12*
U	POW+3
X	FINAL+6~, FINAL+7, FINAL+9, FINAL+10, FINAL+11*

Information