LRDAGE ;DFW/MRL/DALOI/FHS - RETURN TIMEFRAME IN DAYS, MONTHS OR YEARS; 15 MAR 90
Source file <LRDAGE.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DFN(DFN,FILE,LRCDT) | ; Call returns patient age based on specimen collection date
; Age is returned as day (dy) month (mo) or years (yr) ; DFN = IEN of patient ; FILE = File number where patient is found ; LRCDT = Specimen collection date otherwise age will be calculated ; using the current date ; Sex is a coded value of Male = "M" (default) Female = "F" ; DOD = Date of Death |
|
| DATE(DOB,LRCDT) | ;Entry point if passing only a valid Date without patient
; Dates must be defined in VA FileManager internal format. ; DOB, Date of birth ; LRCDT = collection date ; Date formate error will return 99yr |
|
| CALC | ;Calculate timeframe based on difference between DOB and collection
; date. Time is stripped off. ; .0001-24 hour = dy ; 0-29 days = dy ; 30-730 dy = mo ; >24 mo = yr |
| Name | Line Occurrences |
|---|---|
| $$DATE | DFN+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | DATE+5~, DATE+14! |
| >> AGE | DFN+11*, DFN+16* |
| DFN | DFN~, DFN+12, DFN+13, DFN+14, DFN+15 |
| DOB | DFN+14*, DFN+16, DATE~, DATE+7*, DATE+8, DATE+9, DATE+10, DATE+11, CALC+7, CALC+8 , CALC+9, CALC+11 |
| >> DOD | DFN+15* |
| FILE | DFN~, DFN+12, DFN+13, DFN+14, DFN+15 |
| LRCDT | DFN~, DFN+9*, DFN+10*, DFN+16, DATE~, DATE+6*, DATE+9*, DATE+10, DATE+11, DATE+13 , CALC+7, CALC+8, CALC+9, CALC+11 |
| LRSAGE | DFN+8~ |
| LRSAGE( | DFN+13, DFN+14, DFN+15 |
| >> SEX | DFN+11*, DFN+13* |
| X | DATE+5~, DATE+9*, DATE+13*, CALC+9*, CALC+10*, CALC+11*, CALC+12*, CALC+13* |
| Y | DATE+5~, DATE+12, DATE+14 |
