©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
AQAQDUE ;IHS/ANMC/LJF - UTILITIES TO GET COMPUTER FIELDS; [ 05/27/92 11:24 AM ]
Source file <AQAQDUE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LASTREAP | ;***> SUBRTN to find last reappointment application date
|
|
| LASTMLIC | ;***> SUBRTN to find all medical license expiration date
|
| Name | Field # of Occurrence |
|---|---|
| EN^DIQ1 | LASTREAP+12 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AQAQC - [#9002165] | LASTREAP+2, LASTREAP+3, LASTREAP+5, LASTREAP+6, LASTREAP+11 |
| ^AQAQML - [#9002161.2] | LASTMLIC+2, LASTMLIC+3, LASTMLIC+5, LASTMLIC+6 |
| ^UTILITY("DIQ1" | LASTREAP+9!, LASTREAP+13, LASTREAP+14! |
| Name | Field # of Occurrence |
|---|---|
| ^( | LASTREAP+5, LASTMLIC+5 |
| ^(4 | LASTREAP+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AQAQEX | LASTMLIC+1*, LASTMLIC+3*, LASTMLIC+4, LASTMLIC+6 |
| >> AQAQF | LASTMLIC+1* |
| >> AQAQLAST | LASTREAP+1*, LASTREAP+5*, LASTREAP+6*, LASTREAP+11*, LASTREAP+13*, LASTMLIC+1*, LASTMLIC+5*, LASTMLIC+6* |
| >> AQAQRE | LASTREAP+1*, LASTREAP+3*, LASTREAP+4, LASTREAP+6 |
| >> AQAQX | LASTREAP+1*, LASTREAP+2*, LASTREAP+3, LASTREAP+5, LASTMLIC+1*, LASTMLIC+2*, LASTMLIC+3, LASTMLIC+5 |
| >> AQAQY | LASTREAP+5*, LASTMLIC+5* |
| >> D0 | LASTREAP+2, LASTREAP+3, LASTREAP+5, LASTREAP+6, LASTREAP+11, LASTREAP+12, LASTMLIC+2, LASTMLIC+3, LASTMLIC+5, LASTMLIC+6 |
| DA | LASTREAP+10~, LASTREAP+12*, LASTREAP+13 |
| DIC | LASTREAP+10~, LASTREAP+12* |
| DR | LASTREAP+10~, LASTREAP+12* |
| U | LASTREAP+5, LASTREAP+6, LASTMLIC+5, LASTMLIC+6 |