| TMP("VBDATA") |
Input |
^TMP("VBDATA",$J contains the raw data for the CPRS
Blood Bank Report.
|
TMP("BBD") |
Output |
^TMP("BBD",$J contains the processed data for the
CPRS Blood Bank Report.
The files, fields, and data format returned are in this format:
63.084,.01 (Blood Component Request)
63.084,.04 (Number of
Units)
63.084,.03 (Request
Date/Time)
63.084,.05 (Date/Time Units Wanted)
63.084,.09
(Requesting Person)
63,.084,.08
(Entering
Person DUZ)
^TMP("BBD",$J,"COMPONENT REQUEST",44)=CPDA-1 RED BLOOD CELLS^3^JUN 11,
2001@08:47^JUN 11, 2001@08:47^MORTON^7^ ^TMP("BBD",$J,"COMPONENT
REQUEST",64)=FRESH FROZEN PLASMA, CPDA-1,FROZEN^1^MAR 22, 2002@13:27^MAR 22,
2002@13:28^MORT^7^
65,.01 (Unit ID)
65,.04 (Component)
65,.07 (ABO Group)
65,.08 (RH Type)
65,.06
(Expiration Date/Time)
65,.16 (Division)
65.03,.04 (Location)
(Note: Most
recent entry
is reported
here)
^TMP("BBD",$J,"CROSSMATCH",67)=04ABC^CPDA-1 RED BLOOD CELLS^O^POSITIVE^APR 25,
2002^Dallas CIOFO^^ ^TMP("BBD",$J,"CROSSMATCH",69)=04ABC2^CPDA-1 RED BLOOD
CELLS^O^POSITIVE^APR 25, 2002^Dallas CIOFO^5 DALLAS^
63.01,.01 (Date/Time Specimen Taken)
63.01,.03 (Date Report Completed)
63.01,.01 (Date/Time
Specimen Taken)
63.01,10 (ABO Interpretation)
63.01,2.9 (DIRECT AHG INTERPRETATION)
63.01,2.1 (DIRECT
AHG(POLYSPECIFIC))
63.01,2.4 (Anti-IgC)
63.01,2.6 (ANTI-COMPLEMENT)
63.01,11 (RH Interpretation)
63.01,6 (Antibody Screen
Interpretation)
^TMP("BBD",$J,"SPECIMEN",3010529.091751)=MAY 30, 2001@12:40^MAY 29,
2001@09:17:51^^^^^^^^^
63.199,.01 (Specimen
Comment) ^TMP("BBD",$J,"SPECIMEN",3010529.091751,"63.199,.01",1)=*TRANSFUSION
REQUEST Not Performed: 05/29/2001 9:27 am by 1336
^TMP("BBD",$J,"SPECIMEN",3010529.091751,"63.199,.01",2)=*NP Reason:DON'T FEEL
LIKE DOING IT ^TMP("BBD",$J,"SPECIMEN",3010529.092452)=MAY 29, 2001@09:30^MAY
29, 2001@09:24:52^O^^^^^^POS^NEG^ ^TMP("BBD",$J,"SPECIMEN",3010530.123232)=MAY
30, 2001@12:33^MAY 30, 2001@12:32:32^^NEGATIVE^N^N^N^NEGATIVE^^NEG^
^TMP("BBD",$J,"SPECIMEN",3010530.152121)=MAY 30, 2001@15:22^MAY 30,
2001@15:21:21^O^^^^^^POS^NEG^ ^TMP("BBD",$J,"SPECIMEN",3010531.084117)=MAY 31,
2001@08:44^MAY 31, 2001@08:41:17^O^^^^^^POS^NEG^
^TMP("BBD",$J,"SPECIMEN",3010608.06)=JUN 08, 2001@08:54^JUN 08, 2001@06:00^NOT
DONE^NEGATIVE^N^N^N^NEGATIVE^NOT DONE^NEG^
^TMP("BBD",$J,"SPECIMEN",3010608.06,"63.199,.01",1)=*TRANSFUSION REQUEST Not
Performed: 06/08/2001 8:42 am by 1336
^TMP("BBD",$J,"SPECIMEN",3010608.06,"63.199,.01",2)=*NP Reason:DUPLICATE TEST
^TMP("BBD",$J,"SPECIMEN",3010608.06,"63.199,.01",3)=ABO INTERPRETATION changed
from: ^TMP("BBD",$J,"SPECIMEN",3010608.06,"63.199,.01",4)=Above changed:Jun
08, 2001 09:10 By:MURCH,CLAUDETTE Y
^TMP("BBD",$J,"SPECIMEN",3010608.06,"63.199,.01",5)=RH INTERPRETATION changed
from: ^TMP("BBD",$J,"SPECIMEN",3010608.06,"63.199,.01",6)=Above changed:Jun
08, 2001 09:10 By:MURCH,CLAUDETTE Y ^TMP("BBD",$J,"SPECIMEN",3010608.07)=JUN
08, 2001@08:48^JUN 08, 2001@07:00^O^^^^^^POS^NEG^
^TMP("BBD",$J,"SPECIMEN",3010611.084714)=JUN 11, 2001@08:48^JUN 11,
2001@08:47:14^O^^^^^^POS^NEG^ ^TMP("BBD",$J,"SPECIMEN",3020322.142203)=MAR 25,
2002@10:28^MAR 22, 2002@14:22:03^O^^^^^^POS^POS^
^TMP("BBD",$J,"SPECIMEN",3020322.142203,"63.46,.01",16)=ANTI E
^TMP("BBD",$J,"SPECIMEN",3020903.134547)=JAN 15, 2003@13:13^SEP 03,
2002@13:45:47^^^^^^^^^
63.01,2.91 (DIRECT AHG TEST COMMENT)
^TMP("BBD",$J,"SPECIMEN",3020903.134547,2.91)=STRONG COLD AGGLUTININ PRESENT
63.012,.01 (ELUATE
ANTIBODY) ^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.012,.01",21)=ANTI G
^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.199,.01",1)=A SPECIMEN COMMENT
^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.199,.01",2)=ANOTHER SPECIMEN
COMMENT ^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.199,.01",3)=A THIRD
SPECIMEN COMMENT
63.46,.01 (SERUM ANTIBODY)
^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.46,.01",4)=ANTI A
^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.46,.01",19)=ANTI Fy(a)
^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.46,.01",64)=ANTI M
^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.46,.02",4)=COMMENT FOR ANTI A
63.46,.02 (ANTIBODY COMMENT)
^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.46,.02",19)=ANTI F COMMENT
^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.46,.02",64)=ANTI M COMMENT
63.48,.01 (ANTIBODY SCREEN
COMMENT) ^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.48,.01",1)=REPEAT PENDING
^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.48,.01",2)=OK
^TMP("BBD",$J,"SPECIMEN",3020903.134547,"63.48,.01",3)=OKL
|