IS00022D ;Compiled from script 'Generated: HL IHS LAB R01 SONORA QUEST IN-I' on AUG 14, 2006
;Part 5
;Copyright 2006 SAIC
EN I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV17")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV17' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV18"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV18")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV18' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV19"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV19")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV19' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV110"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV110")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV110' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV111"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV111")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV111' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV112"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV112")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV112' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV113"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV113")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV113' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV114"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV114")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV114' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV115"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV115")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV115' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV116"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV116")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV116' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV117"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV117")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV117' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV118"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV118")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV118' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV119"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV119")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV119' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV120"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV120")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV120' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV121"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV121")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV121' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV122"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV122")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV122' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV123"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV123")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV123' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV124"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV124")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV124' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV125"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV125")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV125' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV126"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV126")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV126' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV127"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV127")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV127' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV128"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV128")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV128' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV129"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV129")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV129' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV130"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV130")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV130' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV131"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV131")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV131' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV132"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV132")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV132' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV133"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV133")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV133' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV134"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV134")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV134' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV135"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV135")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV135' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV136"))
9 G EN^IS00022E
IS00022D ;Compiled from script 'Generated: HL IHS LAB R01 SONORA QUEST IN-I' on AUG 14, 2006
+1 ;Part 5
+2 ;Copyright 2006 SAIC
EN IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+1 SET @INV@("PV17")=$GET(X)
+2 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV17' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+3 KILL DXS
+4 SET (INX,X)=$GET(@INV@("PV18"))
+5 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+6 SET @INV@("PV18")=$GET(X)
+7 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV18' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+8 KILL DXS
+9 SET (INX,X)=$GET(@INV@("PV19"))
+10 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+11 SET @INV@("PV19")=$GET(X)
+12 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV19' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+13 KILL DXS
+14 SET (INX,X)=$GET(@INV@("PV110"))
+15 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+16 SET @INV@("PV110")=$GET(X)
+17 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV110' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+18 KILL DXS
+19 SET (INX,X)=$GET(@INV@("PV111"))
+20 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+21 SET @INV@("PV111")=$GET(X)
+22 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV111' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+23 KILL DXS
+24 SET (INX,X)=$GET(@INV@("PV112"))
+25 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+26 SET @INV@("PV112")=$GET(X)
+27 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV112' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+28 KILL DXS
+29 SET (INX,X)=$GET(@INV@("PV113"))
+30 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+31 SET @INV@("PV113")=$GET(X)
+32 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV113' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+33 KILL DXS
+34 SET (INX,X)=$GET(@INV@("PV114"))
+35 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+36 SET @INV@("PV114")=$GET(X)
+37 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV114' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+38 KILL DXS
+39 SET (INX,X)=$GET(@INV@("PV115"))
+40 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+41 SET @INV@("PV115")=$GET(X)
+42 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV115' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+43 KILL DXS
+44 SET (INX,X)=$GET(@INV@("PV116"))
+45 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+46 SET @INV@("PV116")=$GET(X)
+47 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV116' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+48 KILL DXS
+49 SET (INX,X)=$GET(@INV@("PV117"))
+50 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+51 SET @INV@("PV117")=$GET(X)
+52 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV117' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+53 KILL DXS
+54 SET (INX,X)=$GET(@INV@("PV118"))
+55 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+56 SET @INV@("PV118")=$GET(X)
+57 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV118' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+58 KILL DXS
+59 SET (INX,X)=$GET(@INV@("PV119"))
+60 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+61 SET @INV@("PV119")=$GET(X)
+62 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV119' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+63 KILL DXS
+64 SET (INX,X)=$GET(@INV@("PV120"))
+65 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+66 SET @INV@("PV120")=$GET(X)
+67 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV120' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+68 KILL DXS
+69 SET (INX,X)=$GET(@INV@("PV121"))
+70 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+71 SET @INV@("PV121")=$GET(X)
+72 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV121' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+73 KILL DXS
+74 SET (INX,X)=$GET(@INV@("PV122"))
+75 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+76 SET @INV@("PV122")=$GET(X)
+77 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV122' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+78 KILL DXS
+79 SET (INX,X)=$GET(@INV@("PV123"))
+80 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+81 SET @INV@("PV123")=$GET(X)
+82 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV123' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+83 KILL DXS
+84 SET (INX,X)=$GET(@INV@("PV124"))
+85 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+86 SET @INV@("PV124")=$GET(X)
+87 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV124' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+88 KILL DXS
+89 SET (INX,X)=$GET(@INV@("PV125"))
+90 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+91 SET @INV@("PV125")=$GET(X)
+92 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV125' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+93 KILL DXS
+94 SET (INX,X)=$GET(@INV@("PV126"))
+95 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+96 SET @INV@("PV126")=$GET(X)
+97 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV126' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+98 KILL DXS
+99 SET (INX,X)=$GET(@INV@("PV127"))
+100 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+101 SET @INV@("PV127")=$GET(X)
+102 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV127' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+103 KILL DXS
+104 SET (INX,X)=$GET(@INV@("PV128"))
+105 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+106 SET @INV@("PV128")=$GET(X)
+107 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV128' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+108 KILL DXS
+109 SET (INX,X)=$GET(@INV@("PV129"))
+110 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+111 SET @INV@("PV129")=$GET(X)
+112 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV129' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+113 KILL DXS
+114 SET (INX,X)=$GET(@INV@("PV130"))
+115 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+116 SET @INV@("PV130")=$GET(X)
+117 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV130' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+118 KILL DXS
+119 SET (INX,X)=$GET(@INV@("PV131"))
+120 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+121 SET @INV@("PV131")=$GET(X)
+122 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV131' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+123 KILL DXS
+124 SET (INX,X)=$GET(@INV@("PV132"))
+125 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+126 SET @INV@("PV132")=$GET(X)
+127 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV132' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+128 KILL DXS
+129 SET (INX,X)=$GET(@INV@("PV133"))
+130 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+131 SET @INV@("PV133")=$GET(X)
+132 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV133' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+133 KILL DXS
+134 SET (INX,X)=$GET(@INV@("PV134"))
+135 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+136 SET @INV@("PV134")=$GET(X)
+137 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV134' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+138 KILL DXS
+139 SET (INX,X)=$GET(@INV@("PV135"))
+140 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+141 SET @INV@("PV135")=$GET(X)
+142 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV135' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+143 KILL DXS
+144 SET (INX,X)=$GET(@INV@("PV136"))
9 GOTO EN^IS00022E
