VBECA1 ;DALOI/PWC - APIS TO RETURN BLOOD BANK DATA FOR LAB ;10/12/00 13:57
Source file <VBECA1.m>
| 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
 |