- IS00003V ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- ;Part 23
- ;Copyright 2002 SAIC
- EN I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- S @INV@("AMT2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'AMT2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- Q
- x2 K DXS
- Q
- x1 ;IF $D(@INV@("QTY1"))
- I $D(@INV@("QTY1"))
- D:$T
- .S INI(1)=0 F S INI(1)=$O(@INV@("QTY1",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("QTY1",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("QTY1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'QTY1' 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@("QTY2",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("QTY2",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("QTY2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'QTY2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- ..Q
- .K DXS
- .Q
- ;IF $D(@INV@("SVC1"))
- I $D(@INV@("SVC1"))
- D:$T
- .S (INX,X)=$G(@INV@("SVC1"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("SVC1")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'SVC1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("SVC2"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("SVC2")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'SVC2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("SVC3"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("SVC3")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'SVC3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("SVC4"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("SVC4")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'SVC4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("SVC5"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("SVC5")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'SVC5' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("SVC6"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("SVC6")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'SVC6' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("SVC7"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("SVC7")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'SVC7' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .Q
- ;IF $D(@INV@("DTM1"))
- I $D(@INV@("DTM1"))
- D:$T
- .S INI(1)=0 F S INI(1)=$O(@INV@("DTM1",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("DTM1",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("DTM1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'DTM1' 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@("DTM2",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("DTM2",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("DTM2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'DTM2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- ..Q
- .K DXS
- .Q
- ;IF $D(@INV@("CAS1"))
- I $D(@INV@("CAS1"))
- D:$T
- .S INI(1)=0 F S INI(1)=$O(@INV@("CAS1",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("CAS1",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("CAS1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS1' 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@("CAS2",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("CAS2",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- 9 ..D EN^IS00003W
- .D AB2^IS00003W
- G AB1^IS00003X
- IS00003V ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- +1 ;Part 23
- +2 ;Copyright 2002 SAIC
- EN IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +1 SET @INV@("AMT2",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'AMT2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +2 QUIT
- x2 KILL DXS
- +1 QUIT
- x1 ;IF $D(@INV@("QTY1"))
- +1 IF $DATA(@INV@("QTY1"))
- +2 IF $TEST
- Begin DoDot:1
- +3 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("QTY1",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +4 SET (INX,X)=@INV@("QTY1",INI(1))
- +5 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +6 SET @INV@("QTY1",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'QTY1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +7 QUIT
- End DoDot:2
- +8 KILL DXS
- +9 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("QTY2",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +10 SET (INX,X)=@INV@("QTY2",INI(1))
- +11 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +12 SET @INV@("QTY2",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'QTY2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +13 QUIT
- End DoDot:2
- +14 KILL DXS
- +15 QUIT
- End DoDot:1
- +16 ;IF $D(@INV@("SVC1"))
- +17 IF $DATA(@INV@("SVC1"))
- +18 IF $TEST
- Begin DoDot:1
- +19 SET (INX,X)=$GET(@INV@("SVC1"))
- +20 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +21 SET @INV@("SVC1")=$GET(X)
- +22 IF '$DATA(X)
- DO ERROR^INHS("Variable 'SVC1' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +23 KILL DXS
- +24 SET (INX,X)=$GET(@INV@("SVC2"))
- +25 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +26 SET @INV@("SVC2")=$GET(X)
- +27 IF '$DATA(X)
- DO ERROR^INHS("Variable 'SVC2' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +28 KILL DXS
- +29 SET (INX,X)=$GET(@INV@("SVC3"))
- +30 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +31 SET @INV@("SVC3")=$GET(X)
- +32 IF '$DATA(X)
- DO ERROR^INHS("Variable 'SVC3' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +33 KILL DXS
- +34 SET (INX,X)=$GET(@INV@("SVC4"))
- +35 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +36 SET @INV@("SVC4")=$GET(X)
- +37 IF '$DATA(X)
- DO ERROR^INHS("Variable 'SVC4' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +38 KILL DXS
- +39 SET (INX,X)=$GET(@INV@("SVC5"))
- +40 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +41 SET @INV@("SVC5")=$GET(X)
- +42 IF '$DATA(X)
- DO ERROR^INHS("Variable 'SVC5' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +43 KILL DXS
- +44 SET (INX,X)=$GET(@INV@("SVC6"))
- +45 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +46 SET @INV@("SVC6")=$GET(X)
- +47 IF '$DATA(X)
- DO ERROR^INHS("Variable 'SVC6' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +48 KILL DXS
- +49 SET (INX,X)=$GET(@INV@("SVC7"))
- +50 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +51 SET @INV@("SVC7")=$GET(X)
- +52 IF '$DATA(X)
- DO ERROR^INHS("Variable 'SVC7' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +53 KILL DXS
- +54 QUIT
- End DoDot:1
- +55 ;IF $D(@INV@("DTM1"))
- +56 IF $DATA(@INV@("DTM1"))
- +57 IF $TEST
- Begin DoDot:1
- +58 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("DTM1",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +59 SET (INX,X)=@INV@("DTM1",INI(1))
- +60 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +61 SET @INV@("DTM1",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'DTM1' 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 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("DTM2",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +65 SET (INX,X)=@INV@("DTM2",INI(1))
- +66 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +67 SET @INV@("DTM2",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'DTM2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +68 QUIT
- End DoDot:2
- +69 KILL DXS
- +70 QUIT
- End DoDot:1
- +71 ;IF $D(@INV@("CAS1"))
- +72 IF $DATA(@INV@("CAS1"))
- +73 IF $TEST
- Begin DoDot:1
- +74 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("CAS1",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +75 SET (INX,X)=@INV@("CAS1",INI(1))
- +76 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +77 SET @INV@("CAS1",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'CAS1' 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 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("CAS2",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +81 SET (INX,X)=@INV@("CAS2",INI(1))
- +82 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- 9 DO EN^IS00003W
- End DoDot:2
- +1 DO AB2^IS00003W
- End DoDot:1
- +2 GOTO AB1^IS00003X
