Routine: IS00007C

IS00007C ;Compiled from script 'Generated: HL IHS DW1 A08-O' on SEP 08, 2008

 ;Part 4

 ;Copyright 2008 SAIC

EN S D0=INDA S X=""

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

 ;SET PV114 = ""

 S D0=INDA S X=""

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

 ;SET PV115 = ""

 S D0=INDA S X=""

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

 ;SET PV116 = ""

 S D0=INDA S X=""

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

 ;SET PV117 = ""

 S D0=INDA S X=""

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

 ;SET PV118 = ""

 S D0=INDA S X=""

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

 ;SET PV119 = INSGX\^INTHL7F(16405,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16405,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET PV120 = ""

 S D0=INDA S X=""

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

 ;SET PV121 = ""

 S D0=INDA S X=""

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

 ;SET PV122 = ""

 S D0=INDA S X=""

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

 ;SET PV123 = ""

 S D0=INDA S X=""

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

 ;SET PV124 = ""

 S D0=INDA S X=""

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

 ;SET PV125 = ""

 S D0=INDA S X=""

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

 ;SET PV126 = ""

 S D0=INDA S X=""

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

 ;SET PV127 = ""

 S D0=INDA S X=""

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

 ;SET PV128 = ""

 S D0=INDA S X=""

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

 ;SET PV129 = ""

 S D0=INDA S X=""

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

 ;SET PV130 = ""

 S D0=INDA S X=""

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

 ;SET PV131 = ""

 S D0=INDA S X=""

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

 ;SET PV132 = ""

 S D0=INDA S X=""

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

 ;SET PV133 = ""

 S D0=INDA S X=""

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

 ;SET PV134 = ""

 S D0=INDA S X=""

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

 ;SET PV135 = ""

 S D0=INDA S X=""

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

 ;SET PV136 = INSGX\^INTHL7F(16422,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16422,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET PV137 = INSGX\^INTHL7F(16423,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16423,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET PV138 = ""

 S D0=INDA S X=""

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

 ;SET PV139 = ""

 S D0=INDA S X=""

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

 ;SET PV140 = ""

 S D0=INDA S X=""

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

 ;SET PV141 = ""

 S D0=INDA S X=""

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

 ;SET PV142 = ""

 S D0=INDA S X=""

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

 ;SET PV143 = ""

 S D0=INDA S X=""

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

 ;SET PV144 = INSGX\^INTHL7F(16430,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16430,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET PV145 = INSGX\^INTHL7F(16431,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16431,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

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

 ;SET PV146 = ""

 S D0=INDA S X=""

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

 ;SET PV147 = ""

 S D0=INDA S X=""

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

 ;SET PV148 = ""

 S D0=INDA S X=""

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

 ;SET PV149 = ""

 S D0=INDA S X=""

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

 ;SET PV150 = ""

 S D0=INDA S X=""

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

 ;SET PV151 = ""

 S D0=INDA S X=""

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

 ;SET PV152 = ""

 S D0=INDA S X=""

 S @INV@("PV152")=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@("PV12")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,3,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@("PV14")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,5,L1,.CP)

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

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

 S L1=$G(@INV@("PV111")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,12,L1,.CP) S L1=$G(@INV@("PV112")) S:$TR(L1,$G(SUBDELIM))="" L1=""

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

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

 S L1=$G(@INV@("PV116")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,17,L1,.CP) S L1=$G(@INV@("PV117")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 D SETPIECE^INHU(.LINE,DELIM,18,L1,.CP) S L1=$G(@INV@("PV118")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,19,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@("PV120")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,21,L1,.CP)

 S L1=$G(@INV@("PV121")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,22,L1,.CP) S L1=$G(@INV@("PV122")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 D SETPIECE^INHU(.LINE,DELIM,23,L1,.CP) S L1=$G(@INV@("PV123")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,24,L1,.CP) S L1=$G(@INV@("PV124"))

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

 S L1=$G(@INV@("PV126")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,27,L1,.CP) S L1=$G(@INV@("PV127")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 D SETPIECE^INHU(.LINE,DELIM,28,L1,.CP) S L1=$G(@INV@("PV128")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,29,L1,.CP) S L1=$G(@INV@("PV129"))

 S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,30,L1,.CP) S L1=$G(@INV@("PV130")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,31,L1,.CP)

 S L1=$G(@INV@("PV131")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,32,L1,.CP) S L1=$G(@INV@("PV132")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 D SETPIECE^INHU(.LINE,DELIM,33,L1,.CP) S L1=$G(@INV@("PV133")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,34,L1,.CP) S L1=$G(@INV@("PV134"))

 S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,35,L1,.CP) S L1=$G(@INV@("PV135")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,36,L1,.CP)

 S L1=$G(@INV@("PV136")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,37,L1,.CP) S L1=$G(@INV@("PV137")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 D SETPIECE^INHU(.LINE,DELIM,38,L1,.CP) S L1=$G(@INV@("PV138")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,39,L1,.CP) S L1=$G(@INV@("PV139"))

 S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,40,L1,.CP) S L1=$G(@INV@("PV140")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,41,L1,.CP)

9 G EN^IS00007D

IS00007C  ;Compiled from script 'Generated: HL IHS DW1 A08-O' on SEP 08, 2008

 +1       ;Part 4

 +2       ;Copyright 2008 SAIC

EN         SET D0=INDA

           SET X=""

 +1        SET @INV@("PV113")=X

           KILL DXS,D0

 +2       ;SET PV114 = ""

 +3        SET D0=INDA

           SET X=""

 +4        SET @INV@("PV114")=X

           KILL DXS,D0

 +5       ;SET PV115 = ""

 +6        SET D0=INDA

           SET X=""

 +7        SET @INV@("PV115")=X

           KILL DXS,D0

 +8       ;SET PV116 = ""

 +9        SET D0=INDA

           SET X=""

 +10       SET @INV@("PV116")=X

           KILL DXS,D0

 +11      ;SET PV117 = ""

 +12       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +14      ;SET PV118 = ""

 +15       SET D0=INDA

           SET X=""

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

           KILL DXS,D0

 +17      ;SET PV119 = INSGX\^INTHL7F(16405,5)\\999\"OUTPUT TRANSFORM"

 +18       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +19       SET X1="^INTHL7F(16405,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

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

           KILL DXS,D0

 +21      ;SET PV120 = ""

 +22       SET D0=INDA

           SET X=""

 +23       SET @INV@("PV120")=X

           KILL DXS,D0

 +24      ;SET PV121 = ""

 +25       SET D0=INDA

           SET X=""

 +26       SET @INV@("PV121")=X

           KILL DXS,D0

 +27      ;SET PV122 = ""

 +28       SET D0=INDA

           SET X=""

 +29       SET @INV@("PV122")=X

           KILL DXS,D0

 +30      ;SET PV123 = ""

 +31       SET D0=INDA

           SET X=""

 +32       SET @INV@("PV123")=X

           KILL DXS,D0

 +33      ;SET PV124 = ""

 +34       SET D0=INDA

           SET X=""

 +35       SET @INV@("PV124")=X

           KILL DXS,D0

 +36      ;SET PV125 = ""

 +37       SET D0=INDA

           SET X=""

 +38       SET @INV@("PV125")=X

           KILL DXS,D0

 +39      ;SET PV126 = ""

 +40       SET D0=INDA

           SET X=""

 +41       SET @INV@("PV126")=X

           KILL DXS,D0

 +42      ;SET PV127 = ""

 +43       SET D0=INDA

           SET X=""

 +44       SET @INV@("PV127")=X

           KILL DXS,D0

 +45      ;SET PV128 = ""

 +46       SET D0=INDA

           SET X=""

 +47       SET @INV@("PV128")=X

           KILL DXS,D0

 +48      ;SET PV129 = ""

 +49       SET D0=INDA

           SET X=""

 +50       SET @INV@("PV129")=X

           KILL DXS,D0

 +51      ;SET PV130 = ""

 +52       SET D0=INDA

           SET X=""

 +53       SET @INV@("PV130")=X

           KILL DXS,D0

 +54      ;SET PV131 = ""

 +55       SET D0=INDA

           SET X=""

 +56       SET @INV@("PV131")=X

           KILL DXS,D0

 +57      ;SET PV132 = ""

 +58       SET D0=INDA

           SET X=""

 +59       SET @INV@("PV132")=X

           KILL DXS,D0

 +60      ;SET PV133 = ""

 +61       SET D0=INDA

           SET X=""

 +62       SET @INV@("PV133")=X

           KILL DXS,D0

 +63      ;SET PV134 = ""

 +64       SET D0=INDA

           SET X=""

 +65       SET @INV@("PV134")=X

           KILL DXS,D0

 +66      ;SET PV135 = ""

 +67       SET D0=INDA

           SET X=""

 +68       SET @INV@("PV135")=X

           KILL DXS,D0

 +69      ;SET PV136 = INSGX\^INTHL7F(16422,5)\\999\"OUTPUT TRANSFORM"

 +70       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +71       SET X1="^INTHL7F(16422,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +72       SET @INV@("PV136")=X

           KILL DXS,D0

 +73      ;SET PV137 = INSGX\^INTHL7F(16423,5)\\999\"OUTPUT TRANSFORM"

 +74       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +75       SET X1="^INTHL7F(16423,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +76       SET @INV@("PV137")=X

           KILL DXS,D0

 +77      ;SET PV138 = ""

 +78       SET D0=INDA

           SET X=""

 +79       SET @INV@("PV138")=X

           KILL DXS,D0

 +80      ;SET PV139 = ""

 +81       SET D0=INDA

           SET X=""

 +82       SET @INV@("PV139")=X

           KILL DXS,D0

 +83      ;SET PV140 = ""

 +84       SET D0=INDA

           SET X=""

 +85       SET @INV@("PV140")=X

           KILL DXS,D0

 +86      ;SET PV141 = ""

 +87       SET D0=INDA

           SET X=""

 +88       SET @INV@("PV141")=X

           KILL DXS,D0

 +89      ;SET PV142 = ""

 +90       SET D0=INDA

           SET X=""

 +91       SET @INV@("PV142")=X

           KILL DXS,D0

 +92      ;SET PV143 = ""

 +93       SET D0=INDA

           SET X=""

 +94       SET @INV@("PV143")=X

           KILL DXS,D0

 +95      ;SET PV144 = INSGX\^INTHL7F(16430,5)\\999\"OUTPUT TRANSFORM"

 +96       SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +97       SET X1="^INTHL7F(16430,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +98       SET @INV@("PV144")=X

           KILL DXS,D0

 +99      ;SET PV145 = INSGX\^INTHL7F(16431,5)\\999\"OUTPUT TRANSFORM"

 +100      SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +101      SET X1="^INTHL7F(16431,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +102      SET @INV@("PV145")=X

           KILL DXS,D0

 +103     ;SET PV146 = ""

 +104      SET D0=INDA

           SET X=""

 +105      SET @INV@("PV146")=X

           KILL DXS,D0

 +106     ;SET PV147 = ""

 +107      SET D0=INDA

           SET X=""

 +108      SET @INV@("PV147")=X

           KILL DXS,D0

 +109     ;SET PV148 = ""

 +110      SET D0=INDA

           SET X=""

 +111      SET @INV@("PV148")=X

           KILL DXS,D0

 +112     ;SET PV149 = ""

 +113      SET D0=INDA

           SET X=""

 +114      SET @INV@("PV149")=X

           KILL DXS,D0

 +115     ;SET PV150 = ""

 +116      SET D0=INDA

           SET X=""

 +117      SET @INV@("PV150")=X

           KILL DXS,D0

 +118     ;SET PV151 = ""

 +119      SET D0=INDA

           SET X=""

 +120      SET @INV@("PV151")=X

           KILL DXS,D0

 +121     ;SET PV152 = ""

 +122      SET D0=INDA

           SET X=""

 +123      SET @INV@("PV152")=X

           KILL DXS,D0

 +124      IF 'INVS

               DO MC^INHS

 +125      KILL LINE

           SET LINE=""

           SET CP=0

           SET L1="PV1"

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

               SET L1=""

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

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

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

               SET L1=""

 +126      DO SETPIECE^INHU(.LINE,DELIM,2,L1,.CP)

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +128      SET L1=$GET(@INV@("PV15"))

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

               SET L1=""

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

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

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

               SET L1=""

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

 +129      SET L1=$GET(@INV@("PV17"))

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

               SET L1=""

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

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

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

               SET L1=""

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

 +130      SET L1=$GET(@INV@("PV19"))

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

               SET L1=""

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

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

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

               SET L1=""

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

 +131      SET L1=$GET(@INV@("PV111"))

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

               SET L1=""

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

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

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

               SET L1=""

 +132      DO SETPIECE^INHU(.LINE,DELIM,13,L1,.CP)

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +134      SET L1=$GET(@INV@("PV116"))

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +137      SET L1=$GET(@INV@("PV121"))

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +140      SET L1=$GET(@INV@("PV126"))

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

               SET L1=""

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

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

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

               SET L1=""

 +141      DO SETPIECE^INHU(.LINE,DELIM,28,L1,.CP)

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +143      SET L1=$GET(@INV@("PV131"))

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

               SET L1=""

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

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

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

               SET L1=""

 +144      DO SETPIECE^INHU(.LINE,DELIM,33,L1,.CP)

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +146      SET L1=$GET(@INV@("PV136"))

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

               SET L1=""

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

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

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

               SET L1=""

 +147      DO SETPIECE^INHU(.LINE,DELIM,38,L1,.CP)

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

9          GOTO EN^IS00007D

IS00007C.m