- IS00017G ;Compiled from script 'Generated: HL IHS LAB R01 LABCORP IN-I' on AUG 14, 2006
- ;Part 8
- ;Copyright 2006 SAIC
- EN S @INV@("OBR8",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR8' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- Q
- H3 K DXS
- S INI(1)=0 F S INI(1)=$O(@INV@("OBR9",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR9",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR9",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR9' 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@("OBR10",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR10",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR10",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR10' 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@("OBR11",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR11",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR11",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR11' 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@("OBR12",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR12",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR12",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR12' 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@("OBR13",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR13",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR13",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR13' 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@("OBR14",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR14",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR14",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR14' 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@("OBR15",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR15",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR15",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR15' 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@("OBR16",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR16",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR16",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR16' 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@("OBR17",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR17",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR17",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR17' 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@("OBR18",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR18",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR18",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR18' 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@("OBR19",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR19",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR19",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR19' 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@("OBR20",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR20",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR20",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR20' 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@("OBR21",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR21",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR21",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR21' 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@("OBR22",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR22",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR22",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR22' 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@("OBR23",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR23",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR23",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR23' 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@("OBR24",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR24",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR24",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR24' 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@("OBR25",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR25",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR25",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR25' 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@("OBR26",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("OBR26",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("OBR26",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBR26' 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@("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))
- 9 .D EN^IS00017H
- G H3^IS00017H
- IS00017G ;Compiled from script 'Generated: HL IHS LAB R01 LABCORP IN-I' on AUG 14, 2006
- +1 ;Part 8
- +2 ;Copyright 2006 SAIC
- EN SET @INV@("OBR8",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR8' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +1 QUIT
- H3 KILL DXS
- +1 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR9",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +2 SET (INX,X)=@INV@("OBR9",INI(1))
- +3 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +4 SET @INV@("OBR9",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR9' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +5 QUIT
- End DoDot:1
- +6 KILL DXS
- +7 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR10",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +8 SET (INX,X)=@INV@("OBR10",INI(1))
- +9 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +10 SET @INV@("OBR10",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR10' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +11 QUIT
- End DoDot:1
- +12 KILL DXS
- +13 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR11",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +14 SET (INX,X)=@INV@("OBR11",INI(1))
- +15 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +16 SET @INV@("OBR11",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR11' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +17 QUIT
- End DoDot:1
- +18 KILL DXS
- +19 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR12",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +20 SET (INX,X)=@INV@("OBR12",INI(1))
- +21 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +22 SET @INV@("OBR12",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR12' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +23 QUIT
- End DoDot:1
- +24 KILL DXS
- +25 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR13",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +26 SET (INX,X)=@INV@("OBR13",INI(1))
- +27 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +28 SET @INV@("OBR13",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR13' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +29 QUIT
- End DoDot:1
- +30 KILL DXS
- +31 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR14",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +32 SET (INX,X)=@INV@("OBR14",INI(1))
- +33 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +34 SET @INV@("OBR14",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR14' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +35 QUIT
- End DoDot:1
- +36 KILL DXS
- +37 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR15",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +38 SET (INX,X)=@INV@("OBR15",INI(1))
- +39 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +40 SET @INV@("OBR15",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR15' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +41 QUIT
- End DoDot:1
- +42 KILL DXS
- +43 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR16",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +44 SET (INX,X)=@INV@("OBR16",INI(1))
- +45 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +46 SET @INV@("OBR16",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR16' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +47 QUIT
- End DoDot:1
- +48 KILL DXS
- +49 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR17",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +50 SET (INX,X)=@INV@("OBR17",INI(1))
- +51 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +52 SET @INV@("OBR17",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR17' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +53 QUIT
- End DoDot:1
- +54 KILL DXS
- +55 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR18",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +56 SET (INX,X)=@INV@("OBR18",INI(1))
- +57 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +58 SET @INV@("OBR18",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR18' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +59 QUIT
- End DoDot:1
- +60 KILL DXS
- +61 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR19",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +62 SET (INX,X)=@INV@("OBR19",INI(1))
- +63 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +64 SET @INV@("OBR19",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR19' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +65 QUIT
- End DoDot:1
- +66 KILL DXS
- +67 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR20",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +68 SET (INX,X)=@INV@("OBR20",INI(1))
- +69 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +70 SET @INV@("OBR20",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR20' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +71 QUIT
- End DoDot:1
- +72 KILL DXS
- +73 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR21",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +74 SET (INX,X)=@INV@("OBR21",INI(1))
- +75 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +76 SET @INV@("OBR21",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR21' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +77 QUIT
- End DoDot:1
- +78 KILL DXS
- +79 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR22",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +80 SET (INX,X)=@INV@("OBR22",INI(1))
- +81 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +82 SET @INV@("OBR22",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR22' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +83 QUIT
- End DoDot:1
- +84 KILL DXS
- +85 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR23",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +86 SET (INX,X)=@INV@("OBR23",INI(1))
- +87 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +88 SET @INV@("OBR23",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR23' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +89 QUIT
- End DoDot:1
- +90 KILL DXS
- +91 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR24",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +92 SET (INX,X)=@INV@("OBR24",INI(1))
- +93 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +94 SET @INV@("OBR24",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR24' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +95 QUIT
- End DoDot:1
- +96 KILL DXS
- +97 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR25",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +98 SET (INX,X)=@INV@("OBR25",INI(1))
- +99 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +100 SET @INV@("OBR25",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR25' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +101 QUIT
- End DoDot:1
- +102 KILL DXS
- +103 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR26",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +104 SET (INX,X)=@INV@("OBR26",INI(1))
- +105 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +106 SET @INV@("OBR26",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'OBR26' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +107 QUIT
- End DoDot:1
- +108 KILL DXS
- +109 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR27",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +110 SET (INX,X)=@INV@("OBR27",INI(1))
- +111 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +112 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)
- +113 QUIT
- End DoDot:1
- +114 KILL DXS
- +115 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("OBR28",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +116 SET (INX,X)=@INV@("OBR28",INI(1))
- 9 DO EN^IS00017H
- End DoDot:1
- +1 GOTO H3^IS00017H
