IS00010.m

IS00010(UIF,INOA,INODA) ;Compiled from script 'Generated: HL IHS IZV04 IN-I' on AUG 15, 2018

 ;Part 1

 ;Copyright 2018 SAIC

EN S X="ERROR^IS00010",@^%ZOSF("TRAP")

 G START

ERROR ;

 S X="",@^%ZOSF("TRAP") X ^INTHOS(1,3) D ERROR^INHS($$GETERR^%ZTOS)

 Q 2

START ;Initialize variables

 K FIELD,MDESC,INDA,DIPA S (INAUDIT,INLAYGO)=0

 K INREQERR,INHERR,INHERCNT,INV D SETDT^UTDT S DUZ(0)="@",DUZ("AG")="^1",DTIME=1 S (LCT,GERR)=0,INMODE="I",INVS=$P(^INRHSITE(1,0),U,12),INV=$S(INVS<2:"INV",1:"^UTILITY(""INV"",$J)"),(MULT,INSTERR)=0

 S INHLDUZ=$O(^VA(200,"B","GIS,USER",0)),DUZ=$S($G(INHLDUZ):INHLDUZ,1:.5)

 S BHLMIEN="12425"

 I $G(^INTHL7M(BHLMIEN,4,1,0))]"" X $G(^INTHL7M(BHLMIEN,4,1,0))

 K INSETID

 S INSMIN=$S($P($G(^INRHSITE(1,0)),U,14):$P(^(0),U,14),1:2500)

 S (DELIM,INDELIM)=$$FIELD^INHUT(),(SUBDELIM,INSUBDEL)=$$COMP^INHUT(),INSUBCOM=$$SUBCOMP^INHUT()

 ;Entering DATA section.

 S X=$$GL^INHOU(UIF,LCT),Y(1)=$G(X) S X=4,X=$E(Y(1),X) S DELIM=X K DXS

 S X=$$GL^INHOU(UIF,LCT),Y(1)=$G(X) S X=5,X=$E(Y(1),X) S SUBDELIM=X K DXS S INDELIMS=DELIM_$P(Y(1),DELIM,2)

 N INDEFSEG

 S INDEFSEG("MSH",0)=0

 S INDEFSEG("EVN",0)=0

 S INDEFSEG("PID",0)=0

 S INDEFSEG("NK1",1)=1

 S INDEFSEG("ORC",1)=1

 S INDEFSEG("RXA",1)=0

 ;Start of GROUP

 F  S MATCH=0 D  Q:'MATCH

 .D:'INVS MC^INHS

 .D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0

 .I 'MATCH,LINE?1"M"1"S"1"H".ANPC S DO=1,MATCH=1

 .E  S LCT=LCT-CNT,DO=0

 .S:DO @("@INV@(""MSH1"")")=$E($G(LINE),4)

 .S:DO @("@INV@(""MSH2"")")=$$PIECE^INHU(.LINE,DELIM,2)

 .S:DO @("@INV@(""MSH3"")")=$$PIECE^INHU(.LINE,DELIM,3)

 .S:DO @("@INV@(""MSH4"")")=$$PIECE^INHU(.LINE,DELIM,4)

 .S:DO @("@INV@(""MSH5"")")=$$PIECE^INHU(.LINE,DELIM,5)

 .S:DO @("@INV@(""MSH6"")")=$$PIECE^INHU(.LINE,DELIM,6)

 .S:DO @("@INV@(""MSH7"")")=$$PIECE^INHU(.LINE,DELIM,7)

 .S:DO @("@INV@(""MSH8"")")=$$PIECE^INHU(.LINE,DELIM,8)

 .S:DO @("@INV@(""MSH9"")")=$$PIECE^INHU(.LINE,DELIM,9)

 .S:DO @("@INV@(""MSH10"")")=$$PIECE^INHU(.LINE,DELIM,10)

 .S:DO @("@INV@(""MSH11"")")=$$PIECE^INHU(.LINE,DELIM,11)

 .S:DO @("@INV@(""MSH12"")")=$$PIECE^INHU(.LINE,DELIM,12)

 .S:DO @("@INV@(""MSH13"")")=$$PIECE^INHU(.LINE,DELIM,13)

 .S:DO @("@INV@(""MSH14"")")=$$PIECE^INHU(.LINE,DELIM,14)

 .S:DO @("@INV@(""MSH15"")")=$$PIECE^INHU(.LINE,DELIM,15)

 .S:DO @("@INV@(""MSH16"")")=$$PIECE^INHU(.LINE,DELIM,16)

 .S:DO @("@INV@(""MSH17"")")=$$PIECE^INHU(.LINE,DELIM,17)

 .Q:MATCH

 .D:'INVS MC^INHS

 .D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0

 .I 'MATCH,LINE?1"E"1"V"1"N".ANPC S DO=1,MATCH=1

 .E  S LCT=LCT-CNT,DO=0

 .S:DO @("@INV@(""EVN1"")")=$$PIECE^INHU(.LINE,DELIM,2)

 .S:DO @("@INV@(""EVN2"")")=$$PIECE^INHU(.LINE,DELIM,3)

 .Q:MATCH

 .D:'INVS MC^INHS

 .D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0

 .I 'MATCH,LINE?1"P"1"I"1"D".ANPC S DO=1,MATCH=1

 .E  S LCT=LCT-CNT,DO=0

 .S:DO @("@INV@(""PID3"")")=$$PIECE^INHU(.LINE,DELIM,4)

 .S:DO @("@INV@(""PID4"")")=$$PIECE^INHU(.LINE,DELIM,5)

 .S:DO @("@INV@(""PID5"")")=$$PIECE^INHU(.LINE,DELIM,6)

 .S:DO @("@INV@(""PID6"")")=$$PIECE^INHU(.LINE,DELIM,7)

 .S:DO @("@INV@(""PID7"")")=$$PIECE^INHU(.LINE,DELIM,8)

 .S:DO @("@INV@(""PID8"")")=$$PIECE^INHU(.LINE,DELIM,9)

 .S:DO @("@INV@(""PID11"")")=$$PIECE^INHU(.LINE,DELIM,12)

 .S:DO @("@INV@(""PID12"")")=$$PIECE^INHU(.LINE,DELIM,13)

 .S:DO @("@INV@(""PID13"")")=$$PIECE^INHU(.LINE,DELIM,14)

 .S:DO @("@INV@(""PID14"")")=$$PIECE^INHU(.LINE,DELIM,15)

 .S:DO @("@INV@(""PID17"")")=$$PIECE^INHU(.LINE,DELIM,18)

 .S:DO @("@INV@(""PID18"")")=$$PIECE^INHU(.LINE,DELIM,19)

 .S:DO @("@INV@(""PID19"")")=$$PIECE^INHU(.LINE,DELIM,20)

 .S:DO @("@INV@(""PID26"")")=$$PIECE^INHU(.LINE,DELIM,27)

 .Q:MATCH

 .Q

 ;WHILE $P(DATA,DELIM)="NK1"

 S INI(1)=1 F  S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("NK1",0,1)  D  S INI(1)=INI(1)+1

 .D:'INVS MC^INHS

 .D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1

 .S:DO @("@INV@(""NK11"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)

 .S:DO @("@INV@(""NK12"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)

 .S:DO @("@INV@(""NK13"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,4)

 .S:DO @("@INV@(""NK14"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,5)

 .S:DO @("@INV@(""NK15"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,6)

 .S:DO @("@INV@(""NK17"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,8)

 .S:DO @("@INV@(""NK113"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,14)

 .Q

 ;WHILE $P(DATA,DELIM)="ORC"

 S INI(1)=1 F  S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("ORC",0,1)  D  S INI(1)=INI(1)+1

 .D:'INVS MC^INHS

 .D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1

 .S:DO @("@INV@(""ORC1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)

 .S:DO @("@INV@(""ORC2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)

 .S:DO @("@INV@(""ORC3"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,4)

 .S:DO @("@INV@(""ORC5"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,6)

 .S:DO @("@INV@(""ORC7"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,8)

 .S:DO @("@INV@(""ORC9"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,10)

 .S:DO @("@INV@(""ORC12"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,13)

 .S:DO @("@INV@(""ORC15"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,16)

 .D:'INVS MC^INHS

 .D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1

 .I LINE?1"R"1"X"1"A".ANPC S DO=1

 .E  S LCT=LCT-CNT,DO=0

 .Q

 D:'INVS MC^INHS

 ;Entering TRANS section.

 ;IF $D(@INV@("MSH1"))

 I $D(@INV@("MSH1"))

 D:$T

 .S (INX,X)=$G(@INV@("MSH1"))

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

 .S @INV@("MSH1")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH1' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH2"))

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

 .S @INV@("MSH2")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH2' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH3"))

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

 .S @INV@("MSH3")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH3' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH4"))

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

 .S @INV@("MSH4")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH4' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH5"))

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

 .S @INV@("MSH5")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH5' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH6"))

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

 .S @INV@("MSH6")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH6' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH7"))

 .I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)

 .S @INV@("MSH7")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH7' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH8"))

 .I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)

 .S @INV@("MSH8")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH8' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH10"))

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

 .S @INV@("MSH10")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH10' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH12"))

 .S:$L(X) X=+X

 .S @INV@("MSH12")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH12' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH13"))

 .S:$L(X) X=+X

 .S @INV@("MSH13")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH13' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH14"))

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

 .S @INV@("MSH14")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH14' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .Q

 ;IF $D(@INV@("EVN1"))

 I $D(@INV@("EVN1"))

 D:$T

 .S (INX,X)=$G(@INV@("EVN1"))

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

 .S @INV@("EVN1")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'EVN1' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("EVN2"))

 .I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)

 .S @INV@("EVN2")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'EVN2' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .Q

 ;IF $D(@INV@("PID1"))

 I $D(@INV@("PID1"))

 D:$T

 .S (INX,X)=$G(@INV@("PID3"))

 .S:X]"" X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$P($G(INTHL7F2),U,4),"I")

 .S @INV@("PID3")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID3' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID4"))

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

 .S @INV@("PID4")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID4' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID5"))

 .S:X]"" X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$P($G(INTHL7F2),U,4),"I")

 .S @INV@("PID5")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID5' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID6"))

 .S:X]"" X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$P($G(INTHL7F2),U,4),"I")

 .S @INV@("PID6")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID6' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID7"))

 .I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)

 .S @INV@("PID7")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID7' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID11"))

 .I $L(X) S:$P(X,INSUBDEL,4)="" $P(X,INSUBDEL,4)=INSUBDEL

 .S @INV@("PID11")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID11' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID13"))

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

 .S @INV@("PID13")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID13' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID14"))

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

 .S @INV@("PID14")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID14' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID17"))

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

 .S @INV@("PID17")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID17' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID19"))

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

 .S @INV@("PID19")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID19' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID26"))

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

 .S @INV@("PID26")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID26' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .Q

 ;IF $D(@INV@("NK11"))

 I $D(@INV@("NK11"))

 D:$T

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

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

 ..S:X]"" X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$P($G(INTHL7F2),U,4),"I")

 ..S @INV@("NK12",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK12' 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@("NK13",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

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

 ..S @INV@("NK13",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK13' 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@("NK14",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

 ..I $L(X) S:$P(X,INSUBDEL,4)="" $P(X,INSUBDEL,4)=INSUBDEL

 ..S @INV@("NK14",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK14' 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@("NK15",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

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

 ..S @INV@("NK15",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK15' 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@("NK17",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

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

 ..S @INV@("NK17",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK17' 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@("NK113",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

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

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

 ..Q

 .K DXS

 .Q

 ;IF $D(@INV@("ORC1"))

 I $D(@INV@("ORC1"))

 D:$T

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

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

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

 ..S @INV@("ORC5",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'ORC5' 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@("ORC9",INI(1))) Q:'INI(1)  S INI=INI(1) D

9 ..D EN^IS00010A

 .D H2^IS00010A

 G H1^IS00010A

IS00010(UIF,INOA,INODA) ;Compiled from script 'Generated: HL IHS IZV04 IN-I' on AUG 15, 2018

 +1       ;Part 1

 +2       ;Copyright 2018 SAIC

EN         SET X="ERROR^IS00010"

           SET @^%ZOSF("TRAP")

 +1        GOTO START

ERROR     ;

 +1        SET X=""

           SET @^%ZOSF("TRAP")

           XECUTE ^INTHOS(1,3)

           DO ERROR^INHS($$GETERR^%ZTOS)

 +2        QUIT 2

START     ;Initialize variables

 +1        KILL FIELD,MDESC,INDA,DIPA

           SET (INAUDIT,INLAYGO)=0

 +2        KILL INREQERR,INHERR,INHERCNT,INV

           DO SETDT^UTDT

           SET DUZ(0)="@"

           SET DUZ("AG")="^1"

           SET DTIME=1

           SET (LCT,GERR)=0

           SET INMODE="I"

           SET INVS=$PIECE(^INRHSITE(1,0),U,12)

           SET INV=$SELECT(INVS<2:"INV",1:"^UTILITY(""INV"",$J)")

           SET (MULT,INSTERR)=0

 +3        SET INHLDUZ=$ORDER(^VA(200,"B","GIS,USER",0))

           SET DUZ=$SELECT($GET(INHLDUZ):INHLDUZ,1:.5)

 +4        SET BHLMIEN="12425"

 +5        IF $GET(^INTHL7M(BHLMIEN,4,1,0))]""

               XECUTE $GET(^INTHL7M(BHLMIEN,4,1,0))

 +6        KILL INSETID

 +7        SET INSMIN=$SELECT($PIECE($GET(^INRHSITE(1,0)),U,14):$PIECE(^(0),U,14),1:2500)

 +8        SET (DELIM,INDELIM)=$$FIELD^INHUT()

           SET (SUBDELIM,INSUBDEL)=$$COMP^INHUT()

           SET INSUBCOM=$$SUBCOMP^INHUT()

 +9       ;Entering DATA section.

 +10       SET X=$$GL^INHOU(UIF,LCT)

           SET Y(1)=$GET(X)

           SET X=4

           SET X=$EXTRACT(Y(1),X)

           SET DELIM=X

           KILL DXS

 +11       SET X=$$GL^INHOU(UIF,LCT)

           SET Y(1)=$GET(X)

           SET X=5

           SET X=$EXTRACT(Y(1),X)

           SET SUBDELIM=X

           KILL DXS

           SET INDELIMS=DELIM_$PIECE(Y(1),DELIM,2)

 +12       NEW INDEFSEG

 +13       SET INDEFSEG("MSH",0)=0

 +14       SET INDEFSEG("EVN",0)=0

 +15       SET INDEFSEG("PID",0)=0

 +16       SET INDEFSEG("NK1",1)=1

 +17       SET INDEFSEG("ORC",1)=1

 +18       SET INDEFSEG("RXA",1)=0

 +19      ;Start of GROUP

 +20       FOR 

               SET MATCH=0

               Begin DoDot:1

 +21               IF 'INVS

                       DO MC^INHS

 +22               DO GET^INHOU(UIF,0)

                   SET LINE=$GET(LINE)

                   SET DO=0

 +23               IF 'MATCH

                       IF LINE?1"M"1"S"1"H".ANPC

                           SET DO=1

                           SET MATCH=1

 +24              IF '$TEST

                       SET LCT=LCT-CNT

                       SET DO=0

 +25               IF DO

                       SET @("@INV@(""MSH1"")")=$EXTRACT($GET(LINE),4)

 +26               IF DO

                       SET @("@INV@(""MSH2"")")=$$PIECE^INHU(.LINE,DELIM,2)

 +27               IF DO

                       SET @("@INV@(""MSH3"")")=$$PIECE^INHU(.LINE,DELIM,3)

 +28               IF DO

                       SET @("@INV@(""MSH4"")")=$$PIECE^INHU(.LINE,DELIM,4)

 +29               IF DO

                       SET @("@INV@(""MSH5"")")=$$PIECE^INHU(.LINE,DELIM,5)

 +30               IF DO

                       SET @("@INV@(""MSH6"")")=$$PIECE^INHU(.LINE,DELIM,6)

 +31               IF DO

                       SET @("@INV@(""MSH7"")")=$$PIECE^INHU(.LINE,DELIM,7)

 +32               IF DO

                       SET @("@INV@(""MSH8"")")=$$PIECE^INHU(.LINE,DELIM,8)

 +33               IF DO

                       SET @("@INV@(""MSH9"")")=$$PIECE^INHU(.LINE,DELIM,9)

 +34               IF DO

                       SET @("@INV@(""MSH10"")")=$$PIECE^INHU(.LINE,DELIM,10)

 +35               IF DO

                       SET @("@INV@(""MSH11"")")=$$PIECE^INHU(.LINE,DELIM,11)

 +36               IF DO

                       SET @("@INV@(""MSH12"")")=$$PIECE^INHU(.LINE,DELIM,12)

 +37               IF DO

                       SET @("@INV@(""MSH13"")")=$$PIECE^INHU(.LINE,DELIM,13)

 +38               IF DO

                       SET @("@INV@(""MSH14"")")=$$PIECE^INHU(.LINE,DELIM,14)

 +39               IF DO

                       SET @("@INV@(""MSH15"")")=$$PIECE^INHU(.LINE,DELIM,15)

 +40               IF DO

                       SET @("@INV@(""MSH16"")")=$$PIECE^INHU(.LINE,DELIM,16)

 +41               IF DO

                       SET @("@INV@(""MSH17"")")=$$PIECE^INHU(.LINE,DELIM,17)

 +42               IF MATCH

                       QUIT 

 +43               IF 'INVS

                       DO MC^INHS

 +44               DO GET^INHOU(UIF,0)

                   SET LINE=$GET(LINE)

                   SET DO=0

 +45               IF 'MATCH

                       IF LINE?1"E"1"V"1"N".ANPC

                           SET DO=1

                           SET MATCH=1

 +46              IF '$TEST

                       SET LCT=LCT-CNT

                       SET DO=0

 +47               IF DO

                       SET @("@INV@(""EVN1"")")=$$PIECE^INHU(.LINE,DELIM,2)

 +48               IF DO

                       SET @("@INV@(""EVN2"")")=$$PIECE^INHU(.LINE,DELIM,3)

 +49               IF MATCH

                       QUIT 

 +50               IF 'INVS

                       DO MC^INHS

 +51               DO GET^INHOU(UIF,0)

                   SET LINE=$GET(LINE)

                   SET DO=0

 +52               IF 'MATCH

                       IF LINE?1"P"1"I"1"D".ANPC

                           SET DO=1

                           SET MATCH=1