sorry it broke off in between this is the remaining compiling error
##W TBLD 000000 10:54:44(384) <main_program> Error when checking composite operator: Output from subprocess: "/usr/local/Ascential/Projects/cs_eob_dev/RT_BP855.O/V0S73_EOB_FileLayout_2008_Job_2_copy_test1_Xfm_Mem.C", line 5273.40: 1540-0274 (S) The name lookup for "APT_strle" did not find a declaration.
##I TFCP 000000 10:54:44(385) <transform> Error when checking composite operator: /usr/vacpp/bin/xlC_r -O -I/usr/local/Ascential/DataStage/PXEngine/include -O -c -qspill=32704 /usr/local/Ascential/Projects/cs_eob_dev/RT_BP855.O/V0S73_EOB_FileLayout_2008_Job_2_copy_test1_Xfm_Mem.C -o /usr/local/Ascential/Projects/cs_eob_dev/RT_BP855.O/V0S73_EOB_FileLayout_2008_Job_2_copy_test1_Xfm_Mem.tmp.o.
##E TCOS 000029 10:54:44(386) <main_program> Creation of a step finished with status = FAILED. [osh.C:1185] (EOB_FileLayout_2008_Job_2_copy_test1.Xfm_Mem)
*** Internal Generated Transformer Code follows:
0001: //
0002: // Generated file to implement the V0S73_repos_Xfm_Mem transform operator.
0003: //
0004:
0005: // define our input/output link names
0006: inputname 0 To_Mem_Xfm;
0007: outputname 0 To_Lkup_Plan;
0008: outputname 1 To_Clm;
0009: outputname 2 To_Fml;
0010:
0011: global {
0012: // Job parameter declaration
0013: string CLIENT_ID;
0014: }
0015:
0016: initialize {
0017: // define our row rejected variable
0018: int8 RowRejected0;
0019:
0020: // define our null set variable
0021: int8 NullSetVar0;
0022:
0023: // declare our intermediate variables for this section
0024: string InterVar0_0;
0025: string InterVar0_1;
0026: string InterVar0_2;
0027: string InterVar0_3;
0028: string InterVar0_4;
0029: string InterVar0_5;
0030: string InterVar0_6;
0031: string InterVar0_7;
0032: string InterVar0_8;
0033: string InterVar0_9;
0034: string InterVar0_10;
0035: string InterVar0_11;
0036: string InterVar0_12;
0037: string InterVar0_13;
0038: string InterVar0_14;
0039: string InterVar0_15;
0040: string InterVar0_16;
0041: string InterVar0_17;
0042: string InterVar0_18;
0043: string InterVar0_19;
0044: string InterVar0_20;
0045: string InterVar0_21;
0046: string InterVar0_22;
0047: string InterVar0_23;
0048: string InterVar0_24;
0049: string InterVar0_25;
0050: string InterVar0_26;
0051: string InterVar0_27;
0052: string InterVar0_28;
0053: string InterVar0_29;
0054: string InterVar0_30;
0055: string InterVar0_31;
0056: string InterVar0_32;
0057: string InterVar0_33;
0058: string InterVar0_34;
0059: string InterVar0_35;
0060: string InterVar0_36;
0061: string InterVar0_37;
0062: string InterVar0_38;
0063: string InterVar0_39;
0064: string InterVar0_40;
0065: string InterVar0_41;
0066: string InterVar0_42;
0067: string InterVar0_43;
0068: string InterVar0_44;
0069: string InterVar0_45;
0070: string InterVar0_46;
0071: string InterVar0_47;
0072: string InterVar0_48;
0073: string InterVar0_49;
0074: string InterVar0_50;
0075: string InterVar0_51;
0076: string InterVar0_52;
0077: string InterVar0_53;
0078: string InterVar0_54;
0079: string InterVar0_55;
0080: string InterVar0_56;
0081: string InterVar0_57;
0082: string InterVar0_58;
0083: string InterVar0_59;
0084: string InterVar0_60;
0085: string InterVar0_61;
0086: string InterVar0_62;
0087: string InterVar0_63;
0088: string InterVar0_64;
0089: string InterVar0_65;
0090: string InterVar0_66;
0091: string InterVar0_67;
0092: string InterVar0_68;
0093: string InterVar0_69;
0094: string InterVar0_70;
0095: string InterVar0_71;
0096: string InterVar0_72;
0097: string InterVar0_73;
0098: string InterVar0_74;
0099: string InterVar0_75;
0100: string InterVar0_78;
0101: string InterVar0_82;
0102: string InterVar0_83;
0103: string InterVar0_84;
0104: string InterVar0_87;
0105: string InterVar0_88;
0106: string InterVar0_90;
0107: string InterVar0_93;
0108: string InterVar0_94;
0109:
0110: // initialise constant values which require conversion
0111: InterVar0_0 = "";
0112: InterVar0_1 = "Y";
0113: InterVar0_2 = "EN";
0114: InterVar0_3 = "S001";
0115: InterVar0_4 = "SP";
0116: InterVar0_5 = "S101";
0117: InterVar0_6 = "N";
0118: InterVar0_7 = "4";
0119: InterVar0_8 = "S002";
0120: InterVar0_9 = "S102";
0121: InterVar0_10 = "S003";
0122: InterVar0_11 = "S103";
0123: InterVar0_12 = "S004";
0124: InterVar0_13 = "S104";
0125: InterVar0_14 = "1";
0126: InterVar0_15 = "2";
0127: InterVar0_16 = "3";
0128: InterVar0_17 = "S005";
0129: InterVar0_18 = "S105";
0130: InterVar0_19 = "S006";
0131: InterVar0_20 = "S106";
0132: InterVar0_21 = "S007";
0133: InterVar0_22 = "S107";
0134: InterVar0_23 = "S008";
0135: InterVar0_24 = "S108";
0136: InterVar0_25 = "S009";
0137: InterVar0_26 = "S109";
0138: InterVar0_27 = "S010";
0139: InterVar0_28 = "S110";
0140: InterVar0_29 = "S011";
0141: InterVar0_30 = "S111";
0142: InterVar0_31 = "S012";
0143: InterVar0_32 = "S112";
0144: InterVar0_33 = "S013";
0145: InterVar0_34 = "S113";
0146: InterVar0_35 = "S014";
0147: InterVar0_36 = "S114";
0148: InterVar0_37 = "S015";
0149: InterVar0_38 = "S115";
0150: InterVar0_39 = "S016";
0151: InterVar0_40 = "S116";
0152: InterVar0_41 = "S017";
0153: InterVar0_42 = "S117";
0154: InterVar0_43 = "S018";
0155: InterVar0_44 = "S118";
0156: InterVar0_45 = "S019";
0157: InterVar0_46 = "S119";
0158: InterVar0_47 = "E";
0159: InterVar0_48 = "O";
0160: InterVar0_49 = "S020";
0161: InterVar0_50 = "S120";
0162: InterVar0_51 = "S021";
0163: InterVar0_52 = "S121";
0164: InterVar0_53 = "S022";
0165: InterVar0_54 = "S122";
0166: InterVar0_55 = "S023";
0167: InterVar0_56 = "S123";
0168: InterVar0_57 = "S024";
0169: InterVar0_58 = "S124";
0170: InterVar0_59 = "S025";
0171: InterVar0_60 = "S125";
0172: InterVar0_61 = "S026";
0173: InterVar0_62 = "S126";
0174: InterVar0_63 = "S027";
0175: InterVar0_64 = "S127";
0176: InterVar0_65 = "IBEN";
0177: InterVar0_66 = "S028";
0178: InterVar0_67 = "S128";
0179: InterVar0_68 = "CGAP";
0180: InterVar0_69 = "S029";
0181: InterVar0_70 = "S129";
0182: InterVar0_71 = "CATA";
0183: InterVar0_72 = "S030";
0184: InterVar0_73 = "S130";
0185: InterVar0_74 = "0";
0186: InterVar0_75 = ".";
0187: InterVar0_78 = "fix_zero,suppress_zero";
0188: InterVar0_82 = 1;
0189: InterVar0_83 = "-";
0190: InterVar0_84 = "-01";
0191: InterVar0_87 = "MEM";
0192: InterVar0_88 = " ";
0193: InterVar0_90 = "suppress_zero";
0194: InterVar0_93 = "Tier1 and Tier2";
0195: InterVar0_94 = "a";
0196: // Stage variable declaration and initialisation
0197: string StageVar0_Dcode;
0198: StageVar0_Dcode = "";
0199: string StageVar0_S1;
0200: StageVar0_S1 = "";
0201: string StageVar0_S2;
0202: StageVar0_S2 = "";
0203: string StageVar0_S3;
0204: StageVar0_S3 = "";
0205: string StageVar0_S4;
0206: StageVar0_S4 = "";
0207: string StageVar0_S5;
0208: StageVar0_S5 = "";
0209: string StageVar0_S6;
0210: StageVar0_S6 = "";
0211: string StageVar0_S7;
0212: StageVar0_S7 = "";
0213: string StageVar0_S8;
0214: StageVar0_S8 = "";
0215: string StageVar0_S9;
0216: StageVar0_S9 = "";
0217: string StageVar0_S10;
0218: StageVar0_S10 = "";
0219: string StageVar0_S11;
0220: StageVar0_S11 = "";
0221: string StageVar0_S12;
0222: StageVar0_S12 = "";
0223: string StageVar0_S13;
0224: StageVar0_S13 = "";
0225: string StageVar0_S14;
0226: StageVar0_S14 = "";
0227: string StageVar0_S15;
0228: StageVar0_S15 = "";
0229: string StageVar0_S16;
0230: StageVar0_S16 = "";
0231: string StageVar0_S17;
0232: StageVar0_S17 = "";
0233: string StageVar0_S18;
0234: StageVar0_S18 = "";
0235: string StageVar0_S19;
0236: StageVar0_S19 = "";
0237: string StageVar0_S20;
0238: StageVar0_S20 = "";
0239: string StageVar0_S21;
0240: StageVar0_S21 = "";
0241: string StageVar0_S22;
0242: StageVar0_S22 = "";
0243: string StageVar0_S23;
0244: StageVar0_S23 = "";
0245: string StageVar0_S24;
0246: StageVar0_S24 = "";
0247: string StageVar0_S25;
0248: StageVar0_S25 = "";
0249: string StageVar0_S26;
0250: StageVar0_S26 = "";
0251: string StageVar0_S27;
0252: StageVar0_S27 = "";
0253: string StageVar0_S28;
0254: StageVar0_S28 = "";
0255: string StageVar0_S29;
0256: StageVar0_S29 = "";
0257: string StageVar0_S30;
0258: StageVar0_S30 = "";
0259: string StageVar0_Pat;
0260: StageVar0_Pat = "";
0261: string StageVar0_svYear;
0262: StageVar0_svYear = "";
0263: string StageVar0_svMonth;
0264: StageVar0_svMonth = "";
0265: string StageVar0_StageVar;
0266: StageVar0_StageVar = "";
0267: string StageVar0_plan;
0268: StageVar0_plan = "";
0269: string StageVar0_init;
0270: StageVar0_init = "";
0271: }
0272:
0273: mainloop {
0274: // initialise our row rejected variable
0275: RowRejected0 = 1;
0276:
0277: // declare our intermediate variables for this section
0278: string InterVar0_76;
0279: decimal InterVar0_77;
0280: int32 InterVar0_79;
0281: string InterVar0_80;
0282: decimal InterVar0_81;
0283: dfloat InterVar0_85;
0284: dfloat InterVar0_86;
0285: int32 InterVar0_89;
0286: string InterVar0_91;
0287: string InterVar0_92;
0288:
0289: // evaluate the stage variables first
0290: if (null(To_Mem_Xfm.DRUG_COVERAGE_CD)) {
0291: StageVar0_Dcode = InterVar0_0;
0292: } else {
0293: StageVar0_Dcode = To_Mem_Xfm.DRUG_COVERAGE_CD;
0294: }
0295: //;
0296: if (((trimc_string(To_Mem_Xfm.FORMULARY_AVAILABLE_IND) == InterVar0_1) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0297: StageVar0_S1 = InterVar0_3;
0298: } else {
0299: if (((trimc_string(To_Mem_Xfm.FORMULARY_AVAILABLE_IND) == InterVar0_1) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0300: StageVar0_S1 = InterVar0_5;
0301: } else {
0302: StageVar0_S1 = InterVar0_0;
0303: }
0304: //;
0305: }
0306: //;
0307: if (((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_7)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0308: StageVar0_S2 = InterVar0_8;
0309: } else {
0310: if (((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_7)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0311: StageVar0_S2 = InterVar0_9;
0312: } else {
0313: StageVar0_S2 = InterVar0_0;
0314: }
0315: //;
0316: }
0317: //;
0318: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0319: StageVar0_S3 = InterVar0_10;
0320: } else {
0321: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0322: StageVar0_S3 = InterVar0_11;
0323: } else {
0324: StageVar0_S3 = InterVar0_0;
0325: }
0326: //;
0327: }
0328: //;
0329: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_6)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0330: StageVar0_S4 = InterVar0_12;
0331: } else {
0332: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_6)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0333: StageVar0_S4 = InterVar0_13;
0334: } else {
0335: StageVar0_S4 = InterVar0_0;
0336: }
0337: //;
0338: }
0339: //;
0340: if ((((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_14) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_15)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_16)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0341: StageVar0_S5 = InterVar0_17;
0342: } else {
0343: if ((((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_14) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_15)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_16)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0344: StageVar0_S5 = InterVar0_18;
0345: } else {
0346: StageVar0_S5 = InterVar0_0;
0347: }
0348: //;
0349: }
0350: //;
0351: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_7) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0352: StageVar0_S6 = InterVar0_19;
0353: } else {
0354: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_7) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0355: StageVar0_S6 = InterVar0_20;
0356: } else {
0357: StageVar0_S6 = InterVar0_0;
0358: }
0359: //;
0360: }
0361: //;
0362: if ((((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_14) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_15)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_16)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0363: StageVar0_S7 = InterVar0_21;
0364: } else {
0365: if ((((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_14) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_15)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_16)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0366: StageVar0_S7 = InterVar0_22;
0367: } else {
0368: StageVar0_S7 = InterVar0_0;
0369: }
0370: //;
0371: }
0372: //;
0373: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0374: StageVar0_S8 = InterVar0_23;
0375: } else {
0376: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0377: StageVar0_S8 = InterVar0_24;
0378: } else {
0379: StageVar0_S8 = InterVar0_0;
0380: }
0381: //;
0382: }
0383: //;
0384: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_6)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0385: StageVar0_S9 = InterVar0_25;
0386: } else {
0387: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_6)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0388: StageVar0_S9 = InterVar0_26;
0389: } else {
0390: StageVar0_S9 = InterVar0_0;
0391: }
0392: //;
0393: }
0394: //;
0395: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0396: StageVar0_S10 = InterVar0_27;
0397: } else {
0398: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0399: StageVar0_S10 = InterVar0_28;
0400: } else {
0401: StageVar0_S10 = InterVar0_0;
0402: }
0403: //;
0404: }
0405: //;
0406: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0407: StageVar0_S11 = InterVar0_29;
0408: } else {
0409: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0410: StageVar0_S11 = InterVar0_30;
0411: } else {
0412: StageVar0_S11 = InterVar0_0;
0413: }
0414: //;
0415: }
0416: //;
0417: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0418: StageVar0_S12 = InterVar0_31;
0419: } else {
0420: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0421: StageVar0_S12 = InterVar0_32;
0422: } else {
0423: StageVar0_S12 = InterVar0_0;
0424: }
0425: //;
0426: }
0427: //;
0428: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0429: StageVar0_S13 = InterVar0_33;
0430: } else {
0431: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0432: StageVar0_S13 = InterVar0_34;
0433: } else {
0434: StageVar0_S13 = InterVar0_0;
0435: }
0436: //;
0437: }
0438: //;
0439: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0440: StageVar0_S14 = InterVar0_35;
0441: } else {
0442: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0443: StageVar0_S14 = InterVar0_36;
0444: } else {
0445: StageVar0_S14 = InterVar0_0;
0446: }
0447: //;
0448: }
0449: //;
0450: if ((((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_14) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_15)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_16)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_7)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0451: StageVar0_S15 = InterVar0_37;
0452: } else {
0453: if ((((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_14) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_15)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_16)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_7)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0454: StageVar0_S15 = InterVar0_38;
0455: } else {
0456: StageVar0_S15 = InterVar0_0;
0457: }
0458: //;
0459: }
0460: //;
0461: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0462: StageVar0_S16 = InterVar0_39;
0463: } else {
0464: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0465: StageVar0_S16 = InterVar0_40;
0466: } else {
0467: StageVar0_S16 = InterVar0_0;
0468: }
0469: //;
0470: }
0471: //;
0472: if ((trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2)) {
0473: StageVar0_S17 = InterVar0_41;
0474: } else {
0475: if ((trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4)) {
0476: StageVar0_S17 = InterVar0_42;
0477: } else {
0478: StageVar0_S17 = InterVar0_0;
0479: }
0480: //;
0481: }
0482: //;
0483: if ((((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_14) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_15)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_16)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_7)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0484: StageVar0_S18 = InterVar0_43;
0485: } else {
0486: if ((((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_14) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_15)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_16)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_7)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0487: StageVar0_S18 = InterVar0_44;
0488: } else {
0489: StageVar0_S18 = InterVar0_0;
0490: }
0491: //;
0492: }
0493: //;
0494: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0495: StageVar0_S19 = InterVar0_45;
0496: } else {
0497: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0498: StageVar0_S19 = InterVar0_46;
0499: } else {
0500: StageVar0_S19 = InterVar0_0;
0501: }
0502: //;
0503: }
0504: //;
0505: if ((((StageVar0_Dcode == InterVar0_47) || (StageVar0_Dcode == InterVar0_48)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0506: StageVar0_S20 = InterVar0_49;
0507: } else {
0508: if ((((StageVar0_Dcode == InterVar0_47) || (StageVar0_Dcode == InterVar0_48)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0509: StageVar0_S20 = InterVar0_50;
0510: } else {
0511: StageVar0_S20 = InterVar0_0;
0512: }
0513: //;
0514: }
0515: //;
0516: if (((((StageVar0_Dcode == InterVar0_47) || (StageVar0_Dcode == InterVar0_48)) && (To_Mem_Xfm.count == 1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0517: StageVar0_S21 = InterVar0_51;
0518: } else {
0519: if (((((StageVar0_Dcode == InterVar0_47) || (StageVar0_Dcode == InterVar0_48)) && (To_Mem_Xfm.count == 1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0520: StageVar0_S21 = InterVar0_52;
0521: } else {
0522: StageVar0_S21 = InterVar0_0;
0523: }
0524: //;
0525: }
0526: //;
0527: if (((((StageVar0_Dcode == InterVar0_47) || (StageVar0_Dcode == InterVar0_48)) && (To_Mem_Xfm.count > 1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0528: StageVar0_S22 = InterVar0_53;
0529: } else {
0530: if (((((StageVar0_Dcode == InterVar0_47) || (StageVar0_Dcode == InterVar0_48)) && (To_Mem_Xfm.count > 1)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0531: StageVar0_S22 = InterVar0_54;
0532: } else {
0533: StageVar0_S22 = InterVar0_0;
0534: }
0535: //;
0536: }
0537: //;
0538: if ((((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_14) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_15)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_16)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_7)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0539: StageVar0_S23 = InterVar0_55;
0540: } else {
0541: if ((((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_14) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_15)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_16)) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_7)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0542: StageVar0_S23 = InterVar0_56;
0543: } else {
0544: StageVar0_S23 = InterVar0_0;
0545: }
0546: //;
0547: }
0548: //;
0549: if (((trimc_string(To_Mem_Xfm.FORMULARY_AVAILABLE_IND) == InterVar0_1) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0550: StageVar0_S24 = InterVar0_57;
0551: } else {
0552: if (((trimc_string(To_Mem_Xfm.FORMULARY_AVAILABLE_IND) == InterVar0_1) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0553: StageVar0_S24 = InterVar0_58;
0554: } else {
0555: StageVar0_S24 = InterVar0_0;
0556: }
0557: //;
0558: }
0559: //;
0560: if ((trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2)) {
0561: StageVar0_S25 = InterVar0_59;
0562: } else {
0563: if ((trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4)) {
0564: StageVar0_S25 = InterVar0_60;
0565: } else {
0566: StageVar0_S25 = InterVar0_0;
0567: }
0568: //;
0569: }
0570: //;
0571: if ((notnull(To_Mem_Xfm.ALT_DRUG_NAME) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0572: StageVar0_S26 = InterVar0_61;
0573: } else {
0574: if ((notnull(To_Mem_Xfm.ALT_DRUG_NAME) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0575: StageVar0_S26 = InterVar0_62;
0576: } else {
0577: StageVar0_S26 = InterVar0_0;
0578: }
0579: //;
0580: }
0581: //;
0582: if (((trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2) && (trimc_string(To_Mem_Xfm.APPEAL_BY_PHONE_IND) == InterVar0_6))) {
0583: StageVar0_S27 = InterVar0_63;
0584: } else {
0585: if (((trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4) && (trimc_string(To_Mem_Xfm.APPEAL_BY_PHONE_IND) == InterVar0_6))) {
0586: StageVar0_S27 = InterVar0_64;
0587: } else {
0588: StageVar0_S27 = InterVar0_0;
0589: }
0590: //;
0591: }
0592: //;
0593: if (((trimc_string(To_Mem_Xfm.NEXT_COVERAGE_STREAM) == InterVar0_65) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0594: StageVar0_S28 = InterVar0_66;
0595: } else {
0596: if (((trimc_string(To_Mem_Xfm.NEXT_COVERAGE_STREAM) == InterVar0_65) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0597: StageVar0_S28 = InterVar0_67;
0598: } else {
0599: StageVar0_S28 = InterVar0_0;
0600: }
0601: //;
0602: }
0603: //;
0604: if (((trimc_string(To_Mem_Xfm.NEXT_COVERAGE_STREAM) == InterVar0_68) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0605: StageVar0_S29 = InterVar0_69;
0606: } else {
0607: if (((trimc_string(To_Mem_Xfm.NEXT_COVERAGE_STREAM) == InterVar0_68) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0608: StageVar0_S29 = InterVar0_70;
0609: } else {
0610: StageVar0_S29 = InterVar0_0;
0611: }
0612: //;
0613: }
0614: //;
0615: if (((trimc_string(To_Mem_Xfm.NEXT_COVERAGE_STREAM) == InterVar0_71) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_2))) {
0616: StageVar0_S30 = InterVar0_72;
0617: } else {
0618: if (((trimc_string(To_Mem_Xfm.NEXT_COVERAGE_STREAM) == InterVar0_71) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_4))) {
0619: StageVar0_S30 = InterVar0_73;
0620: } else {
0621: StageVar0_S30 = InterVar0_0;
0622: }
0623: //;
0624: }
0625: //;
0626: InterVar0_76 = To_Mem_Xfm.PAT_IBEN_AMT;
0627: InterVar0_77 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_76);
0628: InterVar0_79 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_77 , InterVar0_78)));
0629: InterVar0_80 = To_Mem_Xfm.PAT_IBEN_AMT;
0630: InterVar0_81 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_80);
0631: StageVar0_Pat = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(string_from_decimal(InterVar0_81 , InterVar0_78)));
0632: if ((month_from_date(date_from_string(substring_1(string_from_timestamp(To_Mem_Xfm.EOB_MONTH) , 1 , 10))) < 12)) {
0633: InterVar0_76 = year_from_date(date_from_string(substring_1(string_from_timestamp(To_Mem_Xfm.EOB_MONTH) , 1 , 10)));
0634: StageVar0_svYear = InterVar0_76;
0635: } else {
0636: InterVar0_80 = year_from_date(date_from_string(substring_1(string_from_timestamp(To_Mem_Xfm.EOB_MONTH) , 1 , 10))) + 1;
0637: StageVar0_svYear = InterVar0_80;
0638: }
0639: //;
0640: if ((month_from_date(date_from_string(substring_1(string_from_timestamp(To_Mem_Xfm.EOB_MONTH) , 1 , 10))) < 12)) {
0641: InterVar0_76 = month_from_date(date_from_string(substring_1(string_from_timestamp(To_Mem_Xfm.EOB_MONTH) , 1 , 10))) + 1;
0642: StageVar0_svMonth = InterVar0_76;
0643: } else {
0644: StageVar0_svMonth = InterVar0_82;
0645: }
0646: //;
0647: if (((month_from_date(date_from_string(substring_1(string_from_timestamp(To_Mem_Xfm.EOB_MONTH) , 1 , 10))) == 10) || (month_from_date(date_from_string(substring_1(string_from_timestamp(To_Mem_Xfm.EOB_MONTH) , 1 , 10))) == 11))) {
0648: StageVar0_StageVar = string_from_date(date_from_days_since(-1 , string_from_date(date_from_string((((StageVar0_svYear + InterVar0_83) + StageVar0_svMonth) + InterVar0_84)))));
0649: } else {
0650: StageVar0_StageVar = string_from_date(date_from_days_since(-1 , string_from_date(date_from_string(((((StageVar0_svYear + InterVar0_83) + InterVar0_74) + StageVar0_svMonth) + InterVar0_84)))));
0651: }
0652: //;
0653: InterVar0_76 = To_Mem_Xfm.PLAN_IBEN_AMT;
0654: InterVar0_77 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_76);
0655: InterVar0_79 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_77 , InterVar0_78)));
0656: InterVar0_80 = To_Mem_Xfm.PLAN_IBEN_AMT;
0657: InterVar0_81 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_80);
0658: StageVar0_plan = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(string_from_decimal(InterVar0_81 , InterVar0_78)));
0659: InterVar0_85 = StageVar0_Pat;
0660: InterVar0_86 = StageVar0_plan;
0661: StageVar0_init = (InterVar0_85 + InterVar0_86);
0662:
0663: // evaluate constraint and columns for link: To_Lkup_Plan
0664: if ((To_Mem_Xfm.CLIENT_ID == CLIENT_ID))
0665: {
0666: To_Lkup_Plan.RECORD_ID = InterVar0_87;
0667: InterVar0_76 = To_Mem_Xfm.EOB_ID;
0668: InterVar0_79 = 15 - string_length(trimc_string(InterVar0_76));
0669: InterVar0_80 = To_Mem_Xfm.EOB_ID;
0670: To_Lkup_Plan.EOB_ID = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(InterVar0_80));
0671: InterVar0_79 = 20 - string_length(trimc_string(To_Mem_Xfm.TEMPLATE_ID));
0672: To_Lkup_Plan.TEMPLATE_ID = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(To_Mem_Xfm.TEMPLATE_ID));
0673: To_Lkup_Plan.Rec_Ind = InterVar0_14;
0674: To_Lkup_Plan.DATE_EOB = ((substring_1(string_from_date(current_date()) , 6 , 2) + substring_1(string_from_date(current_date()) , 9 , 2)) + substring_1(string_from_date(current_date()) , 1 , 4));
0675: if (null(To_Mem_Xfm.PATIENT_ID)) {
0676: To_Lkup_Plan.PATIENT_ID = string_of_substring(InterVar0_88 , 10);
0677: } else {
0678: InterVar0_76 = To_Mem_Xfm.PATIENT_ID;
0679: InterVar0_80 = To_Mem_Xfm.PATIENT_ID;
0680: InterVar0_79 = 10 - string_length(trimc_string(InterVar0_80));
0681: To_Lkup_Plan.PATIENT_ID = (trimc_string(InterVar0_76) + string_of_substring(InterVar0_88 , InterVar0_79));
0682: }
0683: //;
0684: if (null(To_Mem_Xfm.BENEFIT_YEAR)) {
0685: To_Lkup_Plan.DEDU_YEAR = string_of_substring(InterVar0_88 , 4);
0686: } else {
0687: InterVar0_76 = To_Mem_Xfm.BENEFIT_YEAR;
0688: InterVar0_80 = To_Mem_Xfm.BENEFIT_YEAR;
0689: InterVar0_79 = 4 - string_length(trimc_string(InterVar0_80));
0690: To_Lkup_Plan.DEDU_YEAR = (trimc_string(InterVar0_76) + string_of_substring(InterVar0_88 , InterVar0_79));
0691: }
0692: //;
0693: To_Lkup_Plan.MONTH_ST_DATE = ((substring_1(string_from_timestamp(To_Mem_Xfm.EOB_MONTH) , 6 , 2) + substring_1(string_from_timestamp(To_Mem_Xfm.EOB_MONTH) , 9 , 2)) + substring_1(string_from_timestamp(To_Mem_Xfm.EOB_MONTH) , 1 , 4));
0694: To_Lkup_Plan.MONTH_END_DATE = ((substring_1(StageVar0_StageVar , 6 , 2) + substring_1(StageVar0_StageVar , 9 , 2)) + substring_1(StageVar0_StageVar , 1 , 4));
0695: if (notnull(To_Mem_Xfm.MEMBER_ALIAS_ID)) {
0696: InterVar0_79 = 20 - string_length(trimc_string(To_Mem_Xfm.MEMBER_ALIAS_ID));
0697: To_Lkup_Plan.MEMBER_ID = (trimc_string(To_Mem_Xfm.MEMBER_ALIAS_ID) + string_of_substring(InterVar0_88 , InterVar0_79));
0698: } else {
0699: InterVar0_89 = 20 - string_length(trimc_string(To_Mem_Xfm.CARDHOLDER_ID));
0700: To_Lkup_Plan.MEMBER_ID = (trimc_string(To_Mem_Xfm.CARDHOLDER_ID) + string_of_substring(InterVar0_88 , InterVar0_89));
0701: }
0702: //;
0703: if (null(To_Mem_Xfm.GROUP_ID)) {
0704: To_Lkup_Plan.GROUP_ID = string_of_substring(InterVar0_88 , 15);
0705: } else {
0706: InterVar0_79 = 15 - string_length(trimc_string(To_Mem_Xfm.GROUP_ID));
0707: To_Lkup_Plan.GROUP_ID = (trimc_string(To_Mem_Xfm.GROUP_ID) + string_of_substring(InterVar0_88 , InterVar0_79));
0708: }
0709: //;
0710: To_Lkup_Plan.PCN_GROUP_ID = string_of_substring(InterVar0_88 , 15);
0711: if (null(To_Mem_Xfm.DEDU_MAX)) {
0712: To_Lkup_Plan.DEDU_MAX = string_of_substring(InterVar0_74 , 4);
0713: } else {
0714: InterVar0_77 = To_Mem_Xfm.DEDU_MAX;
0715: InterVar0_79 = 4 - string_length(string_from_decimal(InterVar0_77 , InterVar0_90));
0716: InterVar0_81 = To_Mem_Xfm.DEDU_MAX;
0717: To_Lkup_Plan.DEDU_MAX = (string_of_substring(InterVar0_74 , InterVar0_79) + string_from_decimal(InterVar0_81 , InterVar0_90));
0718: }
0719: //;
0720: if (null(To_Mem_Xfm.PAT_DEDU_AMT)) {
0721: To_Lkup_Plan.PAT_DEDU_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0722: } else {
0723: InterVar0_76 = To_Mem_Xfm.PAT_DEDU_AMT;
0724: InterVar0_77 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_76);
0725: InterVar0_79 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_77 , InterVar0_78)));
0726: InterVar0_80 = To_Mem_Xfm.PAT_DEDU_AMT;
0727: InterVar0_81 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_80);
0728: To_Lkup_Plan.PAT_DEDU_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(string_from_decimal(InterVar0_81 , InterVar0_78)));
0729: }
0730: //;
0731: if (null(To_Mem_Xfm.PLAN_DEDU_AMT)) {
0732: To_Lkup_Plan.PLAN_DEDU_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0733: } else {
0734: InterVar0_76 = To_Mem_Xfm.PLAN_DEDU_AMT;
0735: InterVar0_77 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_76);
0736: InterVar0_79 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_77 , InterVar0_78)));
0737: InterVar0_80 = To_Mem_Xfm.PLAN_DEDU_AMT;
0738: InterVar0_81 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_80);
0739: To_Lkup_Plan.PLAN_DEDU_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(string_from_decimal(InterVar0_81 , InterVar0_78)));
0740: }
0741: //;
0742: if (null(To_Mem_Xfm.TROOP_DEDU_AMT)) {
0743: To_Lkup_Plan.TROOP_DEDU_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0744: } else {
0745: InterVar0_76 = To_Mem_Xfm.TROOP_DEDU_AMT;
0746: InterVar0_85 = trimc_string(InterVar0_76);
0747: InterVar0_80 = InterVar0_85 * 100;
0748: InterVar0_79 = 8 - string_length(InterVar0_80);
0749: InterVar0_91 = To_Mem_Xfm.TROOP_DEDU_AMT;
0750: InterVar0_86 = trimc_string(InterVar0_91);
0751: InterVar0_92 = InterVar0_86 * 100;
0752: To_Lkup_Plan.TROOP_DEDU_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0753: }
0754: //;
0755: if (null(To_Mem_Xfm.NON_TROOP_DEDU_AMT)) {
0756: To_Lkup_Plan.NON_TROOP_DEDU_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0757: } else {
0758: InterVar0_76 = To_Mem_Xfm.NON_TROOP_DEDU_AMT;
0759: InterVar0_85 = trimc_string(InterVar0_76);
0760: InterVar0_80 = InterVar0_85 * 100;
0761: InterVar0_79 = 8 - string_length(InterVar0_80);
0762: InterVar0_91 = To_Mem_Xfm.NON_TROOP_DEDU_AMT;
0763: InterVar0_86 = trimc_string(InterVar0_91);
0764: InterVar0_92 = InterVar0_86 * 100;
0765: To_Lkup_Plan.NON_TROOP_DEDU_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0766: }
0767: //;
0768: if (null(To_Mem_Xfm.AMT_LEFT_TO_IBEN)) {
0769: To_Lkup_Plan.AMT_LEFT_TO_IBEN = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0770: } else {
0771: InterVar0_76 = To_Mem_Xfm.AMT_LEFT_TO_IBEN;
0772: InterVar0_85 = trimc_string(InterVar0_76);
0773: InterVar0_80 = InterVar0_85 * 100;
0774: InterVar0_79 = 8 - string_length(InterVar0_80);
0775: InterVar0_91 = To_Mem_Xfm.AMT_LEFT_TO_IBEN;
0776: InterVar0_86 = trimc_string(InterVar0_91);
0777: InterVar0_92 = InterVar0_86 * 100;
0778: To_Lkup_Plan.AMT_LEFT_TO_IBEN = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0779: }
0780: //;
0781: if (null(To_Mem_Xfm.IBEN_MAX)) {
0782: To_Lkup_Plan.IBEN_MAX = string_of_substring(InterVar0_74 , 4);
0783: } else {
0784: InterVar0_76 = To_Mem_Xfm.IBEN_MAX;
0785: InterVar0_85 = trimc_string(InterVar0_76);
0786: InterVar0_80 = InterVar0_85 * 100;
0787: InterVar0_79 = 4 - string_length(InterVar0_80);
0788: InterVar0_91 = To_Mem_Xfm.IBEN_MAX;
0789: InterVar0_86 = trimc_string(InterVar0_91);
0790: InterVar0_92 = InterVar0_86 * 100;
0791: To_Lkup_Plan.IBEN_MAX = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0792: }
0793: //;
0794: if (null(To_Mem_Xfm.PAT_IBEN_AMT)) {
0795: To_Lkup_Plan.PAT_IBEN_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0796: } else {
0797: InterVar0_76 = To_Mem_Xfm.PAT_IBEN_AMT;
0798: InterVar0_85 = trimc_string(InterVar0_76);
0799: InterVar0_80 = InterVar0_85 * 100;
0800: InterVar0_79 = 8 - string_length(InterVar0_80);
0801: InterVar0_91 = To_Mem_Xfm.PAT_IBEN_AMT;
0802: InterVar0_86 = trimc_string(InterVar0_91);
0803: InterVar0_92 = InterVar0_86 * 100;
0804: To_Lkup_Plan.PAT_IBEN_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0805: }
0806: //;
0807: if (null(To_Mem_Xfm.PLAN_IBEN_AMT)) {
0808: To_Lkup_Plan.PLAN_IBEN_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0809: } else {
0810: InterVar0_76 = To_Mem_Xfm.PLAN_IBEN_AMT;
0811: InterVar0_85 = trimc_string(InterVar0_76);
0812: InterVar0_80 = InterVar0_85 * 100;
0813: InterVar0_79 = 8 - string_length(InterVar0_80);
0814: InterVar0_91 = To_Mem_Xfm.PLAN_IBEN_AMT;
0815: InterVar0_86 = trimc_string(InterVar0_91);
0816: InterVar0_92 = InterVar0_86 * 100;
0817: To_Lkup_Plan.PLAN_IBEN_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0818: }
0819: //;
0820: if (null(To_Mem_Xfm.TROOP_IBEN_AMT)) {
0821: To_Lkup_Plan.TROOP_IBEN_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0822: } else {
0823: InterVar0_76 = To_Mem_Xfm.TROOP_IBEN_AMT;
0824: InterVar0_85 = trimc_string(InterVar0_76);
0825: InterVar0_80 = InterVar0_85 * 100;
0826: InterVar0_79 = 8 - string_length(InterVar0_80);
0827: InterVar0_91 = To_Mem_Xfm.TROOP_IBEN_AMT;
0828: InterVar0_86 = trimc_string(InterVar0_91);
0829: InterVar0_92 = InterVar0_86 * 100;
0830: To_Lkup_Plan.TROOP_IBEN_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0831: }
0832: //;
0833: if (null(To_Mem_Xfm.NON_TROOP_IBEN_AMT)) {
0834: To_Lkup_Plan.NON_TROOP_IBEN_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0835: } else {
0836: InterVar0_76 = To_Mem_Xfm.NON_TROOP_IBEN_AMT;
0837: InterVar0_85 = trimc_string(InterVar0_76);
0838: InterVar0_80 = InterVar0_85 * 100;
0839: InterVar0_79 = 8 - string_length(InterVar0_80);
0840: InterVar0_91 = To_Mem_Xfm.NON_TROOP_IBEN_AMT;
0841: InterVar0_86 = trimc_string(InterVar0_91);
0842: InterVar0_92 = InterVar0_86 * 100;
0843: To_Lkup_Plan.NON_TROOP_IBEN_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0844: }
0845: //;
0846: if (null(To_Mem_Xfm.AMT_LEFT_TO_CGAP)) {
0847: To_Lkup_Plan.AMT_LEFT_TO_CGAP = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0848: } else {
0849: InterVar0_76 = To_Mem_Xfm.AMT_LEFT_TO_CGAP;
0850: InterVar0_85 = trimc_string(InterVar0_76);
0851: InterVar0_80 = InterVar0_85 * 100;
0852: InterVar0_79 = 8 - string_length(InterVar0_80);
0853: InterVar0_91 = To_Mem_Xfm.AMT_LEFT_TO_CGAP;
0854: InterVar0_86 = trimc_string(InterVar0_91);
0855: InterVar0_92 = InterVar0_86 * 100;
0856: To_Lkup_Plan.AMT_LEFT_TO_CGAP = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0857: }
0858: //;
0859: if (null(To_Mem_Xfm.CGAP_MAX)) {
0860: To_Lkup_Plan.CGAP_MAX = string_of_substring(InterVar0_74 , 4);
0861: } else {
0862: InterVar0_76 = To_Mem_Xfm.CGAP_MAX;
0863: InterVar0_79 = 4 - string_length(trimc_string(InterVar0_76));
0864: InterVar0_80 = To_Mem_Xfm.CGAP_MAX;
0865: To_Lkup_Plan.CGAP_MAX = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(InterVar0_80));
0866: }
0867: //;
0868: if (null(To_Mem_Xfm.PAT_CGAP_AMT)) {
0869: To_Lkup_Plan.PAT_CGAP_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0870: } else {
0871: InterVar0_76 = To_Mem_Xfm.PAT_CGAP_AMT;
0872: InterVar0_85 = trimc_string(InterVar0_76);
0873: InterVar0_80 = InterVar0_85 * 100;
0874: InterVar0_79 = 8 - string_length(InterVar0_80);
0875: InterVar0_91 = To_Mem_Xfm.PAT_CGAP_AMT;
0876: InterVar0_86 = trimc_string(InterVar0_91);
0877: InterVar0_92 = InterVar0_86 * 100;
0878: To_Lkup_Plan.PAT_CGAP_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0879: }
0880: //;
0881: if (null(To_Mem_Xfm.PLAN_CGAP_AMT)) {
0882: To_Lkup_Plan.PLAN_CGAP_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0883: } else {
0884: InterVar0_76 = To_Mem_Xfm.PLAN_CGAP_AMT;
0885: InterVar0_85 = trimc_string(InterVar0_76);
0886: InterVar0_80 = InterVar0_85 * 100;
0887: InterVar0_79 = 8 - string_length(InterVar0_80);
0888: InterVar0_91 = To_Mem_Xfm.PLAN_CGAP_AMT;
0889: InterVar0_86 = trimc_string(InterVar0_91);
0890: InterVar0_92 = InterVar0_86 * 100;
0891: To_Lkup_Plan.PLAN_CGAP_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0892: }
0893: //;
0894: if (null(To_Mem_Xfm.TROOP_CGAP_AMT)) {
0895: To_Lkup_Plan.TROOP_CGAP_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0896: } else {
0897: InterVar0_76 = To_Mem_Xfm.TROOP_CGAP_AMT;
0898: InterVar0_85 = trimc_string(InterVar0_76);
0899: InterVar0_80 = InterVar0_85 * 100;
0900: InterVar0_79 = 8 - string_length(InterVar0_80);
0901: InterVar0_91 = To_Mem_Xfm.TROOP_CGAP_AMT;
0902: InterVar0_86 = trimc_string(InterVar0_91);
0903: InterVar0_92 = InterVar0_86 * 100;
0904: To_Lkup_Plan.TROOP_CGAP_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0905: }
0906: //;
0907: if (null(To_Mem_Xfm.NON_TROOP_CGAP_AMT)) {
0908: To_Lkup_Plan.NON_TROOP_CGAP_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0909: } else {
0910: InterVar0_76 = To_Mem_Xfm.NON_TROOP_CGAP_AMT;
0911: InterVar0_85 = trimc_string(InterVar0_76);
0912: InterVar0_80 = InterVar0_85 * 100;
0913: InterVar0_79 = 8 - string_length(InterVar0_80);
0914: InterVar0_91 = To_Mem_Xfm.NON_TROOP_CGAP_AMT;
0915: InterVar0_86 = trimc_string(InterVar0_91);
0916: InterVar0_92 = InterVar0_86 * 100;
0917: To_Lkup_Plan.NON_TROOP_CGAP_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0918: }
0919: //;
0920: if (null(To_Mem_Xfm.AMT_LEFT_TO_CATA)) {
0921: To_Lkup_Plan.CAT_QUALIFY_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0922: } else {
0923: InterVar0_76 = To_Mem_Xfm.AMT_LEFT_TO_CATA;
0924: InterVar0_85 = trimc_string(InterVar0_76);
0925: InterVar0_80 = InterVar0_85 * 100;
0926: InterVar0_79 = 8 - string_length(InterVar0_80);
0927: InterVar0_91 = To_Mem_Xfm.AMT_LEFT_TO_CATA;
0928: InterVar0_86 = trimc_string(InterVar0_91);
0929: InterVar0_92 = InterVar0_86 * 100;
0930: To_Lkup_Plan.CAT_QUALIFY_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0931: }
0932: //;
0933: if (null(To_Mem_Xfm.PLAN_CATA_AMT)) {
0934: To_Lkup_Plan.PLAN_CATA_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0935: } else {
0936: InterVar0_76 = To_Mem_Xfm.PLAN_CATA_AMT;
0937: InterVar0_85 = trimc_string(InterVar0_76);
0938: InterVar0_80 = InterVar0_85 * 100;
0939: InterVar0_79 = 8 - string_length(InterVar0_80);
0940: InterVar0_91 = To_Mem_Xfm.PLAN_CATA_AMT;
0941: InterVar0_86 = trimc_string(InterVar0_91);
0942: InterVar0_92 = InterVar0_86 * 100;
0943: To_Lkup_Plan.PLAN_CATA_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0944: }
0945: //;
0946: if (null(To_Mem_Xfm.PAT_CATA_AMT)) {
0947: To_Lkup_Plan.PAT_CATA_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0948: } else {
0949: InterVar0_76 = To_Mem_Xfm.PAT_CATA_AMT;
0950: InterVar0_85 = trimc_string(InterVar0_76);
0951: InterVar0_80 = InterVar0_85 * 100;
0952: InterVar0_79 = 8 - string_length(InterVar0_80);
0953: InterVar0_91 = To_Mem_Xfm.PAT_CATA_AMT;
0954: InterVar0_86 = trimc_string(InterVar0_91);
0955: InterVar0_92 = InterVar0_86 * 100;
0956: To_Lkup_Plan.PAT_CATA_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0957: }
0958: //;
0959: if (null(To_Mem_Xfm.GROSS_DRUG_SPEND_AMT)) {
0960: To_Lkup_Plan.GROSS_DRUG_SPEND_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0961: } else {
0962: InterVar0_76 = To_Mem_Xfm.GROSS_DRUG_SPEND_AMT;
0963: InterVar0_85 = trimc_string(InterVar0_76);
0964: InterVar0_80 = InterVar0_85 * 100;
0965: InterVar0_79 = 8 - string_length(InterVar0_80);
0966: InterVar0_91 = To_Mem_Xfm.GROSS_DRUG_SPEND_AMT;
0967: InterVar0_86 = trimc_string(InterVar0_91);
0968: InterVar0_92 = InterVar0_86 * 100;
0969: To_Lkup_Plan.GROSS_DRUG_SPEND_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0970: }
0971: //;
0972: if (null(To_Mem_Xfm.YTD_TROOP_AMT)) {
0973: To_Lkup_Plan.YTD_TROOP_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0974: } else {
0975: InterVar0_76 = To_Mem_Xfm.YTD_TROOP_AMT;
0976: InterVar0_85 = trimc_string(InterVar0_76);
0977: InterVar0_80 = InterVar0_85 * 100;
0978: InterVar0_79 = 8 - string_length(InterVar0_80);
0979: InterVar0_91 = To_Mem_Xfm.YTD_TROOP_AMT;
0980: InterVar0_86 = trimc_string(InterVar0_91);
0981: InterVar0_92 = InterVar0_86 * 100;
0982: To_Lkup_Plan.YTD_TROOP_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
0983: }
0984: //;
0985: if (null(To_Mem_Xfm.CURR_STREAM_CD)) {
0986: To_Lkup_Plan.CURR_STREAM_CD = string_of_substring(InterVar0_88 , 4);
0987: } else {
0988: InterVar0_79 = 4 - string_length(trimc_string(To_Mem_Xfm.CURR_STREAM_CD));
0989: To_Lkup_Plan.CURR_STREAM_CD = (trimc_string(To_Mem_Xfm.CURR_STREAM_CD) + string_of_substring(InterVar0_88 , InterVar0_79));
0990: }
0991: //;
0992: InterVar0_79 = 4 - string_length(trimc_string(((StageVar0_S28 + StageVar0_S29) + StageVar0_S30)));
0993: To_Lkup_Plan.NEXT_COV_MESSAGE = (string_of_substring(InterVar0_88 , InterVar0_79) + trimc_string(((StageVar0_S28 + StageVar0_S29) + StageVar0_S30)));
0994: if (null(To_Mem_Xfm.NEXT_COVERAGE_STREAM)) {
0995: To_Lkup_Plan.NEXT_COVERAGE_STREAM = string_of_substring(InterVar0_88 , 4);
0996: } else {
0997: InterVar0_79 = 4 - string_length(trimc_string(To_Mem_Xfm.NEXT_COVERAGE_STREAM));
0998: To_Lkup_Plan.NEXT_COVERAGE_STREAM = (trimc_string(To_Mem_Xfm.NEXT_COVERAGE_STREAM) + string_of_substring(InterVar0_88 , InterVar0_79));
0999: }
1000: //;
1001: InterVar0_76 = To_Mem_Xfm.AMT_LEFT_TO_NEXT_COV_STREAM;
1002: InterVar0_77 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_76);
1003: InterVar0_79 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_77 , InterVar0_78)));
1004: InterVar0_80 = To_Mem_Xfm.AMT_LEFT_TO_NEXT_COV_STREAM;
1005: InterVar0_81 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_80);
1006: To_Lkup_Plan.AMT_LEFT_TO_NEXT_COV_STREAM = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(string_from_decimal(InterVar0_81 , InterVar0_78)));
1007: InterVar0_76 = To_Mem_Xfm.MONTH_TOTAL_PLAN_PAY_AMT;
1008: InterVar0_77 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_76);
1009: InterVar0_79 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_77 , InterVar0_78)));
1010: InterVar0_80 = To_Mem_Xfm.MONTH_TOTAL_PLAN_PAY_AMT;
1011: InterVar0_81 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_80);
1012: To_Lkup_Plan.MONTH_TOTAL_PLAN_PAY_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(string_from_decimal(InterVar0_81 , InterVar0_78)));
1013: InterVar0_76 = To_Mem_Xfm.MONTH_TOTAL_PATIENT_PAY_AMT;
1014: InterVar0_77 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_76);
1015: InterVar0_79 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_77 , InterVar0_78)));
1016: InterVar0_80 = To_Mem_Xfm.MONTH_TOTAL_PATIENT_PAY_AMT;
1017: InterVar0_81 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_80);
1018: To_Lkup_Plan.MONTH_TOTAL_PATIENT_PAY_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(string_from_decimal(InterVar0_81 , InterVar0_78)));
1019: InterVar0_76 = To_Mem_Xfm.MONTH_TOTAL_TROOP_AMT;
1020: InterVar0_77 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_76);
1021: InterVar0_79 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_77 , InterVar0_78)));
1022: InterVar0_80 = To_Mem_Xfm.MONTH_TOTAL_TROOP_AMT;
1023: InterVar0_81 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_80);
1024: To_Lkup_Plan.MONTH_TOTAL_TROOP_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(string_from_decimal(InterVar0_81 , InterVar0_78)));
1025: InterVar0_76 = To_Mem_Xfm.MONTH_GROSS_DRUG_SPEND_AMT;
1026: InterVar0_77 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_76);
1027: InterVar0_79 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_77 , InterVar0_78)));
1028: InterVar0_80 = To_Mem_Xfm.MONTH_GROSS_DRUG_SPEND_AMT;
1029: InterVar0_81 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_80);
1030: To_Lkup_Plan.MONTH_GROSS_DRUG_SPEND_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(string_from_decimal(InterVar0_81 , InterVar0_78)));
1031: if (null(To_Mem_Xfm.FIRST_NAME)) {
1032: To_Lkup_Plan.FIRST_NAME = string_of_substring(InterVar0_88 , 30);
1033: } else {
1034: InterVar0_79 = 30 - string_length(trimc_string(To_Mem_Xfm.FIRST_NAME));
1035: To_Lkup_Plan.FIRST_NAME = (trimc_string(To_Mem_Xfm.FIRST_NAME) + string_of_substring(InterVar0_88 , InterVar0_79));
1036: }
1037: //;
1038: if (null(To_Mem_Xfm.MIDDLE_INITIAL)) {
1039: To_Lkup_Plan.MIDDLE_INITIAL = string_of_substring(InterVar0_88 , 1);
1040: } else {
1041: InterVar0_79 = 1 - string_length(trimc_string(To_Mem_Xfm.MIDDLE_INITIAL));
1042: To_Lkup_Plan.MIDDLE_INITIAL = (trimc_string(To_Mem_Xfm.MIDDLE_INITIAL) + string_of_substring(InterVar0_88 , InterVar0_79));
1043: }
1044: //;
1045: if (null(To_Mem_Xfm.LAST_NAME)) {
1046: To_Lkup_Plan.LAST_NAME = string_of_substring(InterVar0_88 , 30);
1047: } else {
1048: InterVar0_79 = 30 - string_length(trimc_string(To_Mem_Xfm.LAST_NAME));
1049: To_Lkup_Plan.LAST_NAME = (trimc_string(To_Mem_Xfm.LAST_NAME) + string_of_substring(InterVar0_88 , InterVar0_79));
1050: }
1051: //;
1052: if (null(To_Mem_Xfm.ADDR_LINE_1)) {
1053: To_Lkup_Plan.ADDR_LINE_1 = string_of_substring(InterVar0_88 , 32);
1054: } else {
1055: InterVar0_79 = 32 - string_length(trimc_string(To_Mem_Xfm.ADDR_LINE_1));
1056: To_Lkup_Plan.ADDR_LINE_1 = (trimc_string(To_Mem_Xfm.ADDR_LINE_1) + string_of_substring(InterVar0_88 , InterVar0_79));
1057: }
1058: //;
1059: if (null(To_Mem_Xfm.ADDR_LINE_2)) {
1060: To_Lkup_Plan.ADDR_LINE_2 = string_of_substring(InterVar0_88 , 32);
1061: } else {
1062: InterVar0_79 = 32 - string_length(trimc_string(To_Mem_Xfm.ADDR_LINE_2));
1063: To_Lkup_Plan.ADDR_LINE_2 = (trimc_string(To_Mem_Xfm.ADDR_LINE_2) + string_of_substring(InterVar0_88 , InterVar0_79));
1064: }
1065: //;
1066: if (null(To_Mem_Xfm.CITY)) {
1067: To_Lkup_Plan.CITY = string_of_substring(InterVar0_88 , 30);
1068: } else {
1069: InterVar0_79 = 30 - string_length(trimc_string(To_Mem_Xfm.CITY));
1070: To_Lkup_Plan.CITY = (trimc_string(To_Mem_Xfm.CITY) + string_of_substring(InterVar0_88 , InterVar0_79));
1071: }
1072: //;
1073: if (null(To_Mem_Xfm.STATE_CD)) {
1074: To_Lkup_Plan.STATE_CD = string_of_substring(InterVar0_88 , 2);
1075: } else {
1076: InterVar0_79 = 2 - string_length(trimc_string(To_Mem_Xfm.STATE_CD));
1077: To_Lkup_Plan.STATE_CD = (trimc_string(To_Mem_Xfm.STATE_CD) + string_of_substring(InterVar0_88 , InterVar0_79));
1078: }
1079: //;
1080: if (null(To_Mem_Xfm.POSTAL_ZIP)) {
1081: To_Lkup_Plan.POSTAL_ZIP = string_of_substring(InterVar0_88 , 10);
1082: } else {
1083: InterVar0_79 = 10 - string_length(trimc_string(To_Mem_Xfm.POSTAL_ZIP));
1084: To_Lkup_Plan.POSTAL_ZIP = (trimc_string(To_Mem_Xfm.POSTAL_ZIP) + string_of_substring(InterVar0_88 , InterVar0_79));
1085: }
1086: //;
1087: if (null(To_Mem_Xfm.BRANDING_CD)) {
1088: To_Lkup_Plan.BRANDING_CD = string_of_substring(InterVar0_88 , 3);
1089: } else {
1090: InterVar0_79 = 3 - string_length(trimc_string(To_Mem_Xfm.BRANDING_CD));
1091: To_Lkup_Plan.BRANDING_CD = (trimc_string(To_Mem_Xfm.BRANDING_CD) + string_of_substring(InterVar0_88 , InterVar0_79));
1092: }
1093: //;
1094: if (null(To_Mem_Xfm.LANGUAGE_CD)) {
1095: To_Lkup_Plan.LANGUAGE_CD = string_of_substring(InterVar0_88 , 2);
1096: } else {
1097: InterVar0_79 = 2 - string_length(trimc_string(To_Mem_Xfm.LANGUAGE_CD));
1098: To_Lkup_Plan.LANGUAGE_CD = (trimc_string(To_Mem_Xfm.LANGUAGE_CD) + string_of_substring(InterVar0_88 , InterVar0_79));
1099: }
1100: //;
1101: if (null(To_Mem_Xfm.LOWINCOME_CD)) {
1102: To_Lkup_Plan.LOWINCOME_CD = string_of_substring(InterVar0_88 , 1);
1103: } else {
1104: InterVar0_79 = 1 - string_length(trimc_string(To_Mem_Xfm.LOWINCOME_CD));
1105: To_Lkup_Plan.LOWINCOME_CD = (trimc_string(To_Mem_Xfm.LOWINCOME_CD) + string_of_substring(InterVar0_88 , InterVar0_79));
1106: }
1107: //;
1108: if (null(To_Mem_Xfm.DEDU_AVAILABLE_IND)) {
1109: To_Lkup_Plan.DEDU_AVAILABLE_IND = string_of_substring(InterVar0_88 , 1);
1110: } else {
1111: InterVar0_79 = 1 - string_length(trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND));
1112: To_Lkup_Plan.DEDU_AVAILABLE_IND = (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) + string_of_substring(InterVar0_88 , InterVar0_79));
1113: }
1114: //;
1115: if (null(To_Mem_Xfm.CLAIM_AVAILABLE_IND)) {
1116: To_Lkup_Plan.CLAIM_AVAILABLE_IND = string_of_substring(InterVar0_88 , 1);
1117: } else {
1118: InterVar0_79 = 1 - string_length(trimc_string(To_Mem_Xfm.CLAIM_AVAILABLE_IND));
1119: To_Lkup_Plan.CLAIM_AVAILABLE_IND = (trimc_string(To_Mem_Xfm.CLAIM_AVAILABLE_IND) + string_of_substring(InterVar0_88 , InterVar0_79));
1120: }
1121: //;
1122: if (null(To_Mem_Xfm.FORMULARY_AVAILABLE_IND)) {
1123: To_Lkup_Plan.FORMULARY_AVAILABLE_IND = string_of_substring(InterVar0_88 , 1);
1124: } else {
1125: InterVar0_79 = 1 - string_length(trimc_string(To_Mem_Xfm.FORMULARY_AVAILABLE_IND));
1126: To_Lkup_Plan.FORMULARY_AVAILABLE_IND = (trimc_string(To_Mem_Xfm.FORMULARY_AVAILABLE_IND) + string_of_substring(InterVar0_88 , InterVar0_79));
1127: }
1128: //;
1129: if (null(To_Mem_Xfm.TEMPLATE_ID)) {
1130: To_Lkup_Plan.TEMPLATE_ID_1 = string_of_substring(InterVar0_88 , 20);
1131: } else {
1132: InterVar0_79 = 20 - string_length(trimc_string(To_Mem_Xfm.TEMPLATE_ID));
1133: To_Lkup_Plan.TEMPLATE_ID_1 = (trimc_string(To_Mem_Xfm.TEMPLATE_ID) + string_of_substring(InterVar0_88 , InterVar0_79));
1134: }
1135: //;
1136: if (null(To_Mem_Xfm.PREV_PLAN_ID)) {
1137: To_Lkup_Plan.PREV_PLAN_ID = string_of_substring(InterVar0_88 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
1138: } else {
1139: InterVar0_79 = 8 - string_length(trimc_string(To_Mem_Xfm.PREV_PLAN_ID));
1140: To_Lkup_Plan.PREV_PLAN_ID = (trimc_string(To_Mem_Xfm.PREV_PLAN_ID) + string_of_substring(InterVar0_88 , InterVar0_79));
1141: }
1142: //;
1143: if (null(To_Mem_Xfm.PREV_PLAN_NAME)) {
1144: To_Lkup_Plan.PREV_PLAN_NAME = string_of_substring(InterVar0_88 , 60);
1145: } else {
1146: InterVar0_79 = 60 - string_length(trimc_string(To_Mem_Xfm.PREV_PLAN_NAME));
1147: To_Lkup_Plan.PREV_PLAN_NAME = (trimc_string(To_Mem_Xfm.PREV_PLAN_NAME) + string_of_substring(InterVar0_88 , InterVar0_79));
1148: }
1149: //;
1150: if (null(To_Mem_Xfm.PREV_PLAN_END_DT)) {
1151: To_Lkup_Plan.PREV_PLAN_END_DT = string_of_substring(InterVar0_88 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
1152: } else {
1153: To_Lkup_Plan.PREV_PLAN_END_DT = ((substring_1(string_from_timestamp(To_Mem_Xfm.PREV_PLAN_END_DT) , 6 , 2) + substring_1(string_from_timestamp(To_Mem_Xfm.PREV_PLAN_END_DT) , 9 , 2)) + substring_1(string_from_timestamp(To_Mem_Xfm.PREV_PLAN_END_DT) , 1 , 4));
1154: }
1155: //;
1156: if (null(To_Mem_Xfm.PREV_PLAN_TROOP_AMT)) {
1157: To_Lkup_Plan.PREV_PLAN_TROOP_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
1158: } else {
1159: InterVar0_76 = To_Mem_Xfm.PREV_PLAN_TROOP_AMT;
1160: InterVar0_85 = trimc_string(InterVar0_76);
1161: InterVar0_80 = InterVar0_85 * 100;
1162: InterVar0_79 = 8 - string_length(InterVar0_80);
1163: InterVar0_91 = To_Mem_Xfm.PREV_PLAN_TROOP_AMT;
1164: InterVar0_86 = trimc_string(InterVar0_91);
1165: InterVar0_92 = InterVar0_86 * 100;
1166: To_Lkup_Plan.PREV_PLAN_TROOP_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
1167: }
1168: //;
1169: if (null(To_Mem_Xfm.PREV_PLAN_GROSS_DRUG_AMT)) {
1170: To_Lkup_Plan.PREV_PLAN_GROSS_DRUG_AMT = string_of_substring(InterVar0_74 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
1171: } else {
1172: InterVar0_76 = To_Mem_Xfm.PREV_PLAN_GROSS_DRUG_AMT;
1173: InterVar0_85 = trimc_string(InterVar0_76);
1174: InterVar0_80 = InterVar0_85 * 100;
1175: InterVar0_79 = 8 - string_length(InterVar0_80);
1176: InterVar0_91 = To_Mem_Xfm.PREV_PLAN_GROSS_DRUG_AMT;
1177: InterVar0_86 = trimc_string(InterVar0_91);
1178: InterVar0_92 = InterVar0_86 * 100;
1179: To_Lkup_Plan.PREV_PLAN_GROSS_DRUG_AMT = (string_of_substring(InterVar0_74 , InterVar0_79) + InterVar0_92);
1180: }
1181: //;
1182: To_Lkup_Plan.INFO_PAGE_ID = string_of_substring(InterVar0_88 , 10);
1183: if (null(To_Mem_Xfm.PLAN_NAME)) {
1184: To_Lkup_Plan.PLAN_NAME = string_of_substring(InterVar0_88 , 30);
1185: } else {
1186: InterVar0_79 = 30 - string_length(trimc_string(To_Mem_Xfm.PLAN_NAME));
1187: To_Lkup_Plan.PLAN_NAME = (trimc_string(To_Mem_Xfm.PLAN_NAME) + string_of_substring(InterVar0_88 , InterVar0_79));
1188: }
1189: //;
1190: if (null(To_Mem_Xfm.RETURN_ADDR_LINE_1)) {
1191: To_Lkup_Plan.RETURN_ADDR_LINE_1 = string_of_substring(InterVar0_88 , 32);
1192: } else {
1193: InterVar0_79 = 32 - string_length(trimc_string(To_Mem_Xfm.RETURN_ADDR_LINE_1));
1194: To_Lkup_Plan.RETURN_ADDR_LINE_1 = (trimc_string(To_Mem_Xfm.RETURN_ADDR_LINE_1) + string_of_substring(InterVar0_88 , InterVar0_79));
1195: }
1196: //;
1197: if (null(To_Mem_Xfm.RETURN_ADDR_CITY)) {
1198: To_Lkup_Plan.RETURN_ADDR_CITY = string_of_substring(InterVar0_88 , 30);
1199: } else {
1200: InterVar0_79 = 30 - string_length(trimc_string(To_Mem_Xfm.RETURN_ADDR_CITY));
1201: To_Lkup_Plan.RETURN_ADDR_CITY = (trimc_string(To_Mem_Xfm.RETURN_ADDR_CITY) + string_of_substring(InterVar0_88 , InterVar0_79));
1202: }
1203: //;
1204: if (null(To_Mem_Xfm.RETURN_ADDR_STATE_CD)) {
1205: To_Lkup_Plan.RETURN_ADDR_STATE_CD = string_of_substring(InterVar0_88 , 2);
1206: } else {
1207: InterVar0_79 = 2 - string_length(trimc_string(To_Mem_Xfm.RETURN_ADDR_STATE_CD));
1208: To_Lkup_Plan.RETURN_ADDR_STATE_CD = (trimc_string(To_Mem_Xfm.RETURN_ADDR_STATE_CD) + string_of_substring(InterVar0_88 , InterVar0_79));
1209: }
1210: //;
1211: if (null(To_Mem_Xfm.RETURN_ADDR_ZIP)) {
1212: To_Lkup_Plan.RETURN_ADDR_ZIP = string_of_substring(InterVar0_88 , 10);
1213: } else {
1214: InterVar0_76 = To_Mem_Xfm.RETURN_ADDR_ZIP;
1215: InterVar0_80 = To_Mem_Xfm.RETURN_ADDR_ZIP;
1216: InterVar0_79 = 10 - string_length(trimc_string(InterVar0_80));
1217: To_Lkup_Plan.RETURN_ADDR_ZIP = (trimc_string(InterVar0_76) + string_of_substring(InterVar0_88 , InterVar0_79));
1218: }
1219: //;
1220: InterVar0_76 = To_Mem_Xfm.TOLL_FREE_NUM;
1221: InterVar0_77 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_76);
1222: InterVar0_79 = 11 - string_length(trimc_string(string_from_decimal(InterVar0_77 , InterVar0_78)));
1223: InterVar0_80 = To_Mem_Xfm.TOLL_FREE_NUM;
1224: InterVar0_81 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_80);
1225: To_Lkup_Plan.TOLL_FREE_NUM = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(string_from_decimal(InterVar0_81 , InterVar0_78)));
1226: InterVar0_76 = To_Mem_Xfm.TTY_TTD_NUM;
1227: InterVar0_77 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_76);
1228: InterVar0_79 = 11 - string_length(trimc_string(string_from_decimal(InterVar0_77 , InterVar0_78)));
1229: InterVar0_80 = To_Mem_Xfm.TTY_TTD_NUM;
1230: InterVar0_81 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_80);
1231: To_Lkup_Plan.TTY_TTD_NUM = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(string_from_decimal(InterVar0_81 , InterVar0_78)));
1232: if (null(To_Mem_Xfm.FAX_NUM)) {
1233: To_Lkup_Plan.FAX_NUM = string_of_substring(InterVar0_88 , 11);
1234: } else {
1235: InterVar0_76 = To_Mem_Xfm.FAX_NUM;
1236: InterVar0_77 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_76);
1237: InterVar0_79 = 11 - string_length(trimc_string(string_from_decimal(InterVar0_77 , InterVar0_78)));
1238: InterVar0_80 = To_Mem_Xfm.FAX_NUM;
1239: InterVar0_81 = replace_substring(InterVar0_75 , InterVar0_0 , InterVar0_80);
1240: To_Lkup_Plan.FAX_NUM = (string_of_substring(InterVar0_74 , InterVar0_79) + trimc_string(string_from_decimal(InterVar0_81 , InterVar0_78)));
1241: }
1242: //;
1243: if (null(To_Mem_Xfm.WEB_SITE_URL)) {
1244: To_Lkup_Plan.WEB_SITE_URL = string_of_substring(InterVar0_88 , 40);
1245: } else {
1246: InterVar0_79 = 40 - string_length(trimc_string(To_Mem_Xfm.WEB_SITE_URL));
1247: To_Lkup_Plan.WEB_SITE_URL = (trimc_string(To_Mem_Xfm.WEB_SITE_URL) + string_of_substring(InterVar0_88 , InterVar0_79));
1248: }
1249: //;
1250: if (null(To_Mem_Xfm.DAYS_HOURS_OF_OPERATION)) {
1251: To_Lkup_Plan.DAYS_HOURS_OF_OPERATION = string_of_substring(InterVar0_88 , 60);
1252: } else {
1253: InterVar0_79 = 60 - string_length(trimc_string(To_Mem_Xfm.DAYS_HOURS_OF_OPERATION));
1254: To_Lkup_Plan.DAYS_HOURS_OF_OPERATION = (trimc_string(To_Mem_Xfm.DAYS_HOURS_OF_OPERATION) + string_of_substring(InterVar0_88 , InterVar0_79));
1255: }
1256: //;
1257: if (null(To_Mem_Xfm.MATERIAL_ID)) {
1258: To_Lkup_Plan.MATERIAL_ID = string_of_substring(InterVar0_88 , 30);
1259: } else {
1260: InterVar0_79 = 30 - string_length(trimc_string(To_Mem_Xfm.MATERIAL_ID));
1261: To_Lkup_Plan.MATERIAL_ID = (trimc_string(To_Mem_Xfm.MATERIAL_ID) + string_of_substring(InterVar0_88 , InterVar0_79));
1262: }
1263: //;
1264: if (null(To_Mem_Xfm.CMS_APPROVAL_DATE)) {
1265: To_Lkup_Plan.CMS_APPROVAL_DATE = string_of_substring(InterVar0_88 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
1266: } else {
1267: To_Lkup_Plan.CMS_APPROVAL_DATE = ((substring_1(string_from_timestamp(To_Mem_Xfm.CMS_APPROVAL_DATE) , 6 , 2) + substring_1(string_from_timestamp(To_Mem_Xfm.CMS_APPROVAL_DATE) , 9 , 2)) + substring_1(string_from_timestamp(To_Mem_Xfm.CMS_APPROVAL_DATE) , 1 , 4));
1268: }
1269: //;
1270: if (null(To_Mem_Xfm.TRACKING_NO)) {
1271: To_Lkup_Plan.TRACKING_NO = string_of_substring(InterVar0_88 , 40);
1272: } else {
1273: InterVar0_79 = 40 - string_length(trimc_string(To_Mem_Xfm.TRACKING_NO));
1274: To_Lkup_Plan.TRACKING_NO = (trimc_string(To_Mem_Xfm.TRACKING_NO) + string_of_substring(InterVar0_88 , InterVar0_79));
1275: }
1276: //;
1277: if (null(To_Mem_Xfm.PREV_PLAN_ID)) {
1278: To_Lkup_Plan.PREV_PLAN_SEC_NO = InterVar0_74;
1279: } else {
1280: To_Lkup_Plan.PREV_PLAN_SEC_NO = InterVar0_14;
1281: }
1282: //;
1283: if (null(To_Mem_Xfm.PREV_PLAN_ID)) {
1284: To_Lkup_Plan.SUMMARY_SEC_NO = InterVar0_14;
1285: } else {
1286: To_Lkup_Plan.SUMMARY_SEC_NO = InterVar0_15;
1287: }
1288: //;
1289: if (null(To_Mem_Xfm.PREV_PLAN_ID)) {
1290: To_Lkup_Plan.CLAIM_SEC_NO = InterVar0_15;
1291: } else {
1292: To_Lkup_Plan.CLAIM_SEC_NO = InterVar0_16;
1293: }
1294: //;
1295: if ((null(To_Mem_Xfm.PREV_PLAN_ID) && null(To_Mem_Xfm.FORMULARY_AVAILABLE_IND))) {
1296: To_Lkup_Plan.FRM_SEC_NO = InterVar0_74;
1297: } else {
1298: if ((notnull(To_Mem_Xfm.PREV_PLAN_ID) && null(To_Mem_Xfm.FORMULARY_AVAILABLE_IND))) {
1299: To_Lkup_Plan.FRM_SEC_NO = InterVar0_74;
1300: } else {
1301: if ((notnull(To_Mem_Xfm.PREV_PLAN_ID) &