- IS00017A ;Compiled from script 'Generated: HL IHS LAB R01 LABCORP IN-I' on AUG 14, 2006
- ;Part 2
- ;Copyright 2006 SAIC
- EN 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)="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)
- ..S:DO @("@INV@(""OBX12"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,13)
- ..S:DO @("@INV@(""OBX13"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,14)
- ..S:DO @("@INV@(""OBX14"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,15)
- ..S:DO @("@INV@(""OBX15"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,16)
- ..S:DO @("@INV@(""OBX16"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,17)
- ..S:DO @("@INV@(""OBX17"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,18)
- ..S:DO @("@INV@(""OBX18"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,19)
- 9 ..D EN^IS00017B
- .D D2^IS00017B
- G D1^IS00017B
- IS00017A ;Compiled from script 'Generated: HL IHS LAB R01 LABCORP IN-I' on AUG 14, 2006
- +1 ;Part 2
- +2 ;Copyright 2006 SAIC
- EN IF DO
- SET @("@INV@(""PV137"")")=$$PIECE^INHU(.LINE,DELIM,38)
- +1 IF DO
- SET @("@INV@(""PV138"")")=$$PIECE^INHU(.LINE,DELIM,39)
- +2 IF DO
- SET @("@INV@(""PV139"")")=$$PIECE^INHU(.LINE,DELIM,40)
- +3 IF DO
- SET @("@INV@(""PV140"")")=$$PIECE^INHU(.LINE,DELIM,41)
- +4 IF DO
- SET @("@INV@(""PV141"")")=$$PIECE^INHU(.LINE,DELIM,42)
- +5 IF DO
- SET @("@INV@(""PV142"")")=$$PIECE^INHU(.LINE,DELIM,43)
- +6 IF DO
- SET @("@INV@(""PV143"")")=$$PIECE^INHU(.LINE,DELIM,44)
- +7 IF DO
- SET @("@INV@(""PV144"")")=$$PIECE^INHU(.LINE,DELIM,45)
- +8 IF DO
- SET @("@INV@(""PV145"")")=$$PIECE^INHU(.LINE,DELIM,46)
- +9 IF DO
- SET @("@INV@(""PV146"")")=$$PIECE^INHU(.LINE,DELIM,47)
- +10 IF DO
- SET @("@INV@(""PV147"")")=$$PIECE^INHU(.LINE,DELIM,48)
- +11 IF DO
- SET @("@INV@(""PV148"")")=$$PIECE^INHU(.LINE,DELIM,49)
- +12 IF DO
- SET @("@INV@(""PV149"")")=$$PIECE^INHU(.LINE,DELIM,50)
- +13 IF DO
- SET @("@INV@(""PV150"")")=$$PIECE^INHU(.LINE,DELIM,51)
- +14 IF DO
- SET @("@INV@(""PV151"")")=$$PIECE^INHU(.LINE,DELIM,52)
- +15 IF DO
- SET @("@INV@(""PV152"")")=$$PIECE^INHU(.LINE,DELIM,53)
- +16 IF MATCH
- QUIT
- +17 IF 'INVS
- DO MC^INHS
- +18 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +19 IF 'MATCH
- IF LINE?1"O"1"R"1"C".ANPC
- SET DO=1
- SET MATCH=1
- +20 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +21 IF DO
- SET @("@INV@(""ORC1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +22 IF DO
- SET @("@INV@(""ORC2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +23 IF DO
- SET @("@INV@(""ORC3"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +24 IF DO
- SET @("@INV@(""ORC4"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +25 IF DO
- SET @("@INV@(""ORC5"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +26 IF DO
- SET @("@INV@(""ORC6"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +27 IF DO
- SET @("@INV@(""ORC7"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +28 IF DO
- SET @("@INV@(""ORC8"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +29 IF DO
- SET @("@INV@(""ORC9"")")=$$PIECE^INHU(.LINE,DELIM,10)
- +30 IF DO
- SET @("@INV@(""ORC10"")")=$$PIECE^INHU(.LINE,DELIM,11)
- +31 IF DO
- SET @("@INV@(""ORC11"")")=$$PIECE^INHU(.LINE,DELIM,12)
- +32 IF DO
- SET @("@INV@(""ORC12"")")=$$PIECE^INHU(.LINE,DELIM,13)
- +33 IF DO
- SET @("@INV@(""ORC13"")")=$$PIECE^INHU(.LINE,DELIM,14)
- +34 IF DO
- SET @("@INV@(""ORC14"")")=$$PIECE^INHU(.LINE,DELIM,15)
- +35 IF DO
- SET @("@INV@(""ORC15"")")=$$PIECE^INHU(.LINE,DELIM,16)
- +36 IF DO
- SET @("@INV@(""ORC16"")")=$$PIECE^INHU(.LINE,DELIM,17)
- +37 IF DO
- SET @("@INV@(""ORC17"")")=$$PIECE^INHU(.LINE,DELIM,18)
- +38 IF DO
- SET @("@INV@(""ORC18"")")=$$PIECE^INHU(.LINE,DELIM,19)
- +39 IF DO
- SET @("@INV@(""ORC19"")")=$$PIECE^INHU(.LINE,DELIM,20)
- +40 IF DO
- SET @("@INV@(""ORC20"")")=$$PIECE^INHU(.LINE,DELIM,21)
- +41 IF DO
- SET @("@INV@(""ORC21"")")=$$PIECE^INHU(.LINE,DELIM,22)
- +42 IF DO
- SET @("@INV@(""ORC22"")")=$$PIECE^INHU(.LINE,DELIM,23)
- +43 IF DO
- SET @("@INV@(""ORC23"")")=$$PIECE^INHU(.LINE,DELIM,24)
- +44 IF DO
- SET @("@INV@(""ORC24"")")=$$PIECE^INHU(.LINE,DELIM,25)
- +45 IF DO
- SET @("@INV@(""ORC25"")")=$$PIECE^INHU(.LINE,DELIM,26)
- +46 IF MATCH
- QUIT
- +47 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)="OBX"
- +52 SET INI(2)=1
- FOR
- SET DATA=$$GL^INHOU(UIF,LCT)
- IF '$$CHECKSEG^INHOU("OBX",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@(""OBX1"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,2)
- +56 IF DO
- SET @("@INV@(""OBX2"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,3)
- +57 IF DO
- SET @("@INV@(""OBX3"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,4)
- +58 IF DO
- SET @("@INV@(""OBX4"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,5)
- +59 IF DO
- SET @("@INV@(""OBX5"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,6)
- +60 IF DO
- SET @("@INV@(""OBX6"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,7)
- +61 IF DO
- SET @("@INV@(""OBX7"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,8)
- +62 IF DO
- SET @("@INV@(""OBX8"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,9)
- +63 IF DO
- SET @("@INV@(""OBX9"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,10)
- +64 IF DO
- SET @("@INV@(""OBX10"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,11)
- +65 IF DO
- SET @("@INV@(""OBX11"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,12)
- +66 IF DO
- SET @("@INV@(""OBX12"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,13)
- +67 IF DO
- SET @("@INV@(""OBX13"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,14)
- +68 IF DO
- SET @("@INV@(""OBX14"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,15)
- +69 IF DO
- SET @("@INV@(""OBX15"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,16)
- +70 IF DO
- SET @("@INV@(""OBX16"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,17)
- +71 IF DO
- SET @("@INV@(""OBX17"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,18)
- +72 IF DO
- SET @("@INV@(""OBX18"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,19)
- 9 DO EN^IS00017B
- End DoDot:2
- SET INI(2)=INI(2)+1
- +1 DO D2^IS00017B
- End DoDot:1
- SET INI(1)=INI(1)+1
- +2 GOTO D1^IS00017B
