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* |