IS00029B.m

IS00029B ;Compiled from script 'Generated: HL IHS IZV04 V03VXR OUT-O' on AUG 15, 2018

 ;Part 3

 ;Copyright 2018 SAIC

EN I '$D(INDA(9000003.1)) S INI=0 F  S INI=$O(^AUPN3PPH("C",INDA,INI)) Q:'INI  S INDA(9000003.1,INI)=""

 S INDA0=INDA,INI(1)=0  F  S INI(1)=$O(INDA(9000003.1,INI(1))) Q:'INI(1)  S INDA=$S(INDA(9000003.1,INI(1)):INDA(9000003.1,INI(1)),1:INI(1)) D

 .Q:'$D(^AUPN3PPH(INDA,0))

 .;SET GT11 = INSGX\^INTHL7FT(11,3)\\4\"GT1"

 .S D0=INDA S X="GT1"

 .S X1="^INTHL7FT(11,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,4)

 .S @INV@("GT11")=X K DXS,D0

 .;SET GT12 = #.04

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,4)

 .S @INV@("GT12")=X K DXS,D0

 .;SET GT13 = INSGX\^INTHL7FT(35,3)\\250\#.01

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,1)

 .S X1="^INTHL7FT(35,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,250)

 .S @INV@("GT13")=X K DXS,D0

 .;SET GT15.1 = $E(#.09,1,106)

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=106,X=$E(Y(2),Y(3),X)

 .S @INV@("GT15.1")=X K DXS,D0

 .;SET GT15.3 = $E(#.11,1,106)

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=106,X=$E(Y(2),Y(3),X)

 .S @INV@("GT15.3")=X K DXS,D0

 .;SET GT15.4 = INSGX\^INTHL7F(15192,5)\\106\"OUTPUT TRANSFORM"

 .S D0=INDA S X="OUTPUT TRANSFORM"

 .S X1="^INTHL7F(15192,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,106)

 .S @INV@("GT15.4")=X K DXS,D0

 .;SET GT15.5 = $E(#.13,1,106)

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=106,X=$E(Y(2),Y(3),X)

 .S @INV@("GT15.5")=X K DXS,D0

 .;SET GT16 = #.14

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,14)

 .S @INV@("GT16")=X K DXS,D0

 .;SET GT18 = INSGX\^INTHL7FT(6,3)\\26\#.19

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,19)

 .S X1="^INTHL7FT(6,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,26)

 .S @INV@("GT18")=X K DXS,D0

 .;SET GT19 = #.08

 .S D0=INDA S Y(2)=$C(59)_$P($G(^DD(9000003.1,.08,0)),U,3),Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_":",2),$C(59))

 .S @INV@("GT19")=X K DXS,D0

 .;SET GT113 = INSGX\^INTHL7FT(4,3)\\8\#.17

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,17)

 .S X1="^INTHL7FT(4,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,8)

 .S @INV@("GT113")=X K DXS,D0

 .;SET GT114 = INSGX\^INTHL7FT(4,3)\\8\#.18

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,18)

 .S X1="^INTHL7FT(4,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,8)

 .S @INV@("GT114")=X K DXS,D0

 .;SET GT116 = INSGX\^INTHL7FT(35,3)\\130\#.16

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P($G(^AUTNEMPL(+$P(Y(1),U,16),0)),U)

 .S X1="^INTHL7FT(35,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,130)

 .S @INV@("GT116")=X K DXS,D0

 .;SET GT117.1 = INSGX\^INTHL7F(15201,5)\\106\"OUTPUT TRANSFORM"

 .S D0=INDA S X="OUTPUT TRANSFORM"

 .S X1="^INTHL7F(15201,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,106)

 .S @INV@("GT117.1")=X K DXS,D0

 .;SET GT117.3 = INSGX\^INTHL7F(15202,5)\\106\"OUTPUT TRANSFORM"

 .S D0=INDA S X="OUTPUT TRANSFORM"

 .S X1="^INTHL7F(15202,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,106)

 .S @INV@("GT117.3")=X K DXS,D0

 .;SET GT117.4 = INSGX\^INTHL7F(15203,5)\\106\"OUTPUT TRANSFORM"

 .S D0=INDA S X="OUTPUT TRANSFORM"

 .S X1="^INTHL7F(15203,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,106)

 .S @INV@("GT117.4")=X K DXS,D0

 .;SET GT117.5 = INSGX\^INTHL7F(15204,5)\\106\"OUTPUT TRANSFORM"

 .S D0=INDA S X="OUTPUT TRANSFORM"

 .S X1="^INTHL7F(15204,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,106)

 .S @INV@("GT117.5")=X K DXS,D0

 .;SET GT118 = INSGX\^INTHL7F(15205,5)\\40\"OUTPUT TRANSFORM"

 .S D0=INDA S X="OUTPUT TRANSFORM"

 .S X1="^INTHL7F(15205,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,40)

 .S @INV@("GT118")=X K DXS,D0

 .;SET GT120 = #.15

 .S D0=INDA S Y(2)=$C(59)_$P($G(^DD(9000003.1,.15,0)),U,3),Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,15)_":",2),$C(59))

 .S @INV@("GT120")=X K DXS,D0

 .D:'INVS MC^INHS

 .K LINE S LINE="",CP=0 S L1="GT1" S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,1,L1,.CP) S L1=$G(@INV@("GT11")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 .D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP)

 .S D0=INDA S X=@INV@("GT12"),Y(1)=$G(X) S X=1,Y(2)=$G(X) S X=250,X=$E(Y(1),Y(2),X) S L1=X

 .S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,3,L1,.CP) S L1=$G(@INV@("GT13")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,4,L1,.CP)

 .S L1=$G(@INV@("GT15.1"))

 .S D0=INDA S X="^" S L1=L1_X

 .S L1=L1_$G(@INV@("GT15.3"))

 .S D0=INDA S X="^" S L1=L1_X

 .S L1=L1_$G(@INV@("GT15.4"))

 .S D0=INDA S X="^" S L1=L1_X

 .S L1=L1_$G(@INV@("GT15.5")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,6,L1,.CP)

 .S D0=INDA S X=@INV@("GT16"),Y(1)=$G(X) S X=1,Y(2)=$G(X) S X=250,X=$E(Y(1),Y(2),X) S L1=X

 .S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,7,L1,.CP) S L1=$G(@INV@("GT18")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,9,L1,.CP)

 .S D0=INDA S X=@INV@("GT19"),Y(1)=$G(X) S X=1,Y(2)=$G(X) S X=1,X=$E(Y(1),Y(2),X) S L1=X

 .S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,10,L1,.CP) S L1=$G(@INV@("GT113")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,14,L1,.CP)

 .S L1=$G(@INV@("GT114")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,15,L1,.CP) S L1=$G(@INV@("GT116")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 .D SETPIECE^INHU(.LINE,DELIM,17,L1,.CP) S L1=$G(@INV@("GT117.1"))

 .S D0=INDA S X="^" S L1=L1_X

 .S L1=L1_$G(@INV@("GT117.3"))

 .S D0=INDA S X="^" S L1=L1_X

 .S L1=L1_$G(@INV@("GT117.4"))

 .S D0=INDA S X="^" S L1=L1_X

 .S L1=L1_$G(@INV@("GT117.5")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,18,L1,.CP) S L1=$G(@INV@("GT118")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 .D SETPIECE^INHU(.LINE,DELIM,19,L1,.CP)

 .S D0=INDA S X=@INV@("GT120"),Y(1)=$G(X) S X=1,Y(2)=$G(X) S X=2,X=$E(Y(1),Y(2),X) S L1=X

 .S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,21,L1,.CP)

 .S LCT=LCT+1,^UTILITY("INH",$J,LCT)=LINE I $D(LINE)>9 M ^UTILITY("INH",$J,LCT)=LINE

 .Q

 S INDA=INDA0 K INDA0

 SET INSETID=0

 I '$D(INDA(9000003)) S INI=0 F  S INI=$O(^AUPNMCR("B",INDA,INI)) Q:'INI  S INDA(9000003,INI)=""

 S INDA0=INDA,INI(1)=0  F  S INI(1)=$O(INDA(9000003,INI(1))) Q:'INI(1)  S INDA=$S(INDA(9000003,INI(1)):INDA(9000003,INI(1)),1:INI(1)) D

 .Q:'$D(^AUPNMCR(INDA,0))

 .Q

 S INDA=INDA0 K INDA0

 SET INSETID=0

 I '$D(INDA(9000004)) S INI=0 F  S INI=$O(^AUPNMCD("B",INDA,INI)) Q:'INI  S INDA(9000004,INI)=""

 S INDA0=INDA,INI(1)=0  F  S INI(1)=$O(INDA(9000004,INI(1))) Q:'INI(1)  S INDA=$S(INDA(9000004,INI(1)):INDA(9000004,INI(1)),1:INI(1)) D

 .Q:'$D(^AUPNMCD(INDA,0))

 .Q

 S INDA=INDA0 K INDA0

 SET INSETID=0

 I '$D(INDA(9000003.1)) S INI=0 F  S INI=$O(^AUPN3PPH("C",INDA,INI)) Q:'INI  S INDA(9000003.1,INI)=""

 S INDA0=INDA,INI(1)=0  F  S INI(1)=$O(INDA(9000003.1,INI(1))) Q:'INI(1)  S INDA=$S(INDA(9000003.1,INI(1)):INDA(9000003.1,INI(1)),1:INI(1)) D

 .Q:'$D(^AUPN3PPH(INDA,0))

 .;SET IN11 = INSGX\^INTHL7FT(11,3)\\4\"IN1"

 .S D0=INDA S X="IN1"

 .S X1="^INTHL7FT(11,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,4)

 .S @INV@("IN11")=X K DXS,D0

 .;SET IN14 = INSGX\^INTHL7FT(32,3)\\250\#.03

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P($G(^AUTNINS(+$P(Y(1),U,3),0)),U)

 .S X1="^INTHL7FT(32,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,250)

 .S @INV@("IN14")=X K DXS,D0

 .;SET IN18 = INSGX\^INTHL7FT(1,3)\\12\#.06

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P($G(^AUTNEGRP(+$P(Y(1),U,6),0)),U)

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,12)

 .S @INV@("IN18")=X K DXS,D0

 .;SET IN112 = INSGX\^INTHL7FT(4,3)\\8\#.17

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,17)

 .S X1="^INTHL7FT(4,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,8)

 .S @INV@("IN112")=X K DXS,D0

 .;SET IN113 = INSGX\^INTHL7FT(4,3)\\8\#.18

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,18)

 .S X1="^INTHL7FT(4,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,8)

 .S @INV@("IN113")=X K DXS,D0

 .;SET IN116 = INSGX\^INTHL7FT(35,3)\\250\#.01

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,1)

 .S X1="^INTHL7FT(35,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,250)

 .S @INV@("IN116")=X K DXS,D0

 .;SET IN118 = INSGX\^INTHL7FT(6,3)\\26\#.19

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,19)

 .S X1="^INTHL7FT(6,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,26)

 .S @INV@("IN118")=X K DXS,D0

 .;SET IN119.1 = $E(#.09,1,106)

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=106,X=$E(Y(2),Y(3),X)

 .S @INV@("IN119.1")=X K DXS,D0

 .;SET IN119.2 = ""

 .S D0=INDA S X=""

 .S @INV@("IN119.2")=X K DXS,D0

 .;SET IN119.3 = $E(#.11,1,106)

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=106,X=$E(Y(2),Y(3),X)

 .S @INV@("IN119.3")=X K DXS,D0

 .;SET IN119.4 = INSGX\^INTHL7F(14732,5)\\106\#.12

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P($G(^DIC(5,+$P(Y(1),U,12),0)),U)

 .S X1="^INTHL7F(14732,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,106)

 .S @INV@("IN119.4")=X K DXS,D0

 .;SET IN119.5 = $E(#.13,1,106)

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=106,X=$E(Y(2),Y(3),X)

 .S @INV@("IN119.5")=X K DXS,D0

 .;SET IN143 = #.08

 .S D0=INDA S Y(2)=$C(59)_$P($G(^DD(9000003.1,.08,0)),U,3),Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_":",2),$C(59))

 .S @INV@("IN143")=X K DXS,D0

 .;SET IN147 = #.05

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P($G(^AUTTPIC(+$P(Y(1),U,5),0)),U)

 .S @INV@("IN147")=X K DXS,D0

 .;SET IN149 = #.04

 .S D0=INDA S Y(1)=$S($D(^AUPN3PPH(D0,0)):^(0),1:"") S X=$P(Y(1),U,4)

 .S @INV@("IN149")=X K DXS,D0

 .D:'INVS MC^INHS

 .K LINE S LINE="",CP=0 S L1="IN1" S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,1,L1,.CP) S L1=$G(@INV@("IN11")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 .D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP) S L1=$G(@INV@("IN14")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,5,L1,.CP) S L1=$G(@INV@("IN18"))

 .S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,9,L1,.CP) S L1=$G(@INV@("IN112")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,13,L1,.CP)

 .S L1=$G(@INV@("IN113")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,14,L1,.CP) S L1=$G(@INV@("IN116")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 .D SETPIECE^INHU(.LINE,DELIM,17,L1,.CP) S L1=$G(@INV@("IN118")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,19,L1,.CP) S L1=$G(@INV@("IN119.1"))

 .S D0=INDA S X="^" S L1=L1_X

 .S L1=L1_$G(@INV@("IN119.2"))

 .S D0=INDA S X="^" S L1=L1_X

 .S L1=L1_$G(@INV@("IN119.3"))

 .S D0=INDA S X="^" S L1=L1_X

 .S L1=L1_$G(@INV@("IN119.4"))

 .S D0=INDA S X="^" S L1=L1_X

 .S L1=L1_$G(@INV@("IN119.5")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,20,L1,.CP)

 .S D0=INDA S X=@INV@("IN143"),Y(1)=$G(X) S X=1,Y(2)=$G(X) S X=1,X=$E(Y(1),Y(2),X) S L1=X

 .S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,44,L1,.CP)

 .S D0=INDA S X=@INV@("IN147"),Y(1)=$G(X) S X=1,Y(2)=$G(X) S X=20,X=$E(Y(1),Y(2),X) S L1=X

 .S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,48,L1,.CP)

 .S D0=INDA S X=@INV@("IN149"),Y(1)=$G(X) S X=1,Y(2)=$G(X) S X=250,X=$E(Y(1),Y(2),X) S L1=X

 .S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,50,L1,.CP)

 .S LCT=LCT+1,^UTILITY("INH",$J,LCT)=LINE I $D(LINE)>9 M ^UTILITY("INH",$J,LCT)=LINE

 .Q

 S INDA=INDA0 K INDA0

 SET INSETID=0

 I '$D(INDA(9000005)) S INI=0 F  S INI=$O(^AUPNRRE("B",INDA,INI)) Q:'INI  S INDA(9000005,INI)=""

 S INDA0=INDA,INI(1)=0  F  S INI(1)=$O(INDA(9000005,INI(1))) Q:'INI(1)  S INDA=$S(INDA(9000005,INI(1)):INDA(9000005,INI(1)),1:INI(1)) D

 .Q:'$D(^AUPNRRE(INDA,0))

 .Q

 S INDA=INDA0 K INDA0

 SET INSETID=0

 I '$D(INDA(9000010.11)) S INI=0 F  S INI=$O(^AUPNVIMM("AC",INDA,INI)) Q:'INI  S INDA(9000010.11,INI)=""

 S INDA0=INDA,INI(1)=0  F  S INI(1)=$O(INDA(9000010.11,INI(1))) Q:'INI(1)  S INDA=$S(INDA(9000010.11,INI(1)):INDA(9000010.11,INI(1)),1:INI(1)) D

 .Q:'$D(^AUPNVIMM(INDA,0))

 .;SET ORC1 = INSGX\^INTHL7FT(1,3)\\2\"RE"

 .S D0=INDA S X="RE"

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,2)

 .S @INV@("ORC1")=X K DXS,D0

 .;SET ORC3 = INSGX\^INTHL7F(17024,5)\\22\"OUTPUT TRANSFORM"

 .S D0=INDA S X="OUTPUT TRANSFORM"

 .S X1="^INTHL7F(17024,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,22)

 .S @INV@("ORC3")=X K DXS,D0

 .D:'INVS MC^INHS

 .K LINE S LINE="",CP=0 S L1="ORC" S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,1,L1,.CP) S L1=$G(@INV@("ORC1")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 .D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP) S L1=$G(@INV@("ORC3")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,4,L1,.CP)

 .S LCT=LCT+1,^UTILITY("INH",$J,LCT)=LINE I $D(LINE)>9 M ^UTILITY("INH",$J,LCT)=LINE

 .SET INSETID=0

 .;SET RXA1 = INSGX\^INTHL7FT(3,3)\\4\"0"

 .S D0=INDA S X="0"

 .S X1="^INTHL7FT(3,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,4)

 .S @INV@("RXA1")=X K DXS,D0

 .;SET RXA2 = INSGX\^INTHL7FT(3,3)\\4\@RXA2

 .S D0=INDA S X=$G(INA("RXA2",INI(1)))

 .S X1="^INTHL7FT(3,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,4)

 .S @INV@("RXA2")=X K DXS,D0

 .;SET RXA3 = INSGX\^INTHL7FT(1,3)\\26\@RXA3

 .S D0=INDA S X=$G(INA("RXA3",INI(1)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,26)

 .S @INV@("RXA3")=X K DXS,D0

 .;SET RXA4 = INSGX\^INTHL7FT(1,3)\\26\@RXA4

 .S D0=INDA S X=$G(INA("RXA4",INI(1)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,26)

 .S @INV@("RXA4")=X K DXS,D0

 .;SET RXA5 = INSGX\^INTHL7FT(1,3)\\250\@RXA5

 .S D0=INDA S X=$G(INA("RXA5",INI(1)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,250)

 .S @INV@("RXA5")=X K DXS,D0

 .;SET RXA6 = INSGX\^INTHL7FT(1,3)\\99\@RXA6

 .S D0=INDA S X=$G(INA("RXA6",INI(1)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,99)

 .S @INV@("RXA6")=X K DXS,D0

 .;SET RXA7 = INSGX\^INTHL7FT(1,3)\\20\@RXA7

 .S D0=INDA S X=$G(INA("RXA7",INI(1)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,20)

 .S @INV@("RXA7")=X K DXS,D0

 .;SET RXA9 = INSGX\^INTHL7FT(1,3)\\100\@RXA9

 .S D0=INDA S X=$G(INA("RXA9",INI(1)))

 .S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,100)

 .S @INV@("RXA9")=X K DXS,D0

9 .D EN^IS00029C

 G L1^IS00029C

IS00029B  ;Compiled from script 'Generated: HL IHS IZV04 V03VXR OUT-O' on AUG 15, 2018

 +1       ;Part 3

 +2       ;Copyright 2018 SAIC

EN         IF '$DATA(INDA(9000003.1))

               SET INI=0

               FOR 

                   SET INI=$ORDER(^AUPN3PPH("C",INDA,INI))

                   IF 'INI

                       QUIT 

                   SET INDA(9000003.1,INI)=""

 +1        SET INDA0=INDA

           SET INI(1)=0

           FOR 

               SET INI(1)=$ORDER(INDA(9000003.1,INI(1)))

               IF 'INI(1)

                   QUIT 

               SET INDA=$SELECT(INDA(9000003.1,INI(1)):INDA(9000003.1,INI(1)),1:INI(1))

               Begin DoDot:1

 +2                IF '$DATA(^AUPN3PPH(INDA,0))

                       QUIT 

 +3       ;SET GT11 = INSGX\^INTHL7FT(11,3)\\4\"GT1"

 +4                SET D0=INDA

                   SET X="GT1"

 +5                SET X1="^INTHL7FT(11,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

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

 +6                SET @INV@("GT11")=X

                   KILL DXS,D0

 +7       ;SET GT12 = #.04

 +8                SET D0=INDA

                   SET Y(1)=$SELECT($DATA(^AUPN3PPH(D0,0)):^(0),1:"")

                   SET X=$PIECE(Y(1),U,4)

 +9                SET @INV@("GT12")=X

                   KILL DXS,D0

 +10      ;SET GT13 = INSGX\^INTHL7FT(35,3)\\250\#.01

 +11               SET D0=INDA

                   SET Y(1)=$SELECT($DATA(^AUPN3PPH(D0,0)):^(0),1:"")

                   SET X=$PIECE(Y(1),U,1)

 +12               SET X1="^INTHL7FT(35,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

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

 +13               SET @INV@("GT13")=X

                   KILL DXS,D0

 +14      ;SET GT15.1 = $E(#.09,1,106)

 +15               SET D0=INDA

                   SET Y(1)=$SELECT($DATA(^AUPN3PPH(D0,0)):^(0),1:"")

                   SET X=$PIECE(Y(1),U,9)

                   SET Y(2)=$GET(X)

                   SET X=1

                   SET Y(3)=$GET(X)

                   SET X=106

                   SET X=$EXTRACT(Y(2),Y(3),X)

 +16               SET @INV@("GT15.1")=X

                   KILL DXS,D0

 +17      ;SET GT15.3 = $E(#.11,1,106)

 +18               SET D0=INDA

                   SET Y(1)=$SELECT($DATA(^AUPN3PPH(D0,0)):^(0),1:"")

                   SET X=$PIECE(Y(1),U,11)

                   SET Y(2)=$GET(X)

                   SET X=1

                   SET Y(3)=$GET(X)