Print Page as PDF
VBECS PATIENT AVAILABLE UNITS ICR (4629)

VBECS PATIENT AVAILABLE UNITS    ICR (4629)

Name Value
NUMBER 4629
IA # 4629
DATE CREATED 2005/08/10
CUSTODIAL PACKAGE VBECS
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE VBECA1B
NAME VBECS PATIENT AVAILABLE UNITS
GENERAL DESCRIPTION
The purpose of this integration agreement is to provide
the Surgery package access to units that are available for a patient.  Surgery
will use the data returned from the AVUNIT^VBECA1B API to validate units for a
patient.
STATUS Active
DURATION Till Otherwise Agreed
ID VBECA1B
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
AVUNIT(TMPLOC,DFN)
Called to return a list of units for a patient

AVUNIT^VBECA1B(TMPLOC,DFN)

RETURNED:
^TMP(TMPLOC,$J,0) = PTABO^PTRH^DFN^FNAME^LNAME^DOB^SSN
^TMP(TMPLOC,$J,IDT)=
EFLG^EDT^UID^PROD^VOL^ABO^RH^DTYP^UDIV^ULOC^PCODE

TMPLOC = Name of array node passed into routine
$J =     Job ID
PTABO =  Patient ABO blood group
PTRH =   Patient RH Type  - Returned as POS or NEG
DFN =    Patient file (#2) Internal Entry Number
FNAME =  Patient first name
LNAME =  Patient last name
DOB =    Patient date of birth - Returned in FileMan date format
SSN =    Patient social security number - Returned without hyphens
IDT =    Inverse Date/Time unit assigned
EFLG =   "*" if unit expires within 48 hours
"**" if unit expires within 24 hours
EDT =    Unit expiration date - Returned in FileMan date format
UID =    Unit ID
PROD =   Blood Product name
VOL =    Volume of unit
ABO =    ABO blood group of unit
RH =     RH Type of unit - Returned as P or N
DTYP =   Donation type (Autologous or Directed
UDIV =   Division where the unit resides
ULOC =   Location to which unit of blood is being relocated
PCODE =  Blood Product code
VARIABLES TYPE VARIABLES DESCRIPTION
TMPLOC Input
Node in ^TMP to be used for output data array.
Example:
If TMPLOC="SR" then ^TMP("SR",$J,n) Would be returned.
DFN Input
Internal Entry Number of patient in the PATIENT file
(#2).
SUBSCRIBING PACKAGE SURGERY