- 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
