- IS00003J ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- ;Part 11
- ;Copyright 2002 SAIC
- EN I '$D(X) D ERROR^INHS("Variable 'N41' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- K DXS
- S (INX,X)=$G(@INV@("N42"))
- I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- S @INV@("N42")=$G(X)
- I '$D(X) D ERROR^INHS("Variable 'N42' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- K DXS
- S (INX,X)=$G(@INV@("N43"))
- I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- S @INV@("N43")=$G(X)
- I '$D(X) D ERROR^INHS("Variable 'N43' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- K DXS
- S (INX,X)=$G(@INV@("N44"))
- I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- S @INV@("N44")=$G(X)
- I '$D(X) D ERROR^INHS("Variable 'N44' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- K DXS
- Q
- e1 ;IF $D(@INV@("REF1"))
- I $D(@INV@("REF1"))
- D:$T
- .S INI(1)=0 F S INI(1)=$O(@INV@("REF1",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("REF1",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("REF1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'REF1' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- ..Q
- .K DXS
- .S INI(1)=0 F S INI(1)=$O(@INV@("REF2",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("REF2",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("REF2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'REF2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- ..Q
- .K DXS
- .Q
- ;IF $D(@INV@("LX1"))
- I $D(@INV@("LX1"))
- D:$T
- .S (INX,X)=$G(@INV@("LX1"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("LX1")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'LX1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .Q
- ;IF $D(@INV@("TS31"))
- I $D(@INV@("TS31"))
- D:$T
- .S (INX,X)=$G(@INV@("TS31"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("TS31")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'TS31' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("TS32"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("TS32")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'TS32' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("TS33"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("TS33")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'TS33' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("TS34"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("TS34")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'TS34' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("TS35"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("TS35")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'TS35' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("TS36"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("TS36")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'TS36' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("TS37"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("TS37")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'TS37' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("TS38"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("TS38")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'TS38' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("TS39"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("TS39")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'TS39' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("TS310"))
- 9 .D EN^IS00003K
- G h1^IS00003K
- IS00003J ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- +1 ;Part 11
- +2 ;Copyright 2002 SAIC
- EN IF '$DATA(X)
- DO ERROR^INHS("Variable 'N41' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +1 KILL DXS
- +2 SET (INX,X)=$GET(@INV@("N42"))
- +3 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +4 SET @INV@("N42")=$GET(X)
- +5 IF '$DATA(X)
- DO ERROR^INHS("Variable 'N42' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +6 KILL DXS
- +7 SET (INX,X)=$GET(@INV@("N43"))
- +8 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +9 SET @INV@("N43")=$GET(X)
- +10 IF '$DATA(X)
- DO ERROR^INHS("Variable 'N43' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +11 KILL DXS
- +12 SET (INX,X)=$GET(@INV@("N44"))
- +13 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +14 SET @INV@("N44")=$GET(X)
- +15 IF '$DATA(X)
- DO ERROR^INHS("Variable 'N44' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +16 KILL DXS
- +17 QUIT
- e1 ;IF $D(@INV@("REF1"))
- +1 IF $DATA(@INV@("REF1"))
- +2 IF $TEST
- Begin DoDot:1
- +3 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("REF1",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +4 SET (INX,X)=@INV@("REF1",INI(1))
- +5 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +6 SET @INV@("REF1",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'REF1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +7 QUIT
- End DoDot:2
- +8 KILL DXS
- +9 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("REF2",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +10 SET (INX,X)=@INV@("REF2",INI(1))
- +11 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +12 SET @INV@("REF2",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'REF2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +13 QUIT
- End DoDot:2
- +14 KILL DXS
- +15 QUIT
- End DoDot:1
- +16 ;IF $D(@INV@("LX1"))
- +17 IF $DATA(@INV@("LX1"))
- +18 IF $TEST
- Begin DoDot:1
- +19 SET (INX,X)=$GET(@INV@("LX1"))
- +20 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +21 SET @INV@("LX1")=$GET(X)
- +22 IF '$DATA(X)
- DO ERROR^INHS("Variable 'LX1' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +23 KILL DXS
- +24 QUIT
- End DoDot:1
- +25 ;IF $D(@INV@("TS31"))
- +26 IF $DATA(@INV@("TS31"))
- +27 IF $TEST
- Begin DoDot:1
- +28 SET (INX,X)=$GET(@INV@("TS31"))
- +29 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +30 SET @INV@("TS31")=$GET(X)
- +31 IF '$DATA(X)
- DO ERROR^INHS("Variable 'TS31' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +32 KILL DXS
- +33 SET (INX,X)=$GET(@INV@("TS32"))
- +34 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +35 SET @INV@("TS32")=$GET(X)
- +36 IF '$DATA(X)
- DO ERROR^INHS("Variable 'TS32' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +37 KILL DXS
- +38 SET (INX,X)=$GET(@INV@("TS33"))
- +39 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +40 SET @INV@("TS33")=$GET(X)
- +41 IF '$DATA(X)
- DO ERROR^INHS("Variable 'TS33' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +42 KILL DXS
- +43 SET (INX,X)=$GET(@INV@("TS34"))
- +44 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +45 SET @INV@("TS34")=$GET(X)
- +46 IF '$DATA(X)
- DO ERROR^INHS("Variable 'TS34' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +47 KILL DXS
- +48 SET (INX,X)=$GET(@INV@("TS35"))
- +49 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +50 SET @INV@("TS35")=$GET(X)
- +51 IF '$DATA(X)
- DO ERROR^INHS("Variable 'TS35' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +52 KILL DXS
- +53 SET (INX,X)=$GET(@INV@("TS36"))
- +54 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +55 SET @INV@("TS36")=$GET(X)
- +56 IF '$DATA(X)
- DO ERROR^INHS("Variable 'TS36' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +57 KILL DXS
- +58 SET (INX,X)=$GET(@INV@("TS37"))
- +59 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +60 SET @INV@("TS37")=$GET(X)
- +61 IF '$DATA(X)
- DO ERROR^INHS("Variable 'TS37' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +62 KILL DXS
- +63 SET (INX,X)=$GET(@INV@("TS38"))
- +64 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +65 SET @INV@("TS38")=$GET(X)
- +66 IF '$DATA(X)
- DO ERROR^INHS("Variable 'TS38' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +67 KILL DXS
- +68 SET (INX,X)=$GET(@INV@("TS39"))
- +69 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +70 SET @INV@("TS39")=$GET(X)
- +71 IF '$DATA(X)
- DO ERROR^INHS("Variable 'TS39' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +72 KILL DXS
- +73 SET (INX,X)=$GET(@INV@("TS310"))
- 9 DO EN^IS00003K
- End DoDot:1
- +1 GOTO h1^IS00003K
