- IS00003Q ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- ;Part 18
- ;Copyright 2002 SAIC
- EN I '$D(X) D ERROR^INHS("Variable 'NM19' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- K DXS
- Q
- n1 ;IF $D(@INV@("NM11"))
- I $D(@INV@("NM11"))
- D:$T
- .S (INX,X)=$G(@INV@("NM11"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM11")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM11' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM12"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM12")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM12' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM13"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM13")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM13' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM14"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM14")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM15"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM15")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM15' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM16"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM16")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM16' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM17"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM17")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM17' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM18"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM18")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM18' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM19"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM19")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM19' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .Q
- ;IF $D(@INV@("NM11"))
- I $D(@INV@("NM11"))
- D:$T
- .S (INX,X)=$G(@INV@("NM11"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM11")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM11' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM12"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM12")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM12' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM13"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM13")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM13' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM14"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM14")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM15"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM15")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM15' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM16"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM16")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM16' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM17"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("NM17")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'NM17' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("NM18"))
- 9 .D EN^IS00003R
- G p1^IS00003R
- IS00003Q ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- +1 ;Part 18
- +2 ;Copyright 2002 SAIC
- EN IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM19' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +1 KILL DXS
- +2 QUIT
- n1 ;IF $D(@INV@("NM11"))
- +1 IF $DATA(@INV@("NM11"))
- +2 IF $TEST
- Begin DoDot:1
- +3 SET (INX,X)=$GET(@INV@("NM11"))
- +4 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +5 SET @INV@("NM11")=$GET(X)
- +6 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM11' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +7 KILL DXS
- +8 SET (INX,X)=$GET(@INV@("NM12"))
- +9 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +10 SET @INV@("NM12")=$GET(X)
- +11 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM12' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +12 KILL DXS
- +13 SET (INX,X)=$GET(@INV@("NM13"))
- +14 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +15 SET @INV@("NM13")=$GET(X)
- +16 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM13' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +17 KILL DXS
- +18 SET (INX,X)=$GET(@INV@("NM14"))
- +19 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +20 SET @INV@("NM14")=$GET(X)
- +21 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM14' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +22 KILL DXS
- +23 SET (INX,X)=$GET(@INV@("NM15"))
- +24 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +25 SET @INV@("NM15")=$GET(X)
- +26 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM15' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +27 KILL DXS
- +28 SET (INX,X)=$GET(@INV@("NM16"))
- +29 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +30 SET @INV@("NM16")=$GET(X)
- +31 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM16' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +32 KILL DXS
- +33 SET (INX,X)=$GET(@INV@("NM17"))
- +34 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +35 SET @INV@("NM17")=$GET(X)
- +36 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM17' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +37 KILL DXS
- +38 SET (INX,X)=$GET(@INV@("NM18"))
- +39 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +40 SET @INV@("NM18")=$GET(X)
- +41 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM18' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +42 KILL DXS
- +43 SET (INX,X)=$GET(@INV@("NM19"))
- +44 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +45 SET @INV@("NM19")=$GET(X)
- +46 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM19' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +47 KILL DXS
- +48 QUIT
- End DoDot:1
- +49 ;IF $D(@INV@("NM11"))
- +50 IF $DATA(@INV@("NM11"))
- +51 IF $TEST
- Begin DoDot:1
- +52 SET (INX,X)=$GET(@INV@("NM11"))
- +53 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +54 SET @INV@("NM11")=$GET(X)
- +55 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM11' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +56 KILL DXS
- +57 SET (INX,X)=$GET(@INV@("NM12"))
- +58 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +59 SET @INV@("NM12")=$GET(X)
- +60 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM12' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +61 KILL DXS
- +62 SET (INX,X)=$GET(@INV@("NM13"))
- +63 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +64 SET @INV@("NM13")=$GET(X)
- +65 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM13' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +66 KILL DXS
- +67 SET (INX,X)=$GET(@INV@("NM14"))
- +68 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +69 SET @INV@("NM14")=$GET(X)
- +70 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM14' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +71 KILL DXS
- +72 SET (INX,X)=$GET(@INV@("NM15"))
- +73 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +74 SET @INV@("NM15")=$GET(X)
- +75 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM15' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +76 KILL DXS
- +77 SET (INX,X)=$GET(@INV@("NM16"))
- +78 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +79 SET @INV@("NM16")=$GET(X)
- +80 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM16' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +81 KILL DXS
- +82 SET (INX,X)=$GET(@INV@("NM17"))
- +83 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +84 SET @INV@("NM17")=$GET(X)
- +85 IF '$DATA(X)
- DO ERROR^INHS("Variable 'NM17' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +86 KILL DXS
- +87 SET (INX,X)=$GET(@INV@("NM18"))
- 9 DO EN^IS00003R
- End DoDot:1
- +1 GOTO p1^IS00003R
