VADPT6 ;ALB/MJK - PATIENT ID VARIABLES ; 12 AUG 89 @1200
Source file <VADPT6.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PID | ;
|
|
13 | ; -- Returns the patient id variables for DFN patient
; usually VA("PID")=123-45-6789 and VA("BID")="6789" ; for VA patients. |
|
PIDQ | ||
SET | ;-- execute id format specific long id, short id and x-ref set logic
; input: VADFN == DFN |
|
SET1 | ;
|
|
SET1Q | ||
KILL | ; -- execute id format specific x-ref kill logic
; input: VADFN ==> DFN |
|
KILL1 | ;
|
|
KILL2 | ; -- long id (kill logic)
|
|
KILL1Q | ||
CHK | ; -- ok to proceed ; fmt defined
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
B | 13+11~*, 13+14*, 13+16*, 13+17*, 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+17 |
L | 13+11~*, 13+14*, 13+16*, 13+17*, 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+17*, 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* |