VBECDCU1 ;hoifo/gjc-data conversion & pre-implementation utilities;Nov 21, 2002
Source file <VBECDCU1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ATTR() | ; select the data family to display
; Output: the file that the VistA data resides in as well as the full ; name of the data family - EX: 61.3^Antigen/Antibody |
|
| BRKPNT(LRDFN,DFN) | ; check for broken pointers between files 2 & 63.
; Check the pointer from the Patient (#2) to the Lab Data (#63) ; file against the Parent File (#.02), piece two of LRDATA, and ; Name (#.03), piece three of LRDATA, fields on the Lab Data file. ; Parent File field value must equal 2 (Pat. file) & Name field ; value must equal the DFN of the patient for the pointer to be ; correct. |
|
| SAVE | ; Save off the legacy Blood Bank data into globals, ^TMP(name_space,$J)
; and then move data from globals to either VMS files or text files on ; a Microsoft machine. |
|
| DATA(Y) | ; determine if we've captured data and create empty files if no data found
; Input: Y=$J or process id |
|
| ERR | ;come here on error, record error in error trap and alert all VBEC mail
|
|
| SUBS | ;
|
|
| FILES | ; here are the file names for used for the legacy Blood Bank data
|
| FileNo | Call Tags |
|---|---|
| ^XMB(3.8 - [#3.8] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LR - [#63] | BRKPNT+12 |
| ^TMP( | SAVE+21*, SAVE+36, DATA+3, DATA+4* |
| ^TMP("DBCONV.INI" | SAVE+25*, SAVE+26*, SAVE+27*, SAVE+28* |
| ^VBEC(6000 - [#6000] | ERR+6 |
| Name | Line Occurrences |
|---|---|
| $$DATA | SAVE+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | BRKPNT~, BRKPNT+13 |
| DIR | ATTR+4!, ATTR+12! |
| DIR("?" | ATTR+7*, ATTR+10*, ATTR+11* |
| DIR("A" | ATTR+6* |
| DIR(0 | ATTR+6* |
| DIROUT | ATTR+4!, ATTR+12! |
| DIRUT | ATTR+4!, ATTR+12! |
| DTOUT | ATTR+4!, ATTR+12! |
| DUOUT | ATTR+4!, ATTR+12! |
| DUZ | SAVE+20, ERR+4 |
| LRC | SAVE+17~ |
| LRDATA | BRKPNT+12~*, BRKPNT+13, SAVE+17~, SAVE+18*, SAVE+19*, SAVE+20 |
| LRDFN | BRKPNT~, BRKPNT+12 |
| >> LRFLG | SAVE+30*, SAVE+39* |
| LRNAME | SAVE+17~, SAVE+38*, SAVE+39 |
| LRNODE | SAVE+17~, SAVE+29*, SAVE+30, SAVE+37*, SAVE+39 |
| >> LRSTOP | ERR+9* |
| LRX | SAVE+17~, SAVE+35*, SAVE+36*, SAVE+37, SAVE+38 |
| LRXX | DATA+2!*, DATA+3*, DATA+4, DATA+6! |
| LRZ | DATA+2~* |
| U | BRKPNT+13, ERR+6 |
| VBECATT | ATTR+4~, ATTR+12*, ATTR+13*, ATTR+15 |
| >> VBECCNV | SAVE+20 |
| >> VBECDBN | SAVE+26 |
| >> VBECDBN1 | SAVE+28 |
| VBECFILE | ATTR+4~, ATTR+12*, ATTR+13*, ATTR+15 |
| >> VBECI | SAVE+21* |
| >> VBECI1 | SAVE+21* |
| VBECMG | ERR+6*, ERR+7, ERR+8! |
| X | ATTR+4!, ATTR+12! |
| XQA | ERR+2~ |
| XQA( | ERR+4* |
| XQA("G." | ERR+7* |
| XQAMSG | ERR+2~, ERR+4* |
| >> XQY0 | ERR+4 |
| Y | ATTR+4!, ATTR+12!, ATTR+13, DATA~, DATA+4 |
| Y(0 | ATTR+13 |
| Name | Field # of Occurrence |
|---|---|
| $T(SUBS+VBECI | SAVE+21 |
