VBECA1 ;DALOI/PWC - APIS TO RETURN BLOOD BANK DATA FOR LAB ;10/12/00 13:57
Source file <VBECA1.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 2 | ORWLR1 ORWLR3 |
| VBECS | 1 | VBECRPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ABORH(PATID,PATNAM,PATDOB,PARENT) | ;
; Return the ABO/Rh value for the DFN of the patient provided. ; A space will be between the values. |
|
| ABO(PATID,PATNAM,PATDOB,PARENT) | ;
; Return the ABO value for the DFN of the patient provided. |
|
| RH(PATID,PATNAM,PATDOB,PARENT) | ;
; Return the Rh value for the DFN of the patient provided. |
|
| AGPRES(PATID,PATNAM,PATDOB,PARENT,ARR) | ; Get Antigens Present
; Return an array of identified antigens and antigen comments for ; the DFN of the patient provided. If no antigens found, an empty ; array is returned ARR("AGPRES")="". ; ; ARR = the name of the array used to store antigens. ; Array will contain the name of the antigen and any antigen comments ; ARR("AGPRES",n) = Antigen ^ Antigen comment |
|
| ABID(PATID,PATNAM,PATDOB,PARENT,ARR) | ; Get Antibodies Identified
; Return an array of identified antibodies and antibody comments for ; the DFN of the patient provided. ; ; ARR = the name of the array used to store antibodies. ; Array will contain the name of the antibody and any antibody comments ; ARR("ABID",n) = Antibody ^ Antibody comment |
|
| AGAB(PATID,PATNAM,PATDOB,PARENT,ARR) | ; Get RBC Antigens Absent
; Return an array of absent antigens and absent antigen comments for ; the DFN of the patient provided. ; ARR = the name of the array used to store absent antigens. ; Array will contain the name of the antigen and any antigen comments ; ARR("AGAB",n) = Absent Antigen ^ Absent Antigen comment |
|
| TRRX(PATID,PATNAM,PATDOB,PARENT,ARR) | ; Get Transfusion Reactions
; Return an array of transfusion reactions for the DFN of the ; patient provided. If no transfusion reactions found, an ; empty array is returned ARR("TRRX")="" ; ; ARR = the name of the array used to store transfusion reactions. ; Array will contain both reactions where a particular unit or ; transfusion was determined to be the cause of the reaction, and ; those where no unit could be identified as being the cause of the ; reaction. ; Transaction Type is a pointer to Blood Bank Utility File #65.4 ; ARR("TRRX",n) = Transfusion Date/Time ^ Transaction Type |
|
| BBCMT(PATID,PATNAM,PATDOB,PARENT,ARR) | ; Get Blood Bank Comments
; Return an array of blood bank comments for the DFN of the patient ; provided. ; If no comments found, an empty array is returned ARR("BBCMT")="". ; ARR = the name of the array that will be used to store comments. ; Array will contain all the comment text. ; ARR("BBCMT",n) = Blood Bank Comment Text |
|
| AUTO(PATID,PATNAM,PATDOB,PARENT,ARR) | ; Get Available Autologous Units
; Return an array of available autologous units for the DFN of the ; patient provided. If no comments found, an empty array is returned ; ARR("AUTO")="". ; ; ARR = the name of the array that will store autologous units. ; Array will contain the component type and the expiration date. ; ARR("AUTO",n) = Component Type ^ Expiration Date ; Component Type is a pointer to Blood Product File (#66) |
|
| EXPIRE(X) | ; check if date has expired
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LR - [#63] | BBCMT+12, BBCMT+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | EXPIRE+1*, EXPIRE+2* |
| A | BBCMT+9~, BBCMT+12*, BBCMT+13 |
| >> ABO | ABO+7* |
| >> ABORH | ABORH+8* |
| ARR | AGPRES~, ABID~, ABID+8!, ABID+11*, AGAB~, TRRX~, TRRX+14!, TRRX+17*, BBCMT~, BBCMT+8! , BBCMT+11*, BBCMT+15, AUTO~ |
| ARR("BBCMT" | BBCMT+14*, BBCMT+15* |
| >> EXP | EXPIRE+1*, EXPIRE+3*, EXPIRE+4* |
| I | BBCMT+9~, BBCMT+12*, BBCMT+14 |
| IFN | ABORH+5~, ABORH+7, ABORH+9, ABO+4~, ABO+6, ABO+8, RH+4~, RH+6, RH+8, ABID+9~ , ABID+11, ABID+12, TRRX+15~, TRRX+17, TRRX+18 |
| LRDFN | BBCMT+9~, BBCMT+11, BBCMT+12, BBCMT+13 |
| P76 | BBCMT+9~, BBCMT+13*, BBCMT+14 |
| PARENT | ABORH~, ABO~, RH~, AGPRES~, ABID~, AGAB~, TRRX~, BBCMT~, AUTO~ |
| PATDOB | ABORH~, ABO~, RH~, AGPRES~, ABID~, AGAB~, TRRX~, BBCMT~, AUTO~ |
| PATID | ABORH~, ABO~, RH~, AGPRES~, ABID~, AGAB~, TRRX~, BBCMT~, AUTO~ |
| PATNAM | ABORH~, ABO~, RH~, AGPRES~, ABID~, AGAB~, TRRX~, BBCMT~, AUTO~ |
| >> RH | RH+7* |
| X | EXPIRE~, EXPIRE+1*!, EXPIRE+2*, EXPIRE+3 |
| X(1 | EXPIRE+2* |
| >> Y | EXPIRE+1, EXPIRE+3 |
