- IS00003T ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- ;Part 21
- ;Copyright 2002 SAIC
- EN I '$D(X) D ERROR^INHS("Variable 'MIA23' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- K DXS
- S (INX,X)=$G(@INV@("MIA24"))
- I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- S @INV@("MIA24")=$G(X)
- I '$D(X) D ERROR^INHS("Variable 'MIA24' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- K DXS
- Q
- r1 ;IF $D(@INV@("MOA1"))
- I $D(@INV@("MOA1"))
- D:$T
- .S (INX,X)=$G(@INV@("MOA1"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("MOA1")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'MOA1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("MOA2"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("MOA2")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'MOA2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("MOA3"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("MOA3")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'MOA3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("MOA4"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("MOA4")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'MOA4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("MOA5"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("MOA5")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'MOA5' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("MOA6"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("MOA6")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'MOA6' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("MOA7"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("MOA7")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'MOA7' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("MOA8"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("MOA8")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'MOA8' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("MOA9"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("MOA9")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'MOA9' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .Q
- ;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@("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@("DTM1"))
- 9 G EN^IS00003U
- IS00003T ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- +1 ;Part 21
- +2 ;Copyright 2002 SAIC
- EN IF '$DATA(X)
- DO ERROR^INHS("Variable 'MIA23' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +1 KILL DXS
- +2 SET (INX,X)=$GET(@INV@("MIA24"))
- +3 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +4 SET @INV@("MIA24")=$GET(X)
- +5 IF '$DATA(X)
- DO ERROR^INHS("Variable 'MIA24' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +6 KILL DXS
- +7 QUIT
- r1 ;IF $D(@INV@("MOA1"))
- +1 IF $DATA(@INV@("MOA1"))
- +2 IF $TEST
- Begin DoDot:1
- +3 SET (INX,X)=$GET(@INV@("MOA1"))
- +4 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +5 SET @INV@("MOA1")=$GET(X)
- +6 IF '$DATA(X)
- DO ERROR^INHS("Variable 'MOA1' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +7 KILL DXS
- +8 SET (INX,X)=$GET(@INV@("MOA2"))
- +9 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +10 SET @INV@("MOA2")=$GET(X)
- +11 IF '$DATA(X)
- DO ERROR^INHS("Variable 'MOA2' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +12 KILL DXS
- +13 SET (INX,X)=$GET(@INV@("MOA3"))
- +14 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +15 SET @INV@("MOA3")=$GET(X)
- +16 IF '$DATA(X)
- DO ERROR^INHS("Variable 'MOA3' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +17 KILL DXS
- +18 SET (INX,X)=$GET(@INV@("MOA4"))
- +19 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +20 SET @INV@("MOA4")=$GET(X)
- +21 IF '$DATA(X)
- DO ERROR^INHS("Variable 'MOA4' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +22 KILL DXS
- +23 SET (INX,X)=$GET(@INV@("MOA5"))
- +24 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +25 SET @INV@("MOA5")=$GET(X)
- +26 IF '$DATA(X)
- DO ERROR^INHS("Variable 'MOA5' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +27 KILL DXS
- +28 SET (INX,X)=$GET(@INV@("MOA6"))
- +29 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +30 SET @INV@("MOA6")=$GET(X)
- +31 IF '$DATA(X)
- DO ERROR^INHS("Variable 'MOA6' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +32 KILL DXS
- +33 SET (INX,X)=$GET(@INV@("MOA7"))
- +34 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +35 SET @INV@("MOA7")=$GET(X)
- +36 IF '$DATA(X)
- DO ERROR^INHS("Variable 'MOA7' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +37 KILL DXS
- +38 SET (INX,X)=$GET(@INV@("MOA8"))
- +39 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +40 SET @INV@("MOA8")=$GET(X)
- +41 IF '$DATA(X)
- DO ERROR^INHS("Variable 'MOA8' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +42 KILL DXS
- +43 SET (INX,X)=$GET(@INV@("MOA9"))
- +44 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +45 SET @INV@("MOA9")=$GET(X)
- +46 IF '$DATA(X)
- DO ERROR^INHS("Variable 'MOA9' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +47 KILL DXS
- +48 QUIT
- End DoDot:1
- +49 ;IF $D(@INV@("REF1"))
- +50 IF $DATA(@INV@("REF1"))
- +51 IF $TEST
- Begin DoDot:1
- +52 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("REF1",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +53 SET (INX,X)=@INV@("REF1",INI(1))
- +54 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +55 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)
- +56 QUIT
- End DoDot:2
- +57 KILL DXS
- +58 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("REF2",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +59 SET (INX,X)=@INV@("REF2",INI(1))
- +60 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +61 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)
- +62 QUIT
- End DoDot:2
- +63 KILL DXS
- +64 QUIT
- End DoDot:1
- +65 ;IF $D(@INV@("REF1"))
- +66 IF $DATA(@INV@("REF1"))
- +67 IF $TEST
- Begin DoDot:1
- +68 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("REF1",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +69 SET (INX,X)=@INV@("REF1",INI(1))
- +70 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +71 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)
- +72 QUIT
- End DoDot:2
- +73 KILL DXS
- +74 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("REF2",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +75 SET (INX,X)=@INV@("REF2",INI(1))
- +76 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +77 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)
- +78 QUIT
- End DoDot:2
- +79 KILL DXS
- +80 QUIT
- End DoDot:1
- +81 ;IF $D(@INV@("DTM1"))
- 9 GOTO EN^IS00003U
