VADPT2 ;ALB/MJK - ESTABLISH PATIENT VARIABLES ; 3/23/88 9:13 PM ; [10/20/95 4:02pm]
Source file <VADPT2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 5 | ; -- INP call
|
|
| DONE | ||
| IB | ;In-Bed status
; input: VAINDT = internal date of requested info ; VAMV = starting IFN ; VAMV0 = 0th of VAMV |
|
| IBQ | ||
| CHK | ; -- check if mvt exists and if 'while asih' type d/c
; if VAMV returned undefined then continue $Oing |
|
| CHKQ | ||
| ADM | ; -- send back adm ifn for dfn on vaindt or now
|
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | 5+17 |
| ^DG(405.1 - [#405.1] | 5+20, IB+14 |
| ^DG(405.2 - [#405.2] | IB+16 |
| ^DGPM - [#405] | 5+8, IB+12, CHK+3, CHK+5, ADM+3 |
| ^DGPM("APID" | 5+4 |
| ^DGPM("APMV" | IB+9, CHK+5 |
| ^DGPM("ATID1" | ADM+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | 5+4, IB+9, CHK+5, ADM+3 |
| U | ADM+3 |
| >> VAAP | 5+1*, 5+11 |
| VACA | 5+8*, 5+11, DONE! |
| VACA0 | 5+8*, 5+17, 5+20, DONE! |
| >> VACN | 5+7* |
| >> VADMVT | ADM+2*, ADM+3, ADM+4* |
| VADT | ADM+1*, ADM+2, ADM+4, ADM+5! |
| >> VADX | 5+1* |
| VAID | 5+4*, DONE!, CHK+5, ADM+2*, ADM+3*, ADM+5! |
| VAINDT | 5+2~*, 5+3, IB+9, ADM+1 |
| >> VAIP("L" | IB+10 |
| VAMT | 5+4, DONE!, CHK+3* |
| VAMV | 5+1!, 5+4*!, 5+8, DONE!, IB+10, CHK+3, CHK+4!, CHK+5!, ADM+3*, ADM+4 , ADM+5! |
| VAMV0 | 5+1!, 5+4!, 5+6, 5+8*, DONE!, IB+9, IB+10, CHK+3*, CHK+4, CHK+5! , ADM+3*, ADM+4, ADM+5! |
| VAMV1 | ADM+3*, ADM+4, ADM+5! |
| VAMVT | 5+8*, DONE! |
| VANOW | 5+1*, 5+2, DONE! |
| >> VAPP | 5+1*, 5+11 |
| >> VAPRC | 5+7* |
| >> VAPRT | 5+7* |
| >> VARM | 5+1*, 5+11 |
| >> VAS | 5+11, 5+14, 5+17, 5+20 |
| VATD | 5+3*, 5+4, DONE! |
| >> VATS | 5+1*, 5+11 |
| >> VAV | 5+11, 5+14, 5+17, 5+20 |
| >> VAWD | 5+1*, 5+11 |
| VAX0 | IB+12*, IB+13, IB+14, IB+16, IBQ! |
| VAXI | IB+9*, IB+10*, IB+11, IB+12, IB+14*, IB+16, IBQ! |
| >> VAZ | 5+14, IB+8*, IB+16* |
| >> VAZ(2 | IB+8*, IB+16* |
| >> Y | 5+17* |
