0271: string StageVar0_F28;
0272: StageVar0_F28 = "";
0273: string StageVar0_F31;
0274: StageVar0_F31 = "";
0275: date StageVar0_StageVar2;
0276: StageVar0_StageVar2 = date_from_string("2001-01-01");
0277: int32 StageVar0_StageVar3;
0278: StageVar0_StageVar3 = 0;
0279: string StageVar0_StageVar;
0280: StageVar0_StageVar = "";
0281: string StageVar0_F32;
0282: StageVar0_F32 = "";
0283: }
0284:
0285: mainloop {
0286: // initialise our row rejected variable
0287: RowRejected0 = 1;
0288:
0289: // declare our intermediate variables for this section
0290: string InterVar0_1;
0291: string InterVar0_5;
0292: decimal InterVar0_68;
0293: int32 InterVar0_70;
0294: decimal InterVar0_71;
0295: dfloat InterVar0_72;
0296: dfloat InterVar0_73;
0297: int32 InterVar0_77;
0298: int32 InterVar0_78;
0299: int32 InterVar0_79;
0300: uint32 InterVar0_80;
0301: string InterVar0_89;
0302: decimal InterVar0_90;
0303: string InterVar0_91;
0304: decimal InterVar0_92;
0305: string InterVar0_93;
0306: decimal InterVar0_94;
0307: string InterVar0_95;
0308: decimal InterVar0_96;
0309: decimal InterVar0_98;
0310: decimal InterVar0_99;
0311:
0312: // evaluate the stage variables first
0313: StageVar0_F29 = substring_1(string_from_timestamp(To_Mem_Xfm.FORM_EFF_START_DATE) , 1 , 4);
0314: StageVar0_F30 = substring_1(string_from_date(current_date()) , 1 , 4);
0315: if (notnull(To_Mem_Xfm.NEXT_COVERAGE_STREAM)) {
0316: StageVar0_F36 = To_Mem_Xfm.NEXT_COVERAGE_STREAM;
0317: } else {
0318: StageVar0_F36 = InterVar0_0;
0319: }
0320: //;
0321: if (notnull(To_Mem_Xfm.FORMULARY_AVAILABLE_IND)) {
0322: InterVar0_1 = To_Mem_Xfm.FORMULARY_AVAILABLE_IND;
0323: } else {
0324: InterVar0_1 = InterVar0_0;
0325: }
0326: if (((trimc_string(InterVar0_1) == InterVar0_2) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0327: StageVar0_S1 = InterVar0_4;
0328: } else {
0329: if (notnull(To_Mem_Xfm.FORMULARY_AVAILABLE_IND)) {
0330: InterVar0_5 = To_Mem_Xfm.FORMULARY_AVAILABLE_IND;
0331: } else {
0332: InterVar0_5 = InterVar0_0;
0333: }
0334: if (((trimc_string(InterVar0_5) == InterVar0_2) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0335: StageVar0_S1 = InterVar0_7;
0336: } else {
0337: StageVar0_S1 = InterVar0_0;
0338: }
0339: //;
0340: }
0341: //;
0342: if (((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_9)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_2)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0343: StageVar0_S2 = InterVar0_10;
0344: } else {
0345: if (((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_9)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_2)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0346: StageVar0_S2 = InterVar0_11;
0347: } else {
0348: StageVar0_S2 = InterVar0_0;
0349: }
0350: //;
0351: }
0352: //;
0353: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_2)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0354: StageVar0_S3 = InterVar0_12;
0355: } else {
0356: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_2)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0357: StageVar0_S3 = InterVar0_13;
0358: } else {
0359: StageVar0_S3 = InterVar0_0;
0360: }
0361: //;
0362: }
0363: //;
0364: if ((((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_9)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_8)) || (((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.LANGUAGE_CD) == InterVar0_3))) {
0365: StageVar0_S4 = InterVar0_17;
0366: } else {
0367: if ((((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) || (trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_9)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_8)) || (((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.LANGUAGE_CD) == InterVar0_6))) {
0368: StageVar0_S4 = InterVar0_18;
0369: } else {
0370: StageVar0_S4 = InterVar0_0;
0371: }
0372: //;
0373: }
0374: //;
0375: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_9) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_2)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0376: StageVar0_S6 = InterVar0_19;
0377: } else {
0378: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_9) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_2)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0379: StageVar0_S6 = InterVar0_20;
0380: } else {
0381: StageVar0_S6 = InterVar0_0;
0382: }
0383: //;
0384: }
0385: //;
0386: 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_9) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_8))) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0387: StageVar0_S7 = InterVar0_21;
0388: } else {
0389: 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_9) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_8))) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0390: StageVar0_S7 = InterVar0_22;
0391: } else {
0392: StageVar0_S7 = InterVar0_0;
0393: }
0394: //;
0395: }
0396: //;
0397: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_2)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0398: StageVar0_S8 = InterVar0_23;
0399: } else {
0400: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_2)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0401: StageVar0_S8 = InterVar0_24;
0402: } else {
0403: StageVar0_S8 = InterVar0_0;
0404: }
0405: //;
0406: }
0407: //;
0408: if (((trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0409: StageVar0_S9 = InterVar0_25;
0410: } else {
0411: if (((trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0412: StageVar0_S9 = InterVar0_26;
0413: } else {
0414: StageVar0_S9 = InterVar0_0;
0415: }
0416: //;
0417: }
0418: //;
0419: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0420: StageVar0_S10 = InterVar0_27;
0421: } else {
0422: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0423: StageVar0_S10 = InterVar0_28;
0424: } else {
0425: StageVar0_S10 = InterVar0_0;
0426: }
0427: //;
0428: }
0429: //;
0430: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0431: StageVar0_S11 = InterVar0_29;
0432: } else {
0433: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0434: StageVar0_S11 = InterVar0_30;
0435: } else {
0436: StageVar0_S11 = InterVar0_0;
0437: }
0438: //;
0439: }
0440: //;
0441: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0442: StageVar0_S12 = InterVar0_31;
0443: } else {
0444: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0445: StageVar0_S12 = InterVar0_32;
0446: } else {
0447: StageVar0_S12 = InterVar0_0;
0448: }
0449: //;
0450: }
0451: //;
0452: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0453: StageVar0_S13 = InterVar0_33;
0454: } else {
0455: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0456: StageVar0_S13 = InterVar0_34;
0457: } else {
0458: StageVar0_S13 = InterVar0_0;
0459: }
0460: //;
0461: }
0462: //;
0463: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0464: StageVar0_S14 = InterVar0_35;
0465: } else {
0466: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0467: StageVar0_S14 = InterVar0_36;
0468: } else {
0469: StageVar0_S14 = InterVar0_0;
0470: }
0471: //;
0472: }
0473: //;
0474: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_9) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_2))) {
0475: StageVar0_S15 = InterVar0_37;
0476: } else {
0477: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_9) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_2))) {
0478: StageVar0_S15 = InterVar0_38;
0479: } else {
0480: StageVar0_S15 = InterVar0_0;
0481: }
0482: //;
0483: }
0484: //;
0485: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_2))) {
0486: StageVar0_S16 = InterVar0_39;
0487: } else {
0488: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_2))) {
0489: StageVar0_S16 = InterVar0_40;
0490: } else {
0491: StageVar0_S16 = InterVar0_0;
0492: }
0493: //;
0494: }
0495: //;
0496: if (((trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3) && (To_Mem_Xfm.CATA_COPAY_PERCENTAGE > InterVar0_41))) {
0497: StageVar0_S17 = InterVar0_42;
0498: } else {
0499: if (((trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6) && (To_Mem_Xfm.CATA_COPAY_PERCENTAGE > InterVar0_41))) {
0500: StageVar0_S17 = InterVar0_43;
0501: } else {
0502: StageVar0_S17 = InterVar0_0;
0503: }
0504: //;
0505: }
0506: //;
0507: 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_9)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0508: StageVar0_S18 = InterVar0_44;
0509: } else {
0510: 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_9)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0511: StageVar0_S18 = InterVar0_45;
0512: } else {
0513: StageVar0_S18 = InterVar0_0;
0514: }
0515: //;
0516: }
0517: //;
0518: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0519: StageVar0_S19 = InterVar0_46;
0520: } else {
0521: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0522: StageVar0_S19 = InterVar0_47;
0523: } else {
0524: StageVar0_S19 = InterVar0_0;
0525: }
0526: //;
0527: }
0528: //;
0529: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0530: StageVar0_S23 = InterVar0_48;
0531: } else {
0532: if (((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0533: StageVar0_S23 = InterVar0_49;
0534: } else {
0535: StageVar0_S23 = InterVar0_0;
0536: }
0537: //;
0538: }
0539: //;
0540: if (notnull(To_Mem_Xfm.FORMULARY_AVAILABLE_IND)) {
0541: InterVar0_1 = To_Mem_Xfm.FORMULARY_AVAILABLE_IND;
0542: } else {
0543: InterVar0_1 = InterVar0_0;
0544: }
0545: if (((trimc_string(InterVar0_1) == InterVar0_2) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0546: StageVar0_S24 = InterVar0_50;
0547: } else {
0548: if (notnull(To_Mem_Xfm.FORMULARY_AVAILABLE_IND)) {
0549: InterVar0_5 = To_Mem_Xfm.FORMULARY_AVAILABLE_IND;
0550: } else {
0551: InterVar0_5 = InterVar0_0;
0552: }
0553: if (((trimc_string(InterVar0_5) == InterVar0_2) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0554: StageVar0_S24 = InterVar0_51;
0555: } else {
0556: StageVar0_S24 = InterVar0_0;
0557: }
0558: //;
0559: }
0560: //;
0561: if (((trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3) && (StageVar0_F29 > StageVar0_F30))) {
0562: StageVar0_S25 = InterVar0_52;
0563: } else {
0564: if (((trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6) && (StageVar0_F29 > StageVar0_F30))) {
0565: StageVar0_S25 = InterVar0_53;
0566: } else {
0567: StageVar0_S25 = InterVar0_0;
0568: }
0569: //;
0570: }
0571: //;
0572: if (((trimc_string(To_Mem_Xfm.ALT_DRUG_NAME) != InterVar0_0) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0573: StageVar0_S26 = InterVar0_54;
0574: } else {
0575: if (((trimc_string(To_Mem_Xfm.ALT_DRUG_NAME) != InterVar0_0) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0576: StageVar0_S26 = InterVar0_55;
0577: } else {
0578: StageVar0_S26 = InterVar0_0;
0579: }
0580: //;
0581: }
0582: //;
0583: if (((trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3) && (trimc_string(To_Mem_Xfm.APPEAL_BY_PHONE_IND) == InterVar0_8))) {
0584: StageVar0_S27 = InterVar0_56;
0585: } else {
0586: if (((trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6) && (trimc_string(To_Mem_Xfm.APPEAL_BY_PHONE_IND) == InterVar0_8))) {
0587: StageVar0_S27 = InterVar0_57;
0588: } else {
0589: StageVar0_S27 = InterVar0_0;
0590: }
0591: //;
0592: }
0593: //;
0594: if ((((((To_Mem_Xfm.CATA_COPAY_PERCENTAGE == InterVar0_41) && (To_Mem_Xfm.CATA_COPAY_AMOUNT > InterVar0_41)) || (To_Mem_Xfm.CATA_COPAY_MAX_AMT > InterVar0_41)) || (To_Mem_Xfm.CATA_COPAY_FLAT_AMT > InterVar0_41)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0595: StageVar0_S31 = InterVar0_58;
0596: } else {
0597: if ((((((To_Mem_Xfm.CATA_COPAY_PERCENTAGE == InterVar0_41) && (To_Mem_Xfm.CATA_COPAY_AMOUNT > InterVar0_41)) || (To_Mem_Xfm.CATA_COPAY_MAX_AMT > InterVar0_41)) || (To_Mem_Xfm.CATA_COPAY_FLAT_AMT > InterVar0_41)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0598: StageVar0_S31 = InterVar0_59;
0599: } else {
0600: StageVar0_S31 = InterVar0_0;
0601: }
0602: //;
0603: }
0604: //;
0605: 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_9) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_8))) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0606: StageVar0_S32 = InterVar0_60;
0607: } else {
0608: 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_9) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_8))) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0609: StageVar0_S32 = InterVar0_61;
0610: } else {
0611: StageVar0_S32 = InterVar0_0;
0612: }
0613: //;
0614: }
0615: //;
0616: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_8))) {
0617: StageVar0_S33 = InterVar0_62;
0618: } else {
0619: if ((((trimc_string(To_Mem_Xfm.LOWINCOME_CD) == InterVar0_8) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6)) && (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) == InterVar0_8))) {
0620: StageVar0_S33 = InterVar0_63;
0621: } else {
0622: StageVar0_S33 = InterVar0_0;
0623: }
0624: //;
0625: }
0626: //;
0627: if ((((((To_Mem_Xfm.CATA_COPAY_PERCENTAGE == InterVar0_41) && (To_Mem_Xfm.CATA_COPAY_AMOUNT == InterVar0_41)) && (To_Mem_Xfm.CATA_COPAY_MAX_AMT == InterVar0_41)) && (To_Mem_Xfm.CATA_COPAY_FLAT_AMT == InterVar0_41)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
0628: StageVar0_S34 = InterVar0_64;
0629: } else {
0630: if ((((((To_Mem_Xfm.CATA_COPAY_PERCENTAGE == InterVar0_41) && (To_Mem_Xfm.CATA_COPAY_AMOUNT == InterVar0_41)) && (To_Mem_Xfm.CATA_COPAY_MAX_AMT == InterVar0_41)) && (To_Mem_Xfm.CATA_COPAY_FLAT_AMT == InterVar0_41)) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
0631: StageVar0_S34 = InterVar0_65;
0632: } else {
0633: StageVar0_S34 = InterVar0_0;
0634: }
0635: //;
0636: }
0637: //;
0638: InterVar0_1 = To_Mem_Xfm.PAT_IBEN_AMT;
0639: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0640: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0641: InterVar0_5 = To_Mem_Xfm.PAT_IBEN_AMT;
0642: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0643: StageVar0_Pat = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0644: InterVar0_1 = To_Mem_Xfm.PLAN_IBEN_AMT;
0645: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0646: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0647: InterVar0_5 = To_Mem_Xfm.PLAN_IBEN_AMT;
0648: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0649: StageVar0_plan = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0650: InterVar0_72 = StageVar0_Pat;
0651: InterVar0_73 = StageVar0_plan;
0652: StageVar0_init = (InterVar0_72 + InterVar0_73);
0653: if ((trimc_string(To_Mem_Xfm.FILE_LAYOUT_CD) == InterVar0_74)) {
0654: StageVar0_F28 = InterVar0_75;
0655: } else {
0656: StageVar0_F28 = string_of_substring(InterVar0_76 , 3);
0657: }
0658: //;
0659: StageVar0_F31 = substring_1(StageVar0_S3 , 3 , 2);
0660: StageVar0_StageVar2 = date_from_string(substring_1(string_from_timestamp(To_Mem_Xfm.EOB_MONTH) , 1 , 10));
0661: if (((month_from_date(StageVar0_StageVar2) == 2) && ((year_from_date(StageVar0_StageVar2) % 4) == 0))) {
0662: InterVar0_70 = julian_day_from_date(StageVar0_StageVar2) + 28;
0663: StageVar0_StageVar3 = InterVar0_70;
0664: } else {
0665: if (((month_from_date(StageVar0_StageVar2) == 2) && ((year_from_date(StageVar0_StageVar2) % 4) != 0))) {
0666: InterVar0_77 = julian_day_from_date(StageVar0_StageVar2) + 27;
0667: StageVar0_StageVar3 = InterVar0_77;
0668: } else {
0669: if (((((((((month_from_date(StageVar0_StageVar2) == 1) || (month_from_date(StageVar0_StageVar2) == 3)) || (month_from_date(StageVar0_StageVar2) == 5)) || (month_from_date(StageVar0_StageVar2) == 7)) || (month_from_date(StageVar0_StageVar2) ==
![Cool 8)](./images/smilies/icon_cool.gif)
) || (month_from_date(StageVar0_StageVar2) == 10)) || (month_from_date(StageVar0_StageVar2) == 12)) && (month_from_date(StageVar0_StageVar2) != 2))) {
0670: InterVar0_78 = julian_day_from_date(StageVar0_StageVar2) + 30;
0671: StageVar0_StageVar3 = InterVar0_78;
0672: } else {
0673: InterVar0_79 = julian_day_from_date(StageVar0_StageVar2) + 29;
0674: StageVar0_StageVar3 = InterVar0_79;
0675: }
0676: //;
0677: }
0678: //;
0679: }
0680: //;
0681: InterVar0_80 = StageVar0_StageVar3;
0682: StageVar0_StageVar = string_from_date(date_from_julian_day(InterVar0_80));
0683: StageVar0_F32 = trimc_string(((substring_1(StageVar0_S10 , 3 , 2) + substring_1(StageVar0_S11 , 3 , 2)) + substring_1(StageVar0_S12 , 3 , 2)));
0684:
0685: // evaluate constraint and columns for link: To_Lkup_Plan
0686: if ((To_Mem_Xfm.CLIENT_ID == CLIENT_ID))
0687: {
0688: To_Lkup_Plan.RECORD_ID = InterVar0_81;
0689: InterVar0_1 = To_Mem_Xfm.EOB_ID;
0690: InterVar0_70 = 15 - string_length(trimc_string(InterVar0_1));
0691: InterVar0_5 = To_Mem_Xfm.EOB_ID;
0692: To_Lkup_Plan.EOB_ID = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(InterVar0_5));
0693: InterVar0_70 = 20 - string_length(trimc_string(To_Mem_Xfm.TEMPLATE_ID));
0694: To_Lkup_Plan.TEMPLATE_ID = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(To_Mem_Xfm.TEMPLATE_ID));
0695: To_Lkup_Plan.Rec_Ind = InterVar0_14;
0696: 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));
0697: if (null(To_Mem_Xfm.PATIENT_ID)) {
0698: To_Lkup_Plan.PATIENT_ID = string_of_substring(InterVar0_66 , 10);
0699: } else {
0700: InterVar0_1 = To_Mem_Xfm.PATIENT_ID;
0701: InterVar0_70 = 10 - string_length(trimc_string(InterVar0_1));
0702: InterVar0_5 = To_Mem_Xfm.PATIENT_ID;
0703: To_Lkup_Plan.PATIENT_ID = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(InterVar0_5));
0704: }
0705: //;
0706: if (null(To_Mem_Xfm.BENEFIT_YEAR)) {
0707: To_Lkup_Plan.DEDU_YEAR = string_of_substring(InterVar0_76 , 4);
0708: } else {
0709: InterVar0_68 = To_Mem_Xfm.BENEFIT_YEAR;
0710: InterVar0_70 = 4 - string_length(string_from_decimal(InterVar0_68 , InterVar0_82));
0711: InterVar0_71 = To_Mem_Xfm.BENEFIT_YEAR;
0712: To_Lkup_Plan.DEDU_YEAR = (string_of_substring(InterVar0_76 , InterVar0_70) + string_from_decimal(InterVar0_71 , InterVar0_82));
0713: }
0714: //;
0715: 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));
0716: To_Lkup_Plan.MONTH_END_DATE = ((substring_1(StageVar0_StageVar , 6 , 2) + substring_1(StageVar0_StageVar , 9 , 2)) + substring_1(StageVar0_StageVar , 1 , 4));
0717: if (notnull(To_Mem_Xfm.MEMBER_ALIAS_ID)) {
0718: InterVar0_70 = 20 - string_length(trimc_string(To_Mem_Xfm.MEMBER_ALIAS_ID));
0719: To_Lkup_Plan.MEMBER_ID = (trimc_string(To_Mem_Xfm.MEMBER_ALIAS_ID) + string_of_substring(InterVar0_76 , InterVar0_70));
0720: } else {
0721: InterVar0_77 = 20 - string_length(trimc_string(To_Mem_Xfm.CARDHOLDER_ID));
0722: To_Lkup_Plan.MEMBER_ID = (trimc_string(To_Mem_Xfm.CARDHOLDER_ID) + string_of_substring(InterVar0_76 , InterVar0_77));
0723: }
0724: //;
0725: if (null(To_Mem_Xfm.GROUP_ID)) {
0726: To_Lkup_Plan.GROUP_ID = string_of_substring(InterVar0_76 , 15);
0727: } else {
0728: InterVar0_70 = 15 - string_length(trimc_string(To_Mem_Xfm.GROUP_ID));
0729: To_Lkup_Plan.GROUP_ID = (trimc_string(To_Mem_Xfm.GROUP_ID) + string_of_substring(InterVar0_76 , InterVar0_70));
0730: }
0731: //;
0732: To_Lkup_Plan.PCN_GROUP_ID = string_of_substring(InterVar0_76 , 15);
0733: if (null(To_Mem_Xfm.DEDU_MAX)) {
0734: To_Lkup_Plan.DEDU_MAX = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0735: } else {
0736: InterVar0_1 = To_Mem_Xfm.DEDU_MAX;
0737: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0738: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0739: InterVar0_5 = To_Mem_Xfm.DEDU_MAX;
0740: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0741: To_Lkup_Plan.DEDU_MAX = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0742: }
0743: //;
0744: if (null(To_Mem_Xfm.PAT_DEDU_AMT)) {
0745: To_Lkup_Plan.PAT_DEDU_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0746: } else {
0747: InterVar0_1 = To_Mem_Xfm.PAT_DEDU_AMT;
0748: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0749: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0750: InterVar0_5 = To_Mem_Xfm.PAT_DEDU_AMT;
0751: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0752: To_Lkup_Plan.PAT_DEDU_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0753: }
0754: //;
0755: if (null(To_Mem_Xfm.PLAN_DEDU_AMT)) {
0756: To_Lkup_Plan.PLAN_DEDU_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0757: } else {
0758: InterVar0_1 = To_Mem_Xfm.PLAN_DEDU_AMT;
0759: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0760: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0761: InterVar0_5 = To_Mem_Xfm.PLAN_DEDU_AMT;
0762: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0763: To_Lkup_Plan.PLAN_DEDU_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0764: }
0765: //;
0766: if (null(To_Mem_Xfm.TROOP_DEDU_AMT)) {
0767: To_Lkup_Plan.TROOP_DEDU_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0768: } else {
0769: InterVar0_1 = To_Mem_Xfm.TROOP_DEDU_AMT;
0770: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0771: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0772: InterVar0_5 = To_Mem_Xfm.TROOP_DEDU_AMT;
0773: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0774: To_Lkup_Plan.TROOP_DEDU_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0775: }
0776: //;
0777: if (null(To_Mem_Xfm.NON_TROOP_DEDU_AMT)) {
0778: To_Lkup_Plan.NON_TROOP_DEDU_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0779: } else {
0780: InterVar0_1 = To_Mem_Xfm.NON_TROOP_DEDU_AMT;
0781: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0782: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0783: InterVar0_5 = To_Mem_Xfm.NON_TROOP_DEDU_AMT;
0784: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0785: To_Lkup_Plan.NON_TROOP_DEDU_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0786: }
0787: //;
0788: if (null(To_Mem_Xfm.AMT_LEFT_TO_IBEN)) {
0789: To_Lkup_Plan.AMT_LEFT_TO_IBEN = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0790: } else {
0791: InterVar0_1 = To_Mem_Xfm.AMT_LEFT_TO_IBEN;
0792: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0793: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0794: InterVar0_5 = To_Mem_Xfm.AMT_LEFT_TO_IBEN;
0795: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0796: To_Lkup_Plan.AMT_LEFT_TO_IBEN = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0797: }
0798: //;
0799: if (null(To_Mem_Xfm.IBEN_MAX)) {
0800: To_Lkup_Plan.IBEN_MAX = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0801: } else {
0802: InterVar0_1 = To_Mem_Xfm.IBEN_MAX;
0803: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0804: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0805: InterVar0_5 = To_Mem_Xfm.IBEN_MAX;
0806: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0807: To_Lkup_Plan.IBEN_MAX = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0808: }
0809: //;
0810: if (null(To_Mem_Xfm.PAT_IBEN_AMT)) {
0811: To_Lkup_Plan.PAT_IBEN_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0812: } else {
0813: InterVar0_1 = To_Mem_Xfm.PAT_IBEN_AMT;
0814: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0815: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0816: InterVar0_5 = To_Mem_Xfm.PAT_IBEN_AMT;
0817: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0818: To_Lkup_Plan.PAT_IBEN_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0819: }
0820: //;
0821: if (null(To_Mem_Xfm.PLAN_IBEN_AMT)) {
0822: To_Lkup_Plan.PLAN_IBEN_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0823: } else {
0824: InterVar0_1 = To_Mem_Xfm.PLAN_IBEN_AMT;
0825: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0826: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0827: InterVar0_5 = To_Mem_Xfm.PLAN_IBEN_AMT;
0828: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0829: To_Lkup_Plan.PLAN_IBEN_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0830: }
0831: //;
0832: if (null(To_Mem_Xfm.TROOP_IBEN_AMT)) {
0833: To_Lkup_Plan.TROOP_IBEN_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0834: } else {
0835: InterVar0_1 = To_Mem_Xfm.TROOP_IBEN_AMT;
0836: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0837: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0838: InterVar0_5 = To_Mem_Xfm.TROOP_IBEN_AMT;
0839: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0840: To_Lkup_Plan.TROOP_IBEN_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0841: }
0842: //;
0843: if (null(To_Mem_Xfm.NON_TROOP_IBEN_AMT)) {
0844: To_Lkup_Plan.NON_TROOP_IBEN_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0845: } else {
0846: InterVar0_1 = To_Mem_Xfm.NON_TROOP_IBEN_AMT;
0847: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0848: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0849: InterVar0_5 = To_Mem_Xfm.NON_TROOP_IBEN_AMT;
0850: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0851: To_Lkup_Plan.NON_TROOP_IBEN_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0852: }
0853: //;
0854: if (null(To_Mem_Xfm.AMT_LEFT_TO_CGAP)) {
0855: To_Lkup_Plan.AMT_LEFT_TO_CGAP = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0856: } else {
0857: InterVar0_1 = To_Mem_Xfm.AMT_LEFT_TO_CGAP;
0858: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0859: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0860: InterVar0_5 = To_Mem_Xfm.AMT_LEFT_TO_CGAP;
0861: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0862: To_Lkup_Plan.AMT_LEFT_TO_CGAP = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0863: }
0864: //;
0865: if (null(To_Mem_Xfm.CGAP_MAX)) {
0866: To_Lkup_Plan.CGAP_MAX = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0867: } else {
0868: InterVar0_1 = To_Mem_Xfm.CGAP_MAX;
0869: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0870: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0871: InterVar0_5 = To_Mem_Xfm.CGAP_MAX;
0872: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0873: To_Lkup_Plan.CGAP_MAX = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0874: }
0875: //;
0876: if (null(To_Mem_Xfm.PAT_CGAP_AMT)) {
0877: To_Lkup_Plan.PAT_CGAP_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0878: } else {
0879: InterVar0_1 = To_Mem_Xfm.PAT_CGAP_AMT;
0880: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0881: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0882: InterVar0_5 = To_Mem_Xfm.PAT_CGAP_AMT;
0883: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0884: To_Lkup_Plan.PAT_CGAP_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0885: }
0886: //;
0887: if (null(To_Mem_Xfm.PLAN_CGAP_AMT)) {
0888: To_Lkup_Plan.PLAN_CGAP_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0889: } else {
0890: InterVar0_1 = To_Mem_Xfm.PLAN_CGAP_AMT;
0891: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0892: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0893: InterVar0_5 = To_Mem_Xfm.PLAN_CGAP_AMT;
0894: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0895: To_Lkup_Plan.PLAN_CGAP_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0896: }
0897: //;
0898: if (null(To_Mem_Xfm.TROOP_CGAP_AMT)) {
0899: To_Lkup_Plan.TROOP_CGAP_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0900: } else {
0901: InterVar0_1 = To_Mem_Xfm.TROOP_CGAP_AMT;
0902: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0903: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0904: InterVar0_5 = To_Mem_Xfm.TROOP_CGAP_AMT;
0905: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0906: To_Lkup_Plan.TROOP_CGAP_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0907: }
0908: //;
0909: if (null(To_Mem_Xfm.NON_TROOP_CGAP_AMT)) {
0910: To_Lkup_Plan.NON_TROOP_CGAP_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0911: } else {
0912: InterVar0_1 = To_Mem_Xfm.NON_TROOP_CGAP_AMT;
0913: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0914: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0915: InterVar0_5 = To_Mem_Xfm.NON_TROOP_CGAP_AMT;
0916: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0917: To_Lkup_Plan.NON_TROOP_CGAP_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0918: }
0919: //;
0920: if (null(To_Mem_Xfm.AMT_LEFT_TO_CATA)) {
0921: To_Lkup_Plan.CAT_QUALIFY_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0922: } else {
0923: InterVar0_1 = To_Mem_Xfm.AMT_LEFT_TO_CATA;
0924: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0925: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0926: InterVar0_5 = To_Mem_Xfm.AMT_LEFT_TO_CATA;
0927: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0928: To_Lkup_Plan.CAT_QUALIFY_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0929: }
0930: //;
0931: if (null(To_Mem_Xfm.PLAN_CATA_AMT)) {
0932: To_Lkup_Plan.PLAN_CATA_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0933: } else {
0934: InterVar0_1 = To_Mem_Xfm.PLAN_CATA_AMT;
0935: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0936: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0937: InterVar0_5 = To_Mem_Xfm.PLAN_CATA_AMT;
0938: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0939: To_Lkup_Plan.PLAN_CATA_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0940: }
0941: //;
0942: if (null(To_Mem_Xfm.GROSS_DRUG_SPEND_AMT)) {
0943: To_Lkup_Plan.GROSS_DRUG_SPEND_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0944: } else {
0945: InterVar0_1 = To_Mem_Xfm.GROSS_DRUG_SPEND_AMT;
0946: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0947: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0948: InterVar0_5 = To_Mem_Xfm.GROSS_DRUG_SPEND_AMT;
0949: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0950: To_Lkup_Plan.GROSS_DRUG_SPEND_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0951: }
0952: //;
0953: if (null(To_Mem_Xfm.YTD_TROOP_AMT)) {
0954: To_Lkup_Plan.YTD_TROOP_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
0955: } else {
0956: InterVar0_1 = To_Mem_Xfm.YTD_TROOP_AMT;
0957: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0958: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0959: InterVar0_5 = To_Mem_Xfm.YTD_TROOP_AMT;
0960: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0961: To_Lkup_Plan.YTD_TROOP_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0962: }
0963: //;
0964: if (null(To_Mem_Xfm.CURR_STREAM_CD)) {
0965: To_Lkup_Plan.CURR_STREAM_CD = string_of_substring(InterVar0_76 , 4);
0966: } else {
0967: InterVar0_70 = 4 - string_length(trimc_string(To_Mem_Xfm.CURR_STREAM_CD));
0968: To_Lkup_Plan.CURR_STREAM_CD = (trimc_string(To_Mem_Xfm.CURR_STREAM_CD) + string_of_substring(InterVar0_76 , InterVar0_70));
0969: }
0970: //;
0971: if ((string_length(trimc_string(StageVar0_F36)) == 0)) {
0972: To_Lkup_Plan.NEXT_COVERAGE_STREAM = string_of_substring(InterVar0_76 , 4);
0973: } else {
0974: InterVar0_70 = 4 - string_length(trimc_string(StageVar0_F36));
0975: To_Lkup_Plan.NEXT_COVERAGE_STREAM = (trimc_string(StageVar0_F36) + string_of_substring(InterVar0_76 , InterVar0_70));
0976: }
0977: //;
0978: InterVar0_1 = To_Mem_Xfm.AMT_LEFT_TO_NEXT_COV_STREAM;
0979: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0980: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0981: InterVar0_5 = To_Mem_Xfm.AMT_LEFT_TO_NEXT_COV_STREAM;
0982: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0983: To_Lkup_Plan.AMT_LEFT_TO_NEXT_COV_STREAM = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0984: InterVar0_1 = To_Mem_Xfm.MONTH_TOTAL_PLAN_PAY_AMT;
0985: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0986: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0987: InterVar0_5 = To_Mem_Xfm.MONTH_TOTAL_PLAN_PAY_AMT;
0988: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0989: To_Lkup_Plan.MONTH_TOTAL_PLAN_PAY_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0990: InterVar0_1 = To_Mem_Xfm.MONTH_TOTAL_PATIENT_PAY_AMT;
0991: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0992: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0993: InterVar0_5 = To_Mem_Xfm.MONTH_TOTAL_PATIENT_PAY_AMT;
0994: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
0995: To_Lkup_Plan.MONTH_TOTAL_PATIENT_PAY_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
0996: InterVar0_1 = To_Mem_Xfm.MONTH_TOTAL_TROOP_AMT;
0997: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
0998: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
0999: InterVar0_5 = To_Mem_Xfm.MONTH_TOTAL_TROOP_AMT;
1000: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
1001: To_Lkup_Plan.MONTH_TOTAL_TROOP_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
1002: InterVar0_1 = To_Mem_Xfm.MONTH_GROSS_DRUG_SPEND_AMT;
1003: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
1004: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
1005: InterVar0_5 = To_Mem_Xfm.MONTH_GROSS_DRUG_SPEND_AMT;
1006: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
1007: To_Lkup_Plan.MONTH_GROSS_DRUG_SPEND_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
1008: if (null(To_Mem_Xfm.FIRST_NAME)) {
1009: To_Lkup_Plan.FIRST_NAME = string_of_substring(InterVar0_76 , 30);
1010: } else {
1011: InterVar0_70 = 30 - string_length(trimc_string(To_Mem_Xfm.FIRST_NAME));
1012: To_Lkup_Plan.FIRST_NAME = (trimc_string(To_Mem_Xfm.FIRST_NAME) + string_of_substring(InterVar0_76 , InterVar0_70));
1013: }
1014: //;
1015: if (null(To_Mem_Xfm.MIDDLE_INITIAL)) {
1016: To_Lkup_Plan.MIDDLE_INITIAL = string_of_substring(InterVar0_76 , 1);
1017: } else {
1018: InterVar0_70 = 1 - string_length(trimc_string(To_Mem_Xfm.MIDDLE_INITIAL));
1019: To_Lkup_Plan.MIDDLE_INITIAL = (trimc_string(To_Mem_Xfm.MIDDLE_INITIAL) + string_of_substring(InterVar0_76 , InterVar0_70));
1020: }
1021: //;
1022: if (null(To_Mem_Xfm.LAST_NAME)) {
1023: To_Lkup_Plan.LAST_NAME = string_of_substring(InterVar0_76 , 30);
1024: } else {
1025: InterVar0_70 = 30 - string_length(trimc_string(To_Mem_Xfm.LAST_NAME));
1026: To_Lkup_Plan.LAST_NAME = (trimc_string(To_Mem_Xfm.LAST_NAME) + string_of_substring(InterVar0_76 , InterVar0_70));
1027: }
1028: //;
1029: if (null(To_Mem_Xfm.ADDR_LINE_1)) {
1030: To_Lkup_Plan.ADDR_LINE_1 = string_of_substring(InterVar0_76 , 32);
1031: } else {
1032: InterVar0_70 = 32 - string_length(trimc_string(To_Mem_Xfm.ADDR_LINE_1));
1033: To_Lkup_Plan.ADDR_LINE_1 = (trimc_string(To_Mem_Xfm.ADDR_LINE_1) + string_of_substring(InterVar0_76 , InterVar0_70));
1034: }
1035: //;
1036: if (null(To_Mem_Xfm.ADDR_LINE_2)) {
1037: To_Lkup_Plan.ADDR_LINE_2 = string_of_substring(InterVar0_76 , 32);
1038: } else {
1039: InterVar0_70 = 32 - string_length(trimc_string(To_Mem_Xfm.ADDR_LINE_2));
1040: To_Lkup_Plan.ADDR_LINE_2 = (trimc_string(To_Mem_Xfm.ADDR_LINE_2) + string_of_substring(InterVar0_76 , InterVar0_70));
1041: }
1042: //;
1043: if (null(To_Mem_Xfm.CITY)) {
1044: To_Lkup_Plan.CITY = string_of_substring(InterVar0_76 , 30);
1045: } else {
1046: InterVar0_70 = 30 - string_length(trimc_string(To_Mem_Xfm.CITY));
1047: To_Lkup_Plan.CITY = (trimc_string(To_Mem_Xfm.CITY) + string_of_substring(InterVar0_76 , InterVar0_70));
1048: }
1049: //;
1050: if (null(To_Mem_Xfm.STATE_CD)) {
1051: To_Lkup_Plan.STATE_CD = string_of_substring(InterVar0_76 , 2);
1052: } else {
1053: InterVar0_70 = 2 - string_length(trimc_string(To_Mem_Xfm.STATE_CD));
1054: To_Lkup_Plan.STATE_CD = (trimc_string(To_Mem_Xfm.STATE_CD) + string_of_substring(InterVar0_76 , InterVar0_70));
1055: }
1056: //;
1057: if (null(To_Mem_Xfm.POSTAL_ZIP)) {
1058: To_Lkup_Plan.POSTAL_ZIP = string_of_substring(InterVar0_76 , 10);
1059: } else {
1060: InterVar0_70 = 10 - string_length(trimc_string(To_Mem_Xfm.POSTAL_ZIP));
1061: To_Lkup_Plan.POSTAL_ZIP = (trimc_string(To_Mem_Xfm.POSTAL_ZIP) + string_of_substring(InterVar0_76 , InterVar0_70));
1062: }
1063: //;
1064: if (null(To_Mem_Xfm.BRANDING_CD)) {
1065: To_Lkup_Plan.BRANDING_CD = string_of_substring(InterVar0_76 , 3);
1066: } else {
1067: InterVar0_70 = 3 - string_length(trimc_string(To_Mem_Xfm.BRANDING_CD));
1068: To_Lkup_Plan.BRANDING_CD = (trimc_string(To_Mem_Xfm.BRANDING_CD) + string_of_substring(InterVar0_76 , InterVar0_70));
1069: }
1070: //;
1071: if (null(To_Mem_Xfm.LANGUAGE_CD)) {
1072: To_Lkup_Plan.LANGUAGE_CD = string_of_substring(InterVar0_76 , 2);
1073: } else {
1074: InterVar0_70 = 2 - string_length(trimc_string(To_Mem_Xfm.LANGUAGE_CD));
1075: To_Lkup_Plan.LANGUAGE_CD = (trimc_string(To_Mem_Xfm.LANGUAGE_CD) + string_of_substring(InterVar0_76 , InterVar0_70));
1076: }
1077: //;
1078: if (null(To_Mem_Xfm.LOWINCOME_CD)) {
1079: To_Lkup_Plan.LOWINCOME_CD = string_of_substring(InterVar0_76 , 1);
1080: } else {
1081: InterVar0_70 = 1 - string_length(trimc_string(To_Mem_Xfm.LOWINCOME_CD));
1082: To_Lkup_Plan.LOWINCOME_CD = (trimc_string(To_Mem_Xfm.LOWINCOME_CD) + string_of_substring(InterVar0_76 , InterVar0_70));
1083: }
1084: //;
1085: if (null(To_Mem_Xfm.DEDU_AVAILABLE_IND)) {
1086: To_Lkup_Plan.DEDU_AVAILABLE_IND = string_of_substring(InterVar0_76 , 1);
1087: } else {
1088: InterVar0_70 = 1 - string_length(trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND));
1089: To_Lkup_Plan.DEDU_AVAILABLE_IND = (trimc_string(To_Mem_Xfm.DEDU_AVAILABLE_IND) + string_of_substring(InterVar0_76 , InterVar0_70));
1090: }
1091: //;
1092: if (null(To_Mem_Xfm.CLAIM_AVAILABLE_IND)) {
1093: To_Lkup_Plan.CLAIM_AVAILABLE_IND = string_of_substring(InterVar0_76 , 1);
1094: } else {
1095: InterVar0_70 = 1 - string_length(trimc_string(To_Mem_Xfm.CLAIM_AVAILABLE_IND));
1096: To_Lkup_Plan.CLAIM_AVAILABLE_IND = (trimc_string(To_Mem_Xfm.CLAIM_AVAILABLE_IND) + string_of_substring(InterVar0_76 , InterVar0_70));
1097: }
1098: //;
1099: if (null(To_Mem_Xfm.FORMULARY_AVAILABLE_IND)) {
1100: To_Lkup_Plan.FORMULARY_AVAILABLE_IND = string_of_substring(InterVar0_76 , 1);
1101: } else {
1102: InterVar0_70 = 1 - string_length(trimc_string(To_Mem_Xfm.FORMULARY_AVAILABLE_IND));
1103: To_Lkup_Plan.FORMULARY_AVAILABLE_IND = (trimc_string(To_Mem_Xfm.FORMULARY_AVAILABLE_IND) + string_of_substring(InterVar0_76 , InterVar0_70));
1104: }
1105: //;
1106: if (null(To_Mem_Xfm.TEMPLATE_ID)) {
1107: To_Lkup_Plan.TEMPLATE_ID_1 = string_of_substring(InterVar0_76 , 20);
1108: } else {
1109: InterVar0_70 = 20 - string_length(trimc_string(To_Mem_Xfm.TEMPLATE_ID));
1110: To_Lkup_Plan.TEMPLATE_ID_1 = (trimc_string(To_Mem_Xfm.TEMPLATE_ID) + string_of_substring(InterVar0_76 , InterVar0_70));
1111: }
1112: //;
1113: if (null(To_Mem_Xfm.PREV_PLAN_ID)) {
1114: To_Lkup_Plan.PREV_PLAN_ID = string_of_substring(InterVar0_76 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
1115: } else {
1116: InterVar0_70 = 8 - string_length(trimc_string(To_Mem_Xfm.PREV_PLAN_ID));
1117: To_Lkup_Plan.PREV_PLAN_ID = (trimc_string(To_Mem_Xfm.PREV_PLAN_ID) + string_of_substring(InterVar0_76 , InterVar0_70));
1118: }
1119: //;
1120: if (null(To_Mem_Xfm.PREV_PLAN_NAME)) {
1121: To_Lkup_Plan.PREV_PLAN_NAME = string_of_substring(InterVar0_76 , 60);
1122: } else {
1123: InterVar0_70 = 60 - string_length(trimc_string(To_Mem_Xfm.PREV_PLAN_NAME));
1124: To_Lkup_Plan.PREV_PLAN_NAME = (trimc_string(To_Mem_Xfm.PREV_PLAN_NAME) + string_of_substring(InterVar0_76 , InterVar0_70));
1125: }
1126: //;
1127: if (null(To_Mem_Xfm.PREV_PLAN_END_DT)) {
1128: To_Lkup_Plan.PREV_PLAN_END_DT = string_of_substring(InterVar0_76 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
1129: } else {
1130: 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));
1131: }
1132: //;
1133: if (null(To_Mem_Xfm.PREV_PLAN_TROOP_AMT)) {
1134: To_Lkup_Plan.PREV_PLAN_TROOP_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
1135: } else {
1136: InterVar0_1 = To_Mem_Xfm.PREV_PLAN_TROOP_AMT;
1137: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
1138: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
1139: InterVar0_5 = To_Mem_Xfm.PREV_PLAN_TROOP_AMT;
1140: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
1141: To_Lkup_Plan.PREV_PLAN_TROOP_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
1142: }
1143: //;
1144: if (null(To_Mem_Xfm.PREV_PLAN_GROSS_DRUG_AMT)) {
1145: To_Lkup_Plan.PREV_PLAN_GROSS_DRUG_AMT = string_of_substring(InterVar0_66 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
1146: } else {
1147: InterVar0_1 = To_Mem_Xfm.PREV_PLAN_GROSS_DRUG_AMT;
1148: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
1149: InterVar0_70 = 8 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
1150: InterVar0_5 = To_Mem_Xfm.PREV_PLAN_GROSS_DRUG_AMT;
1151: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
1152: To_Lkup_Plan.PREV_PLAN_GROSS_DRUG_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
1153: }
1154: //;
1155: To_Lkup_Plan.INFO_PAGE_ID = string_of_substring(InterVar0_76 , 10);
1156: if (null(To_Mem_Xfm.PLAN_NAME)) {
1157: To_Lkup_Plan.PLAN_NAME = string_of_substring(InterVar0_76 , 30);
1158: } else {
1159: InterVar0_70 = 30 - string_length(trimc_string(To_Mem_Xfm.PLAN_NAME));
1160: To_Lkup_Plan.PLAN_NAME = (trimc_string(To_Mem_Xfm.PLAN_NAME) + string_of_substring(InterVar0_76 , InterVar0_70));
1161: }
1162: //;
1163: if (null(To_Mem_Xfm.RETURN_ADDR_LINE_1)) {
1164: To_Lkup_Plan.RETURN_ADDR_LINE_1 = string_of_substring(InterVar0_76 , 32);
1165: } else {
1166: InterVar0_70 = 32 - string_length(trimc_string(To_Mem_Xfm.RETURN_ADDR_LINE_1));
1167: To_Lkup_Plan.RETURN_ADDR_LINE_1 = (trimc_string(To_Mem_Xfm.RETURN_ADDR_LINE_1) + string_of_substring(InterVar0_76 , InterVar0_70));
1168: }
1169: //;
1170: if (null(To_Mem_Xfm.RETURN_ADDR_CITY)) {
1171: To_Lkup_Plan.RETURN_ADDR_CITY = string_of_substring(InterVar0_76 , 30);
1172: } else {
1173: InterVar0_70 = 30 - string_length(trimc_string(To_Mem_Xfm.RETURN_ADDR_CITY));
1174: To_Lkup_Plan.RETURN_ADDR_CITY = (trimc_string(To_Mem_Xfm.RETURN_ADDR_CITY) + string_of_substring(InterVar0_76 , InterVar0_70));
1175: }
1176: //;
1177: if (null(To_Mem_Xfm.RETURN_ADDR_STATE_CD)) {
1178: To_Lkup_Plan.RETURN_ADDR_STATE_CD = string_of_substring(InterVar0_76 , 2);
1179: } else {
1180: InterVar0_70 = 2 - string_length(trimc_string(To_Mem_Xfm.RETURN_ADDR_STATE_CD));
1181: To_Lkup_Plan.RETURN_ADDR_STATE_CD = (trimc_string(To_Mem_Xfm.RETURN_ADDR_STATE_CD) + string_of_substring(InterVar0_76 , InterVar0_70));
1182: }
1183: //;
1184: if (null(To_Mem_Xfm.RETURN_ADDR_ZIP)) {
1185: To_Lkup_Plan.RETURN_ADDR_ZIP = string_of_substring(InterVar0_76 , 10);
1186: } else {
1187: InterVar0_1 = To_Mem_Xfm.RETURN_ADDR_ZIP;
1188: InterVar0_5 = To_Mem_Xfm.RETURN_ADDR_ZIP;
1189: InterVar0_70 = 10 - string_length(trimc_string(InterVar0_5));
1190: To_Lkup_Plan.RETURN_ADDR_ZIP = (trimc_string(InterVar0_1) + string_of_substring(InterVar0_76 , InterVar0_70));
1191: }
1192: //;
1193: InterVar0_1 = To_Mem_Xfm.TOLL_FREE_NUM;
1194: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
1195: InterVar0_70 = 11 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
1196: InterVar0_5 = To_Mem_Xfm.TOLL_FREE_NUM;
1197: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
1198: To_Lkup_Plan.TOLL_FREE_NUM = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
1199: InterVar0_1 = To_Mem_Xfm.TTY_TTD_NUM;
1200: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
1201: InterVar0_70 = 11 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
1202: InterVar0_5 = To_Mem_Xfm.TTY_TTD_NUM;
1203: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
1204: To_Lkup_Plan.TTY_TTD_NUM = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
1205: if (null(To_Mem_Xfm.FAX_NUM)) {
1206: To_Lkup_Plan.FAX_NUM = string_of_substring(InterVar0_76 , 11);
1207: } else {
1208: InterVar0_1 = To_Mem_Xfm.FAX_NUM;
1209: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
1210: InterVar0_70 = 11 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
1211: InterVar0_5 = To_Mem_Xfm.FAX_NUM;
1212: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
1213: To_Lkup_Plan.FAX_NUM = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
1214: }
1215: //;
1216: if (null(To_Mem_Xfm.WEB_SITE_URL)) {
1217: To_Lkup_Plan.WEB_SITE_URL = string_of_substring(InterVar0_76 , 40);
1218: } else {
1219: InterVar0_70 = 40 - string_length(trimc_string(To_Mem_Xfm.WEB_SITE_URL));
1220: To_Lkup_Plan.WEB_SITE_URL = (trimc_string(To_Mem_Xfm.WEB_SITE_URL) + string_of_substring(InterVar0_76 , InterVar0_70));
1221: }
1222: //;
1223: if (null(To_Mem_Xfm.DAYS_HOURS_OF_OPERATION)) {
1224: To_Lkup_Plan.DAYS_HOURS_OF_OPERATION = string_of_substring(InterVar0_76 , 60);
1225: } else {
1226: InterVar0_70 = 60 - string_length(trimc_string(To_Mem_Xfm.DAYS_HOURS_OF_OPERATION));
1227: To_Lkup_Plan.DAYS_HOURS_OF_OPERATION = (trimc_string(To_Mem_Xfm.DAYS_HOURS_OF_OPERATION) + string_of_substring(InterVar0_76 , InterVar0_70));
1228: }
1229: //;
1230: if (null(To_Mem_Xfm.MATERIAL_ID)) {
1231: To_Lkup_Plan.MATERIAL_ID = string_of_substring(InterVar0_76 , 30);
1232: } else {
1233: InterVar0_70 = 30 - string_length(trimc_string(To_Mem_Xfm.MATERIAL_ID));
1234: To_Lkup_Plan.MATERIAL_ID = (trimc_string(To_Mem_Xfm.MATERIAL_ID) + string_of_substring(InterVar0_76 , InterVar0_70));
1235: }
1236: //;
1237: if (null(To_Mem_Xfm.CMS_APPROVAL_DATE)) {
1238: To_Lkup_Plan.CMS_APPROVAL_DATE = string_of_substring(InterVar0_76 ,
![Cool 8)](./images/smilies/icon_cool.gif)
;
1239: } else {
1240: 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));
1241: }
1242: //;
1243: if (null(To_Mem_Xfm.TRACKING_NO)) {
1244: To_Lkup_Plan.TRACKING_NO = string_of_substring(InterVar0_76 , 40);
1245: } else {
1246: InterVar0_70 = 40 - string_length(trimc_string(To_Mem_Xfm.TRACKING_NO));
1247: To_Lkup_Plan.TRACKING_NO = (trimc_string(To_Mem_Xfm.TRACKING_NO) + string_of_substring(InterVar0_76 , InterVar0_70));
1248: }
1249: //;
1250: if (null(To_Mem_Xfm.PREV_PLAN_ID)) {
1251: To_Lkup_Plan.PREV_PLAN_SEC_NO = InterVar0_66;
1252: } else {
1253: To_Lkup_Plan.PREV_PLAN_SEC_NO = InterVar0_14;
1254: }
1255: //;
1256: if (null(To_Mem_Xfm.PREV_PLAN_ID)) {
1257: To_Lkup_Plan.SUMMARY_SEC_NO = InterVar0_14;
1258: } else {
1259: To_Lkup_Plan.SUMMARY_SEC_NO = InterVar0_15;
1260: }
1261: //;
1262: if (null(To_Mem_Xfm.PREV_PLAN_ID)) {
1263: To_Lkup_Plan.CLAIM_SEC_NO = InterVar0_15;
1264: } else {
1265: To_Lkup_Plan.CLAIM_SEC_NO = InterVar0_16;
1266: }
1267: //;
1268: if ((null(To_Mem_Xfm.PREV_PLAN_ID) && null(To_Mem_Xfm.FORMULARY_AVAILABLE_IND))) {
1269: To_Lkup_Plan.FRM_SEC_NO = InterVar0_66;
1270: } else {
1271: if ((notnull(To_Mem_Xfm.PREV_PLAN_ID) && null(To_Mem_Xfm.FORMULARY_AVAILABLE_IND))) {
1272: To_Lkup_Plan.FRM_SEC_NO = InterVar0_66;
1273: } else {
1274: if (notnull(To_Mem_Xfm.FORMULARY_AVAILABLE_IND)) {
1275: InterVar0_1 = To_Mem_Xfm.FORMULARY_AVAILABLE_IND;
1276: } else {
1277: InterVar0_1 = InterVar0_0;
1278: }
1279: if ((notnull(To_Mem_Xfm.PREV_PLAN_ID) && (trimc_string(InterVar0_1) == InterVar0_2))) {
1280: To_Lkup_Plan.FRM_SEC_NO = InterVar0_9;
1281: } else {
1282: if (notnull(To_Mem_Xfm.FORMULARY_AVAILABLE_IND)) {
1283: InterVar0_5 = To_Mem_Xfm.FORMULARY_AVAILABLE_IND;
1284: } else {
1285: InterVar0_5 = InterVar0_0;
1286: }
1287: if ((null(To_Mem_Xfm.PREV_PLAN_ID) && (trimc_string(InterVar0_5) == InterVar0_2))) {
1288: To_Lkup_Plan.FRM_SEC_NO = InterVar0_16;
1289: } else {
1290: To_Lkup_Plan.FRM_SEC_NO = InterVar0_66;
1291: }
1292: //;
1293: }
1294: //;
1295: }
1296: //;
1297: }
1298: //;
1299: InterVar0_70 = 4 - string_length(trimc_string(StageVar0_S1));
1300: To_Lkup_Plan.FORMULARY_PAGE1_MESSAGE = (string_of_substring(InterVar0_76 , InterVar0_70) + trimc_string(StageVar0_S1));
1301: InterVar0_70 = 4 - string_length(trimc_string(((StageVar0_S3 + StageVar0_S2) + StageVar0_S4)));
1302: To_Lkup_Plan.DEDU_MESSAGE = (string_of_substring(InterVar0_76 , InterVar0_70) + trimc_string(((StageVar0_S3 + StageVar0_S2) + StageVar0_S4)));
1303: InterVar0_70 = 4 - string_length(trimc_string((((StageVar0_S6 + StageVar0_S7) + StageVar0_S8) + StageVar0_S9)));
1304: To_Lkup_Plan.IBEN_MESSAGE = (string_of_substring(InterVar0_76 , InterVar0_70) + trimc_string((((StageVar0_S6 + StageVar0_S7) + StageVar0_S8) + StageVar0_S9)));
1305: InterVar0_70 = 4 - string_length(trimc_string(((((StageVar0_S10 + StageVar0_S11) + StageVar0_S12) + StageVar0_S13) + StageVar0_S14)));
1306: To_Lkup_Plan.CGAP_MESSAGE = (string_of_substring(InterVar0_76 , InterVar0_70) + trimc_string(((((StageVar0_S10 + StageVar0_S11) + StageVar0_S12) + StageVar0_S13) + StageVar0_S14)));
1307: InterVar0_70 = 4 - string_length(trimc_string((((StageVar0_S15 + StageVar0_S16) + StageVar0_S32) + StageVar0_S33)));
1308: To_Lkup_Plan.TROOP_COSTS_MESSAGE = (string_of_substring(InterVar0_76 , InterVar0_70) + trimc_string((((StageVar0_S15 + StageVar0_S16) + StageVar0_S32) + StageVar0_S33)));
1309: InterVar0_70 = 4 - string_length(trimc_string(((StageVar0_S17 + StageVar0_S31) + StageVar0_S34)));
1310: To_Lkup_Plan.CATA_MESSAGE = (string_of_substring(InterVar0_76 , InterVar0_70) + trimc_string(((StageVar0_S17 + StageVar0_S31) + StageVar0_S34)));
1311: InterVar0_70 = 4 - string_length(trimc_string((StageVar0_S18 + StageVar0_S19)));
1312: To_Lkup_Plan.TOTAL_DRUG_COST_MESSAGE = (string_of_substring(InterVar0_76 , InterVar0_70) + trimc_string((StageVar0_S18 + StageVar0_S19)));
1313: if (((To_Mem_Xfm.count >= 1) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
1314: To_Lkup_Plan.SUMMARY_NOTE_MESSAGE = InterVar0_83;
1315: } else {
1316: if (((To_Mem_Xfm.count >= 1) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
1317: To_Lkup_Plan.SUMMARY_NOTE_MESSAGE = InterVar0_84;
1318: } else {
1319: To_Lkup_Plan.SUMMARY_NOTE_MESSAGE = string_of_substring(InterVar0_76 , 4);
1320: }
1321: //;
1322: }
1323: //;
1324: if (((To_Mem_Xfm.count == 1) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
1325: To_Lkup_Plan.CLAIMS_NOTE_MESSAGE = InterVar0_85;
1326: } else {
1327: if (((To_Mem_Xfm.count == 1) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
1328: To_Lkup_Plan.CLAIMS_NOTE_MESSAGE = InterVar0_86;
1329: } else {
1330: if (((To_Mem_Xfm.count > 1) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_3))) {
1331: To_Lkup_Plan.CLAIMS_NOTE_MESSAGE = InterVar0_87;
1332: } else {
1333: if (((To_Mem_Xfm.count > 1) && (trimc_string(To_Mem_Xfm.LANGUAGE_CD) == InterVar0_6))) {
1334: To_Lkup_Plan.CLAIMS_NOTE_MESSAGE = InterVar0_88;
1335: } else {
1336: To_Lkup_Plan.CLAIMS_NOTE_MESSAGE = string_of_substring(InterVar0_76 , 4);
1337: }
1338: //;
1339: }
1340: //;
1341: }
1342: //;
1343: }
1344: //;
1345: InterVar0_70 = 4 - string_length(trimc_string(StageVar0_S23));
1346: To_Lkup_Plan.LICS_HELP_MESSAGE = (string_of_substring(InterVar0_76 , InterVar0_70) + trimc_string(StageVar0_S23));
1347: InterVar0_70 = 4 - string_length(trimc_string(StageVar0_S24));
1348: To_Lkup_Plan.FRM_NOTE_MESG = (string_of_substring(InterVar0_76 , InterVar0_70) + trimc_string(StageVar0_S24));
1349: InterVar0_70 = 4 - string_length(trimc_string(StageVar0_S25));
1350: To_Lkup_Plan.FRM_CHG_MESG = (string_of_substring(InterVar0_76 , InterVar0_70) + trimc_string(StageVar0_S25));
1351: InterVar0_70 = 4 - string_length(trimc_string(StageVar0_S26));
1352: To_Lkup_Plan.FRM_OTHERPOSIBLE_DRUG_MSG = (string_of_substring(InterVar0_76 , InterVar0_70) + trimc_string(StageVar0_S26));
1353: InterVar0_70 = 4 - string_length(trimc_string(StageVar0_S27));
1354: To_Lkup_Plan.NO_PHONE_REQ_MSG = (string_of_substring(InterVar0_76 , InterVar0_70) + trimc_string(StageVar0_S27));
1355: if (null(To_Mem_Xfm.CATA_COPAY_PERCENTAGE)) {
1356: To_Lkup_Plan.CATA_COPAY_PERCENTAGE = string_of_substring(InterVar0_76 , 3);
1357: } else {
1358: InterVar0_70 = 3 - string_length(string_from_decimal(To_Mem_Xfm.CATA_COPAY_PERCENTAGE , InterVar0_82));
1359: To_Lkup_Plan.CATA_COPAY_PERCENTAGE = (string_of_substring(InterVar0_66 , InterVar0_70) + string_from_decimal(To_Mem_Xfm.CATA_COPAY_PERCENTAGE , InterVar0_82));
1360: }
1361: //;
1362: if ((To_Mem_Xfm.CATA_COPAY_AMOUNT > InterVar0_41)) {
1363: InterVar0_1 = To_Mem_Xfm.CATA_COPAY_AMOUNT;
1364: InterVar0_68 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_1);
1365: InterVar0_70 = 11 - string_length(trimc_string(string_from_decimal(InterVar0_68 , InterVar0_69)));
1366: InterVar0_5 = To_Mem_Xfm.CATA_COPAY_AMOUNT;
1367: InterVar0_71 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_5);
1368: To_Lkup_Plan.CATA_COPAY_AMT = (string_of_substring(InterVar0_66 , InterVar0_70) + trimc_string(string_from_decimal(InterVar0_71 , InterVar0_69)));
1369: } else {
1370: if ((To_Mem_Xfm.CATA_COPAY_MAX_AMT > InterVar0_41)) {
1371: InterVar0_89 = To_Mem_Xfm.CATA_COPAY_MAX_AMT;
1372: InterVar0_90 = replace_substring(InterVar0_67 , InterVar0_0 , InterVar0_89);
1373: InterVar0_77 = 11 - string_length(trimc_string(string_from_decim