- IS00003I ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- ;Part 10
- ;Copyright 2002 SAIC
- EN S (INX,X)=@INV@("PER2",INI(1))
- I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- S @INV@("PER2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- Q
- b2 K DXS
- S INI(1)=0 F S INI(1)=$O(@INV@("PER3",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("PER3",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PER3",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER3' 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@("PER4",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("PER4",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PER4",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER4' 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@("PER5",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("PER5",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PER5",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER5' 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@("PER6",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("PER6",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PER6",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER6' 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@("PER7",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("PER7",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PER7",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER7' 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@("PER8",INI(1))) Q:'INI(1) S INI=INI(1) D
- .S (INX,X)=@INV@("PER8",INI(1))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PER8",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER8' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .Q
- K DXS
- Q
- b1 ;IF $D(@INV@("N11"))
- I $D(@INV@("N11"))
- D:$T
- .S (INX,X)=$G(@INV@("N11"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("N11")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'N11' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("N12"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("N12")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'N12' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("N13"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("N13")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'N13' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("N14"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("N14")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'N14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .Q
- ;IF $D(@INV@("N31"))
- I $D(@INV@("N31"))
- D:$T
- .S (INX,X)=$G(@INV@("N31"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("N31")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'N31' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("N32"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("N32")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'N32' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .Q
- ;IF $D(@INV@("N41"))
- I $D(@INV@("N41"))
- D:$T
- .S (INX,X)=$G(@INV@("N41"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("N41")=$G(X)
- 9 .D EN^IS00003J
- G e1^IS00003J
- IS00003I ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- +1 ;Part 10
- +2 ;Copyright 2002 SAIC
- EN SET (INX,X)=@INV@("PER2",INI(1))
- +1 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +2 SET @INV@("PER2",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'PER2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +3 QUIT
- b2 KILL DXS
- +1 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("PER3",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +2 SET (INX,X)=@INV@("PER3",INI(1))
- +3 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +4 SET @INV@("PER3",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'PER3' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +5 QUIT
- End DoDot:1
- +6 KILL DXS
- +7 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("PER4",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +8 SET (INX,X)=@INV@("PER4",INI(1))
- +9 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +10 SET @INV@("PER4",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'PER4' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +11 QUIT
- End DoDot:1
- +12 KILL DXS
- +13 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("PER5",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +14 SET (INX,X)=@INV@("PER5",INI(1))
- +15 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +16 SET @INV@("PER5",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'PER5' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +17 QUIT
- End DoDot:1
- +18 KILL DXS
- +19 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("PER6",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +20 SET (INX,X)=@INV@("PER6",INI(1))
- +21 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +22 SET @INV@("PER6",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'PER6' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +23 QUIT
- End DoDot:1
- +24 KILL DXS
- +25 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("PER7",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +26 SET (INX,X)=@INV@("PER7",INI(1))
- +27 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +28 SET @INV@("PER7",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'PER7' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +29 QUIT
- End DoDot:1
- +30 KILL DXS
- +31 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("PER8",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:1
- +32 SET (INX,X)=@INV@("PER8",INI(1))
- +33 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +34 SET @INV@("PER8",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'PER8' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +35 QUIT
- End DoDot:1
- +36 KILL DXS
- +37 QUIT
- b1 ;IF $D(@INV@("N11"))
- +1 IF $DATA(@INV@("N11"))
- +2 IF $TEST
- Begin DoDot:1
- +3 SET (INX,X)=$GET(@INV@("N11"))
- +4 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +5 SET @INV@("N11")=$GET(X)
- +6 IF '$DATA(X)
- DO ERROR^INHS("Variable 'N11' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +7 KILL DXS
- +8 SET (INX,X)=$GET(@INV@("N12"))
- +9 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +10 SET @INV@("N12")=$GET(X)
- +11 IF '$DATA(X)
- DO ERROR^INHS("Variable 'N12' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +12 KILL DXS
- +13 SET (INX,X)=$GET(@INV@("N13"))
- +14 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +15 SET @INV@("N13")=$GET(X)
- +16 IF '$DATA(X)
- DO ERROR^INHS("Variable 'N13' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +17 KILL DXS
- +18 SET (INX,X)=$GET(@INV@("N14"))
- +19 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +20 SET @INV@("N14")=$GET(X)
- +21 IF '$DATA(X)
- DO ERROR^INHS("Variable 'N14' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +22 KILL DXS
- +23 QUIT
- End DoDot:1
- +24 ;IF $D(@INV@("N31"))
- +25 IF $DATA(@INV@("N31"))
- +26 IF $TEST
- Begin DoDot:1
- +27 SET (INX,X)=$GET(@INV@("N31"))
- +28 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +29 SET @INV@("N31")=$GET(X)
- +30 IF '$DATA(X)
- DO ERROR^INHS("Variable 'N31' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +31 KILL DXS
- +32 SET (INX,X)=$GET(@INV@("N32"))
- +33 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +34 SET @INV@("N32")=$GET(X)
- +35 IF '$DATA(X)
- DO ERROR^INHS("Variable 'N32' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +36 KILL DXS
- +37 QUIT
- End DoDot:1
- +38 ;IF $D(@INV@("N41"))
- +39 IF $DATA(@INV@("N41"))
- +40 IF $TEST
- Begin DoDot:1
- +41 SET (INX,X)=$GET(@INV@("N41"))
- +42 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +43 SET @INV@("N41")=$GET(X)
- 9 DO EN^IS00003J
- End DoDot:1
- +1 GOTO e1^IS00003J
