IS00018H.m

IS00018H ;Compiled from script 'Generated: HL IHS LAB R01 UNILAB IN-I' on AUG 14, 2006

 ;Part 9

 ;Copyright 2006 SAIC

EN S INI(1)=0 F  S INI(1)=$O(@INV@("OBR27",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR27",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR27",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR27' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR28",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR28",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR28",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR28' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR29",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR29",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR29",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR29' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR30",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR30",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR30",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR30' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR31",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR31",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR31",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR31' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR32",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR32",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR32",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR32' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR33",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR33",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR33",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR33' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR34",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR34",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR34",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR34' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR35",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR35",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR35",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR35' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR36",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR36",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR36",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR36' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR37",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR37",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR37",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR37' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR38",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR38",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR38",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR38' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR39",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR39",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR39",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR39' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR40",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR40",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR40",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR40' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR41",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR41",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR41",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR41' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR42",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR42",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR42",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR42' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR43",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR43",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR43",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR43' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR44",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR44",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR44",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR44' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR45",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR45",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("OBR45",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR45' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .Q

 K DXS

 S INI(1)=0 F  S INI(1)=$O(@INV@("OBR46",INI(1))) Q:'INI(1)  S INI=INI(1) D

 .S (INX,X)=@INV@("OBR46",INI(1))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

9 .D EN^IS00018I

 G H3^IS00018I

IS00018H  ;Compiled from script 'Generated: HL IHS LAB R01 UNILAB IN-I' on AUG 14, 2006

 +1       ;Part 9

 +2       ;Copyright 2006 SAIC

EN         SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR27",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +1                SET (INX,X)=@INV@("OBR27",INI(1))

 +2                IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +3                SET @INV@("OBR27",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR27' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +4                QUIT 

               End DoDot:1

 +5        KILL DXS

 +6        SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR28",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +7                SET (INX,X)=@INV@("OBR28",INI(1))

 +8                IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +9                SET @INV@("OBR28",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR28' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +10               QUIT 

               End DoDot:1

 +11       KILL DXS

 +12       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR29",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +13               SET (INX,X)=@INV@("OBR29",INI(1))

 +14               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +15               SET @INV@("OBR29",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR29' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +16               QUIT 

               End DoDot:1

 +17       KILL DXS

 +18       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR30",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +19               SET (INX,X)=@INV@("OBR30",INI(1))

 +20               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +21               SET @INV@("OBR30",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR30' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +22               QUIT 

               End DoDot:1

 +23       KILL DXS

 +24       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR31",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +25               SET (INX,X)=@INV@("OBR31",INI(1))

 +26               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +27               SET @INV@("OBR31",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR31' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +28               QUIT 

               End DoDot:1

 +29       KILL DXS

 +30       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR32",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +31               SET (INX,X)=@INV@("OBR32",INI(1))

 +32               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +33               SET @INV@("OBR32",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR32' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +34               QUIT 

               End DoDot:1

 +35       KILL DXS

 +36       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR33",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +37               SET (INX,X)=@INV@("OBR33",INI(1))

 +38               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +39               SET @INV@("OBR33",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR33' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +40               QUIT 

               End DoDot:1

 +41       KILL DXS

 +42       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR34",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +43               SET (INX,X)=@INV@("OBR34",INI(1))

 +44               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +45               SET @INV@("OBR34",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR34' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +46               QUIT 

               End DoDot:1

 +47       KILL DXS

 +48       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR35",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +49               SET (INX,X)=@INV@("OBR35",INI(1))

 +50               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +51               SET @INV@("OBR35",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR35' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +52               QUIT 

               End DoDot:1

 +53       KILL DXS

 +54       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR36",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +55               SET (INX,X)=@INV@("OBR36",INI(1))

 +56               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +57               SET @INV@("OBR36",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR36' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +58               QUIT 

               End DoDot:1

 +59       KILL DXS

 +60       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR37",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +61               SET (INX,X)=@INV@("OBR37",INI(1))

 +62               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +63               SET @INV@("OBR37",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR37' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +64               QUIT 

               End DoDot:1

 +65       KILL DXS

 +66       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR38",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +67               SET (INX,X)=@INV@("OBR38",INI(1))

 +68               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +69               SET @INV@("OBR38",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR38' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +70               QUIT 

               End DoDot:1

 +71       KILL DXS

 +72       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR39",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +73               SET (INX,X)=@INV@("OBR39",INI(1))

 +74               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +75               SET @INV@("OBR39",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR39' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +76               QUIT 

               End DoDot:1

 +77       KILL DXS

 +78       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR40",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +79               SET (INX,X)=@INV@("OBR40",INI(1))

 +80               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +81               SET @INV@("OBR40",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR40' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +82               QUIT 

               End DoDot:1

 +83       KILL DXS

 +84       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR41",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +85               SET (INX,X)=@INV@("OBR41",INI(1))

 +86               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +87               SET @INV@("OBR41",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR41' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +88               QUIT 

               End DoDot:1

 +89       KILL DXS

 +90       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR42",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +91               SET (INX,X)=@INV@("OBR42",INI(1))

 +92               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +93               SET @INV@("OBR42",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR42' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +94               QUIT 

               End DoDot:1

 +95       KILL DXS

 +96       SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR43",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +97               SET (INX,X)=@INV@("OBR43",INI(1))

 +98               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +99               SET @INV@("OBR43",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR43' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +100              QUIT 

               End DoDot:1

 +101      KILL DXS

 +102      SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR44",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +103              SET (INX,X)=@INV@("OBR44",INI(1))

 +104              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +105              SET @INV@("OBR44",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR44' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +106              QUIT 

               End DoDot:1

 +107      KILL DXS

 +108      SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR45",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +109              SET (INX,X)=@INV@("OBR45",INI(1))

 +110              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +111              SET @INV@("OBR45",INI(1))=$GET(X)

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'OBR45' failed input transform in iteration #"_INI(1)_". Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +112              QUIT 

               End DoDot:1

 +113      KILL DXS

 +114      SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(@INV@("OBR46",INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +115              SET (INX,X)=@INV@("OBR46",INI(1))

 +116              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

9                  DO EN^IS00018I

               End DoDot:1

 +1        GOTO H3^IS00018I