IS00029E ;Compiled from script 'Generated: HL IHS IZV04 V03VXR OUT-O' on FEB 28, 2013
;Part 6
;Copyright 2013 SAIC
EN 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
J1 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)\\3\@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,3)
.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
.;SET RXA10 = INSGX\^INTHL7F(17035,5)\\50\@RXA10
.S D0=INDA S X=$G(INA("RXA10",INI(1)))
.S X1="^INTHL7F(17035,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,50)
.S @INV@("RXA10")=X K DXS,D0
.;SET RXA11 = INSGX\^INTHL7FT(1,3)\\250\@RXA11
.S D0=INDA S X=$G(INA("RXA11",INI(1)))
.S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,250)
.S @INV@("RXA11")=X K DXS,D0
.;SET RXA15 = INSGX\^INTHL7FT(1,3)\\20\@RXA15
.S D0=INDA S X=$G(INA("RXA15",INI(1)))
.S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,20)
.S @INV@("RXA15")=X K DXS,D0
.;SET RXA16 = INSGX\^INTHL7FT(1,3)\\8\@RXA16
.S D0=INDA S X=$G(INA("RXA16",INI(1)))
.S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,8)
.S @INV@("RXA16")=X K DXS,D0
.;SET RXA17 = INSGX\^INTHL7FT(1,3)\\250\@RXA17
.S D0=INDA S X=$G(INA("RXA17",INI(1)))
.S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,250)
.S @INV@("RXA17")=X K DXS,D0
.;SET RXA20 = INSGX\^INTHL7FT(1,3)\\10\"CP"
.S D0=INDA S X="CP"
.S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,10)
9 .D EN^IS00029F
G L1^IS00029F
IS00029E ;Compiled from script 'Generated: HL IHS IZV04 V03VXR OUT-O' on FEB 28, 2013
+1 ;Part 6
+2 ;Copyright 2013 SAIC
EN SET @INV@("IN113")=X
KILL DXS,D0
+1 ;SET IN116 = INSGX\^INTHL7FT(35,3)\\250\#.01
+2 SET D0=INDA
SET Y(1)=$SELECT($DATA(^AUPN3PPH(D0,0)):^(0),1:"")
SET X=$PIECE(Y(1),U,1)
+3 SET X1="^INTHL7FT(35,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,250)
+4 SET @INV@("IN116")=X
KILL DXS,D0
+5 ;SET IN118 = INSGX\^INTHL7FT(6,3)\\26\#.19
+6 SET D0=INDA
SET Y(1)=$SELECT($DATA(^AUPN3PPH(D0,0)):^(0),1:"")
SET X=$PIECE(Y(1),U,19)
+7 SET X1="^INTHL7FT(6,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,26)
+8 SET @INV@("IN118")=X
KILL DXS,D0
+9 ;SET IN119.1 = $E(#.09,1,106)
+10 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)
+11 SET @INV@("IN119.1")=X
KILL DXS,D0
+12 ;SET IN119.2 = ""
+13 SET D0=INDA
SET X=""
+14 SET @INV@("IN119.2")=X
KILL DXS,D0
+15 ;SET IN119.3 = $E(#.11,1,106)
+16 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)
SET X=106
SET X=$EXTRACT(Y(2),Y(3),X)
+17 SET @INV@("IN119.3")=X
KILL DXS,D0
+18 ;SET IN119.4 = INSGX\^INTHL7F(14732,5)\\106\#.12
+19 SET D0=INDA
SET Y(1)=$SELECT($DATA(^AUPN3PPH(D0,0)):^(0),1:"")
SET X=$PIECE($GET(^DIC(5,+$PIECE(Y(1),U,12),0)),U)
+20 SET X1="^INTHL7F(14732,5)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,106)
+21 SET @INV@("IN119.4")=X
KILL DXS,D0
+22 ;SET IN119.5 = $E(#.13,1,106)
+23 SET D0=INDA
SET Y(1)=$SELECT($DATA(^AUPN3PPH(D0,0)):^(0),1:"")
SET X=$PIECE(Y(1),U,13)
SET Y(2)=$GET(X)
SET X=1
SET Y(3)=$GET(X)
SET X=106
SET X=$EXTRACT(Y(2),Y(3),X)
+24 SET @INV@("IN119.5")=X
KILL DXS,D0
+25 ;SET IN143 = #.08
+26 SET D0=INDA
SET Y(2)=$CHAR(59)_$PIECE($GET(^DD(9000003.1,.08,0)),U,3)
SET Y(1)=$SELECT($DATA(^AUPN3PPH(D0,0)):^(0),1:"")
SET X=$PIECE($PIECE(Y(2),$CHAR(59)_$PIECE(Y(1),U,8)_":",2),$CHAR(59))
+27 SET @INV@("IN143")=X
KILL DXS,D0
+28 ;SET IN147 = #.05
+29 SET D0=INDA
SET Y(1)=$SELECT($DATA(^AUPN3PPH(D0,0)):^(0),1:"")
SET X=$PIECE($GET(^AUTTPIC(+$PIECE(Y(1),U,5),0)),U)
+30 SET @INV@("IN147")=X
KILL DXS,D0
+31 ;SET IN149 = #.04
+32 SET D0=INDA
SET Y(1)=$SELECT($DATA(^AUPN3PPH(D0,0)):^(0),1:"")
SET X=$PIECE(Y(1),U,4)
+33 SET @INV@("IN149")=X
KILL DXS,D0
+34 IF 'INVS
DO MC^INHS
+35 KILL LINE
SET LINE=""
SET CP=0
SET L1="IN1"
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,1,L1,.CP)
SET L1=$GET(@INV@("IN11"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
+36 DO SETPIECE^INHU(.LINE,DELIM,2,L1,.CP)
SET L1=$GET(@INV@("IN14"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,5,L1,.CP)
SET L1=$GET(@INV@("IN18"))
+37 IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,9,L1,.CP)
SET L1=$GET(@INV@("IN112"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,13,L1,.CP)
+38 SET L1=$GET(@INV@("IN113"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,14,L1,.CP)
SET L1=$GET(@INV@("IN116"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
+39 DO SETPIECE^INHU(.LINE,DELIM,17,L1,.CP)
SET L1=$GET(@INV@("IN118"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,19,L1,.CP)
SET L1=$GET(@INV@("IN119.1"))
+40 SET D0=INDA
SET X="^"
SET L1=L1_X
+41 SET L1=L1_$GET(@INV@("IN119.2"))
+42 SET D0=INDA
SET X="^"
SET L1=L1_X
+43 SET L1=L1_$GET(@INV@("IN119.3"))
+44 SET D0=INDA
SET X="^"
SET L1=L1_X
+45 SET L1=L1_$GET(@INV@("IN119.4"))
+46 SET D0=INDA
SET X="^"
SET L1=L1_X
+47 SET L1=L1_$GET(@INV@("IN119.5"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,20,L1,.CP)
+48 SET D0=INDA
SET X=@INV@("IN143")
SET Y(1)=$GET(X)
SET X=1
SET Y(2)=$GET(X)
SET X=1
SET X=$EXTRACT(Y(1),Y(2),X)
SET L1=X
+49 IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,44,L1,.CP)
+50 SET D0=INDA
SET X=@INV@("IN147")
SET Y(1)=$GET(X)
SET X=1
SET Y(2)=$GET(X)
SET X=20
SET X=$EXTRACT(Y(1),Y(2),X)
SET L1=X
+51 IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,48,L1,.CP)
+52 SET D0=INDA
SET X=@INV@("IN149")
SET Y(1)=$GET(X)
SET X=1
SET Y(2)=$GET(X)
SET X=250
SET X=$EXTRACT(Y(1),Y(2),X)
SET L1=X
+53 IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,50,L1,.CP)
+54 SET LCT=LCT+1
SET ^UTILITY("INH",$JOB,LCT)=LINE
IF $DATA(LINE)>9
MERGE ^UTILITY("INH",$JOB,LCT)=LINE
+55 QUIT
J1 SET INDA=INDA0
KILL INDA0
+1 SET INSETID=0
+2 IF '$DATA(INDA(9000005))
SET INI=0
FOR
SET INI=$ORDER(^AUPNRRE("B",INDA,INI))
IF 'INI
QUIT
SET INDA(9000005,INI)=""
+3 SET INDA0=INDA
SET INI(1)=0
FOR
SET INI(1)=$ORDER(INDA(9000005,INI(1)))
IF 'INI(1)
QUIT
SET INDA=$SELECT(INDA(9000005,INI(1)):INDA(9000005,INI(1)),1:INI(1))
Begin DoDot:1
+4 IF '$DATA(^AUPNRRE(INDA,0))
QUIT
+5 QUIT
End DoDot:1
+6 SET INDA=INDA0
KILL INDA0
+7 SET INSETID=0
+8 IF '$DATA(INDA(9000010.11))
SET INI=0
FOR
SET INI=$ORDER(^AUPNVIMM("AC",INDA,INI))
IF 'INI
QUIT
SET INDA(9000010.11,INI)=""
+9 SET INDA0=INDA
SET INI(1)=0
FOR
SET INI(1)=$ORDER(INDA(9000010.11,INI(1)))
IF 'INI(1)
QUIT
SET INDA=$SELECT(INDA(9000010.11,INI(1)):INDA(9000010.11,INI(1)),1:INI(1))
Begin DoDot:1
+10 IF '$DATA(^AUPNVIMM(INDA,0))
QUIT
+11 ;SET ORC1 = INSGX\^INTHL7FT(1,3)\\2\"RE"
+12 SET D0=INDA
SET X="RE"
+13 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,2)
+14 SET @INV@("ORC1")=X
KILL DXS,D0
+15 ;SET ORC3 = INSGX\^INTHL7F(17024,5)\\22\"OUTPUT TRANSFORM"
+16 SET D0=INDA
SET X="OUTPUT TRANSFORM"
+17 SET X1="^INTHL7F(17024,5)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,22)
+18 SET @INV@("ORC3")=X
KILL DXS,D0
+19 IF 'INVS
DO MC^INHS
+20 KILL LINE
SET LINE=""
SET CP=0
SET L1="ORC"
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,1,L1,.CP)
SET L1=$GET(@INV@("ORC1"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
+21 DO SETPIECE^INHU(.LINE,DELIM,2,L1,.CP)
SET L1=$GET(@INV@("ORC3"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,4,L1,.CP)
+22 SET LCT=LCT+1
SET ^UTILITY("INH",$JOB,LCT)=LINE
IF $DATA(LINE)>9
MERGE ^UTILITY("INH",$JOB,LCT)=LINE
+23 SET INSETID=0
+24 ;SET RXA1 = INSGX\^INTHL7FT(3,3)\\4\"0"
+25 SET D0=INDA
SET X="0"
+26 SET X1="^INTHL7FT(3,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,4)
+27 SET @INV@("RXA1")=X
KILL DXS,D0
+28 ;SET RXA2 = INSGX\^INTHL7FT(3,3)\\4\@RXA2
+29 SET D0=INDA
SET X=$GET(INA("RXA2",INI(1)))
+30 SET X1="^INTHL7FT(3,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,4)
+31 SET @INV@("RXA2")=X
KILL DXS,D0
+32 ;SET RXA3 = INSGX\^INTHL7FT(1,3)\\26\@RXA3
+33 SET D0=INDA
SET X=$GET(INA("RXA3",INI(1)))
+34 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,26)
+35 SET @INV@("RXA3")=X
KILL DXS,D0
+36 ;SET RXA4 = INSGX\^INTHL7FT(1,3)\\26\@RXA4
+37 SET D0=INDA
SET X=$GET(INA("RXA4",INI(1)))
+38 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,26)
+39 SET @INV@("RXA4")=X
KILL DXS,D0
+40 ;SET RXA5 = INSGX\^INTHL7FT(1,3)\\250\@RXA5
+41 SET D0=INDA
SET X=$GET(INA("RXA5",INI(1)))
+42 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,250)
+43 SET @INV@("RXA5")=X
KILL DXS,D0
+44 ;SET RXA6 = INSGX\^INTHL7FT(1,3)\\3\@RXA6
+45 SET D0=INDA
SET X=$GET(INA("RXA6",INI(1)))
+46 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,3)
+47 SET @INV@("RXA6")=X
KILL DXS,D0
+48 ;SET RXA7 = INSGX\^INTHL7FT(1,3)\\20\@RXA7
+49 SET D0=INDA
SET X=$GET(INA("RXA7",INI(1)))
+50 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,20)
+51 SET @INV@("RXA7")=X
KILL DXS,D0
+52 ;SET RXA9 = INSGX\^INTHL7FT(1,3)\\100\@RXA9
+53 SET D0=INDA
SET X=$GET(INA("RXA9",INI(1)))
+54 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,100)
+55 SET @INV@("RXA9")=X
KILL DXS,D0
+56 ;SET RXA10 = INSGX\^INTHL7F(17035,5)\\50\@RXA10
+57 SET D0=INDA
SET X=$GET(INA("RXA10",INI(1)))
+58 SET X1="^INTHL7F(17035,5)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,50)
+59 SET @INV@("RXA10")=X
KILL DXS,D0
+60 ;SET RXA11 = INSGX\^INTHL7FT(1,3)\\250\@RXA11
+61 SET D0=INDA
SET X=$GET(INA("RXA11",INI(1)))
+62 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,250)
+63 SET @INV@("RXA11")=X
KILL DXS,D0
+64 ;SET RXA15 = INSGX\^INTHL7FT(1,3)\\20\@RXA15
+65 SET D0=INDA
SET X=$GET(INA("RXA15",INI(1)))
+66 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,20)
+67 SET @INV@("RXA15")=X
KILL DXS,D0
+68 ;SET RXA16 = INSGX\^INTHL7FT(1,3)\\8\@RXA16
+69 SET D0=INDA
SET X=$GET(INA("RXA16",INI(1)))
+70 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,8)
+71 SET @INV@("RXA16")=X
KILL DXS,D0
+72 ;SET RXA17 = INSGX\^INTHL7FT(1,3)\\250\@RXA17
+73 SET D0=INDA
SET X=$GET(INA("RXA17",INI(1)))
+74 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,250)
+75 SET @INV@("RXA17")=X
KILL DXS,D0
+76 ;SET RXA20 = INSGX\^INTHL7FT(1,3)\\10\"CP"
+77 SET D0=INDA
SET X="CP"
+78 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,10)
9 DO EN^IS00029F
End DoDot:1
+1 GOTO L1^IS00029F
