Routine: ECX3P152

ECX3P152 ;ALB/DE - ECX*3.0*152 Post-Init RTN;9/22/14

 ;;3.0;DSS EXTRACTS;**152**;Dec 22, 1997;Build 3

 ;Post-init routine updating current entries in

 ;the NATIONAL CLINIC (#728.441) file

EN ;routine entry point

 D UPDATE     ;change name to existing Clinic codes

UPDATE ;changing short description of existing clinic

 N ECXCODE,ECXDESC,ECXIEN,DIE,DA,DR,ECXI,ECXREC

 D BMES^XPDUTL(">>>Updating entry in the NATIONAL CLINIC (728.441) file..")

 F ECXI=1:1 S ECXREC=$P($T(UPDCLIN+ECXI),";;",2) Q:ECXREC="QUIT"  D

  .S ECXCODE=$P(ECXREC,"^"),ECXDESC=$P(ECXREC,"^",2)

  .S ECXIEN=$$FIND1^DIC(728.441,"","X",ECXCODE,"","","ERR")

  .I 'ECXIEN D  Q

  ..D BMES^XPDUTL(">>>...Unable to update "_ECXCODE_" - "_$P(ECXREC,U,2)_".")

  ..D BMES^XPDUTL(">>>...Contact support for assistance")

  .N FDA

  .S FDA(728.441,ECXIEN_",",1)=ECXDESC

  .D FILE^DIE(,"FDA","ECXERR")

  .D BMES^XPDUTL(">>>..."_ECXCODE_" - "_$P(ECXREC,U,2)_" updated")

 I '$D(ECXERR) D BMES^XPDUTL("Update complete") Q  ;quit here if update was successful

 D BMES^XPDUTL("***Errors occurred during install. Please check ECXERR(""DIERR"") for errors***")

 Q  ;quit here if errors occurred during update

UPDCLIN ;Contains the NATIONAL CLINIC entry description to be updated

 ;;NASL^ALS Regional Facility

 ;;RHTC^Rehab PT (non Home Telehealth)

 ;;VITL^VITAL Initiative Program

 ;;WCNC^CHAR4 COUNCIL

 ;;WCQC^Women's Telehealth Program

 ;;CDBC^CHAR4 COUNCIL

 ;;CDDC^CHAR4 COUNCIL

 ;;CDEC^CHAR4 COUNCIL

 ;;CDFC^CHAR4 COUNCIL

 ;;CDGC^CHAR4 COUNCIL

 ;;CDHC^CHAR4 COUNCIL

 ;;CDJC^CHAR4 COUNCIL

 ;;CDKC^CHAR4 COUNCIL

 ;;CDLC^CHAR4 COUNCIL

 ;;CDMC^CHAR4 COUNCIL

 ;;CDPC^CHAR4 COUNCIL

 ;;CDQC^CHAR4 COUNCIL

 ;;CDRC^CHAR4 COUNCIL

 ;;CDSC^CHAR4 COUNCIL

 ;;CDTC^CHAR4 COUNCIL

 ;;CDUC^CHAR4 COUNCIL

 ;;CDVC^CHAR4 COUNCIL

 ;;CDWC^CHAR4 COUNCIL

 ;;CGAC^CHAR4 COUNCIL

 ;;CGDC^CHAR4 COUNCIL

 ;;CGEC^CHAR4 COUNCIL

 ;;CGFC^CHAR4 COUNCIL

 ;;CGHC^CHAR4 COUNCIL

 ;;CGJC^CHAR4 COUNCIL

 ;;CGKC^CHAR4 COUNCIL

 ;;CGLC^CHAR4 COUNCIL

 ;;CGNC^CHAR4 COUNCIL

 ;;CGPC^CHAR4 COUNCIL

 ;;CGQC^CHAR4 COUNCIL

 ;;CGSC^CHAR4 COUNCIL

 ;;CGTC^CHAR4 COUNCIL

 ;;CGUC^CHAR4 COUNCIL

 ;;CGVC^CHAR4 COUNCIL

 ;;CGWC^CHAR4 COUNCIL

 ;;CNSF^CHAR4 COUNCIL

 ;;CNSG^CHAR4 COUNCIL

 ;;CNSI^CHAR4 COUNCIL

 ;;CNSP^CHAR4 COUNCIL

 ;;CNSQ^CHAR4 COUNCIL

 ;;CNSU^CHAR4 COUNCIL

 ;;CNSW^CHAR4 COUNCIL

 ;;CNSX^CHAR4 COUNCIL

 ;;CNSY^CHAR4 COUNCIL

 ;;COLL^CHAR4 COUNCIL

 ;;DEAC^CHAR4 COUNCIL

 ;;DEBC^CHAR4 COUNCIL

 ;;DEDC^CHAR4 COUNCIL

 ;;DEEC^CHAR4 COUNCIL

 ;;DEFC^CHAR4 COUNCIL

 ;;DEGC^CHAR4 COUNCIL

 ;;DEHC^CHAR4 COUNCIL

 ;;DELC^CHAR4 COUNCIL

 ;;DEMC^CHAR4 COUNCIL

 ;;DEMT^CHAR4 COUNCIL

 ;;DENC^CHAR4 COUNCIL

 ;;DEPC^CHAR4 COUNCIL

 ;;DEPS^CHAR4 COUNCIL

 ;;DEQC^CHAR4 COUNCIL

 ;;DERC^CHAR4 COUNCIL

 ;;DESC^CHAR4 COUNCIL

 ;;DETC^CHAR4 COUNCIL

 ;;DEUC^CHAR4 COUNCIL

 ;;DEVC^CHAR4 COUNCIL

 ;;DEWC^CHAR4 COUNCIL

 ;;DMAC^CHAR4 COUNCIL

 ;;DMBC^CHAR4 COUNCIL

 ;;DMDC^CHAR4 COUNCIL

 ;;DMEC^CHAR4 COUNCIL

 ;;DMFC^CHAR4 COUNCIL

 ;;DMGC^CHAR4 COUNCIL

 ;;DMHC^CHAR4 COUNCIL

 ;;DMJC^CHAR4 COUNCIL

 ;;DMKC^CHAR4 COUNCIL

 ;;DMLC^CHAR4 COUNCIL

 ;;DMPC^CHAR4 COUNCIL

 ;;DMQC^CHAR4 COUNCIL

 ;;DMRC^CHAR4 COUNCIL

 ;;DMSC^CHAR4 COUNCIL

 ;;DMTC^CHAR4 COUNCIL

 ;;DMUC^CHAR4 COUNCIL

 ;;DMVC^CHAR4 COUNCIL

 ;;DMWC^CHAR4 COUNCIL

 ;;FEEQ^CHAR4 COUNCIL

 ;;FEEX^CHAR4 COUNCIL

 ;;HDEC^CHAR4 COUNCIL

 ;;HDHC^CHAR4 COUNCIL

 ;;HDJC^CHAR4 COUNCIL

 ;;HDKC^CHAR4 COUNCIL

 ;;HDLC^CHAR4 COUNCIL

 ;;HDMC^CHAR4 COUNCIL

 ;;HDNC^CHAR4 COUNCIL

 ;;HDPC^CHAR4 COUNCIL

 ;;HDQC^CHAR4 COUNCIL

 ;;HDRC^CHAR4 COUNCIL

 ;;HTAC^CHAR4 COUNCIL

 ;;HTBC^CHAR4 COUNCIL

 ;;HTFC^CHAR4 COUNCIL

 ;;HTSC^CHAR4 COUNCIL

 ;;HTTC^CHAR4 COUNCIL

 ;;HTUC^CHAR4 COUNCIL

 ;;HTVC^CHAR4 COUNCIL

 ;;HTWC^CHAR4 COUNCIL

 ;;IACT^CHAR4 COUNCIL

 ;;IDEC^CHAR4 COUNCIL

 ;;IDFC^CHAR4 COUNCIL

 ;;IDGC^CHAR4 COUNCIL

 ;;IDHC^CHAR4 COUNCIL

 ;;IDJC^CHAR4 COUNCIL

 ;;IDKC^CHAR4 COUNCIL

 ;;IDLC^CHAR4 COUNCIL

 ;;IDMC^CHAR4 COUNCIL

 ;;IDPC^CHAR4 COUNCIL

 ;;IDQC^CHAR4 COUNCIL

 ;;IDRC^CHAR4 COUNCIL

 ;;IDUC^CHAR4 COUNCIL

 ;;IDVC^CHAR4 COUNCIL

 ;;IDWC^CHAR4 COUNCIL

 ;;JCBC^CHAR4 COUNCIL

 ;;LPNU^CHAR4 COUNCIL

 ;;LVL1^CHAR4 COUNCIL

 ;;LVL2^CHAR4 COUNCIL

 ;;LVL3^CHAR4 COUNCIL

 ;;LVL4^CHAR4 COUNCIL

 ;;LVL5^CHAR4 COUNCIL

 ;;MMMT^CHAR4 COUNCIL

 ;;MMPS^CHAR4 COUNCIL

 ;;MPAK^CHAR4 COUNCIL

 ;;MPAL^CHAR4 COUNCIL

 ;;MPAT^CHAR4 COUNCIL

 ;;MPAX^CHAR4 COUNCIL

 ;;MPAZ^CHAR4 COUNCIL

 ;;NASG^CHAR4 COUNCIL

 ;;NASK^CHAR4 COUNCIL

 ;;NASM^CHAR4 COUNCIL

 ;;NASN^CHAR4 COUNCIL

 ;;NASO^CHAR4 COUNCIL

 ;;NASP^CHAR4 COUNCIL

 ;;NASQ^CHAR4 COUNCIL

 ;;NASR^CHAR4 COUNCIL

 ;;NAST^CHAR4 COUNCIL

 ;;NASU^CHAR4 COUNCIL

 ;;NASV^CHAR4 COUNCIL

 ;;NASW^CHAR4 COUNCIL

 ;;NASX^CHAR4 COUNCIL

 ;;NASY^CHAR4 COUNCIL

 ;;NASZ^CHAR4 COUNCIL

 ;;NCBC^CHAR4 COUNCIL

 ;;NDTR^CHAR4 COUNCIL

 ;;NUDT^CHAR4 COUNCIL

 ;;PDRC^CHAR4 COUNCIL

 ;;PDSC^CHAR4 COUNCIL

 ;;PDTC^CHAR4 COUNCIL

 ;;PDVC^CHAR4 COUNCIL

 ;;PLCH^CHAR4 COUNCIL

 ;;PLMT^CHAR4 COUNCIL

 ;;PLPS^CHAR4 COUNCIL

 ;;PNFC^CHAR4 COUNCIL

 ;;PNJC^CHAR4 COUNCIL

 ;;PNPC^CHAR4 COUNCIL

 ;;PNQC^CHAR4 COUNCIL

 ;;PNRC^CHAR4 COUNCIL

 ;;PNSC^CHAR4 COUNCIL

 ;;PNTC^CHAR4 COUNCIL

 ;;PNUC^CHAR4 COUNCIL

 ;;PNWC^CHAR4 COUNCIL

 ;;RDNU^CHAR4 COUNCIL

 ;;RHAC^CHAR4 COUNCIL

 ;;RHQC^CHAR4 COUNCIL

 ;;RHUC^CHAR4 COUNCIL

 ;;RHVC^CHAR4 COUNCIL

 ;;RV20^CHAR4 COUNCIL

 ;;RV45^CHAR4 COUNCIL

 ;;RV60^CHAR4 COUNCIL

 ;;SCHC^CHAR4 COUNCIL

 ;;SCQC^CHAR4 COUNCIL

 ;;SCTC^CHAR4 COUNCIL

 ;;SCUC^CHAR4 COUNCIL

 ;;SCVT^CHAR4 COUNCIL

 ;;SNRC^CHAR4 COUNCIL

 ;;SNVC^CHAR4 COUNCIL

 ;;WCDC^CHAR4 COUNCIL

 ;;WCEC^CHAR4 COUNCIL

 ;;WCFC^CHAR4 COUNCIL

 ;;WCGC^CHAR4 COUNCIL

 ;;WCHC^CHAR4 COUNCIL

 ;;WCJC^CHAR4 COUNCIL

 ;;WCLC^CHAR4 COUNCIL

 ;;WCMC^CHAR4 COUNCIL

 ;;WCRC^CHAR4 COUNCIL

 ;;WCSC^CHAR4 COUNCIL

 ;;WCTC^CHAR4 COUNCIL

 ;;WCUC^CHAR4 COUNCIL

 ;;XYEL^CHAR4 COUNCIL

 ;;QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX3P152   5889     printed  Mar 13, 2025@20:54:56                                                                                                                                                                                                    Page 2

ECX3P152  ;ALB/DE - ECX*3.0*152 Post-Init RTN;9/22/14

 +1       ;;3.0;DSS EXTRACTS;**152**;Dec 22, 1997;Build 3

 +2       ;

 +3       ;Post-init routine updating current entries in

 +4       ;the NATIONAL CLINIC (#728.441) file

 +5       ;

 +6        QUIT

 +7       ;

EN        ;routine entry point

 +1       ;change name to existing Clinic codes

           DO UPDATE

 +2        QUIT

 +3       ;

UPDATE    ;changing short description of existing clinic

 +1        NEW ECXCODE,ECXDESC,ECXIEN,DIE,DA,DR,ECXI,ECXREC

 +2        DO BMES^XPDUTL(">>>Updating entry in the NATIONAL CLINIC (728.441) file..")

 +3        FOR ECXI=1:1

               SET ECXREC=$PIECE($TEXT(UPDCLIN+ECXI),";;",2)

               if ECXREC="QUIT"

                   QUIT

               Begin DoDot:1

 +4                SET ECXCODE=$PIECE(ECXREC,"^")

                   SET ECXDESC=$PIECE(ECXREC,"^",2)

 +5                SET ECXIEN=$$FIND1^DIC(728.441,"","X",ECXCODE,"","","ERR")

 +6                IF 'ECXIEN

                       Begin DoDot:2

 +7                        DO BMES^XPDUTL(">>>...Unable to update "_ECXCODE_" - "_$PIECE(ECXREC,U,2)_".")

 +8                        DO BMES^XPDUTL(">>>...Contact support for assistance")

                       End DoDot:2

                       QUIT

 +9                NEW FDA

 +10               SET FDA(728.441,ECXIEN_",",1)=ECXDESC

 +11               DO FILE^DIE(,"FDA","ECXERR")

 +12               DO BMES^XPDUTL(">>>..."_ECXCODE_" - "_$PIECE(ECXREC,U,2)_" updated")

               End DoDot:1

 +13      ;quit here if update was successful

           IF '$DATA(ECXERR)

               DO BMES^XPDUTL("Update complete")

               QUIT

 +14       DO BMES^XPDUTL("***Errors occurred during install. Please check ECXERR(""DIERR"") for errors***")

 +15      ;quit here if errors occurred during update

           QUIT

 +16      ;

UPDCLIN   ;Contains the NATIONAL CLINIC entry description to be updated

 +1       ;;NASL^ALS Regional Facility

 +2       ;;RHTC^Rehab PT (non Home Telehealth)

 +3       ;;VITL^VITAL Initiative Program

 +4       ;;WCNC^CHAR4 COUNCIL

 +5       ;;WCQC^Women's Telehealth Program

 +6       ;;CDBC^CHAR4 COUNCIL

 +7       ;;CDDC^CHAR4 COUNCIL

 +8       ;;CDEC^CHAR4 COUNCIL

 +9       ;;CDFC^CHAR4 COUNCIL

 +10      ;;CDGC^CHAR4 COUNCIL

 +11      ;;CDHC^CHAR4 COUNCIL

 +12      ;;CDJC^CHAR4 COUNCIL

 +13      ;;CDKC^CHAR4 COUNCIL

 +14      ;;CDLC^CHAR4 COUNCIL

 +15      ;;CDMC^CHAR4 COUNCIL

 +16      ;;CDPC^CHAR4 COUNCIL

 +17      ;;CDQC^CHAR4 COUNCIL

 +18      ;;CDRC^CHAR4 COUNCIL

 +19      ;;CDSC^CHAR4 COUNCIL

 +20      ;;CDTC^CHAR4 COUNCIL

 +21      ;;CDUC^CHAR4 COUNCIL

 +22      ;;CDVC^CHAR4 COUNCIL

 +23      ;;CDWC^CHAR4 COUNCIL

 +24      ;;CGAC^CHAR4 COUNCIL

 +25      ;;CGDC^CHAR4 COUNCIL

 +26      ;;CGEC^CHAR4 COUNCIL

 +27      ;;CGFC^CHAR4 COUNCIL

 +28      ;;CGHC^CHAR4 COUNCIL

 +29      ;;CGJC^CHAR4 COUNCIL

 +30      ;;CGKC^CHAR4 COUNCIL

 +31      ;;CGLC^CHAR4 COUNCIL

 +32      ;;CGNC^CHAR4 COUNCIL

 +33      ;;CGPC^CHAR4 COUNCIL

 +34      ;;CGQC^CHAR4 COUNCIL

 +35      ;;CGSC^CHAR4 COUNCIL

 +36      ;;CGTC^CHAR4 COUNCIL

 +37      ;;CGUC^CHAR4 COUNCIL

 +38      ;;CGVC^CHAR4 COUNCIL

 +39      ;;CGWC^CHAR4 COUNCIL

 +40      ;;CNSF^CHAR4 COUNCIL

 +41      ;;CNSG^CHAR4 COUNCIL

 +42      ;;CNSI^CHAR4 COUNCIL

 +43      ;;CNSP^CHAR4 COUNCIL

 +44      ;;CNSQ^CHAR4 COUNCIL

 +45      ;;CNSU^CHAR4 COUNCIL

 +46      ;;CNSW^CHAR4 COUNCIL

 +47      ;;CNSX^CHAR4 COUNCIL

 +48      ;;CNSY^CHAR4 COUNCIL

 +49      ;;COLL^CHAR4 COUNCIL

 +50      ;;DEAC^CHAR4 COUNCIL

 +51      ;;DEBC^CHAR4 COUNCIL

 +52      ;;DEDC^CHAR4 COUNCIL

 +53      ;;DEEC^CHAR4 COUNCIL

 +54      ;;DEFC^CHAR4 COUNCIL

 +55      ;;DEGC^CHAR4 COUNCIL

 +56      ;;DEHC^CHAR4 COUNCIL

 +57      ;;DELC^CHAR4 COUNCIL

 +58      ;;DEMC^CHAR4 COUNCIL

 +59      ;;DEMT^CHAR4 COUNCIL

 +60      ;;DENC^CHAR4 COUNCIL

 +61      ;;DEPC^CHAR4 COUNCIL

 +62      ;;DEPS^CHAR4 COUNCIL

 +63      ;;DEQC^CHAR4 COUNCIL

 +64      ;;DERC^CHAR4 COUNCIL

 +65      ;;DESC^CHAR4 COUNCIL

 +66      ;;DETC^CHAR4 COUNCIL

 +67      ;;DEUC^CHAR4 COUNCIL

 +68      ;;DEVC^CHAR4 COUNCIL

 +69      ;;DEWC^CHAR4 COUNCIL

 +70      ;;DMAC^CHAR4 COUNCIL

 +71      ;;DMBC^CHAR4 COUNCIL

 +72      ;;DMDC^CHAR4 COUNCIL

 +73      ;;DMEC^CHAR4 COUNCIL

 +74      ;;DMFC^CHAR4 COUNCIL

 +75      ;;DMGC^CHAR4 COUNCIL

 +76      ;;DMHC^CHAR4 COUNCIL

 +77      ;;DMJC^CHAR4 COUNCIL

 +78      ;;DMKC^CHAR4 COUNCIL

 +79      ;;DMLC^CHAR4 COUNCIL

 +80      ;;DMPC^CHAR4 COUNCIL

 +81      ;;DMQC^CHAR4 COUNCIL

 +82      ;;DMRC^CHAR4 COUNCIL

 +83      ;;DMSC^CHAR4 COUNCIL

 +84      ;;DMTC^CHAR4 COUNCIL

 +85      ;;DMUC^CHAR4 COUNCIL

 +86      ;;DMVC^CHAR4 COUNCIL

 +87      ;;DMWC^CHAR4 COUNCIL

 +88      ;;FEEQ^CHAR4 COUNCIL

 +89      ;;FEEX^CHAR4 COUNCIL

 +90      ;;HDEC^CHAR4 COUNCIL

 +91      ;;HDHC^CHAR4 COUNCIL

 +92      ;;HDJC^CHAR4 COUNCIL

 +93      ;;HDKC^CHAR4 COUNCIL

 +94      ;;HDLC^CHAR4 COUNCIL

 +95      ;;HDMC^CHAR4 COUNCIL

 +96      ;;HDNC^CHAR4 COUNCIL

 +97      ;;HDPC^CHAR4 COUNCIL

 +98      ;;HDQC^CHAR4 COUNCIL

 +99      ;;HDRC^CHAR4 COUNCIL

 +100     ;;HTAC^CHAR4 COUNCIL

 +101     ;;HTBC^CHAR4 COUNCIL

 +102     ;;HTFC^CHAR4 COUNCIL

 +103     ;;HTSC^CHAR4 COUNCIL

 +104     ;;HTTC^CHAR4 COUNCIL

 +105     ;;HTUC^CHAR4 COUNCIL

 +106     ;;HTVC^CHAR4 COUNCIL

 +107     ;;HTWC^CHAR4 COUNCIL

 +108     ;;IACT^CHAR4 COUNCIL

 +109     ;;IDEC^CHAR4 COUNCIL

 +110     ;;IDFC^CHAR4 COUNCIL

 +111     ;;IDGC^CHAR4 COUNCIL

 +112     ;;IDHC^CHAR4 COUNCIL

 +113     ;;IDJC^CHAR4 COUNCIL

 +114     ;;IDKC^CHAR4 COUNCIL

 +115     ;;IDLC^CHAR4 COUNCIL

 +116     ;;IDMC^CHAR4 COUNCIL

 +117     ;;IDPC^CHAR4 COUNCIL

 +118     ;;IDQC^CHAR4 COUNCIL

 +119     ;;IDRC^CHAR4 COUNCIL

 +120     ;;IDUC^CHAR4 COUNCIL

 +121     ;;IDVC^CHAR4 COUNCIL

 +122     ;;IDWC^CHAR4 COUNCIL

 +123     ;;JCBC^CHAR4 COUNCIL

 +124     ;;LPNU^CHAR4 COUNCIL

 +125     ;;LVL1^CHAR4 COUNCIL

 +126     ;;LVL2^CHAR4 COUNCIL

 +127     ;;LVL3^CHAR4 COUNCIL

 +128     ;;LVL4^CHAR4 COUNCIL

 +129     ;;LVL5^CHAR4 COUNCIL

 +130     ;;MMMT^CHAR4 COUNCIL

 +131     ;;MMPS^CHAR4 COUNCIL

 +132     ;;MPAK^CHAR4 COUNCIL

 +133     ;;MPAL^CHAR4 COUNCIL

 +134     ;;MPAT^CHAR4 COUNCIL

 +135     ;;MPAX^CHAR4 COUNCIL

 +136     ;;MPAZ^CHAR4 COUNCIL

 +137     ;;NASG^CHAR4 COUNCIL

 +138     ;;NASK^CHAR4 COUNCIL

 +139     ;;NASM^CHAR4 COUNCIL

 +140     ;;NASN^CHAR4 COUNCIL

 +141     ;;NASO^CHAR4 COUNCIL

 +142     ;;NASP^CHAR4 COUNCIL

 +143     ;;NASQ^CHAR4 COUNCIL

 +144     ;;NASR^CHAR4 COUNCIL

 +145     ;;NAST^CHAR4 COUNCIL

 +146     ;;NASU^CHAR4 COUNCIL

 +147     ;;NASV^CHAR4 COUNCIL

 +148     ;;NASW^CHAR4 COUNCIL

 +149     ;;NASX^CHAR4 COUNCIL

 +150     ;;NASY^CHAR4 COUNCIL

 +151     ;;NASZ^CHAR4 COUNCIL

 +152     ;;NCBC^CHAR4 COUNCIL

 +153     ;;NDTR^CHAR4 COUNCIL

 +154     ;;NUDT^CHAR4 COUNCIL

 +155     ;;PDRC^CHAR4 COUNCIL

 +156     ;;PDSC^CHAR4 COUNCIL

 +157     ;;PDTC^CHAR4 COUNCIL

 +158     ;;PDVC^CHAR4 COUNCIL

 +159     ;;PLCH^CHAR4 COUNCIL

 +160     ;;PLMT^CHAR4 COUNCIL

 +161     ;;PLPS^CHAR4 COUNCIL

 +162     ;;PNFC^CHAR4 COUNCIL

 +163     ;;PNJC^CHAR4 COUNCIL

 +164     ;;PNPC^CHAR4 COUNCIL

 +165     ;;PNQC^CHAR4 COUNCIL

 +166     ;;PNRC^CHAR4 COUNCIL

 +167     ;;PNSC^CHAR4 COUNCIL

 +168     ;;PNTC^CHAR4 COUNCIL

 +169     ;;PNUC^CHAR4 COUNCIL

 +170     ;;PNWC^CHAR4 COUNCIL

 +171     ;;RDNU^CHAR4 COUNCIL

 +172     ;;RHAC^CHAR4 COUNCIL

 +173     ;;RHQC^CHAR4 COUNCIL

 +174     ;;RHUC^CHAR4 COUNCIL

 +175     ;;RHVC^CHAR4 COUNCIL

 +176     ;;RV20^CHAR4 COUNCIL

 +177     ;;RV45^CHAR4 COUNCIL

 +178     ;;RV60^CHAR4 COUNCIL

 +179     ;;SCHC^CHAR4 COUNCIL

 +180     ;;SCQC^CHAR4 COUNCIL

 +181     ;;SCTC^CHAR4 COUNCIL

 +182     ;;SCUC^CHAR4 COUNCIL

 +183     ;;SCVT^CHAR4 COUNCIL

 +184     ;;SNRC^CHAR4 COUNCIL

 +185     ;;SNVC^CHAR4 COUNCIL

 +186     ;;WCDC^CHAR4 COUNCIL

 +187     ;;WCEC^CHAR4 COUNCIL

 +188     ;;WCFC^CHAR4 COUNCIL

 +189     ;;WCGC^CHAR4 COUNCIL

 +190     ;;WCHC^CHAR4 COUNCIL

 +191     ;;WCJC^CHAR4 COUNCIL

 +192     ;;WCLC^CHAR4 COUNCIL

 +193     ;;WCMC^CHAR4 COUNCIL

 +194     ;;WCRC^CHAR4 COUNCIL

 +195     ;;WCSC^CHAR4 COUNCIL

 +196     ;;WCTC^CHAR4 COUNCIL

 +197     ;;WCUC^CHAR4 COUNCIL

 +198     ;;XYEL^CHAR4 COUNCIL

 +199     ;;QUIT

ECX3P152.m