- IS00027B ;Compiled from script 'Generated: HL IHS IZV04 V03VXR IN-I' on FEB 28, 2013
- ;Part 3
- ;Copyright 2013 SAIC
- EN I '$D(X) D ERROR^INHS("Variable 'PID13' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- K DXS
- S (INX,X)=$G(@INV@("PID14"))
- I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- S @INV@("PID14")=$G(X)
- I '$D(X) D ERROR^INHS("Variable 'PID14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- K DXS
- S (INX,X)=$G(@INV@("PID17"))
- I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- S @INV@("PID17")=$G(X)
- I '$D(X) D ERROR^INHS("Variable 'PID17' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- K DXS
- S (INX,X)=$G(@INV@("PID19"))
- I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- S @INV@("PID19")=$G(X)
- I '$D(X) D ERROR^INHS("Variable 'PID19' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- K DXS
- S (INX,X)=$G(@INV@("PID26"))
- I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- S @INV@("PID26")=$G(X)
- I '$D(X) D ERROR^INHS("Variable 'PID26' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- K DXS
- Q
- I1 ;IF $D(@INV@("PD11"))
- I $D(@INV@("PD11"))
- D:$T
- .S (INX,X)=$G(@INV@("PD14"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PD14")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'PD14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .Q
- ;IF $D(@INV@("NK11"))
- I $D(@INV@("NK11"))
- D:$T
- .S INI(1)=0 F S INI(1)=$O(@INV@("NK12",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("NK12",INI(1))
- ..S:X]"" X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$P($G(INTHL7F2),U,4),"I")
- ..S @INV@("NK12",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK12' 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@("NK13",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("NK13",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("NK13",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK13' 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@("NK14",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("NK14",INI(1))
- ..I $L(X) S:$P(X,INSUBDEL,4)="" $P(X,INSUBDEL,4)=INSUBDEL
- ..S @INV@("NK14",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK14' 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@("NK15",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("NK15",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("NK15",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK15' 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@("NK17",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("NK17",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("NK17",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK17' 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@("NK113",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("NK113",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("NK113",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NK113' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- ..Q
- .K DXS
- .Q
- ;IF $D(@INV@("PV11"))
- I $D(@INV@("PV11"))
- D:$T
- .S (INX,X)=$G(@INV@("PV144"))
- .I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)
- .S @INV@("PV144")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'PV144' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("PV145"))
- .I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)
- .S @INV@("PV145")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'PV145' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .Q
- ;IF $D(@INV@("IN11"))
- I $D(@INV@("IN11"))
- D:$T
- .S INI(1)=0 F S INI(1)=$O(@INV@("IN14",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("IN14",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("IN14",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN14' 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@("IN18",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("IN18",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("IN18",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN18' 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@("IN19",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("IN19",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("IN19",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN19' 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@("IN112",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("IN112",INI(1))
- ..I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
- ..S @INV@("IN112",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN112' 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@("IN113",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("IN113",INI(1))
- ..I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
- ..S @INV@("IN113",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN113' 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@("IN116",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("IN116",INI(1))
- ..S:X]"" X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$P($G(INTHL7F2),U,4),"I")
- ..S @INV@("IN116",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN116' 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@("IN117",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("IN117",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("IN117",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN117' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- ..Q
- .K DXS
- .;IF $D(@INV@("IN21"))
- .I $D(@INV@("IN21"))
- .D:$T
- ..S INI(1)=0 F S INI(1)=$O(@INV@("IN23",INI(1))) Q:'INI(1) S INI=INI(1) D
- ...S (INX,X)=@INV@("IN23",INI(1))
- ...I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- 9 ...D EN^IS00027C
- ..D M3^IS00027C
- .D M2^IS00027C
- G M1^IS00027C
- IS00027B ;Compiled from script 'Generated: HL IHS IZV04 V03VXR IN-I' on FEB 28, 2013
- +1 ;Part 3
- +2 ;Copyright 2013 SAIC
- EN IF '$DATA(X)
- DO ERROR^INHS("Variable 'PID13' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +1 KILL DXS
- +2 SET (INX,X)=$GET(@INV@("PID14"))
- +3 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +4 SET @INV@("PID14")=$GET(X)
- +5 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PID14' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +6 KILL DXS
- +7 SET (INX,X)=$GET(@INV@("PID17"))
- +8 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +9 SET @INV@("PID17")=$GET(X)
- +10 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PID17' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +11 KILL DXS
- +12 SET (INX,X)=$GET(@INV@("PID19"))
- +13 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +14 SET @INV@("PID19")=$GET(X)
- +15 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PID19' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +16 KILL DXS
- +17 SET (INX,X)=$GET(@INV@("PID26"))
- +18 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +19 SET @INV@("PID26")=$GET(X)
- +20 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PID26' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +21 KILL DXS
- +22 QUIT
- I1 ;IF $D(@INV@("PD11"))
- +1 IF $DATA(@INV@("PD11"))
- +2 IF $TEST
- Begin DoDot:1
- +3 SET (INX,X)=$GET(@INV@("PD14"))
- +4 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +5 SET @INV@("PD14")=$GET(X)
- +6 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PD14' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +7 KILL DXS
- +8 QUIT
- End DoDot:1
- +9 ;IF $D(@INV@("NK11"))
- +10 IF $DATA(@INV@("NK11"))
- +11 IF $TEST
- Begin DoDot:1
- +12 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("NK12",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +13 SET (INX,X)=@INV@("NK12",INI(1))
- +14 IF X]""
- SET X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$PIECE($GET(INTHL7F2),U,4),"I")
- +15 SET @INV@("NK12",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'NK12' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +16 QUIT
- End DoDot:2
- +17 KILL DXS
- +18 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("NK13",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +19 SET (INX,X)=@INV@("NK13",INI(1))
- +20 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +21 SET @INV@("NK13",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'NK13' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +22 QUIT
- End DoDot:2
- +23 KILL DXS
- +24 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("NK14",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +25 SET (INX,X)=@INV@("NK14",INI(1))
- +26 IF $LENGTH(X)
- IF $PIECE(X,INSUBDEL,4)=""
- SET $PIECE(X,INSUBDEL,4)=INSUBDEL
- +27 SET @INV@("NK14",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'NK14' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +28 QUIT
- End DoDot:2
- +29 KILL DXS
- +30 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("NK15",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +31 SET (INX,X)=@INV@("NK15",INI(1))
- +32 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +33 SET @INV@("NK15",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'NK15' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +34 QUIT
- End DoDot:2
- +35 KILL DXS
- +36 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("NK17",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +37 SET (INX,X)=@INV@("NK17",INI(1))
- +38 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +39 SET @INV@("NK17",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'NK17' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +40 QUIT
- End DoDot:2
- +41 KILL DXS
- +42 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("NK113",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +43 SET (INX,X)=@INV@("NK113",INI(1))
- +44 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +45 SET @INV@("NK113",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'NK113' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +46 QUIT
- End DoDot:2
- +47 KILL DXS
- +48 QUIT
- End DoDot:1
- +49 ;IF $D(@INV@("PV11"))
- +50 IF $DATA(@INV@("PV11"))
- +51 IF $TEST
- Begin DoDot:1
- +52 SET (INX,X)=$GET(@INV@("PV144"))
- +53 IF X]""
- SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
- +54 SET @INV@("PV144")=$GET(X)
- +55 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PV144' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +56 KILL DXS
- +57 SET (INX,X)=$GET(@INV@("PV145"))
- +58 IF X]""
- SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
- +59 SET @INV@("PV145")=$GET(X)
- +60 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PV145' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +61 KILL DXS
- +62 QUIT
- End DoDot:1
- +63 ;IF $D(@INV@("IN11"))
- +64 IF $DATA(@INV@("IN11"))
- +65 IF $TEST
- Begin DoDot:1
- +66 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("IN14",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +67 SET (INX,X)=@INV@("IN14",INI(1))
- +68 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +69 SET @INV@("IN14",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'IN14' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +70 QUIT
- End DoDot:2
- +71 KILL DXS
- +72 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("IN18",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +73 SET (INX,X)=@INV@("IN18",INI(1))
- +74 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +75 SET @INV@("IN18",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'IN18' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +76 QUIT
- End DoDot:2
- +77 KILL DXS
- +78 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("IN19",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +79 SET (INX,X)=@INV@("IN19",INI(1))
- +80 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +81 SET @INV@("IN19",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'IN19' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +82 QUIT
- End DoDot:2
- +83 KILL DXS
- +84 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("IN112",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +85 SET (INX,X)=@INV@("IN112",INI(1))
- +86 IF X]""
- SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
- +87 SET @INV@("IN112",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'IN112' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +88 QUIT
- End DoDot:2
- +89 KILL DXS
- +90 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("IN113",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +91 SET (INX,X)=@INV@("IN113",INI(1))
- +92 IF X]""
- SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
- +93 SET @INV@("IN113",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'IN113' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +94 QUIT
- End DoDot:2
- +95 KILL DXS
- +96 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("IN116",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +97 SET (INX,X)=@INV@("IN116",INI(1))
- +98 IF X]""
- SET X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$PIECE($GET(INTHL7F2),U,4),"I")
- +99 SET @INV@("IN116",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'IN116' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +100 QUIT
- End DoDot:2
- +101 KILL DXS
- +102 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("IN117",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +103 SET (INX,X)=@INV@("IN117",INI(1))
- +104 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +105 SET @INV@("IN117",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'IN117' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +106 QUIT
- End DoDot:2
- +107 KILL DXS
- +108 ;IF $D(@INV@("IN21"))
- +109 IF $DATA(@INV@("IN21"))
- +110 IF $TEST
- Begin DoDot:2
- +111 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("IN23",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:3
- +112 SET (INX,X)=@INV@("IN23",INI(1))
- +113 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- 9 DO EN^IS00027C
- End DoDot:3
- +1 DO M3^IS00027C
- End DoDot:2
- +2 DO M2^IS00027C
- End DoDot:1
- +3 GOTO M1^IS00027C
