IS00005(UIF,INOA,INODA) ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006
;Part 1
;Copyright 2006 SAIC
EN S X="ERROR^IS00005",@^%ZOSF("TRAP")
G START
ERROR ;
S X="",@^%ZOSF("TRAP") X ^INTHOS(1,3) D ERROR^INHS($$GETERR^%ZTOS)
Q 2
START ;Initialize variables
K FIELD,MDESC,INDA,DIPA S (INAUDIT,INLAYGO)=0
K INREQERR,INHERR,INHERCNT,INV D SETDT^UTDT S DUZ(0)="@",DUZ("AG")="^1",DTIME=1 S (LCT,GERR)=0,INMODE="I",INVS=$P(^INRHSITE(1,0),U,12),INV=$S(INVS<2:"INV",1:"^UTILITY(""INV"",$J)"),(MULT,INSTERR)=0
S INHLDUZ=$O(^VA(200,"B","GIS,USER",0)),DUZ=$S($G(INHLDUZ):INHLDUZ,1:.5)
S BHLMIEN="12420"
K INSETID
S INSMIN=$S($P($G(^INRHSITE(1,0)),U,14):$P(^(0),U,14),1:2500)
S (DELIM,INDELIM)=$$FIELD^INHUT(),(SUBDELIM,INSUBDEL)=$$COMP^INHUT(),INSUBCOM=$$SUBCOMP^INHUT()
;Entering DATA section.
S X=$$GL^INHOU(UIF,LCT),Y(1)=$G(X) S X=4,X=$E(Y(1),X) S DELIM=X K DXS
S X=$$GL^INHOU(UIF,LCT),Y(1)=$G(X) S X=5,X=$E(Y(1),X) S SUBDELIM=X K DXS S INDELIMS=DELIM_$P(Y(1),DELIM,2)
N INDEFSEG
S INDEFSEG("MSH",0)=0
S INDEFSEG("PID",0)=0
S INDEFSEG("ZP2",0)=0
S INDEFSEG("PV1",0)=0
S INDEFSEG("ZV1",0)=0
S INDEFSEG("ZHR",0)=0
S INDEFSEG("OBR",1)=1
S INDEFSEG("OBX",2)=1
;Start of GROUP
F S MATCH=0 D Q:'MATCH
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
.I 'MATCH,LINE?1"M"1"S"1"H".ANPC S DO=1,MATCH=1
.E S LCT=LCT-CNT,DO=0
.S:DO @("@INV@(""MSH1"")")=$E($G(LINE),4)
.S:DO @("@INV@(""MSH2"")")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""MSH3"")")=$$PIECE^INHU(.LINE,DELIM,3)
.S:DO @("@INV@(""MSH4"")")=$$PIECE^INHU(.LINE,DELIM,4)
.S:DO @("@INV@(""MSH5"")")=$$PIECE^INHU(.LINE,DELIM,5)
.S:DO @("@INV@(""MSH6"")")=$$PIECE^INHU(.LINE,DELIM,6)
.S:DO @("@INV@(""MSH7"")")=$$PIECE^INHU(.LINE,DELIM,7)
.S:DO @("@INV@(""MSH8"")")=$$PIECE^INHU(.LINE,DELIM,8)
.S:DO @("@INV@(""MSH9"")")=$$PIECE^INHU(.LINE,DELIM,9)
.S:DO @("@INV@(""MSH10"")")=$$PIECE^INHU(.LINE,DELIM,10)
.S:DO @("@INV@(""MSH11"")")=$$PIECE^INHU(.LINE,DELIM,11)
.S:DO @("@INV@(""MSH12"")")=$$PIECE^INHU(.LINE,DELIM,12)
.S:DO @("@INV@(""MSH13"")")=$$PIECE^INHU(.LINE,DELIM,13)
.S:DO @("@INV@(""MSH14"")")=$$PIECE^INHU(.LINE,DELIM,14)
.S:DO @("@INV@(""MSH15"")")=$$PIECE^INHU(.LINE,DELIM,15)
.S:DO @("@INV@(""MSH16"")")=$$PIECE^INHU(.LINE,DELIM,16)
.S:DO @("@INV@(""MSH17"")")=$$PIECE^INHU(.LINE,DELIM,17)
.Q:MATCH
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
.I 'MATCH,LINE?1"P"1"I"1"D".ANPC S DO=1,MATCH=1
.E S LCT=LCT-CNT,DO=0
.S:DO @("@INV@(""PID3"")")=$$PIECE^INHU(.LINE,DELIM,4)
.S:DO @("@INV@(""PID4"")")=$$PIECE^INHU(.LINE,DELIM,5)
.S:DO @("@INV@(""PID5"")")=$$PIECE^INHU(.LINE,DELIM,6)
.S:DO @("@INV@(""PID6"")")=$$PIECE^INHU(.LINE,DELIM,7)
.S:DO @("@INV@(""PID7"")")=$$PIECE^INHU(.LINE,DELIM,8)
.S:DO @("@INV@(""PID8"")")=$$PIECE^INHU(.LINE,DELIM,9)
.S:DO @("@INV@(""PID11"")")=$$PIECE^INHU(.LINE,DELIM,12)
.S:DO @("@INV@(""PID12"")")=$$PIECE^INHU(.LINE,DELIM,13)
.S:DO @("@INV@(""PID13"")")=$$PIECE^INHU(.LINE,DELIM,14)
.S:DO @("@INV@(""PID14"")")=$$PIECE^INHU(.LINE,DELIM,15)
.S:DO @("@INV@(""PID17"")")=$$PIECE^INHU(.LINE,DELIM,18)
.S:DO @("@INV@(""PID18"")")=$$PIECE^INHU(.LINE,DELIM,19)
.S:DO @("@INV@(""PID19"")")=$$PIECE^INHU(.LINE,DELIM,20)
.S:DO @("@INV@(""PID26"")")=$$PIECE^INHU(.LINE,DELIM,27)
.Q:MATCH
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
.I 'MATCH,LINE?1"Z"1"P"1"2".ANPC S DO=1,MATCH=1
.E S LCT=LCT-CNT,DO=0
.S:DO @("@INV@(""ZP21"")")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""ZP22"")")=$$PIECE^INHU(.LINE,DELIM,3)
.S:DO @("@INV@(""ZP23"")")=$$PIECE^INHU(.LINE,DELIM,4)
.S:DO @("@INV@(""ZP24"")")=$$PIECE^INHU(.LINE,DELIM,5)
.S:DO @("@INV@(""ZP25"")")=$$PIECE^INHU(.LINE,DELIM,6)
.S:DO @("@INV@(""ZP26"")")=$$PIECE^INHU(.LINE,DELIM,7)
.S:DO @("@INV@(""ZP27"")")=$$PIECE^INHU(.LINE,DELIM,8)
.S:DO @("@INV@(""ZP28"")")=$$PIECE^INHU(.LINE,DELIM,9)
.S:DO @("@INV@(""ZP29"")")=$$PIECE^INHU(.LINE,DELIM,10)
.S:DO @("@INV@(""ZP210"")")=$$PIECE^INHU(.LINE,DELIM,11)
.S:DO @("@INV@(""ZP211"")")=$$PIECE^INHU(.LINE,DELIM,12)
.S:DO @("@INV@(""ZP212"")")=$$PIECE^INHU(.LINE,DELIM,13)
.S:DO @("@INV@(""ZP213"")")=$$PIECE^INHU(.LINE,DELIM,14)
.S:DO @("@INV@(""ZP214"")")=$$PIECE^INHU(.LINE,DELIM,15)
.S:DO @("@INV@(""ZP215"")")=$$PIECE^INHU(.LINE,DELIM,16)
.S:DO @("@INV@(""ZP216"")")=$$PIECE^INHU(.LINE,DELIM,17)
.S:DO @("@INV@(""ZP217"")")=$$PIECE^INHU(.LINE,DELIM,18)
.S:DO @("@INV@(""ZP218"")")=$$PIECE^INHU(.LINE,DELIM,19)
.S:DO @("@INV@(""ZP219"")")=$$PIECE^INHU(.LINE,DELIM,20)
.S:DO @("@INV@(""ZP220"")")=$$PIECE^INHU(.LINE,DELIM,21)
.S:DO @("@INV@(""ZP221"")")=$$PIECE^INHU(.LINE,DELIM,22)
.S:DO @("@INV@(""ZP222"")")=$$PIECE^INHU(.LINE,DELIM,23)
.S:DO @("@INV@(""ZP223"")")=$$PIECE^INHU(.LINE,DELIM,24)
.S:DO @("@INV@(""ZP224"")")=$$PIECE^INHU(.LINE,DELIM,25)
.S:DO @("@INV@(""ZP225"")")=$$PIECE^INHU(.LINE,DELIM,26)
.S:DO @("@INV@(""ZP226"")")=$$PIECE^INHU(.LINE,DELIM,27)
.S:DO @("@INV@(""ZP227"")")=$$PIECE^INHU(.LINE,DELIM,28)
.S:DO @("@INV@(""ZP228"")")=$$PIECE^INHU(.LINE,DELIM,29)
.S:DO @("@INV@(""ZP229"")")=$$PIECE^INHU(.LINE,DELIM,30)
.S:DO @("@INV@(""ZP230"")")=$$PIECE^INHU(.LINE,DELIM,31)
.S:DO @("@INV@(""ZP231"")")=$$PIECE^INHU(.LINE,DELIM,32)
.S:DO @("@INV@(""ZP232"")")=$$PIECE^INHU(.LINE,DELIM,33)
.S:DO @("@INV@(""ZP233"")")=$$PIECE^INHU(.LINE,DELIM,34)
.Q:MATCH
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
.I 'MATCH,LINE?1"P"1"V"1"1".ANPC S DO=1,MATCH=1
.E S LCT=LCT-CNT,DO=0
.S:DO @("@INV@(""PV11"")")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""PV12"")")=$$PIECE^INHU(.LINE,DELIM,3)
.S:DO @("@INV@(""PV13"")")=$$PIECE^INHU(.LINE,DELIM,4)
.S:DO @("@INV@(""PV14"")")=$$PIECE^INHU(.LINE,DELIM,5)
.S:DO @("@INV@(""PV17"")")=$$PIECE^INHU(.LINE,DELIM,8)
.S:DO @("@INV@(""PV19"")")=$$PIECE^INHU(.LINE,DELIM,10)
.S:DO @("@INV@(""PV110"")")=$$PIECE^INHU(.LINE,DELIM,11)
.S:DO @("@INV@(""PV117"")")=$$PIECE^INHU(.LINE,DELIM,18)
.S:DO @("@INV@(""PV119"")")=$$PIECE^INHU(.LINE,DELIM,20)
.S:DO @("@INV@(""PV120"")")=$$PIECE^INHU(.LINE,DELIM,21)
.S:DO @("@INV@(""PV136"")")=$$PIECE^INHU(.LINE,DELIM,37)
.S:DO @("@INV@(""PV137"")")=$$PIECE^INHU(.LINE,DELIM,38)
.S:DO @("@INV@(""PV144"")")=$$PIECE^INHU(.LINE,DELIM,45)
.S:DO @("@INV@(""PV145"")")=$$PIECE^INHU(.LINE,DELIM,46)
.Q:MATCH
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
.I 'MATCH,LINE?1"Z"1"V"1"1".ANPC S DO=1,MATCH=1
.E S LCT=LCT-CNT,DO=0
.S:DO @("@INV@(""ZV11"")")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""ZV12"")")=$$PIECE^INHU(.LINE,DELIM,3)
.S:DO @("@INV@(""ZV13"")")=$$PIECE^INHU(.LINE,DELIM,4)
.S:DO @("@INV@(""ZV14"")")=$$PIECE^INHU(.LINE,DELIM,5)
.S:DO @("@INV@(""ZV15"")")=$$PIECE^INHU(.LINE,DELIM,6)
.S:DO @("@INV@(""ZV16"")")=$$PIECE^INHU(.LINE,DELIM,7)
.S:DO @("@INV@(""ZV17"")")=$$PIECE^INHU(.LINE,DELIM,8)
.S:DO @("@INV@(""ZV18"")")=$$PIECE^INHU(.LINE,DELIM,9)
.S:DO @("@INV@(""ZV19"")")=$$PIECE^INHU(.LINE,DELIM,10)
.S:DO @("@INV@(""ZV110"")")=$$PIECE^INHU(.LINE,DELIM,11)
.S:DO @("@INV@(""ZV111"")")=$$PIECE^INHU(.LINE,DELIM,12)
.S:DO @("@INV@(""ZV112"")")=$$PIECE^INHU(.LINE,DELIM,13)
.S:DO @("@INV@(""ZV113"")")=$$PIECE^INHU(.LINE,DELIM,14)
.S:DO @("@INV@(""ZV114"")")=$$PIECE^INHU(.LINE,DELIM,15)
.S:DO @("@INV@(""ZV115"")")=$$PIECE^INHU(.LINE,DELIM,16)
.S:DO @("@INV@(""ZV116"")")=$$PIECE^INHU(.LINE,DELIM,17)
.S:DO @("@INV@(""ZV117"")")=$$PIECE^INHU(.LINE,DELIM,18)
.S:DO @("@INV@(""ZV118"")")=$$PIECE^INHU(.LINE,DELIM,19)
9 .D EN^IS00005A
G A1^IS00005A
IS00005(UIF,INOA,INODA) ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006
+1 ;Part 1
+2 ;Copyright 2006 SAIC
EN SET X="ERROR^IS00005"
SET @^%ZOSF("TRAP")
+1 GOTO START
ERROR ;
+1 SET X=""
SET @^%ZOSF("TRAP")
XECUTE ^INTHOS(1,3)
DO ERROR^INHS($$GETERR^%ZTOS)
+2 QUIT 2
START ;Initialize variables
+1 KILL FIELD,MDESC,INDA,DIPA
SET (INAUDIT,INLAYGO)=0
+2 KILL INREQERR,INHERR,INHERCNT,INV
DO SETDT^UTDT
SET DUZ(0)="@"
SET DUZ("AG")="^1"
SET DTIME=1
SET (LCT,GERR)=0
SET INMODE="I"
SET INVS=$PIECE(^INRHSITE(1,0),U,12)
SET INV=$SELECT(INVS<2:"INV",1:"^UTILITY(""INV"",$J)")
SET (MULT,INSTERR)=0
+3 SET INHLDUZ=$ORDER(^VA(200,"B","GIS,USER",0))
SET DUZ=$SELECT($GET(INHLDUZ):INHLDUZ,1:.5)
+4 SET BHLMIEN="12420"
+5 KILL INSETID
+6 SET INSMIN=$SELECT($PIECE($GET(^INRHSITE(1,0)),U,14):$PIECE(^(0),U,14),1:2500)
+7 SET (DELIM,INDELIM)=$$FIELD^INHUT()
SET (SUBDELIM,INSUBDEL)=$$COMP^INHUT()
SET INSUBCOM=$$SUBCOMP^INHUT()
+8 ;Entering DATA section.
+9 SET X=$$GL^INHOU(UIF,LCT)
SET Y(1)=$GET(X)
SET X=4
SET X=$EXTRACT(Y(1),X)
SET DELIM=X
KILL DXS
+10 SET X=$$GL^INHOU(UIF,LCT)
SET Y(1)=$GET(X)
SET X=5
SET X=$EXTRACT(Y(1),X)
SET SUBDELIM=X
KILL DXS
SET INDELIMS=DELIM_$PIECE(Y(1),DELIM,2)
+11 NEW INDEFSEG
+12 SET INDEFSEG("MSH",0)=0
+13 SET INDEFSEG("PID",0)=0
+14 SET INDEFSEG("ZP2",0)=0
+15 SET INDEFSEG("PV1",0)=0
+16 SET INDEFSEG("ZV1",0)=0
+17 SET INDEFSEG("ZHR",0)=0
+18 SET INDEFSEG("OBR",1)=1
+19 SET INDEFSEG("OBX",2)=1
+20 ;Start of GROUP
+21 FOR
SET MATCH=0
Begin DoDot:1
+22 IF 'INVS
DO MC^INHS
+23 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+24 IF 'MATCH
IF LINE?1"M"1"S"1"H".ANPC
SET DO=1
SET MATCH=1
+25 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+26 IF DO
SET @("@INV@(""MSH1"")")=$EXTRACT($GET(LINE),4)
+27 IF DO
SET @("@INV@(""MSH2"")")=$$PIECE^INHU(.LINE,DELIM,2)
+28 IF DO
SET @("@INV@(""MSH3"")")=$$PIECE^INHU(.LINE,DELIM,3)
+29 IF DO
SET @("@INV@(""MSH4"")")=$$PIECE^INHU(.LINE,DELIM,4)
+30 IF DO
SET @("@INV@(""MSH5"")")=$$PIECE^INHU(.LINE,DELIM,5)
+31 IF DO
SET @("@INV@(""MSH6"")")=$$PIECE^INHU(.LINE,DELIM,6)
+32 IF DO
SET @("@INV@(""MSH7"")")=$$PIECE^INHU(.LINE,DELIM,7)
+33 IF DO
SET @("@INV@(""MSH8"")")=$$PIECE^INHU(.LINE,DELIM,8)
+34 IF DO
SET @("@INV@(""MSH9"")")=$$PIECE^INHU(.LINE,DELIM,9)
+35 IF DO
SET @("@INV@(""MSH10"")")=$$PIECE^INHU(.LINE,DELIM,10)
+36 IF DO
SET @("@INV@(""MSH11"")")=$$PIECE^INHU(.LINE,DELIM,11)
+37 IF DO
SET @("@INV@(""MSH12"")")=$$PIECE^INHU(.LINE,DELIM,12)
+38 IF DO
SET @("@INV@(""MSH13"")")=$$PIECE^INHU(.LINE,DELIM,13)
+39 IF DO
SET @("@INV@(""MSH14"")")=$$PIECE^INHU(.LINE,DELIM,14)
+40 IF DO
SET @("@INV@(""MSH15"")")=$$PIECE^INHU(.LINE,DELIM,15)
+41 IF DO
SET @("@INV@(""MSH16"")")=$$PIECE^INHU(.LINE,DELIM,16)
+42 IF DO
SET @("@INV@(""MSH17"")")=$$PIECE^INHU(.LINE,DELIM,17)
+43 IF MATCH
QUIT
+44 IF 'INVS
DO MC^INHS
+45 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+46 IF 'MATCH
IF LINE?1"P"1"I"1"D".ANPC
SET DO=1
SET MATCH=1
+47 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+48 IF DO
SET @("@INV@(""PID3"")")=$$PIECE^INHU(.LINE,DELIM,4)
+49 IF DO
SET @("@INV@(""PID4"")")=$$PIECE^INHU(.LINE,DELIM,5)
+50 IF DO
SET @("@INV@(""PID5"")")=$$PIECE^INHU(.LINE,DELIM,6)
+51 IF DO
SET @("@INV@(""PID6"")")=$$PIECE^INHU(.LINE,DELIM,7)
+52 IF DO
SET @("@INV@(""PID7"")")=$$PIECE^INHU(.LINE,DELIM,8)
+53 IF DO
SET @("@INV@(""PID8"")")=$$PIECE^INHU(.LINE,DELIM,9)
+54 IF DO
SET @("@INV@(""PID11"")")=$$PIECE^INHU(.LINE,DELIM,12)
+55 IF DO
SET @("@INV@(""PID12"")")=$$PIECE^INHU(.LINE,DELIM,13)
+56 IF DO
SET @("@INV@(""PID13"")")=$$PIECE^INHU(.LINE,DELIM,14)
+57 IF DO
SET @("@INV@(""PID14"")")=$$PIECE^INHU(.LINE,DELIM,15)
+58 IF DO
SET @("@INV@(""PID17"")")=$$PIECE^INHU(.LINE,DELIM,18)
+59 IF DO
SET @("@INV@(""PID18"")")=$$PIECE^INHU(.LINE,DELIM,19)
+60 IF DO
SET @("@INV@(""PID19"")")=$$PIECE^INHU(.LINE,DELIM,20)
+61 IF DO
SET @("@INV@(""PID26"")")=$$PIECE^INHU(.LINE,DELIM,27)
+62 IF MATCH
QUIT
+63 IF 'INVS
DO MC^INHS
+64 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+65 IF 'MATCH
IF LINE?1"Z"1"P"1"2".ANPC
SET DO=1
SET MATCH=1
+66 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+67 IF DO
SET @("@INV@(""ZP21"")")=$$PIECE^INHU(.LINE,DELIM,2)
+68 IF DO
SET @("@INV@(""ZP22"")")=$$PIECE^INHU(.LINE,DELIM,3)
+69 IF DO
SET @("@INV@(""ZP23"")")=$$PIECE^INHU(.LINE,DELIM,4)
+70 IF DO
SET @("@INV@(""ZP24"")")=$$PIECE^INHU(.LINE,DELIM,5)
+71 IF DO
SET @("@INV@(""ZP25"")")=$$PIECE^INHU(.LINE,DELIM,6)
+72 IF DO
SET @("@INV@(""ZP26"")")=$$PIECE^INHU(.LINE,DELIM,7)
+73 IF DO
SET @("@INV@(""ZP27"")")=$$PIECE^INHU(.LINE,DELIM,8)
+74 IF DO
SET @("@INV@(""ZP28"")")=$$PIECE^INHU(.LINE,DELIM,9)
+75 IF DO
SET @("@INV@(""ZP29"")")=$$PIECE^INHU(.LINE,DELIM,10)
+76 IF DO
SET @("@INV@(""ZP210"")")=$$PIECE^INHU(.LINE,DELIM,11)
+77 IF DO
SET @("@INV@(""ZP211"")")=$$PIECE^INHU(.LINE,DELIM,12)
+78 IF DO
SET @("@INV@(""ZP212"")")=$$PIECE^INHU(.LINE,DELIM,13)
+79 IF DO
SET @("@INV@(""ZP213"")")=$$PIECE^INHU(.LINE,DELIM,14)
+80 IF DO
SET @("@INV@(""ZP214"")")=$$PIECE^INHU(.LINE,DELIM,15)
+81 IF DO
SET @("@INV@(""ZP215"")")=$$PIECE^INHU(.LINE,DELIM,16)
+82 IF DO
SET @("@INV@(""ZP216"")")=$$PIECE^INHU(.LINE,DELIM,17)
+83 IF DO
SET @("@INV@(""ZP217"")")=$$PIECE^INHU(.LINE,DELIM,18)
+84 IF DO
SET @("@INV@(""ZP218"")")=$$PIECE^INHU(.LINE,DELIM,19)
+85 IF DO
SET @("@INV@(""ZP219"")")=$$PIECE^INHU(.LINE,DELIM,20)
+86 IF DO
SET @("@INV@(""ZP220"")")=$$PIECE^INHU(.LINE,DELIM,21)
+87 IF DO
SET @("@INV@(""ZP221"")")=$$PIECE^INHU(.LINE,DELIM,22)
+88 IF DO
SET @("@INV@(""ZP222"")")=$$PIECE^INHU(.LINE,DELIM,23)
+89 IF DO
SET @("@INV@(""ZP223"")")=$$PIECE^INHU(.LINE,DELIM,24)
+90 IF DO
SET @("@INV@(""ZP224"")")=$$PIECE^INHU(.LINE,DELIM,25)
+91 IF DO
SET @("@INV@(""ZP225"")")=$$PIECE^INHU(.LINE,DELIM,26)
+92 IF DO
SET @("@INV@(""ZP226"")")=$$PIECE^INHU(.LINE,DELIM,27)
+93 IF DO
SET @("@INV@(""ZP227"")")=$$PIECE^INHU(.LINE,DELIM,28)
+94 IF DO
SET @("@INV@(""ZP228"")")=$$PIECE^INHU(.LINE,DELIM,29)
+95 IF DO
SET @("@INV@(""ZP229"")")=$$PIECE^INHU(.LINE,DELIM,30)
+96 IF DO
SET @("@INV@(""ZP230"")")=$$PIECE^INHU(.LINE,DELIM,31)
+97 IF DO
SET @("@INV@(""ZP231"")")=$$PIECE^INHU(.LINE,DELIM,32)
+98 IF DO
SET @("@INV@(""ZP232"")")=$$PIECE^INHU(.LINE,DELIM,33)
+99 IF DO
SET @("@INV@(""ZP233"")")=$$PIECE^INHU(.LINE,DELIM,34)
+100 IF MATCH
QUIT
+101 IF 'INVS
DO MC^INHS
+102 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+103 IF 'MATCH
IF LINE?1"P"1"V"1"1".ANPC
SET DO=1
SET MATCH=1
+104 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+105 IF DO
SET @("@INV@(""PV11"")")=$$PIECE^INHU(.LINE,DELIM,2)
+106 IF DO
SET @("@INV@(""PV12"")")=$$PIECE^INHU(.LINE,DELIM,3)
+107 IF DO
SET @("@INV@(""PV13"")")=$$PIECE^INHU(.LINE,DELIM,4)
+108 IF DO
SET @("@INV@(""PV14"")")=$$PIECE^INHU(.LINE,DELIM,5)
+109 IF DO
SET @("@INV@(""PV17"")")=$$PIECE^INHU(.LINE,DELIM,8)
+110 IF DO
SET @("@INV@(""PV19"")")=$$PIECE^INHU(.LINE,DELIM,10)
+111 IF DO
SET @("@INV@(""PV110"")")=$$PIECE^INHU(.LINE,DELIM,11)
+112 IF DO
SET @("@INV@(""PV117"")")=$$PIECE^INHU(.LINE,DELIM,18)
+113 IF DO
SET @("@INV@(""PV119"")")=$$PIECE^INHU(.LINE,DELIM,20)
+114 IF DO
SET @("@INV@(""PV120"")")=$$PIECE^INHU(.LINE,DELIM,21)
+115 IF DO
SET @("@INV@(""PV136"")")=$$PIECE^INHU(.LINE,DELIM,37)
+116 IF DO
SET @("@INV@(""PV137"")")=$$PIECE^INHU(.LINE,DELIM,38)
+117 IF DO
SET @("@INV@(""PV144"")")=$$PIECE^INHU(.LINE,DELIM,45)
+118 IF DO
SET @("@INV@(""PV145"")")=$$PIECE^INHU(.LINE,DELIM,46)
+119 IF MATCH
QUIT
+120 IF 'INVS
DO MC^INHS
+121 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+122 IF 'MATCH
IF LINE?1"Z"1"V"1"1".ANPC
SET DO=1
SET MATCH=1
+123 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+124 IF DO
SET @("@INV@(""ZV11"")")=$$PIECE^INHU(.LINE,DELIM,2)
+125 IF DO
SET @("@INV@(""ZV12"")")=$$PIECE^INHU(.LINE,DELIM,3)
+126 IF DO
SET @("@INV@(""ZV13"")")=$$PIECE^INHU(.LINE,DELIM,4)
+127 IF DO
SET @("@INV@(""ZV14"")")=$$PIECE^INHU(.LINE,DELIM,5)
+128 IF DO
SET @("@INV@(""ZV15"")")=$$PIECE^INHU(.LINE,DELIM,6)
+129 IF DO
SET @("@INV@(""ZV16"")")=$$PIECE^INHU(.LINE,DELIM,7)
+130 IF DO
SET @("@INV@(""ZV17"")")=$$PIECE^INHU(.LINE,DELIM,8)
+131 IF DO
SET @("@INV@(""ZV18"")")=$$PIECE^INHU(.LINE,DELIM,9)
+132 IF DO
SET @("@INV@(""ZV19"")")=$$PIECE^INHU(.LINE,DELIM,10)
+133 IF DO
SET @("@INV@(""ZV110"")")=$$PIECE^INHU(.LINE,DELIM,11)
+134 IF DO
SET @("@INV@(""ZV111"")")=$$PIECE^INHU(.LINE,DELIM,12)
+135 IF DO
SET @("@INV@(""ZV112"")")=$$PIECE^INHU(.LINE,DELIM,13)
+136 IF DO
SET @("@INV@(""ZV113"")")=$$PIECE^INHU(.LINE,DELIM,14)
+137 IF DO
SET @("@INV@(""ZV114"")")=$$PIECE^INHU(.LINE,DELIM,15)
+138 IF DO
SET @("@INV@(""ZV115"")")=$$PIECE^INHU(.LINE,DELIM,16)
+139 IF DO
SET @("@INV@(""ZV116"")")=$$PIECE^INHU(.LINE,DELIM,17)
+140 IF DO
SET @("@INV@(""ZV117"")")=$$PIECE^INHU(.LINE,DELIM,18)
+141 IF DO
SET @("@INV@(""ZV118"")")=$$PIECE^INHU(.LINE,DELIM,19)
9 DO EN^IS00005A
End DoDot:1
IF 'MATCH
QUIT
+1 GOTO A1^IS00005A
