XT73P136 ;RSD/OAKLAND - Test Routine for XT*7.3*136
;;7.3;TOOLKIT;**136**;Apr 25, 1995;Build 5
;This routine is only to test MXMLPRESE for patch 136.
Q
EN ;Display "PASSED" or "FAILED"
N CB,I,TEST,Y,Z
K ^TMP($J,"P136 TEST")
S U="^",TEST="FAILED",Z=0
F I=1:1 S Y=$T(TST1+I) Q:Y="" D
.I $E(Y,1,3)=" ;;" S Y=$E(Y,4,999),Z=Z+1,^TMP($J,"P136 TEST",Z)=Y Q
.S Y=$E(Y,2,999),^TMP($J,"P136 TEST",Z)=^TMP($J,"P136 TEST",Z)_Y
.Q
S CB("ENDDOCUMENT")="ENDD^XT73P136",Y="^TMP($J,""P136 TEST"")"
D EN^MXMLPRSE(Y,.CB,"") W !,"Test = ",TEST,!
K ^TMP($J,"P136 TEST")
Q
ENDD ;end of document call back
S TEST="PASSED"
Q
TST1 ; create test message
;;<Bloodbank><Patient dfn="990451" firstName="CARPANTS" lastName="BIFF" dob="7720613.000000" ssn="111111111" abo="A " rh="N">
;;<TransfusionReactions><TransfusionReaction type="Urticaria" date="3130408.151856" unitId="W040713210843" productTypeName="Thawed
; Apheresis FRESH FROZEN PLASMA" productTypePrintName="FFP AFR Thaw" productCode="E2121V00" comment="On 4/8/13 after transfusion of
; thawed plasma unit #W040713210843 the patient developed a rash and itching. Th
;;e entire unit had been transfused. There were only minor changes in his VS: T 98.3 to 98.2; HR 56 to 56; BP 119/71 to 132/75 and
; RR 18 to 18. Blood Bank was notified of a suspected transfusion reaction. A clerical check revealed no errors; the patient&ap
;;os;s posttransfusion plasma was not hemolyzed and his direct antiglobulin tesst (DAT) remained negative. The patient's symptoms
; and the lack of laboratory findings are most conististent with a mild allergic transfusion reaction. Such reactions are not uncommon
; and are usually directed to foreign proteins in the transfused plasma to which the recipient is immune. If future transfusions are
; needed premedication with benadryl may be beneficial."/>
;;</TransfusionReactions></Patient></Bloodbank>
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXT73P136 1928 printed Dec 13, 2024@02:40:35 Page 2
XT73P136 ;RSD/OAKLAND - Test Routine for XT*7.3*136
+1 ;;7.3;TOOLKIT;**136**;Apr 25, 1995;Build 5
+2 ;This routine is only to test MXMLPRESE for patch 136.
+3 QUIT
EN ;Display "PASSED" or "FAILED"
+1 NEW CB,I,TEST,Y,Z
+2 KILL ^TMP($JOB,"P136 TEST")
+3 SET U="^"
SET TEST="FAILED"
SET Z=0
+4 FOR I=1:1
SET Y=$TEXT(TST1+I)
if Y=""
QUIT
Begin DoDot:1
+5 IF $EXTRACT(Y,1,3)=" ;;"
SET Y=$EXTRACT(Y,4,999)
SET Z=Z+1
SET ^TMP($JOB,"P136 TEST",Z)=Y
QUIT
+6 SET Y=$EXTRACT(Y,2,999)
SET ^TMP($JOB,"P136 TEST",Z)=^TMP($JOB,"P136 TEST",Z)_Y
+7 QUIT
End DoDot:1
+8 SET CB("ENDDOCUMENT")="ENDD^XT73P136"
SET Y="^TMP($J,""P136 TEST"")"
+9 DO EN^MXMLPRSE(Y,.CB,"")
WRITE !,"Test = ",TEST,!
+10 KILL ^TMP($JOB,"P136 TEST")
+11 QUIT
ENDD ;end of document call back
+1 SET TEST="PASSED"
+2 QUIT
TST1 ; create test message
+1 ;;<Bloodbank><Patient dfn="990451" firstName="CARPANTS" lastName="BIFF" dob="7720613.000000" ssn="111111111" abo="A " rh="N">
+2 ;;<TransfusionReactions><TransfusionReaction type="Urticaria" date="3130408.151856" unitId="W040713210843" productTypeName="Thawed
+3 ; Apheresis FRESH FROZEN PLASMA" productTypePrintName="FFP AFR Thaw" productCode="E2121V00" comment="On 4/8/13 after transfusion of
+4 ; thawed plasma unit #W040713210843 the patient developed a rash and itching. Th
+5 ;;e entire unit had been transfused. There were only minor changes in his VS: T 98.3 to 98.2; HR 56 to 56; BP 119/71 to 132/75 and
+6 ; RR 18 to 18. Blood Bank was notified of a suspected transfusion reaction. A clerical check revealed no errors; the patient&ap
+7 ;;os;s posttransfusion plasma was not hemolyzed and his direct antiglobulin tesst (DAT) remained negative. The patient's symptoms
+8 ; and the lack of laboratory findings are most conististent with a mild allergic transfusion reaction. Such reactions are not uncommon
+9 ; and are usually directed to foreign proteins in the transfused plasma to which the recipient is immune. If future transfusions are
+10 ; needed premedication with benadryl may be beneficial."/>
+11 ;;</TransfusionReactions></Patient></Bloodbank>
