IS00029A.m

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

 ;Part 2

 ;Copyright 2018 SAIC

EN S L1=$G(@INV@("PID17")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,18,L1,.CP) S L1=$G(@INV@("PID19")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 D SETPIECE^INHU(.LINE,DELIM,20,L1,.CP) S L1=$G(@INV@("PID22")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,23,L1,.CP) S L1=$G(@INV@("PID24"))

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

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

 Q

A1 S INDA=INDA0 K INDA0

 SET INSETID=0

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

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

 .D ^BYIMNK1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 .;SET NK15 = INSGX\^INTHL7FT(1,3)\\50\@NK15

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

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

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

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

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

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

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

 .D:'INVS MC^INHS

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

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

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

 .S L1=$G(@INV@("NK15")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,6,L1,.CP) S L1=$G(@INV@("NK17")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,8,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

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

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

 .;SET NK11 = INSGX\^INTHL7FT(11,3)\\4\"NK1"

 .S D0=INDA S X="NK1"

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

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

 .;SET NK12 = INSGX\^INTHL7FT(7,3)\\250\#.331

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

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

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

 .;SET NK13.1 = INSGX\^INTHL7F(14540,5)\\60\"OUTPUT TRANSFORM"

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

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

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

 .;SET NK13.2 = INSGX\^INTHL7FT(1,3)\\60\#.332

 .S D0=INDA S Y(1)=$S($D(^DPT(D0,.33)):^(.33),1:"") S X=$P(Y(1),U,2)

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

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

 .;SET NK13.3 = INSGX\^INTHL7FT(1,3)\\5\"99IHS"

 .S D0=INDA S X="99IHS"

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

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

 .;SET NK14.1 = $E(#.333,1,106)

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

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

 .;SET NK14.2 = $E(#.334,1,106)

 .S D0=INDA S Y(1)=$S($D(^DPT(D0,.33)):^(.33),1:"") S X=$P(Y(1),U,4),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=106,X=$E(Y(2),Y(3),X)

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

 .;SET NK14.3 = $E(#.336,1,106)

 .S D0=INDA S Y(1)=$S($D(^DPT(D0,.33)):^(.33),1:"") S X=$P(Y(1),U,6),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=106,X=$E(Y(2),Y(3),X)

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

 .;SET NK14.4 = INSGX\^INTHL7F(14527,5)\\106\#.337

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

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

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

 .;SET NK14.5 = $E(#.338,1,106)

 .S D0=INDA S Y(1)=$S($D(^DPT(D0,.33)):^(.33),1:"") S X=$P(Y(1),U,8),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=106,X=$E(Y(2),Y(3),X)

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

 .;SET NK15 = INSGX\^INTHL7FT(8,3)\\250\#.339

 .S D0=INDA S Y(1)=$S($D(^DPT(D0,.33)):^(.33),1:"") S X=$P(Y(1),U,9)

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

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

 .;SET NK17.1 = INSGX\^INTHL7F(14544,5)\\60\"OUTPUT TRANSFORM"

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

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

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

 .;SET NK17.2 = INSGX\^INTHL7F(14545,5)\\60\"OUTPUT TRANSFORM"

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

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

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

 .;SET NK17.3 = INSGX\^INTHL7FT(1,3)\\5\"99IHS"

 .S D0=INDA S X="99IHS"

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

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

 .D:'INVS MC^INHS

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

 .D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP) S L1=$G(@INV@("NK12")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,3,L1,.CP) S L1=$G(@INV@("NK13.1"))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 .S L1=L1_$G(@INV@("NK17.3")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,8,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

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

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

 .;SET NK11 = INSGX\^INTHL7FT(11,3)\\4\"NK1"

 .S D0=INDA S X="NK1"

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

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

 .;SET NK13.1 = INSGX\^INTHL7F(14548,5)\\60\"OUTPUT TRANSFORM"

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

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

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

 .;SET NK13.2 = INSGX\^INTHL7F(14549,5)\\60\"OUTPUT TRANSFORM"

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

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

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

 .;SET NK13.3 = INSGX\^INTHL7FT(1,3)\\5\"99IHS"

 .S D0=INDA S X="99IHS"

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

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

 .;SET NK17.1 = INSGX\^INTHL7F(14538,5)\\2\"OUTPUT TRANSFORM"

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

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

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

 .;SET NK17.2 = INSGX\^INTHL7FT(1,3)\\4\"SELF"

 .S D0=INDA S X="SELF"

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

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

 .;SET NK17.3 = INSGX\^INTHL7FT(1,3)\\5\"99IHS"

 .S D0=INDA S X="99IHS"

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

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

 .;SET NK113 = INSGX\^INTHL7F(14539,5)\\250\"OUTPUT TRANSFORM"

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

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

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

 .D:'INVS MC^INHS

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

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

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

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

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

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

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

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

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

 .S L1=L1_$G(@INV@("NK17.3")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,8,L1,.CP) S L1=$G(@INV@("NK113")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 .D SETPIECE^INHU(.LINE,DELIM,14,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

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

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

 .;SET NK11 = INSGX\^INTHL7FT(11,3)\\4\"NK1"

 .S D0=INDA S X="NK1"

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

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

 .;SET NK13.1 = INSGX\^INTHL7F(14551,5)\\60\"OUTPUT TRANSFORM"

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

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

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

 .;SET NK13.2 = INSGX\^INTHL7F(14552,5)\\60\"OUTPUT TRANSFORM"

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

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

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

 .;SET NK13.3 = INSGX\^INTHL7FT(1,3)\\5\"99IHS"

 .S D0=INDA S X="99IHS"

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

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

 .;SET NK17.1 = INSGX\^INTHL7F(14555,5)\\60\"OUTPUT TRANSFORM"

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

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

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

 .;SET NK17.2 = INSGX\^INTHL7F(14556,5)\\60\"OUTPUT TRANSFORM"

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

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

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

 .;SET NK17.3 = INSGX\^INTHL7FT(1,3)\\5\"99IHS"

 .S D0=INDA S X="99IHS"

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

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

 .;SET NK113 = INSGX\^INTHL7F(14557,5)\\250\"OUTPUT TRANSFORM"

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

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

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

 .D:'INVS MC^INHS

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

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

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

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

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

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

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

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

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

 .S L1=L1_$G(@INV@("NK17.3")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,8,L1,.CP) S L1=$G(@INV@("NK113")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 .D SETPIECE^INHU(.LINE,DELIM,14,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(9000010)) S INI=0 F  S INI=$O(^AUPNVSIT("AC",INDA,INI)) Q:'INI  S INDA(9000010,INI)=""

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

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

 .;SET PV11 = INSGX\^INTHL7F(14573,5)\\4\"OUTPUT TRANSFORM"

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

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

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

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

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

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

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

 .;SET PV17 = INSGX\^INTHL7F(14575,5)\\250\"OUTPUT TRANSFORM"

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

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

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

 .;SET PV19 = INSGX\^INTHL7F(14576,5)\\250\"OUTPUT TRANSFORM"

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

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

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

 .;SET PV110 = #.07

 .S D0=INDA S Y(2)=$C(59)_$P($G(^DD(9000010,.07,0)),U,3),Y(1)=$S($D(^AUPNVSIT(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_":",2),$C(59))

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

 .;SET PV119 = INSGX\^INTHL7F(15154,5)\\250\"OUTPUT TRANSFORM"

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

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

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

 .;SET PV144 = INSGX\^INTHL7FT(6,3)\\26\#.01

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

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

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

 .D:'INVS MC^INHS

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

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

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

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

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

 .S L1=$G(@INV@("PV144")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,45,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

9 G EN^IS00029B

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

 +1       ;Part 2

 +2       ;Copyright 2018 SAIC

EN         SET L1=$GET(@INV@("PID17"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,18,L1,.CP)

           SET L1=$GET(@INV@("PID19"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

 +1        DO SETPIECE^INHU(.LINE,DELIM,20,L1,.CP)

           SET L1=$GET(@INV@("PID22"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,23,L1,.CP)

           SET L1=$GET(@INV@("PID24"))

 +2        IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,25,L1,.CP)

 +3        SET LCT=LCT+1

           SET ^UTILITY("INH",$JOB,LCT)=LINE

           IF $DATA(LINE)>9

               MERGE ^UTILITY("INH",$JOB,LCT)=LINE

 +4        QUIT 

A1         SET INDA=INDA0

           KILL INDA0

 +1        SET INSETID=0

 +2        SET INDA0=INDA

           SET INI(1)=0

           FOR 

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

               IF 'INI(1)

                   QUIT 

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

               Begin DoDot:1

 +3                IF '$DATA(^DPT(INDA,0))

                       QUIT 

 +4                DO ^BYIMNK1

 +5       ;SET NK11 = INSGX\^INTHL7FT(1,3)\\100\@NK11

 +6                SET D0=INDA

                   SET X=$GET(INA("NK11",INI(1)))

 +7                SET X1="^INTHL7FT(1,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

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

 +8                SET @INV@("NK11")=X

                   KILL DXS,D0

 +9       ;SET NK12 = INSGX\^INTHL7FT(1,3)\\250\@NK12

 +10               SET D0=INDA

                   SET X=$GET(INA("NK12",INI(1)))

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

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

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

 +12               SET @INV@("NK12")=X

                   KILL DXS,D0

 +13      ;SET NK13 = INSGX\^INTHL7FT(1,3)\\250\@NK13

 +14               SET D0=INDA

                   SET X=$GET(INA("NK13",INI(1)))

 +15               SET X1="^INTHL7FT(1,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

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

 +16               SET @INV@("NK13")=X

                   KILL DXS,D0

 +17      ;SET NK14 = INSGX\^INTHL7FT(1,3)\\250\@NK14

 +18               SET D0=INDA

                   SET X=$GET(INA("NK14",INI(1)))

 +19               SET X1="^INTHL7FT(1,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

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

 +20               SET @INV@("NK14")=X

                   KILL DXS,D0

 +21      ;SET NK15 = INSGX\^INTHL7FT(1,3)\\50\@NK15

 +22               SET D0=INDA

                   SET X=$GET(INA("NK15",INI(1)))

 +23               SET X1="^INTHL7FT(1,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

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

 +24               SET @INV@("NK15")=X

                   KILL DXS,D0

 +25      ;SET NK17 = INSGX\^INTHL7FT(1,3)\\99\@NK17

 +26               SET D0=INDA

                   SET X=$GET(INA("NK17",INI(1)))

 +27               SET X1="^INTHL7FT(1,3)"

                   IF $LENGTH($GET(@X1))

                       XECUTE $GET(@X1)

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

 +28               SET @INV@("NK17")=X

                   KILL DXS,D0

 +29               IF 'INVS

                       DO MC^INHS

 +30               KILL LINE

                   SET LINE=""

                   SET CP=0

                   SET L1="NK1"

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""

                   DO SETPIECE^INHU(.LINE,DELIM,1,L1,.CP)

                   SET L1=$GET(@INV@("NK11"))

                   IF $TRANSLATE(L1,$GET(SUBDELIM))=""

                       SET L1=""