XT73P136.m

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 ---XT73P136   1928     printed  Apr 09, 2024@21:43:57                                                                                                                                                                                                    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>