Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IS00003R

IS00003R.m

Go to the documentation of this file.
  1. IS00003R ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
  1. ;Part 19
  1. ;Copyright 2002 SAIC
  1. EN I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. S @INV@("NM18")=$G(X)
  1. I '$D(X) D ERROR^INHS("Variable 'NM18' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. K DXS
  1. S (INX,X)=$G(@INV@("NM19"))
  1. I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. S @INV@("NM19")=$G(X)
  1. I '$D(X) D ERROR^INHS("Variable 'NM19' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. K DXS
  1. Q
  1. p1 ;IF $D(@INV@("NM11"))
  1. I $D(@INV@("NM11"))
  1. D:$T
  1. .S (INX,X)=$G(@INV@("NM11"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("NM11")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'NM11' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("NM12"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("NM12")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'NM12' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("NM13"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("NM13")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'NM13' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("NM14"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("NM14")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'NM14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("NM15"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("NM15")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'NM15' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("NM16"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("NM16")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'NM16' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("NM17"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("NM17")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'NM17' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("NM18"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("NM18")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'NM18' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("NM19"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("NM19")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'NM19' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .Q
  1. ;IF $D(@INV@("MIA1"))
  1. I $D(@INV@("MIA1"))
  1. D:$T
  1. .S (INX,X)=$G(@INV@("MIA1"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("MIA1")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'MIA1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("MIA2"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("MIA2")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'MIA2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("MIA3"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("MIA3")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'MIA3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("MIA4"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("MIA4")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'MIA4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("MIA5"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("MIA5")=$G(X)
  1. .I '$D(X) D ERROR^INHS("Variable 'MIA5' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
  1. .K DXS
  1. .S (INX,X)=$G(@INV@("MIA6"))
  1. .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
  1. .S @INV@("MIA6")=$G(X)
  1. 9 .D EN^IS00003S
  1. G r1^IS00003T