IS00004G ;Compiled from script 'Generated: X1 IHS 276-O' on DEC 09, 2002
;Part 8
;Copyright 2002 SAIC
EN S L1=$G(@INV@("NM17")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,8,L1,.CP) S L1=$G(@INV@("NM18")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,9,L1,.CP)
S L1=$G(@INV@("NM19")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,10,L1,.CP)
D LINE^INHUT11(.LINE,DELIM,LCT)
I $L(LINE)'=0 S LCT=LCT+1,^UTILITY("INH",$J,LCT)=LINE I $D(LINE)>9 M ^UTILITY("INH",$J,LCT)=LINE
SET INSETID=0
;SET TRN1 = INSGX\^INTHL7FT(1,3)\\999\@2762200DTRN1
S D0=INDA S X=$G(INA("2762200DTRN1"))
S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
S @INV@("TRN1")=X K DXS,D0
;SET TRN2 = INSGX\^INTHL7FT(1,3)\\999\@2762200DTRN2
S D0=INDA S X=$G(INA("2762200DTRN2"))
S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
S @INV@("TRN2")=X K DXS,D0
D:'INVS MC^INHS
K LINE S LINE="",CP=0 S L1="TRN" S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,1,L1,.CP) S L1=$G(@INV@("TRN1")) S:$TR(L1,$G(SUBDELIM))="" L1=""
D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP) S L1=$G(@INV@("TRN2")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,3,L1,.CP)
D LINE^INHUT11(.LINE,DELIM,LCT)
I $L(LINE)'=0 S LCT=LCT+1,^UTILITY("INH",$J,LCT)=LINE I $D(LINE)>9 M ^UTILITY("INH",$J,LCT)=LINE
SET INSETID=0
;SET REF1 = INSGX\^INTHL7FT(1,3)\\999\@2762200DREFA1
S D0=INDA S X=$G(INA("2762200DREFA1"))
S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
S @INV@("REF1")=X K DXS,D0
;SET REF2 = INSGX\^INTHL7FT(1,3)\\999\@2762200DREFA2
S D0=INDA S X=$G(INA("2762200DREFA2"))
S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
S @INV@("REF2")=X K DXS,D0
D:'INVS MC^INHS
K LINE S LINE="",CP=0 S L1="REF" S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,1,L1,.CP) S L1=$G(@INV@("REF1")) S:$TR(L1,$G(SUBDELIM))="" L1=""
D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP) S L1=$G(@INV@("REF2")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,3,L1,.CP)
D LINE^INHUT11(.LINE,DELIM,LCT)
I $L(LINE)'=0 S LCT=LCT+1,^UTILITY("INH",$J,LCT)=LINE I $D(LINE)>9 M ^UTILITY("INH",$J,LCT)=LINE
SET INSETID=0
;SET REF1 = INSGX\^INTHL7FT(1,3)\\999\@2762200DREFB1
S D0=INDA S X=$G(INA("2762200DREFB1"))
S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
S @INV@("REF1")=X K DXS,D0
;SET REF2 = INSGX\^INTHL7FT(1,3)\\999\@2762200DREFB2
S D0=INDA S X=$G(INA("2762200DREFB2"))
S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
S @INV@("REF2")=X K DXS,D0
D:'INVS MC^INHS
K LINE S LINE="",CP=0 S L1="REF" S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,1,L1,.CP) S L1=$G(@INV@("REF1")) S:$TR(L1,$G(SUBDELIM))="" L1=""
D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP) S L1=$G(@INV@("REF2")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,3,L1,.CP)
D LINE^INHUT11(.LINE,DELIM,LCT)
I $L(LINE)'=0 S LCT=LCT+1,^UTILITY("INH",$J,LCT)=LINE I $D(LINE)>9 M ^UTILITY("INH",$J,LCT)=LINE
SET INSETID=0
;SET REF1 = INSGX\^INTHL7FT(1,3)\\999\@2762200DREFC1
S D0=INDA S X=$G(INA("2762200DREFC1"))
S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
S @INV@("REF1")=X K DXS,D0
;SET REF2 = INSGX\^INTHL7FT(1,3)\\999\@2762200DREFC2
S D0=INDA S X=$G(INA("2762200DREFC2"))
S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
S @INV@("REF2")=X K DXS,D0
D:'INVS MC^INHS
K LINE S LINE="",CP=0 S L1="REF" S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,1,L1,.CP) S L1=$G(@INV@("REF1")) S:$TR(L1,$G(SUBDELIM))="" L1=""
D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP) S L1=$G(@INV@("REF2")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,3,L1,.CP)
D LINE^INHUT11(.LINE,DELIM,LCT)
I $L(LINE)'=0 S LCT=LCT+1,^UTILITY("INH",$J,LCT)=LINE I $D(LINE)>9 M ^UTILITY("INH",$J,LCT)=LINE
SET INSETID=0
;SET AMT1 = INSGX\^INTHL7FT(1,3)\\999\@2762200DAMT1
S D0=INDA S X=$G(INA("2762200DAMT1"))
S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
S @INV@("AMT1")=X K DXS,D0
;SET AMT2 = INSGX\^INTHL7FT(1,3)\\999\@2762200DAMT2
S D0=INDA S X=$G(INA("2762200DAMT2"))
S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
S @INV@("AMT2")=X K DXS,D0
;SET AMT3 = INSGX\^INTHL7FT(1,3)\\999\@2762200DAMT3
S D0=INDA S X=$G(INA("2762200DAMT3"))
S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)
S @INV@("AMT3")=X K DXS,D0
D:'INVS MC^INHS
9 G EN^IS00004H
IS00004G ;Compiled from script 'Generated: X1 IHS 276-O' on DEC 09, 2002
+1 ;Part 8
+2 ;Copyright 2002 SAIC
EN SET L1=$GET(@INV@("NM17"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,8,L1,.CP)
SET L1=$GET(@INV@("NM18"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,9,L1,.CP)
+1 SET L1=$GET(@INV@("NM19"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,10,L1,.CP)
+2 DO LINE^INHUT11(.LINE,DELIM,LCT)
+3 IF $LENGTH(LINE)'=0
SET LCT=LCT+1
SET ^UTILITY("INH",$JOB,LCT)=LINE
IF $DATA(LINE)>9
MERGE ^UTILITY("INH",$JOB,LCT)=LINE
+4 SET INSETID=0
+5 ;SET TRN1 = INSGX\^INTHL7FT(1,3)\\999\@2762200DTRN1
+6 SET D0=INDA
SET X=$GET(INA("2762200DTRN1"))
+7 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,999)
+8 SET @INV@("TRN1")=X
KILL DXS,D0
+9 ;SET TRN2 = INSGX\^INTHL7FT(1,3)\\999\@2762200DTRN2
+10 SET D0=INDA
SET X=$GET(INA("2762200DTRN2"))
+11 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,999)
+12 SET @INV@("TRN2")=X
KILL DXS,D0
+13 IF 'INVS
DO MC^INHS
+14 KILL LINE
SET LINE=""
SET CP=0
SET L1="TRN"
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,1,L1,.CP)
SET L1=$GET(@INV@("TRN1"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
+15 DO SETPIECE^INHU(.LINE,DELIM,2,L1,.CP)
SET L1=$GET(@INV@("TRN2"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,3,L1,.CP)
+16 DO LINE^INHUT11(.LINE,DELIM,LCT)
+17 IF $LENGTH(LINE)'=0
SET LCT=LCT+1
SET ^UTILITY("INH",$JOB,LCT)=LINE
IF $DATA(LINE)>9
MERGE ^UTILITY("INH",$JOB,LCT)=LINE
+18 SET INSETID=0
+19 ;SET REF1 = INSGX\^INTHL7FT(1,3)\\999\@2762200DREFA1
+20 SET D0=INDA
SET X=$GET(INA("2762200DREFA1"))
+21 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,999)
+22 SET @INV@("REF1")=X
KILL DXS,D0
+23 ;SET REF2 = INSGX\^INTHL7FT(1,3)\\999\@2762200DREFA2
+24 SET D0=INDA
SET X=$GET(INA("2762200DREFA2"))
+25 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,999)
+26 SET @INV@("REF2")=X
KILL DXS,D0
+27 IF 'INVS
DO MC^INHS
+28 KILL LINE
SET LINE=""
SET CP=0
SET L1="REF"
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,1,L1,.CP)
SET L1=$GET(@INV@("REF1"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
+29 DO SETPIECE^INHU(.LINE,DELIM,2,L1,.CP)
SET L1=$GET(@INV@("REF2"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,3,L1,.CP)
+30 DO LINE^INHUT11(.LINE,DELIM,LCT)
+31 IF $LENGTH(LINE)'=0
SET LCT=LCT+1
SET ^UTILITY("INH",$JOB,LCT)=LINE
IF $DATA(LINE)>9
MERGE ^UTILITY("INH",$JOB,LCT)=LINE
+32 SET INSETID=0
+33 ;SET REF1 = INSGX\^INTHL7FT(1,3)\\999\@2762200DREFB1
+34 SET D0=INDA
SET X=$GET(INA("2762200DREFB1"))
+35 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,999)
+36 SET @INV@("REF1")=X
KILL DXS,D0
+37 ;SET REF2 = INSGX\^INTHL7FT(1,3)\\999\@2762200DREFB2
+38 SET D0=INDA
SET X=$GET(INA("2762200DREFB2"))
+39 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,999)
+40 SET @INV@("REF2")=X
KILL DXS,D0
+41 IF 'INVS
DO MC^INHS
+42 KILL LINE
SET LINE=""
SET CP=0
SET L1="REF"
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,1,L1,.CP)
SET L1=$GET(@INV@("REF1"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
+43 DO SETPIECE^INHU(.LINE,DELIM,2,L1,.CP)
SET L1=$GET(@INV@("REF2"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,3,L1,.CP)
+44 DO LINE^INHUT11(.LINE,DELIM,LCT)
+45 IF $LENGTH(LINE)'=0
SET LCT=LCT+1
SET ^UTILITY("INH",$JOB,LCT)=LINE
IF $DATA(LINE)>9
MERGE ^UTILITY("INH",$JOB,LCT)=LINE
+46 SET INSETID=0
+47 ;SET REF1 = INSGX\^INTHL7FT(1,3)\\999\@2762200DREFC1
+48 SET D0=INDA
SET X=$GET(INA("2762200DREFC1"))
+49 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,999)
+50 SET @INV@("REF1")=X
KILL DXS,D0
+51 ;SET REF2 = INSGX\^INTHL7FT(1,3)\\999\@2762200DREFC2
+52 SET D0=INDA
SET X=$GET(INA("2762200DREFC2"))
+53 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,999)
+54 SET @INV@("REF2")=X
KILL DXS,D0
+55 IF 'INVS
DO MC^INHS
+56 KILL LINE
SET LINE=""
SET CP=0
SET L1="REF"
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,1,L1,.CP)
SET L1=$GET(@INV@("REF1"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
+57 DO SETPIECE^INHU(.LINE,DELIM,2,L1,.CP)
SET L1=$GET(@INV@("REF2"))
IF $TRANSLATE(L1,$GET(SUBDELIM))=""
SET L1=""
DO SETPIECE^INHU(.LINE,DELIM,3,L1,.CP)
+58 DO LINE^INHUT11(.LINE,DELIM,LCT)
+59 IF $LENGTH(LINE)'=0
SET LCT=LCT+1
SET ^UTILITY("INH",$JOB,LCT)=LINE
IF $DATA(LINE)>9
MERGE ^UTILITY("INH",$JOB,LCT)=LINE
+60 SET INSETID=0
+61 ;SET AMT1 = INSGX\^INTHL7FT(1,3)\\999\@2762200DAMT1
+62 SET D0=INDA
SET X=$GET(INA("2762200DAMT1"))
+63 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,999)
+64 SET @INV@("AMT1")=X
KILL DXS,D0
+65 ;SET AMT2 = INSGX\^INTHL7FT(1,3)\\999\@2762200DAMT2
+66 SET D0=INDA
SET X=$GET(INA("2762200DAMT2"))
+67 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,999)
+68 SET @INV@("AMT2")=X
KILL DXS,D0
+69 ;SET AMT3 = INSGX\^INTHL7FT(1,3)\\999\@2762200DAMT3
+70 SET D0=INDA
SET X=$GET(INA("2762200DAMT3"))
+71 SET X1="^INTHL7FT(1,3)"
IF $LENGTH($GET(@X1))
XECUTE $GET(@X1)
SET X=$EXTRACT(X,1,999)
+72 SET @INV@("AMT3")=X
KILL DXS,D0
+73 IF 'INVS
DO MC^INHS
9 GOTO EN^IS00004H
