LREGFR ;DALOI/STAFF - Calculate Creatinine-eGFR ;Nov 12, 2020@15:02
Source file <LREGFR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STRT(DFN,LRTR) | ; Start Processing the Routine
; Call with DFN = parent file ien ; LRTR = serum creatinine value as mg/dl |
|
| RACE(DFN) | ; Get Race
; Call with DFN = ien of PATIENT file (#2) ; Returns XRC = 1 (African American) ; 0 (non African American) ; U (unknown) |
|
| CHKDUP(LRDFN,LRIDT,LRSBCOM) | ; Check for duplicate comment
; Call with LRDFN = File #63 internal entry number ; LRIDT = inverse date/time ; LRSBCOM = comment to check if duplicate |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DID | STRT+84 |
| $$GET1^DIQ | STRT+11, STRT+12, STRT+57, STRT+58, RACE+18 |
| FILECOM^LRVR4 | STRT+16, STRT+27, STRT+37, STRT+43, STRT+48, STRT+52, STRT+62, STRT+70, STRT+91, STRT+95 , STRT+96, STRT+97 |
| DEM^VADPT | RACE+13 |
| $$FMDIFF^XLFDT | STRT+33 |
| $$UP^XLFSTR | CHKDUP+8, CHKDUP+11 |
| $$GET^XPAR | STRT+45, STRT+75, STRT+83 |
| FileNo | Call Tags |
|---|---|
| ^LAB(60 - [#60] | GET1^DIQ |
| ^LAB(62.1 - [#62.1] | GET1^DIQ |
| 63.04 | GET1^DID |
| ^LRT(67 - [#67] | GET1^DIQ |
| ^LRT(67.1 - [#67.1] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LR - [#63] | STRT+25, STRT+32, CHKDUP+9, CHKDUP+10 |
| ^TMP("LR" | STRT+23 |
| Name | Line Occurrences |
|---|---|
| $$CHKDUP | STRT+15, STRT+26, STRT+36, STRT+42, STRT+47, STRT+51, STRT+61, STRT+69, STRT+90, STRT+94 |
| $$RACE | STRT+65 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | STRT+7~, STRT+30*, STRT+33*, STRT+34, STRT+40, STRT+45, STRT+46, STRT+50, STRT+77 |
| DFN | STRT~, STRT+57, STRT+58, STRT+65, RACE~, RACE+18 |
| >> DOB | STRT+33 |
| DUZ | STRT+87 |
| DUZ(2 | STRT+87 |
| LRCDT | STRT+32~*, STRT+33 |
| LRCMETH | STRT+74~, STRT+75*, STRT+76 |
| LRDC | STRT+7~, STRT+10*, STRT+11 |
| LRDFN | STRT+15, STRT+16, STRT+25, STRT+26, STRT+27, STRT+32, STRT+36, STRT+37, STRT+42, STRT+43 , STRT+47, STRT+48, STRT+51, STRT+52, STRT+61, STRT+62, STRT+69, STRT+70, STRT+90, STRT+91 , STRT+94, STRT+95, STRT+96, STRT+97, CHKDUP~, CHKDUP+9, CHKDUP+10 |
| >> LRDPF | STRT+56, STRT+57, STRT+58, RACE+11, RACE+18 |
| LRDUP | CHKDUP+7~, CHKDUP+8*, CHKDUP+9, CHKDUP+12*, CHKDUP+13 |
| LREGFR | STRT+74~, STRT+77*, STRT+78*, STRT+79*, STRT+81, STRT+83*, STRT+84*, STRT+86, STRT+93 |
| LRFACTOR | STRT+74~, STRT+76*, STRT+77 |
| LRFLG | STRT+7~, STRT+44*, STRT+45*, STRT+46, STRT+50 |
| >> LRGVP | STRT+5 |
| LRI | CHKDUP+7~, CHKDUP+8*, CHKDUP+9*, CHKDUP+10 |
| LRIDT | STRT+15, STRT+16, STRT+25, STRT+26, STRT+27, STRT+32, STRT+36, STRT+37, STRT+42, STRT+43 , STRT+47, STRT+48, STRT+51, STRT+52, STRT+61, STRT+62, STRT+69, STRT+70, STRT+90, STRT+91 , STRT+94, STRT+95, STRT+96, STRT+97, CHKDUP~, CHKDUP+9, CHKDUP+10 |
| >> LRNG | STRT+10 |
| LRRC | STRT+7~, STRT+65*, STRT+79, STRT+89 |
| >> LRSB | STRT+19, STRT+24 |
| >> LRSB( | STRT+19, STRT+24, STRT+35*, STRT+41*, STRT+49*, STRT+53*, STRT+60*, STRT+68*, STRT+86*, STRT+87* |
| LRSBCOM | CHKDUP~, CHKDUP+8 |
| LRTN | STRT+7~, STRT+13*, STRT+14, STRT+19, STRT+23, STRT+25, STRT+35, STRT+41, STRT+49, STRT+53 , STRT+60, STRT+68, STRT+84, STRT+86, STRT+87 |
| LRTR | STRT~, STRT+19, STRT+24, STRT+67, STRT+77 |
| LRX | STRT+7~, STRT+11*, STRT+12, STRT+74~, STRT+84*, CHKDUP+7~, CHKDUP+10*, CHKDUP+11*, CHKDUP+12 |
| LRY | STRT+7~, STRT+10*, STRT+12*, STRT+13, CHKDUP+7~, CHKDUP+8*, CHKDUP+12 |
| SEX | STRT+7~, STRT+55*, STRT+56*, STRT+57*, STRT+58*, STRT+59, STRT+78 |
| U | STRT+56, RACE+14, RACE+15 |
| VADM | RACE+12~ |
| VADM(12 | RACE+14 |
| VADM(5 | STRT+56 |
| VADM(8 | RACE+15 |
| X | STRT+7~ |
| XA | RACE+6~, RACE+7*, RACE+24 |
| XB | RACE+6~, RACE+7*, RACE+24 |
| XC | RACE+6~, RACE+7*, RACE+24 |
| XD | RACE+6~, RACE+7*, RACE+27 |
| XE | RACE+6~, RACE+7*, RACE+27 |
| XRC | RACE+6~, RACE+8*, RACE+14*, RACE+15*, RACE+18*, RACE+21*, RACE+24*, RACE+27*, RACE+29*, RACE+30 |
| Y | STRT+7~ |
