©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
VADATE ;ALB/MLI - GENERIC DATE ROUTINE ; 1 DEC 88 @1000
Source file <VADATE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUIT | ||
| KVAR |
|
| Name | Field # of Occurrence |
|---|---|
| $$NOW^XLFDT | VADATE+4 |
| Name | Line Occurrences |
|---|---|
| QUIT | VADATE+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | QUIT+1! |
| >> I | VADATE+6*, QUIT* |
| VA | VADATE+5*, VADATE+7, VADATE+8*, QUIT+1! |
| VA( | VADATE+6* |
| VA(1 | VADATE+6*, VADATE+7, VADATE+10, VADATE+11 |
| VA(2 | VADATE+6*, VADATE+7, VADATE+10, VADATE+11 |
| VA(3 | VADATE+6*, VADATE+7, VADATE+10, VADATE+11, VADATE+12 |
| VAD | VADATE+7*, VADATE+9, VADATE+10, VADATE+11, QUIT+1! |
| VADAT | KVAR! |
| VADAT("D" | VADATE+10 |
| VADAT("F" | VADATE+3!, VADATE+7, VADATE+9, VADATE+10, VADATE+11 |
| VADAT("H" | VADATE+6 |
| VADAT("J" | QUIT |
| VADAT("S" | VADATE+5, VADATE+8 |
| VADAT("T" | VADATE+5 |
| VADAT("W" | VADATE+4, VADATE+5 |
| VADATE | KVAR! |
| VADATE("E" | VADATE+9*, VADATE+10*, VADATE+11*, VADATE+12*, QUIT* |
| VADATE("I" | VADATE+5* |
| VADEL | VADATE+10*, VADATE+11, QUIT+1! |
| VAM | VADATE+7*, VADATE+9, VADATE+10, VADATE+11, QUIT+1! |
| VANOW | VADATE+4*, VADATE+5, QUIT+1! |
| VAT | VADATE+8*, VADATE+9, VADATE+12, QUIT+1! |
| VAX | QUIT+1! |
| VAY | VADATE+7*, VADATE+9, VADATE+12, QUIT+1! |