©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
BLRDPT6 ; IHS/DIR/FJE - PATIENT ID VARIABLES @1200 ;
Source file <BLRDPT6.m>
| 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) |
|---|---|
| ^AUPNPAT - [#9000001] | 13+22 |
| ^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+15, 13+16, 13+18, 13+19, 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+15 |
| SET1 | SET+5 |
| SET1Q | SET1+1, SET1+6, SET1+9 |
| Name | Field # of Occurrence |
|---|---|
| ^( | 13+18, SET+5, SET1+7, SET1+10, KILL+5, KILL1+4, KILL2+2 |
| ^("LONG" | SET1+4 |
| ^(0 | 13+16, 13+22, CHK+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| B | 13+13~*, 13+16*, 13+18*, 13+19*, 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+15, 13+16, 13+18, 13+19, 13+22 |
| DUZ(2 | 13+22 |
| >> HRCN | 13+22* |
| L | 13+13~*, 13+16*, 13+18*, 13+19*, 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+13!, 13+15* |
| 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+16 |
| VAX | SET1+6*, SET1+7, SET1+9*, SET1+10, SET1Q!, KILL1+3*, KILL1+4, KILL2+1*, KILL2+2, KILL1Q! |
| X | 13+13~, 13+16*, 13+18*, 13+19*, 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* |