Routine: LREGFR2

Package

Total

Call Graph

$$GET1^DID $$GET1^DIQ

$$FMDIFF^XLFDT

FILECOM^LRVR4

DEM^VADPT

Name	Comments	DBIA/ICR reference
RACE(DFN)	; Get Race ; Call with DFN = ien of PATIENT file (#2) ; Returns XRC = 1 (African American) ; 0 (non African American) ; U (unknown)
STRT(DFN,LRTR)	; Start Processing the Routine ; Call with DFN = parent file ien ; LRTR = serum creatinine value as mg/dl

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	STRT+24
^TMP("LR"	STRT+22

Name	Line Occurrences
$$RACE	STRT+41

Name	Field # of Occurrence
AGE	STRT+7~, STRT+27, STRT+28, STRT+29, STRT+48
DFN	STRT~, STRT+35, STRT+41, RACE~, RACE+19
>> DOB	STRT+28
DUZ	STRT+54
DUZ(2	STRT+54
>> LRCDT	STRT+28
LRDC	STRT+7~, STRT+10*, STRT+11
>> LRDFN	STRT+15, STRT+24, STRT+31, STRT+38, STRT+55
>> LRDPF	STRT+34, STRT+35, RACE+11, RACE+18
LREGFR	STRT+47~, STRT+48, STRT+49, STRT+50*, STRT+51, STRT+53
>> LRGVP	STRT+5
>> LRIDT	STRT+15, STRT+24, STRT+31, STRT+38, STRT+55
>> LRNG	STRT+10
LRRC	STRT+7~, STRT+41*, STRT+50, STRT+55
>> LRSB	STRT+18, STRT+23
>> LRSB(	STRT+18, STRT+23, STRT+30, STRT+37, STRT+53, STRT+54
LRTN	STRT+7~, STRT+13*, STRT+14, STRT+18, STRT+22, STRT+24, STRT+30, STRT+37, STRT+52, STRT+53 , STRT+54
LRTR	STRT~, STRT+18, STRT+23, STRT+46, STRT+48
LRX	STRT+7~, STRT+11, STRT+12, STRT+47~, STRT+52, STRT+53
LRY	STRT+7~, STRT+10, STRT+12, STRT+13
PRMT	STRT+47~
SEX	STRT+7~, STRT+33, STRT+34, STRT+35*, STRT+36, STRT+49
U	STRT+34, RACE+14, RACE+15
VADM	RACE+12~
VADM(12	RACE+14
VADM(5	STRT+34
VADM(8	RACE+15
X	STRT+7~
XA	RACE+6~, RACE+7*, RACE+25
XB	RACE+6~, RACE+7*, RACE+25
XC	RACE+6~, RACE+7*, RACE+25
XD	RACE+6~, RACE+7*, RACE+28
XE	RACE+6~, RACE+7*, RACE+28
XRC	RACE+6~, RACE+8, RACE+14, RACE+15, RACE+19, RACE+22, RACE+25, RACE+28, RACE+30, RACE+31
Y	STRT+7~

Information