IS00018A ;Compiled from script 'Generated: HL IHS LAB R01 UNILAB IN-I' on AUG 14, 2006
;Part 2
;Copyright 2006 SAIC
EN S:DO @("@INV@(""PV136"")")=$$PIECE^INHU(.LINE,DELIM,37)
S:DO @("@INV@(""PV137"")")=$$PIECE^INHU(.LINE,DELIM,38)
S:DO @("@INV@(""PV138"")")=$$PIECE^INHU(.LINE,DELIM,39)
S:DO @("@INV@(""PV139"")")=$$PIECE^INHU(.LINE,DELIM,40)
S:DO @("@INV@(""PV140"")")=$$PIECE^INHU(.LINE,DELIM,41)
S:DO @("@INV@(""PV141"")")=$$PIECE^INHU(.LINE,DELIM,42)
S:DO @("@INV@(""PV142"")")=$$PIECE^INHU(.LINE,DELIM,43)
S:DO @("@INV@(""PV143"")")=$$PIECE^INHU(.LINE,DELIM,44)
S:DO @("@INV@(""PV144"")")=$$PIECE^INHU(.LINE,DELIM,45)
S:DO @("@INV@(""PV145"")")=$$PIECE^INHU(.LINE,DELIM,46)
S:DO @("@INV@(""PV146"")")=$$PIECE^INHU(.LINE,DELIM,47)
S:DO @("@INV@(""PV147"")")=$$PIECE^INHU(.LINE,DELIM,48)
S:DO @("@INV@(""PV148"")")=$$PIECE^INHU(.LINE,DELIM,49)
S:DO @("@INV@(""PV149"")")=$$PIECE^INHU(.LINE,DELIM,50)
S:DO @("@INV@(""PV150"")")=$$PIECE^INHU(.LINE,DELIM,51)
S:DO @("@INV@(""PV151"")")=$$PIECE^INHU(.LINE,DELIM,52)
S:DO @("@INV@(""PV152"")")=$$PIECE^INHU(.LINE,DELIM,53)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"O"1"R"1"C".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""ORC1"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""ORC2"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""ORC3"")")=$$PIECE^INHU(.LINE,DELIM,4)
S:DO @("@INV@(""ORC4"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""ORC5"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""ORC6"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""ORC7"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""ORC8"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""ORC9"")")=$$PIECE^INHU(.LINE,DELIM,10)
S:DO @("@INV@(""ORC10"")")=$$PIECE^INHU(.LINE,DELIM,11)
S:DO @("@INV@(""ORC11"")")=$$PIECE^INHU(.LINE,DELIM,12)
S:DO @("@INV@(""ORC12"")")=$$PIECE^INHU(.LINE,DELIM,13)
S:DO @("@INV@(""ORC13"")")=$$PIECE^INHU(.LINE,DELIM,14)
S:DO @("@INV@(""ORC14"")")=$$PIECE^INHU(.LINE,DELIM,15)
S:DO @("@INV@(""ORC15"")")=$$PIECE^INHU(.LINE,DELIM,16)
S:DO @("@INV@(""ORC16"")")=$$PIECE^INHU(.LINE,DELIM,17)
S:DO @("@INV@(""ORC17"")")=$$PIECE^INHU(.LINE,DELIM,18)
S:DO @("@INV@(""ORC18"")")=$$PIECE^INHU(.LINE,DELIM,19)
S:DO @("@INV@(""ORC19"")")=$$PIECE^INHU(.LINE,DELIM,20)
S:DO @("@INV@(""ORC20"")")=$$PIECE^INHU(.LINE,DELIM,21)
S:DO @("@INV@(""ORC21"")")=$$PIECE^INHU(.LINE,DELIM,22)
S:DO @("@INV@(""ORC22"")")=$$PIECE^INHU(.LINE,DELIM,23)
S:DO @("@INV@(""ORC23"")")=$$PIECE^INHU(.LINE,DELIM,24)
S:DO @("@INV@(""ORC24"")")=$$PIECE^INHU(.LINE,DELIM,25)
S:DO @("@INV@(""ORC25"")")=$$PIECE^INHU(.LINE,DELIM,26)
Q:MATCH
Q
C1 ;WHILE $P(DATA,DELIM)="OBR"
S INI(1)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("OBR",0,1) D S INI(1)=INI(1)+1
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1
.S:DO @("@INV@(""OBR1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""OBR2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
.S:DO @("@INV@(""OBR3"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,4)
.S:DO @("@INV@(""OBR4"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,5)
.S:DO @("@INV@(""OBR5"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,6)
.S:DO @("@INV@(""OBR6"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,7)
.S:DO @("@INV@(""OBR7"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,8)
.S:DO @("@INV@(""OBR8"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,9)
.S:DO @("@INV@(""OBR9"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,10)
.S:DO @("@INV@(""OBR10"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,11)
.S:DO @("@INV@(""OBR11"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,12)
.S:DO @("@INV@(""OBR12"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,13)
.S:DO @("@INV@(""OBR13"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,14)
.S:DO @("@INV@(""OBR14"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,15)
.S:DO @("@INV@(""OBR15"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,16)
.S:DO @("@INV@(""OBR16"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,17)
.S:DO @("@INV@(""OBR17"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,18)
.S:DO @("@INV@(""OBR18"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,19)
.S:DO @("@INV@(""OBR19"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,20)
.S:DO @("@INV@(""OBR20"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,21)
.S:DO @("@INV@(""OBR21"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,22)
.S:DO @("@INV@(""OBR22"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,23)
.S:DO @("@INV@(""OBR23"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,24)
.S:DO @("@INV@(""OBR24"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,25)
.S:DO @("@INV@(""OBR25"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,26)
.S:DO @("@INV@(""OBR26"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,27)
.S:DO @("@INV@(""OBR27"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,28)
.S:DO @("@INV@(""OBR28"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,29)
.S:DO @("@INV@(""OBR29"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,30)
.S:DO @("@INV@(""OBR30"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,31)
.S:DO @("@INV@(""OBR31"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,32)
.S:DO @("@INV@(""OBR32"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,33)
.S:DO @("@INV@(""OBR33"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,34)
.S:DO @("@INV@(""OBR34"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,35)
.S:DO @("@INV@(""OBR35"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,36)
.S:DO @("@INV@(""OBR36"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,37)
.S:DO @("@INV@(""OBR37"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,38)
.S:DO @("@INV@(""OBR38"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,39)
.S:DO @("@INV@(""OBR39"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,40)
.S:DO @("@INV@(""OBR40"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,41)
.S:DO @("@INV@(""OBR41"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,42)
.S:DO @("@INV@(""OBR42"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,43)
.S:DO @("@INV@(""OBR43"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,44)
.S:DO @("@INV@(""OBR44"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,45)
.S:DO @("@INV@(""OBR45"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,46)
.S:DO @("@INV@(""OBR46"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,47)
.S:DO @("@INV@(""OBR47"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,48)
.;WHILE $P(DATA,DELIM)="NTE"
.S INI(2)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("NTE",0,2) D S INI(2)=INI(2)+1
..D:'INVS MC^INHS
..D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1
..S:DO @("@INV@(""NTE1"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,2)
..S:DO @("@INV@(""NTE2"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,3)
..S:DO @("@INV@(""NTE3"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,4)
..S:DO @("@INV@(""NTE4"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,5)
..Q
.;WHILE $P(DATA,DELIM)="OBX"
.S INI(2)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("OBX",0,2) D S INI(2)=INI(2)+1
..D:'INVS MC^INHS
..D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1
..S:DO @("@INV@(""OBX1"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,2)
..S:DO @("@INV@(""OBX2"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,3)
..S:DO @("@INV@(""OBX3"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,4)
..S:DO @("@INV@(""OBX4"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,5)
..S:DO @("@INV@(""OBX5"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,6)
..S:DO @("@INV@(""OBX6"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,7)
..S:DO @("@INV@(""OBX7"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,8)
..S:DO @("@INV@(""OBX8"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,9)
..S:DO @("@INV@(""OBX9"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,10)
..S:DO @("@INV@(""OBX10"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,11)
..S:DO @("@INV@(""OBX11"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,12)
9 ..D EN^IS00018B
.D D2^IS00018B
G D1^IS00018B
IS00018A ;Compiled from script 'Generated: HL IHS LAB R01 UNILAB IN-I' on AUG 14, 2006
+1 ;Part 2
+2 ;Copyright 2006 SAIC
EN IF DO
SET @("@INV@(""PV136"")")=$$PIECE^INHU(.LINE,DELIM,37)
+1 IF DO
SET @("@INV@(""PV137"")")=$$PIECE^INHU(.LINE,DELIM,38)
+2 IF DO
SET @("@INV@(""PV138"")")=$$PIECE^INHU(.LINE,DELIM,39)
+3 IF DO
SET @("@INV@(""PV139"")")=$$PIECE^INHU(.LINE,DELIM,40)
+4 IF DO
SET @("@INV@(""PV140"")")=$$PIECE^INHU(.LINE,DELIM,41)
+5 IF DO
SET @("@INV@(""PV141"")")=$$PIECE^INHU(.LINE,DELIM,42)
+6 IF DO
SET @("@INV@(""PV142"")")=$$PIECE^INHU(.LINE,DELIM,43)
+7 IF DO
SET @("@INV@(""PV143"")")=$$PIECE^INHU(.LINE,DELIM,44)
+8 IF DO
SET @("@INV@(""PV144"")")=$$PIECE^INHU(.LINE,DELIM,45)
+9 IF DO
SET @("@INV@(""PV145"")")=$$PIECE^INHU(.LINE,DELIM,46)
+10 IF DO
SET @("@INV@(""PV146"")")=$$PIECE^INHU(.LINE,DELIM,47)
+11 IF DO
SET @("@INV@(""PV147"")")=$$PIECE^INHU(.LINE,DELIM,48)
+12 IF DO
SET @("@INV@(""PV148"")")=$$PIECE^INHU(.LINE,DELIM,49)
+13 IF DO
SET @("@INV@(""PV149"")")=$$PIECE^INHU(.LINE,DELIM,50)
+14 IF DO
SET @("@INV@(""PV150"")")=$$PIECE^INHU(.LINE,DELIM,51)
+15 IF DO
SET @("@INV@(""PV151"")")=$$PIECE^INHU(.LINE,DELIM,52)
+16 IF DO
SET @("@INV@(""PV152"")")=$$PIECE^INHU(.LINE,DELIM,53)
+17 IF MATCH
QUIT
+18 IF 'INVS
DO MC^INHS
+19 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+20 IF 'MATCH
IF LINE?1"O"1"R"1"C".ANPC
SET DO=1
SET MATCH=1
+21 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+22 IF DO
SET @("@INV@(""ORC1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+23 IF DO
SET @("@INV@(""ORC2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+24 IF DO
SET @("@INV@(""ORC3"")")=$$PIECE^INHU(.LINE,DELIM,4)
+25 IF DO
SET @("@INV@(""ORC4"")")=$$PIECE^INHU(.LINE,DELIM,5)
+26 IF DO
SET @("@INV@(""ORC5"")")=$$PIECE^INHU(.LINE,DELIM,6)
+27 IF DO
SET @("@INV@(""ORC6"")")=$$PIECE^INHU(.LINE,DELIM,7)
+28 IF DO
SET @("@INV@(""ORC7"")")=$$PIECE^INHU(.LINE,DELIM,8)
+29 IF DO
SET @("@INV@(""ORC8"")")=$$PIECE^INHU(.LINE,DELIM,9)
+30 IF DO
SET @("@INV@(""ORC9"")")=$$PIECE^INHU(.LINE,DELIM,10)
+31 IF DO
SET @("@INV@(""ORC10"")")=$$PIECE^INHU(.LINE,DELIM,11)
+32 IF DO
SET @("@INV@(""ORC11"")")=$$PIECE^INHU(.LINE,DELIM,12)
+33 IF DO
SET @("@INV@(""ORC12"")")=$$PIECE^INHU(.LINE,DELIM,13)
+34 IF DO
SET @("@INV@(""ORC13"")")=$$PIECE^INHU(.LINE,DELIM,14)
+35 IF DO
SET @("@INV@(""ORC14"")")=$$PIECE^INHU(.LINE,DELIM,15)
+36 IF DO
SET @("@INV@(""ORC15"")")=$$PIECE^INHU(.LINE,DELIM,16)
+37 IF DO
SET @("@INV@(""ORC16"")")=$$PIECE^INHU(.LINE,DELIM,17)
+38 IF DO
SET @("@INV@(""ORC17"")")=$$PIECE^INHU(.LINE,DELIM,18)
+39 IF DO
SET @("@INV@(""ORC18"")")=$$PIECE^INHU(.LINE,DELIM,19)
+40 IF DO
SET @("@INV@(""ORC19"")")=$$PIECE^INHU(.LINE,DELIM,20)
+41 IF DO
SET @("@INV@(""ORC20"")")=$$PIECE^INHU(.LINE,DELIM,21)
+42 IF DO
SET @("@INV@(""ORC21"")")=$$PIECE^INHU(.LINE,DELIM,22)
+43 IF DO
SET @("@INV@(""ORC22"")")=$$PIECE^INHU(.LINE,DELIM,23)
+44 IF DO
SET @("@INV@(""ORC23"")")=$$PIECE^INHU(.LINE,DELIM,24)
+45 IF DO
SET @("@INV@(""ORC24"")")=$$PIECE^INHU(.LINE,DELIM,25)
+46 IF DO
SET @("@INV@(""ORC25"")")=$$PIECE^INHU(.LINE,DELIM,26)
+47 IF MATCH
QUIT
+48 QUIT
C1 ;WHILE $P(DATA,DELIM)="OBR"
+1 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("OBR",0,1)
QUIT
Begin DoDot:1
+2 IF 'INVS
DO MC^INHS
+3 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+4 IF DO
SET @("@INV@(""OBR1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+5 IF DO
SET @("@INV@(""OBR2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+6 IF DO
SET @("@INV@(""OBR3"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,4)
+7 IF DO
SET @("@INV@(""OBR4"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,5)
+8 IF DO
SET @("@INV@(""OBR5"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,6)
+9 IF DO
SET @("@INV@(""OBR6"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,7)
+10 IF DO
SET @("@INV@(""OBR7"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,8)
+11 IF DO
SET @("@INV@(""OBR8"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,9)
+12 IF DO
SET @("@INV@(""OBR9"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,10)
+13 IF DO
SET @("@INV@(""OBR10"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,11)
+14 IF DO
SET @("@INV@(""OBR11"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,12)
+15 IF DO
SET @("@INV@(""OBR12"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,13)
+16 IF DO
SET @("@INV@(""OBR13"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,14)
+17 IF DO
SET @("@INV@(""OBR14"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,15)
+18 IF DO
SET @("@INV@(""OBR15"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,16)
+19 IF DO
SET @("@INV@(""OBR16"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,17)
+20 IF DO
SET @("@INV@(""OBR17"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,18)
+21 IF DO
SET @("@INV@(""OBR18"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,19)
+22 IF DO
SET @("@INV@(""OBR19"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,20)
+23 IF DO
SET @("@INV@(""OBR20"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,21)
+24 IF DO
SET @("@INV@(""OBR21"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,22)
+25 IF DO
SET @("@INV@(""OBR22"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,23)
+26 IF DO
SET @("@INV@(""OBR23"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,24)
+27 IF DO
SET @("@INV@(""OBR24"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,25)
+28 IF DO
SET @("@INV@(""OBR25"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,26)
+29 IF DO
SET @("@INV@(""OBR26"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,27)
+30 IF DO
SET @("@INV@(""OBR27"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,28)
+31 IF DO
SET @("@INV@(""OBR28"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,29)
+32 IF DO
SET @("@INV@(""OBR29"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,30)
+33 IF DO
SET @("@INV@(""OBR30"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,31)
+34 IF DO
SET @("@INV@(""OBR31"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,32)
+35 IF DO
SET @("@INV@(""OBR32"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,33)
+36 IF DO
SET @("@INV@(""OBR33"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,34)
+37 IF DO
SET @("@INV@(""OBR34"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,35)
+38 IF DO
SET @("@INV@(""OBR35"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,36)
+39 IF DO
SET @("@INV@(""OBR36"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,37)
+40 IF DO
SET @("@INV@(""OBR37"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,38)
+41 IF DO
SET @("@INV@(""OBR38"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,39)
+42 IF DO
SET @("@INV@(""OBR39"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,40)
+43 IF DO
SET @("@INV@(""OBR40"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,41)
+44 IF DO
SET @("@INV@(""OBR41"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,42)
+45 IF DO
SET @("@INV@(""OBR42"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,43)
+46 IF DO
SET @("@INV@(""OBR43"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,44)
+47 IF DO
SET @("@INV@(""OBR44"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,45)
+48 IF DO
SET @("@INV@(""OBR45"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,46)
+49 IF DO
SET @("@INV@(""OBR46"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,47)
+50 IF DO
SET @("@INV@(""OBR47"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,48)
+51 ;WHILE $P(DATA,DELIM)="NTE"
+52 SET INI(2)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("NTE",0,2)
QUIT
Begin DoDot:2
+53 IF 'INVS
DO MC^INHS
+54 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+55 IF DO
SET @("@INV@(""NTE1"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,2)
+56 IF DO
SET @("@INV@(""NTE2"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,3)
+57 IF DO
SET @("@INV@(""NTE3"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,4)
+58 IF DO
SET @("@INV@(""NTE4"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,5)
+59 QUIT
End DoDot:2
SET INI(2)=INI(2)+1
+60 ;WHILE $P(DATA,DELIM)="OBX"
+61 SET INI(2)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("OBX",0,2)
QUIT
Begin DoDot:2
+62 IF 'INVS
DO MC^INHS
+63 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+64 IF DO
SET @("@INV@(""OBX1"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,2)
+65 IF DO
SET @("@INV@(""OBX2"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,3)
+66 IF DO
SET @("@INV@(""OBX3"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,4)
+67 IF DO
SET @("@INV@(""OBX4"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,5)
+68 IF DO
SET @("@INV@(""OBX5"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,6)
+69 IF DO
SET @("@INV@(""OBX6"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,7)
+70 IF DO
SET @("@INV@(""OBX7"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,8)
+71 IF DO
SET @("@INV@(""OBX8"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,9)
+72 IF DO
SET @("@INV@(""OBX9"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,10)
+73 IF DO
SET @("@INV@(""OBX10"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,11)
+74 IF DO
SET @("@INV@(""OBX11"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,12)
9 DO EN^IS00018B
End DoDot:2
SET INI(2)=INI(2)+1
+1 DO D2^IS00018B
End DoDot:1
SET INI(1)=INI(1)+1
+2 GOTO D1^IS00018B
