- 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 Mar 13, 2025@21:45:37 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>
