©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
LR7OB68 ; IHS/DIR/AAB - Get Lab data from 68 ; [ 8/11/97 ]
Source file <LR7OB68.m>
| Package | Total | Caller Graph |
|---|---|---|
| Lab Service | 3 | LR7OB0 LR7OB630 LR7OB69 |
| IHS Changes To Lab | 1 | BLR7OB1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 68(CTR,ACCDT,ACC,ACCN,TEST) | ;Get data from file 68
|
|
| A68(ACCDT,ACC,ACCN) | ;Get data from file 68 when no 69 data exists
|
| Name | Field # of Occurrence |
|---|---|
| 63^LR7OB63 | 68+11, A68+18 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC - [#1] | A68+10 |
| ^LAB(60 - [#60] | A68+14 |
| ^LR - [#63] | A68+8, A68+10 |
| ^LRO(68 - [#68] | 68+8, 68+11, A68+7, A68+14, A68+18 |
| ^LRO(69 - [#69] | A68+9 |
| ^TMP("LRX" | 68+7!, 68+10*, 68+11*, A68+12*, A68+16*, A68+17*, A68+18* |
| Name | Field # of Occurrence |
|---|---|
| ^( | 68+8, 68+11, A68+7, A68+18 |
| ^(0 | 68+8, A68+7, A68+9 |
| ^(3 | 68+8, A68+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACC | 68~, 68+8, 68+11, A68~, A68+7, A68+14, A68+16, A68+18 |
| ACCDT | 68~, 68+8, 68+11, A68~, A68+7, A68+16, A68+18 |
| ACCN | 68~, 68+8, 68+11, A68~, A68+7, A68+16, A68+18 |
| >> CORRECT | 68+11, A68+18 |
| CTR | 68~, 68+10, 68+11, A68+11*, A68+16, A68+17, A68+18 |
| >> DFN | A68+10* |
| GOTCOM | A68+6~ |
| IFN | 68+7~ |
| >> LRDFN | A68+10* |
| >> LRDPF | A68+10* |
| TEST | 68~, 68+11, A68+18* |
| >> X | 68+11*, A68+14*, A68+15*, A68+16, A68+18* |
| X0 | 68+7~, 68+8*, 68+9, A68+6~, A68+7*, A68+8, A68+9, A68+10, A68+11, A68+13 |
| X3 | 68+7~, 68+8*, 68+9, A68+7*, A68+11, A68+13 |
| XAC | A68+6~, A68+14*, A68+15, A68+18 |
| XP1 | 68+7~, 68+8*, 68+9, A68+6~, A68+7*, A68+11, A68+13 |
| XP2 | 68+7~, 68+8*, 68+9, A68+6~, A68+7*, A68+13 |
| Y1 | 68+7~, 68+9*, 68+10, A68+6~, A68+11*, A68+12, A68+13*, A68+17 |
| Y10 | A68+6~, A68+11*, A68+12 |
| Y11 | A68+6~, A68+9*, A68+12 |
| Y12 | A68+6~, A68+9*, A68+12 |
| Y2 | 68+7~, 68+9*, 68+10, 68+11, A68+6~, A68+11*, A68+12, A68+13*, A68+17, A68+18 |
| Y3 | 68+7~, 68+9*, 68+10, A68+6~, A68+11*, A68+12, A68+13*, A68+17 |
| Y4 | 68+7~, 68+9*, 68+10, A68+6~, A68+11*, A68+12, A68+13*, A68+17 |
| Y5 | 68+7~, 68+9*, 68+10, A68+6~, A68+11*, A68+12, A68+13*, A68+17 |
| Y6 | 68+7~, 68+9*, 68+10, A68+6~, A68+11*, A68+12, A68+13*, A68+17 |
| Y7 | 68+7~, 68+9*, 68+10, 68+11, A68+6~, A68+11*, A68+12, A68+13*, A68+17, A68+18 |
| Y8 | A68+6~, A68+11*, A68+12 |
| Y9 | A68+6~, A68+11*, A68+12 |