Released ECX*3*183 SEQ #166 Extracted from mail message **KIDS**:ECX*3.0*183^ **INSTALL NAME** ECX*3.0*183 "BLD",12463,0) ECX*3.0*183^DSS EXTRACTS^0^3220120^y "BLD",12463,1,0) ^^3^3^3220120^ "BLD",12463,1,1,0) Patch ECX*3.0*183 adds two (2) new CHAR4 codes and updates twenty six (26) "BLD",12463,1,2,0) code names to NATIONAL CLINIC (#727.441) file to reflect Fiscal Year 2022 "BLD",12463,1,3,0) Mid-Year changes, effective April 1, 2022. "BLD",12463,4,0) ^9.64PA^^ "BLD",12463,6) 1 "BLD",12463,6.3) 3 "BLD",12463,"INIT") POST^ECX3P183 "BLD",12463,"KRN",0) ^9.67PA^1.5^25 "BLD",12463,"KRN",.4,0) .4 "BLD",12463,"KRN",.401,0) .401 "BLD",12463,"KRN",.402,0) .402 "BLD",12463,"KRN",.403,0) .403 "BLD",12463,"KRN",.5,0) .5 "BLD",12463,"KRN",.84,0) .84 "BLD",12463,"KRN",1.5,0) 1.5 "BLD",12463,"KRN",1.6,0) 1.6 "BLD",12463,"KRN",1.61,0) 1.61 "BLD",12463,"KRN",1.62,0) 1.62 "BLD",12463,"KRN",3.6,0) 3.6 "BLD",12463,"KRN",3.8,0) 3.8 "BLD",12463,"KRN",9.2,0) 9.2 "BLD",12463,"KRN",9.8,0) 9.8 "BLD",12463,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",12463,"KRN",9.8,"NM",1,0) ECX3P183^^0^B23668569 "BLD",12463,"KRN",9.8,"NM","B","ECX3P183",1) "BLD",12463,"KRN",19,0) 19 "BLD",12463,"KRN",19.1,0) 19.1 "BLD",12463,"KRN",101,0) 101 "BLD",12463,"KRN",409.61,0) 409.61 "BLD",12463,"KRN",771,0) 771 "BLD",12463,"KRN",779.2,0) 779.2 "BLD",12463,"KRN",870,0) 870 "BLD",12463,"KRN",8989.51,0) 8989.51 "BLD",12463,"KRN",8989.52,0) 8989.52 "BLD",12463,"KRN",8993,0) 8993 "BLD",12463,"KRN",8994,0) 8994 "BLD",12463,"KRN","B",.4,.4) "BLD",12463,"KRN","B",.401,.401) "BLD",12463,"KRN","B",.402,.402) "BLD",12463,"KRN","B",.403,.403) "BLD",12463,"KRN","B",.5,.5) "BLD",12463,"KRN","B",.84,.84) "BLD",12463,"KRN","B",1.5,1.5) "BLD",12463,"KRN","B",1.6,1.6) "BLD",12463,"KRN","B",1.61,1.61) "BLD",12463,"KRN","B",1.62,1.62) "BLD",12463,"KRN","B",3.6,3.6) "BLD",12463,"KRN","B",3.8,3.8) "BLD",12463,"KRN","B",9.2,9.2) "BLD",12463,"KRN","B",9.8,9.8) "BLD",12463,"KRN","B",19,19) "BLD",12463,"KRN","B",19.1,19.1) "BLD",12463,"KRN","B",101,101) "BLD",12463,"KRN","B",409.61,409.61) "BLD",12463,"KRN","B",771,771) "BLD",12463,"KRN","B",779.2,779.2) "BLD",12463,"KRN","B",870,870) "BLD",12463,"KRN","B",8989.51,8989.51) "BLD",12463,"KRN","B",8989.52,8989.52) "BLD",12463,"KRN","B",8993,8993) "BLD",12463,"KRN","B",8994,8994) "BLD",12463,"QDEF") ^^^^NO^^^^^^NO "BLD",12463,"QUES",0) ^9.62^^ "BLD",12463,"REQB",0) ^9.611^1^1 "BLD",12463,"REQB",1,0) ECX*3.0*182^2 "BLD",12463,"REQB","B","ECX*3.0*182",1) "INIT") POST^ECX3P183 "MBREQ") 0 "PKG",535,-1) 1^1 "PKG",535,0) DSS EXTRACTS^ECX "PKG",535,22,0) ^9.49I^1^1 "PKG",535,22,1,0) 3.0^2971222^3000224^66481 "PKG",535,22,1,"PAH",1,0) 183^3220120 "PKG",535,22,1,"PAH",1,1,0) ^^3^3^3220120 "PKG",535,22,1,"PAH",1,1,1,0) Patch ECX*3.0*183 adds two (2) new CHAR4 codes and updates twenty six (26) "PKG",535,22,1,"PAH",1,1,2,0) code names to NATIONAL CLINIC (#727.441) file to reflect Fiscal Year 2022 "PKG",535,22,1,"PAH",1,1,3,0) Mid-Year changes, effective April 1, 2022. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","ECX3P183") 0^1^B23668569^n/a "RTN","ECX3P183",1,0) ECX3P183 ;MNT/TXH - NATIONAL CLINIC (#728.441) File Update; OCT 18, 2021@14:42 "RTN","ECX3P183",2,0) ;;3.0;DSS EXTRACTS;**183**;Dec 22, 1997;Build 3 "RTN","ECX3P183",3,0) ; "RTN","ECX3P183",4,0) ; Post-init routine updating entries in the NATIONAL CLINIC (#728.441) "RTN","ECX3P183",5,0) ; file for FY22 Mid-Year. "RTN","ECX3P183",6,0) ; "RTN","ECX3P183",7,0) ; Reference(s) to $$FIND1^DIC supported by ICR# 2051 "RTN","ECX3P183",8,0) ; Reference(s) to FILE^DIE supported by ICR# 2053 "RTN","ECX3P183",9,0) ; Reference(s) to UPDATE^DIE supported by ICR# 2053 "RTN","ECX3P183",10,0) ; Reference(s) to BMES^XPDUTL supported by ICR# 10141 "RTN","ECX3P183",11,0) ; Reference(s) to MES^XPDUTL supported by ICR# 10141 "RTN","ECX3P183",12,0) ; "RTN","ECX3P183",13,0) Q "RTN","ECX3P183",14,0) ; "RTN","ECX3P183",15,0) POST ;routine entry point "RTN","ECX3P183",16,0) ; "RTN","ECX3P183",17,0) D BMES^XPDUTL("Update NATIONAL CLINIC (#728.441) file starts.") "RTN","ECX3P183",18,0) D ADD ;add new code "RTN","ECX3P183",19,0) D UPDATE ;change short description of existing clinic codes "RTN","ECX3P183",20,0) D BMES^XPDUTL("Update complete.") "RTN","ECX3P183",21,0) D MES^XPDUTL("") "RTN","ECX3P183",22,0) ; "RTN","ECX3P183",23,0) Q "RTN","ECX3P183",24,0) ; "RTN","ECX3P183",25,0) ADD ; Add new code "RTN","ECX3P183",26,0) ; "RTN","ECX3P183",27,0) N ECXI,ECXREC,ECXNM,ECXCODE,ECXIEN,ECXERR "RTN","ECX3P183",28,0) D BMES^XPDUTL(">>> Adding new CHAR4 code(s) to the NATIONAL CLINIC file (#728.441)...") "RTN","ECX3P183",29,0) ; "RTN","ECX3P183",30,0) F ECXI=1:1 S ECXREC=$P($T(ADDCLIN+ECXI),";;",2) Q:ECXREC="QUIT" D "RTN","ECX3P183",31,0) . S ECXNM=$P(ECXREC,U) ;Name "RTN","ECX3P183",32,0) . S ECXCODE=$P(ECXREC,U,2) ;Code "RTN","ECX3P183",33,0) . ; check if new code already exists in file 728.441 "RTN","ECX3P183",34,0) . S ECXIEN=$$FIND1^DIC(728.441,"","X",ECXCODE,"","","ECXERR") "RTN","ECX3P183",35,0) . ; quit if error "RTN","ECX3P183",36,0) . I $D(ECXERR) D Q "RTN","ECX3P183",37,0) . . D BMES^XPDUTL(" >> ... Unable to add CHAR4 code "_ECXCODE_" - "_ECXNM_" to file.") "RTN","ECX3P183",38,0) . . D MES^XPDUTL(" >> ... "_$G(ECXERR("DIERR",1,"TEXT",1))_".") "RTN","ECX3P183",39,0) . . D MES^XPDUTL(" >> ... Please contact support for assistance...") "RTN","ECX3P183",40,0) . . K ECXERR "RTN","ECX3P183",41,0) . ; if code already exists, quit "RTN","ECX3P183",42,0) . I ECXIEN D Q "RTN","ECX3P183",43,0) . . D BMES^XPDUTL(" >> CHAR4 code "_ECXCODE_" - "_ECXNM_" already exists.") "RTN","ECX3P183",44,0) . ; if code does not exist, add new entry "RTN","ECX3P183",45,0) . ; set field values of new entry "RTN","ECX3P183",46,0) . K ECXFDA "RTN","ECX3P183",47,0) . S ECXFDA(728.441,"+1,",.01)=ECXCODE "RTN","ECX3P183",48,0) . S ECXFDA(728.441,"+1,",1)=ECXNM "RTN","ECX3P183",49,0) . ; add new entry "RTN","ECX3P183",50,0) . D UPDATE^DIE("E","ECXFDA","","ECXERR") "RTN","ECX3P183",51,0) . ; check if error "RTN","ECX3P183",52,0) . I '$D(ECXERR) D "RTN","ECX3P183",53,0) . . D BMES^XPDUTL(" >> CHAR4 Code "_ECXCODE_" - "_ECXNM_" added to file.") "RTN","ECX3P183",54,0) . I $D(ECXERR) D "RTN","ECX3P183",55,0) . . D BMES^XPDUTL(" >> ... Unable to add CHAR4 code "_ECXCODE_" "_ECXNM_" to file.") "RTN","ECX3P183",56,0) . . D MES^XPDUTL(" >> ... "_$G(ECXERR("DIERR",1,"TEXT",1))_".") "RTN","ECX3P183",57,0) . . D MES^XPDUTL(" >> ... Please contact support for assistance.") "RTN","ECX3P183",58,0) . . ; clean out error array b4 processing next code "RTN","ECX3P183",59,0) . . K ECXERR "RTN","ECX3P183",60,0) ; "RTN","ECX3P183",61,0) D BMES^XPDUTL(">>> Add new CHAR4 code(s) complete.") "RTN","ECX3P183",62,0) D MES^XPDUTL("") "RTN","ECX3P183",63,0) Q "RTN","ECX3P183",64,0) ; "RTN","ECX3P183",65,0) UPDATE ;changing short description of existing entries "RTN","ECX3P183",66,0) ;ECXREC is in format: code^short description "RTN","ECX3P183",67,0) ; "RTN","ECX3P183",68,0) N ECXCODE,ECXDESC,ECXIEN,DIE,DA,DR,ECXI,ECXREC,ECXERR "RTN","ECX3P183",69,0) ; "RTN","ECX3P183",70,0) D BMES^XPDUTL(">>> Updating entries in the NATIONAL CLINIC (728.441) file...") "RTN","ECX3P183",71,0) ; "RTN","ECX3P183",72,0) F ECXI=1:1 S ECXREC=$P($T(UPDCLIN+ECXI),";;",2) Q:ECXREC="QUIT" D "RTN","ECX3P183",73,0) .S ECXCODE=$P(ECXREC,"^"),ECXDESC=$P(ECXREC,"^",2) "RTN","ECX3P183",74,0) .S ECXIEN=$$FIND1^DIC(728.441,"","X",ECXCODE,"","","ECXERR") "RTN","ECX3P183",75,0) .I 'ECXIEN D Q "RTN","ECX3P183",76,0) ..D BMES^XPDUTL(">>>....Unable to find code: "_ECXCODE_".") "RTN","ECX3P183",77,0) ..D BMES^XPDUTL("*** Please contact support for assistance. ***") "RTN","ECX3P183",78,0) .K FDA "RTN","ECX3P183",79,0) .S FDA(728.441,ECXIEN_",",1)=ECXDESC "RTN","ECX3P183",80,0) .D FILE^DIE(,"FDA","ECXERR") "RTN","ECX3P183",81,0) .I '$D(ECXERR) D BMES^XPDUTL(">>>...."_ECXCODE_" - "_$P(ECXREC,U,2)_" updated") "RTN","ECX3P183",82,0) .I $D(ECXERR) D BMES^XPDUTL(">>>....Unable to update code "_ECXCODE_".") D "RTN","ECX3P183",83,0) ..D BMES^XPDUTL("*** Please contact support for assistance. ***") "RTN","ECX3P183",84,0) ; "RTN","ECX3P183",85,0) Q "RTN","ECX3P183",86,0) ; "RTN","ECX3P183",87,0) ADDCLIN ;Add new code "RTN","ECX3P183",88,0) ;;Sexual Orientation and Gender Identity^SOGI^^ "RTN","ECX3P183",89,0) ;;VET HOME^VTHM^^ "RTN","ECX3P183",90,0) ;;QUIT "RTN","ECX3P183",91,0) ; "RTN","ECX3P183",92,0) UPDCLIN ;Contains the NATIONAL CLINIC entry description to be updated "RTN","ECX3P183",93,0) ;;CDQC^COVID-19 VACCINATION CLINIC "RTN","ECX3P183",94,0) ;;CDDC^CCC Pharmacist "RTN","ECX3P183",95,0) ;;CDLC^CCC NP "RTN","ECX3P183",96,0) ;;CDMC^CCC MD/DO "RTN","ECX3P183",97,0) ;;CDPC^CCC PA "RTN","ECX3P183",98,0) ;;CDRC^CCC RN "RTN","ECX3P183",99,0) ;;CNSP^Suicide Prevention Clinical Telehealth HUB "RTN","ECX3P183",100,0) ;;NASP^Suicide Prevention Clinical Telehealth SPOKE "RTN","ECX3P183",101,0) ;;DEHC^Environmental Health Registry Exams "RTN","ECX3P183",102,0) ;;IDMC^INTERMEDIATE CARE TECHNICIAN "RTN","ECX3P183",103,0) ;;NASO^National Tele-Neurology Program (NTNP) "RTN","ECX3P183",104,0) ;;NASZ^National Tele-Oncology (NTO) "RTN","ECX3P183",105,0) ;;PLCH^Hospice Pharmacist "RTN","ECX3P183",106,0) ;;PLMT^Surgical/Orthopedics Pain Pharmacist "RTN","ECX3P183",107,0) ;;PLPS^Polytrauma Psychiatrist "RTN","ECX3P183",108,0) ;;PNFC^Pain Team Conference "RTN","ECX3P183",109,0) ;;PNRD^Pain Management MD "RTN","ECX3P183",110,0) ;;PNSW^PAIN MANAGEMENT BEHAVIORAL HEALTH "RTN","ECX3P183",111,0) ;;PNWC^Pain Opioid Management "RTN","ECX3P183",112,0) ;;MBSR^Mindfulness Based Interventions "RTN","ECX3P183",113,0) ;;MDTN^Meditation (non-mindfulness-based intervention) "RTN","ECX3P183",114,0) ;;STUD^Student Provider "RTN","ECX3P183",115,0) ;;MPAK^Mobile Prosthetic and Orthotic Care (MoPOC) "RTN","ECX3P183",116,0) ;;AGTO^CHAR4 COUNCIL "RTN","ECX3P183",117,0) ;;EXPX^CHAR4 COUNCIL "RTN","ECX3P183",118,0) ;;GULF^CHAR4 COUNCIL "RTN","ECX3P183",119,0) ;;QUIT "VER") 8.0^22.2 "BLD",12463,6) ^166 **END** **END**