Install: ECX*3.0*163

Patch Subject:  FY17 CHANGES FOR 4 CHAR CDS NATIONAL CLINIC (#728.441) FILE
Description:

============
 Patch ECX*3.0*163 updates the SHORT DESCRIPTION (WorldVistA#1) field of 3 existing
 entries in the NATIONAL CLINIC (#728.441) file.
 ASSOCIATED NSR:
 ===============
 N/A
 ASSOCIATED CA SDM TICKET:
 =========================
 1. I7805291FY16 - FY17 Changes for National Clinic entries
 PARTICIPATING TEST SITES:
 =========================
 Dublin VAMC
 New York Harbor HCS
 Providence VAMC
 CA SDM OVERVIEW:
 ================
 1. I7805291FY16
    Problem:
    --------
    A request was made by the Managerial Cost Accounting Office (MCAO) to
    update the SHORT DESCRIPTION (WorldVistA#1) field of 3 existing entries in the
    NATIONAL CLINIC (#728.441) file.
    Resolution:
    -----------
    Routine ECX3P163 has been created to update the NATIONAL CLINIC
    (#728.441) file by modifying the SHORT DESCRIPTION (WorldVistA#1) field of
    3 existing entries effective 10/1/2016.
    The descriptions of the following entries have changed:
    Code    New Short Description
    ----    ---------------------
    DMHC    PRRC Day Hospital
    DMTC    PRRC Day Treatment
    PDSC    PTSD Clinical Team Program

Use default answers for KIDS load/install questions.

Patch-Files: http://code.osehra.org/VistA.git/tree/b0ced814/Packages/DSS+Extracts/Patches/ECX_3.0_163

Packages/DSS Extracts/Globals/728.441+NATIONAL CLINIC.zwr

@@ -388,7 +388,7 @@ ZWR
 ^ECX(728.441,356,0)="CDHC^CHAR4 COUNCIL"
 ^ECX(728.441,357,0)="CGHC^CHAR4 COUNCIL"
 ^ECX(728.441,358,0)="DEHC^CHAR4 COUNCIL"
-^ECX(728.441,359,0)="DMHC^CHAR4 COUNCIL"
+^ECX(728.441,359,0)="DMHC^PRRC Day Hospital"
 ^ECX(728.441,360,0)="HDHC^CHAR4 COUNCIL"
 ^ECX(728.441,361,0)="IDHC^CHAR4 COUNCIL"
 ^ECX(728.441,362,0)="MHHC^Mental Health V8 CCS"
@@ -501,14 +501,14 @@ ZWR
 ^ECX(728.441,469,0)="IDSC^Infectious Disease V18 CCS"
 ^ECX(728.441,470,0)="MHSC^Mental Health V18 CCS"
 ^ECX(728.441,471,0)="PNSC^PACT CVT-H Nurse"
-^ECX(728.441,472,0)="PDSC^CHAR4 COUNCIL"
+^ECX(728.441,472,0)="PDSC^PTSD Clinical Team Program"
 ^ECX(728.441,473,0)="RHSC^Rehab SP"
 ^ECX(728.441,474,0)="SCSC^Spinal Cord Injured V18 CCS"
 ^ECX(728.441,475,0)="WCSC^CHAR4 COUNCIL"
 ^ECX(728.441,476,0)="CDTC^CHAR4 COUNCIL"
 ^ECX(728.441,477,0)="CGTC^CHAR4 COUNCIL"
 ^ECX(728.441,478,0)="DETC^CHAR4 COUNCIL"
-^ECX(728.441,479,0)="DMTC^CHAR4 COUNCIL"
+^ECX(728.441,479,0)="DMTC^PRRC Day Treatment"
 ^ECX(728.441,480,0)="HTTC^Home Sleep Study Pat Educ"
 ^ECX(728.441,481,0)="IDTC^Infectious Disease V19 CCS"
 ^ECX(728.441,482,0)="MHTC^Mental Health V19 CCS"

Packages/DSS Extracts/Routines/ECX3P163.m

@@ -0,0 +1,41 @@
+ECX3P163 ;ALB/DE - ECX*3.0*163 Post-Init RTN;03/28/16
+ ;;3.0;DSS EXTRACTS;**163**;Dec 22, 1997;Build 1
+ ;
+ ;Post-init routine updating entries in
+ ;the NATIONAL CLINIC (#728.441) file
+ ;
+ Q
+ ;
+EN ;routine entry point
+ D UPDATE ;change short description of existing clinic codes
+ D BMES^XPDUTL("Update complete")
+ ;
+ Q
+ ;
+UPDATE ;changing short description of existing entries
+ ;ECXREC is in format: code^short description
+ ;
+ N ECXCODE,ECXDESC,ECXIEN,DIE,DA,DR,ECXI,ECXREC,ECXERR
+ ;
+ D BMES^XPDUTL(">>>Updating entries 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,"","","ECXERR")
+  .I 'ECXIEN D  Q
+  ..D BMES^XPDUTL(">>>....Unable to find code: "_ECXCODE_".")
+  ..D BMES^XPDUTL("*** Please contact support for assistance. ***")
+  .N FDA
+  .S FDA(728.441,ECXIEN_",",1)=ECXDESC
+  .D FILE^DIE(,"FDA","ECXERR")
+  .I '$D(ECXERR) D BMES^XPDUTL(">>>...."_ECXCODE_" - "_$P(ECXREC,U,2)_" updated")
+  .I $D(ECXERR) D BMES^XPDUTL(">>>....Unable to update code "_ECXCODE_".") D
+ ..D BMES^XPDUTL("*** Please contact support for assistance. ***")
+ ;
+ Q
+ ;
+UPDCLIN ;Contains the NATIONAL CLINIC entry description to be updated
+ ;;DMHC^PRRC Day Hospital
+ ;;DMTC^PRRC Day Treatment
+ ;;PDSC^PTSD Clinical Team Program
+ ;;QUIT

Packages/Health Level Seven/Globals/773+HL7 MESSAGE ADMINISTRATION.zwr

@@ -488,7 +488,7 @@ ZWR
 ^HLMA(4089,0)="4098^504089^O^I^M^^3^4144^^4087^173^172^43^65^^^3"
 ^HLMA(4089,"MSH",0)="^773.01^1^1"
 ^HLMA(4089,"MSH",1,0)="MSH^~|\&^XUMF MD5^999PLT^VETS MD5^200V^20160705122134-0400^^MFR~M01^504089^P^2.4^^^AL^NE^USA"
-^HLMA(4089,"P")="1.5^3160705.122138^^^^26"
+^HLMA(4089,"P")="1.5^3160705.122138^^^^31"
 ^HLMA("AC","O",3,4089)=""
 ^HLMA("AD",3141001.095258,2335)=""
 ^HLMA("AD",3141001.095258,2336)=""

Packages/Health Level Seven/Globals/776+HL7 MONITOR JOB.zwr

@@ -141,7 +141,7 @@ ZWR
 ^HLEV(776,97740,0)="3161119.023954^3161119.024001^11^F^^3161119.024001^^1519^39216"
 ^HLEV(776,97740,50,0)="^776.001^1^1"
 ^HLEV(776,97740,50,1,0)="DECLARE called - SEND EVENTS"
-^HLEV(776,97741,0)="3161119.044523^^7^E^^3161119.044523^^1577^39218"
+^HLEV(776,97741,0)="3161119.044523^3161119.04554^7^F^^3161119.04554^^1577^39218"
 ^HLEV(776,97741,50,0)="^776.001^1^1"
 ^HLEV(776,97741,50,1,0)="DECLARE called - FAST HL7 PURGE #1"
 ^HLEV(776,97742,0)="3161119.044523^3161119.04453^11^F^^3161119.04453^^1578^39218"

Packages/Health Level Seven/Globals/776.2+HL7 MONITOR MASTER JOB.zwr

@@ -305,7 +305,7 @@ ZWR
 ^HLEV(776.2,39218,51,0)="^776.2051PA^7^7"
 ^HLEV(776.2,39218,51,1,0)="6^E^3161119.044523"
 ^HLEV(776.2,39218,51,2,0)="1^E^3161119.044523"
-^HLEV(776.2,39218,51,3,0)="7^Q^3161119.044523^1577^X^3161119.044523^^97741"
+^HLEV(776.2,39218,51,3,0)="7^Q^3161119.044523^1577^F^3161119.04554^^97741"
 ^HLEV(776.2,39218,51,4,0)="9^E^3161119.044523"
 ^HLEV(776.2,39218,51,5,0)="4^I^3161119.044523"
 ^HLEV(776.2,39218,51,6,0)="10^E^3161119.044523"

Packages/Health Level Seven/Globals/869.3+HL COMMUNICATION SERVER PARAMETERS.zwr

@@ -5,7 +5,7 @@ ZWR
 ^HLCS(869.3,1,1)="1^1"
 ^HLCS(869.3,1,2,0)="^869.32^^0"
 ^HLCS(869.3,1,3,0)="^869.33^^0"
-^HLCS(869.3,1,5)="^^^64241,17134"
+^HLCS(869.3,1,5)="^^^64241,19505"
 ^HLCS(869.3,1,6,0)="^869.31^^"
 ^HLCS(869.3,1,8,0)="^869.35^1^1"
 ^HLCS(869.3,1,8,1,0)="DOMAIN.EXT"

Packages/Kernel/Globals/%ZTSCH.zwr

@@ -1,15 +1,15 @@
 ^%ZTSCH
 ZWR
 ^%ZTSCH=""
+^%ZTSCH(5550441911,1602)=""
 ^%ZTSCH(5550446723,1576)=""
 ^%ZTSCH(5550446724,1579)=""
 ^%ZTSCH("C","VISTA:CACHE")="0"
-^%ZTSCH("C","VISTA:CACHE",5550439541,1588)=""
 ^%ZTSCH("DEVTRY","//./nul")="5311138792"
 ^%ZTSCH("ER")=""
 ^%ZTSCH("HOUR")="5550439460"
-^%ZTSCH("IDLE")="5550439529"
-^%ZTSCH("IO")="5550439529^"
+^%ZTSCH("IDLE")="5550441907"
+^%ZTSCH("IO")="5550441908^"
 ^%ZTSCH("IO","GMRA UPDATE RESOURCE")="RES"
 ^%ZTSCH("LOAD")=""
 ^%ZTSCH("MON","PLA:PLAISCSVR",63928)="2^5^1^5^2^6^1^8^1^7^1^5^1^6^2^6^1^4^1^5^1^4^1^6^"
@@ -135,24 +135,16 @@ ZWR
 ^%ZTSCH("STARTUP","VISTA,VISTA","24Q7901")="64104,44312^^"
 ^%ZTSCH("STARTUP","VISTA,VISTA","25Q8102")="64104,44312^^"
 ^%ZTSCH("STARTUP","VISTA,VISTA","8Q9891")="59494,69903^^"
-^%ZTSCH("STOP","MGR","VISTA:CACHE")="64241,17134"
-^%ZTSCH("STOP","SUB","VISTA:CACHE")="64241,17134"
+^%ZTSCH("STOP","MGR","VISTA:CACHE")="64241,19508"
+^%ZTSCH("STOP","SUB","VISTA:CACHE")="64241,19508"
 ^%ZTSCH("SUB","VISTA:CACHE")="0"
 ^%ZTSCH("SUB","VISTA:CACHE",0)="0"
-^%ZTSCH("TASK",1577)="QUEUEV^HLEVAPI3^8853^HL AUTOSTART LINK MANAGER^64241,17123^^VISTA,VISTA^64241,17123^POSTMASTER^5140^^VISTA:CACHE^64241,17130"
-^%ZTSCH("TASK",1577,2)="VISTA,VISTA^^^1577^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1580)="STARTIN^HLCSIN^8412^HL TASK RESTART^64241,17125^^VISTA,VISTA^64241,17125^POSTMASTER^8584^^VISTA:CACHE^64241,17130"
-^%ZTSCH("TASK",1580,1)="64241,17130"
-^%ZTSCH("TASK",1580,2)="VISTA,VISTA^^^1580^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1581)="STARTOUT^HLCSOUT^8412^HL TASK RESTART^64241,17125^^VISTA,VISTA^64241,17125^POSTMASTER^3916^^VISTA:CACHE^64241,17130"
-^%ZTSCH("TASK",1581,1)="64241,17130"
-^%ZTSCH("TASK",1581,2)="VISTA,VISTA^^^1581^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1583)="^HLCSMM1^8412^HL TASK RESTART^64241,17125^^VISTA,VISTA^64241,17125^POSTMASTER^7220^^VISTA:CACHE^64241,17130"
-^%ZTSCH("TASK",1583,2)="VISTA,VISTA^^^1583^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1584)="^HLCSMM1^8412^HL TASK RESTART^64241,17125^^VISTA,VISTA^64241,17125^POSTMASTER^9656^^VISTA:CACHE^64241,17131"
-^%ZTSCH("TASK",1584,2)="VISTA,VISTA^^^1584^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1585)="^HLCSMM1^8412^HL TASK RESTART^64241,17125^^VISTA,VISTA^64241,17125^POSTMASTER^7740^^VISTA:CACHE^64241,17132"
-^%ZTSCH("TASK",1585,2)="VISTA,VISTA^^^1585^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1587)="^HLCSLSM^8853^HL AUTOSTART LINK MANAGER^64241,17129^^VISTA,VISTA^64241,17129^POSTMASTER^8312^^VISTA:CACHE^64241,17134"
-^%ZTSCH("TASK",1587,2)="VISTA,VISTA^^^1587^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
+^%ZTSCH("TASK",1597)="^HLCSMM1^8412^HL TASK RESTART^64241,19496^^VISTA,VISTA^64241,19496^POSTMASTER^3108^^VISTA:CACHE^64241,19502"
+^%ZTSCH("TASK",1597,2)="VISTA,VISTA^^^1597^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
+^%ZTSCH("TASK",1598)="^HLCSMM1^8412^HL TASK RESTART^64241,19496^^VISTA,VISTA^64241,19496^POSTMASTER^7972^^VISTA:CACHE^64241,19503"
+^%ZTSCH("TASK",1598,2)="VISTA,VISTA^^^1598^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
+^%ZTSCH("TASK",1599)="^HLCSMM1^8412^HL TASK RESTART^64241,19496^^VISTA,VISTA^64241,19496^POSTMASTER^9348^^VISTA:CACHE^64241,19504"
+^%ZTSCH("TASK",1599,2)="VISTA,VISTA^^^1599^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
+^%ZTSCH("TASK",1601)="^HLCSLSM^8853^HL AUTOSTART LINK MANAGER^64241,19500^^VISTA,VISTA^64241,19500^POSTMASTER^8608^^VISTA:CACHE^64241,19506"
+^%ZTSCH("TASK",1601,2)="VISTA,VISTA^^^1601^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
 ^%ZTSCH("WAIT")="58035,64592"