Released ECX*3*147 SEQ #132 Extracted from mail message **KIDS**:ECX*3.0*147^ **INSTALL NAME** ECX*3.0*147 "BLD",9497,0) ECX*3.0*147^DSS EXTRACTS^0^3131205^y "BLD",9497,1,0) ^^2^2^3131119^ "BLD",9497,1,1,0) Patch ECX*3.0*147 adds 7 new clinic codes and updates the description "BLD",9497,1,2,0) of 12 existing codes in the NATIONAL CLINIC (#728.441) file. "BLD",9497,4,0) ^9.64PA^^ "BLD",9497,6.3) 4 "BLD",9497,"INID") ^n "BLD",9497,"INIT") EN^ECX147PT "BLD",9497,"KRN",0) ^9.67PA^779.2^20 "BLD",9497,"KRN",.4,0) .4 "BLD",9497,"KRN",.401,0) .401 "BLD",9497,"KRN",.402,0) .402 "BLD",9497,"KRN",.403,0) .403 "BLD",9497,"KRN",.5,0) .5 "BLD",9497,"KRN",.84,0) .84 "BLD",9497,"KRN",3.6,0) 3.6 "BLD",9497,"KRN",3.8,0) 3.8 "BLD",9497,"KRN",9.2,0) 9.2 "BLD",9497,"KRN",9.8,0) 9.8 "BLD",9497,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",9497,"KRN",9.8,"NM",1,0) ECX147PT^^0^B16010295 "BLD",9497,"KRN",9.8,"NM","B","ECX147PT",1) "BLD",9497,"KRN",19,0) 19 "BLD",9497,"KRN",19.1,0) 19.1 "BLD",9497,"KRN",101,0) 101 "BLD",9497,"KRN",409.61,0) 409.61 "BLD",9497,"KRN",771,0) 771 "BLD",9497,"KRN",779.2,0) 779.2 "BLD",9497,"KRN",870,0) 870 "BLD",9497,"KRN",8989.51,0) 8989.51 "BLD",9497,"KRN",8989.52,0) 8989.52 "BLD",9497,"KRN",8994,0) 8994 "BLD",9497,"KRN","B",.4,.4) "BLD",9497,"KRN","B",.401,.401) "BLD",9497,"KRN","B",.402,.402) "BLD",9497,"KRN","B",.403,.403) "BLD",9497,"KRN","B",.5,.5) "BLD",9497,"KRN","B",.84,.84) "BLD",9497,"KRN","B",3.6,3.6) "BLD",9497,"KRN","B",3.8,3.8) "BLD",9497,"KRN","B",9.2,9.2) "BLD",9497,"KRN","B",9.8,9.8) "BLD",9497,"KRN","B",19,19) "BLD",9497,"KRN","B",19.1,19.1) "BLD",9497,"KRN","B",101,101) "BLD",9497,"KRN","B",409.61,409.61) "BLD",9497,"KRN","B",771,771) "BLD",9497,"KRN","B",779.2,779.2) "BLD",9497,"KRN","B",870,870) "BLD",9497,"KRN","B",8989.51,8989.51) "BLD",9497,"KRN","B",8989.52,8989.52) "BLD",9497,"KRN","B",8994,8994) "BLD",9497,"QDEF") ^^^^NO^^^^^^NO "BLD",9497,"QUES",0) ^9.62^^ "BLD",9497,"REQB",0) ^9.611^1^1 "BLD",9497,"REQB",1,0) ECX*3.0*146^2 "BLD",9497,"REQB","B","ECX*3.0*146",1) "INIT") EN^ECX147PT "MBREQ") 0 "PKG",535,-1) 1^1 "PKG",535,0) DSS EXTRACTS^ECX "PKG",535,20,0) ^9.402P^^ "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) 147^3131205 "PKG",535,22,1,"PAH",1,1,0) ^^2^2^3131205 "PKG",535,22,1,"PAH",1,1,1,0) Patch ECX*3.0*147 adds 7 new clinic codes and updates the description "PKG",535,22,1,"PAH",1,1,2,0) of 12 existing codes in the NATIONAL CLINIC (#728.441) file. "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","ECX147PT") 0^1^B16010295^n/a "RTN","ECX147PT",1,0) ECX147PT ;ALB/AG-ECX*3.0*147 Post-Init Rtn;10/8/13; ; 12/4/13 3:52pm "RTN","ECX147PT",2,0) ;;3.0;DSS EXTRACTS;**147**;Dec 22,1997;Build 4 "RTN","ECX147PT",3,0) ; "RTN","ECX147PT",4,0) ;Post-init routine adding new entries and updating current entries to "RTN","ECX147PT",5,0) ; "RTN","ECX147PT",6,0) ;NATIONAL CLINIC file(#728.441) "RTN","ECX147PT",7,0) ; "RTN","ECX147PT",8,0) Q "RTN","ECX147PT",9,0) ; "RTN","ECX147PT",10,0) EN ; "RTN","ECX147PT",11,0) ;Routine entry point "RTN","ECX147PT",12,0) D UNLOCK ;unlock Data Dictionary to allow changes "RTN","ECX147PT",13,0) D ADDNEW ;add new Clinic codes "RTN","ECX147PT",14,0) D UPDATE ;change name to existing Clinic codes "RTN","ECX147PT",15,0) D LOCK ;lock Data Dictionary to restrict changes "RTN","ECX147PT",16,0) Q "RTN","ECX147PT",17,0) ; "RTN","ECX147PT",18,0) UNLOCK ; "RTN","ECX147PT",19,0) K ^DD(728.441,.01,7.5) "RTN","ECX147PT",20,0) N ECXI "RTN","ECX147PT",21,0) F ECXI=.01,1,3 S $P(^DD(728.441,ECXI,0),"^",2)=$TR($P(^DD(728.441,ECXI,0),"^",2),"I","") "RTN","ECX147PT",22,0) Q "RTN","ECX147PT",23,0) ADDNEW ;Add new entry to file 728.441 "RTN","ECX147PT",24,0) ;ECXREC is in format:code^short description "RTN","ECX147PT",25,0) ; "RTN","ECX147PT",26,0) ; "RTN","ECX147PT",27,0) N ECXFDA,ECXERR,ECXCODE,ECXREC,ECXI "RTN","ECX147PT",28,0) ; "RTN","ECX147PT",29,0) ;-get National Clinic record "RTN","ECX147PT",30,0) F ECXI=1:1 S ECXREC=$P($T(ADDCLIN+ECXI),";;",2) Q:ECXREC="QUIT" D "RTN","ECX147PT",31,0) .; "RTN","ECX147PT",32,0) .;-National Clinic Code "RTN","ECX147PT",33,0) .S ECXCODE=$P(ECXREC,"^") "RTN","ECX147PT",34,0) .; "RTN","ECX147PT",35,0) .;-quit w/error message if entry already exists in file #728.441 "RTN","ECX147PT",36,0) .I $$FIND1^DIC(728.441,"","X",ECXCODE) D Q "RTN","ECX147PT",37,0) ..D BMES^XPDUTL(">>>..."_ECXCODE_" "_$P(ECXREC,U,2)_" not added, entry already exists.") "RTN","ECX147PT",38,0) ..D BMES^XPDUTL(">>> Contact Support for assistance.") "RTN","ECX147PT",39,0) .; "RTN","ECX147PT",40,0) .;Setup field values of new entry "RTN","ECX147PT",41,0) .S ECXFDA(728.441,"+1,",.01)=ECXCODE "RTN","ECX147PT",42,0) .S ECXFDA(728.441,"+1,",1)=$P(ECXREC,"^",2) "RTN","ECX147PT",43,0) .; "RTN","ECX147PT",44,0) .;-add new entry to file #728.441 "RTN","ECX147PT",45,0) .D UPDATE^DIE("E","ECXFDA","","ECXERR") "RTN","ECX147PT",46,0) .; "RTN","ECX147PT",47,0) .I '$D(ECXERR) D BMES^XPDUTL(">>>...."_ECXCODE_" "_$P(ECXREC,U,2)_" added to file.") "RTN","ECX147PT",48,0) .I $D(ECXERR) D BMES^XPDUTL(">>>....Unable to add "_ECXCODE_" "_$P(ECXREC,U,2)_" to file.") D "RTN","ECX147PT",49,0) ..D BMES^XPDUTL(">>>....Contact Support for assistance.") "RTN","ECX147PT",50,0) ; "RTN","ECX147PT",51,0) Q "RTN","ECX147PT",52,0) UPDATE ;changing short description of existing clinic "RTN","ECX147PT",53,0) N ECXCODE,ECXDESC,ECXIEN,DIE,DA,DR,ECXI "RTN","ECX147PT",54,0) D BMES^XPDUTL(">>>Updating entry in the NATIONAL CLINIC (728.441) file...") "RTN","ECX147PT",55,0) I $P(^DD(728.441,.01,0),"^",2)["I" D Q "RTN","ECX147PT",56,0) .D BMES^XPDUTL(">>Unable to update File 728.441 is locked") "RTN","ECX147PT",57,0) .D BMES^XPDUTL("Contact support for assistance") "RTN","ECX147PT",58,0) F ECXI=1:1 S ECXREC=$P($T(UPDCLIN+ECXI),";;",2) Q:ECXREC="QUIT" D "RTN","ECX147PT",59,0) .S ECXCODE=$P(ECXREC,"^"),ECXDESC=$P(ECXREC,"^",2) "RTN","ECX147PT",60,0) .S ECXIEN=$$FIND1^DIC(728.441,"","X",ECXCODE,"","","ERR") "RTN","ECX147PT",61,0) .I 'ECXIEN D Q "RTN","ECX147PT",62,0) ..D BMES^XPDUTL(">>>....Unable to add "_ECXCODE_" "_$P(ECXREC,U,2)_" to file.") "RTN","ECX147PT",63,0) ..D BMES^XPDUTL(">>>....Contact support for assistance") "RTN","ECX147PT",64,0) .S DIE="^ECX(728.441,",DA=ECXIEN,DR="1///^S X=ECXDESC" "RTN","ECX147PT",65,0) .D ^DIE "RTN","ECX147PT",66,0) .D BMES^XPDUTL(">>>...."_ECXCODE_" "_$P(ECXREC,U,2)_" updated") "RTN","ECX147PT",67,0) Q "RTN","ECX147PT",68,0) ; "RTN","ECX147PT",69,0) LOCK ; "RTN","ECX147PT",70,0) N ECXI "RTN","ECX147PT",71,0) S ^DD(728.441,.01,7.5)="I $G(DIC(0))[""L"",'$D(ECX4CHAR) D EN^DDIOL(""Entries can only be added by CHAR4 Council."","""",""!?5"") K X" "RTN","ECX147PT",72,0) F ECXI=.01,1,3 I $P(^DD(728.441,ECXI,0),U,2)'["I" S $P(^DD(728.441,ECXI,0),U,2)=$P(^DD(728.441,ECXI,0),U,2)_"I" ;Makes all fields uneditable "RTN","ECX147PT",73,0) Q "RTN","ECX147PT",74,0) ADDCLIN ;Contains the NATIONAL CLINIC entries to be added "RTN","ECX147PT",75,0) ;;AMSM^Antimicrb Stwrdshp MD "RTN","ECX147PT",76,0) ;;PEER^Peer Support "RTN","ECX147PT",77,0) ;;APSZ^E-Consult NP or CNS "RTN","ECX147PT",78,0) ;;CLSZ^E-Consult PSO or POD "RTN","ECX147PT",79,0) ;;PASZ^E-Consult PA "RTN","ECX147PT",80,0) ;;RESZ^E-Consult Resident/Fellow "RTN","ECX147PT",81,0) ;;VL5Z^E-Consult Contract Labor "RTN","ECX147PT",82,0) ;;QUIT "RTN","ECX147PT",83,0) UPDCLIN ;Contains the NATIONAL CLINIC entry description to be updated "RTN","ECX147PT",84,0) ;;FEEZ^Profee "RTN","ECX147PT",85,0) ;;HDGC^Employment Specialist "RTN","ECX147PT",86,0) ;;RHAC^Reserved "RTN","ECX147PT",87,0) ;;RHEC^Rehab Audiology "RTN","ECX147PT",88,0) ;;RHFC^Rehab Blind Rehab "RTN","ECX147PT",89,0) ;;RHGC^Rehab Chiropractic "RTN","ECX147PT",90,0) ;;RHHC^Rehab KT "RTN","ECX147PT",91,0) ;;RHJC^Rehab MD "RTN","ECX147PT",92,0) ;;RHMC^Rehab OT "RTN","ECX147PT",93,0) ;;RHRC^Rehab RT "RTN","ECX147PT",94,0) ;;RHSC^Rehab SP "RTN","ECX147PT",95,0) ;;CNSZ^E-Consult MD/PSI/Gen'l "RTN","ECX147PT",96,0) ;;QUIT "VER") 8.0^22.0 "BLD",9497,6) ^132 **END** **END**