VADPT6 ;ALB/MJK - PATIENT ID VARIABLES ; 12 AUG 89 @1200 [ 09/14/2000 9:04 AM ]
Source file <VADPT6.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To ADT | 1 | $$HRCN^BDGF2 |
| Toolkit | 1 | $$GET^XPAR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 13 | ; -- Returns the patient id variables for DFN patient
; usually VA("PID")=123-45-6789 and VA("BID")="6789" ; for VA patients. |
|
| SET | ;-- execute id format specific long id, short id and x-ref set logic
; input: VADFN == DFN |
|
| KILL1 | ;
|
|
| SET1Q | ||
| KILL2 | ; -- long id (kill logic)
|
|
| PID | ;
|
|
| KILL | ; -- execute id format specific x-ref kill logic
; input: VADFN ==> DFN |
|
| SET1 | ;
|
|
| CHK | ; -- ok to proceed ; fmt defined
|
|
| PIDQ | ||
| KILL1Q |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(2.0361 | SET1+7, SET1+10, KILL1+4, KILL2+2 |
| ^DIC(8 - [#8] | CHK+2 |
| ^DIC(8.2 - [#8.2] | SET1+4, CHK+2 |
| ^DPT - [#2] | 13+13, 13+14, 13+16, 13+20, SET+3, SET+5, SET1+4*, SET1+9, KILL+3, KILL+5 , KILL1+3, KILL1+5*, KILL2+1, KILL2+3* |
| Name | Line Occurrences |
|---|---|
| CHK | SET1+1, KILL1+1 |
| KILL1 | KILL+5 |
| KILL1Q | KILL1+1, KILL2+1 |
| KILL2 | KILL1+3 |
| PIDQ | 13+13 |
| SET1 | SET+5 |
| SET1Q | SET1+1, SET1+6, SET1+9 |
| Name | Field # of Occurrence |
|---|---|
| ^( | 13+16, SET+5, SET1+7, SET1+10, KILL+5, KILL1+4, KILL2+2 |
| ^("LONG" | SET1+4 |
| ^(0 | 13+14, CHK+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| B | 13+11~*, 13+14*, 13+16*, 13+18*, 13+19, 13+20*, PIDQ |
| DA | SET+4~, SET+5*, SET+6!, SET1+4, SET1+9, KILL+4~, KILL+5*, KILL+6!, KILL1+3, KILL1+5 , KILL2+1, KILL2+3, CHK+2 |
| DA(1 | SET+4*, SET+5, SET1+4, SET1+9, KILL+4*, KILL+5, KILL1+3, KILL1+5, KILL2+1, KILL2+3 |
| >> DFN | 13+13, 13+14, 13+16, 13+18, 13+20 |
| DUZ("AG" | 13+17 |
| DUZ(2 | 13+18 |
| >> HRCN | 13+19* |
| L | 13+11~*, 13+14*, 13+16*, 13+17, 13+18*, 13+20*, PIDQ |
| U | SET1+4, SET1+9, KILL1+3, KILL1+5, KILL2+1, KILL2+3, CHK+2 |
| >> VA("BID" | PIDQ* |
| >> VA("PID" | PIDQ* |
| >> VADFN | SET+3, SET+4, KILL+3, KILL+4 |
| VAERR | 13+11!, 13+13* |
| VAFMT | SET1+1, SET1+4, SET1Q!, KILL1+1, KILL1Q!, CHK+1*, CHK+2* |
| VAIX | SET1+7*, SET1+10*, SET1Q!, KILL1+4*, KILL2+2*, KILL1Q! |
| >> VAPTYP | 13+14 |
| VAX | SET1+6*, SET1+7, SET1+9*, SET1+10, SET1Q!, KILL1+3*, KILL1+4, KILL2+1*, KILL2+2, KILL1Q! |
| X | 13+11~, 13+14*, 13+16*, 13+20*, SET+4~, SET+6!, SET1+3*, SET1+4, SET1+6, SET1+7* , SET1+9*, SET1+10*, SET1Q!, KILL+4~, KILL+6!, KILL1+3*, KILL1+4*, KILL2+1*, KILL2+2* |