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
;
Q
;
EN ;routine entry point
D UPDATE ;change name to existing Clinic codes
Q
;
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 Oct 16, 2024@17:51:06 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
