©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
LREGFR2 ;DALOI/SDV/AH/GDU Calculate Creatinine-eGFR ;Feb 2, 2004
Source file <LREGFR2.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | $$GET1^DID $$GET1^DIQ |
| Kernel | 1 | $$FMDIFF^XLFDT |
| Lab Service | 1 | FILECOM^LRVR4 |
| Registration | 1 | 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 |
| FileNo | Call Tags |
|---|---|
| ^LAB(60 - [#60] | GET1^DIQ |
| ^LAB(62.1 - [#62.1] | GET1^DIQ |
| 63.04 | GET1^DID |
| ^LRT(67 - [#67] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LR - [#63] | STRT+24 |
| ^TMP("LR" | STRT+22 |
| Name | Line Occurrences |
|---|---|
| $$RACE | STRT+41 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| 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~ |