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
|
