Released DVB*4*48 SEQ #46 Extracted from mail message **KIDS**:DVB*4.0*48^ **INSTALL NAME** DVB*4.0*48 "BLD",5518,0) DVB*4.0*48^HINQ^0^3040524^y "BLD",5518,1,0) ^^1^1^3040422^ "BLD",5518,1,1,0) THIS PATCH WILL UPDATE THE DISABILITY CONDITION FILE(#31) "BLD",5518,4,0) ^9.64PA^^ "BLD",5518,"ABPKG") n "BLD",5518,"INIT") DVB448PT "BLD",5518,"KRN",0) ^9.67PA^8989.52^19 "BLD",5518,"KRN",.4,0) .4 "BLD",5518,"KRN",.401,0) .401 "BLD",5518,"KRN",.402,0) .402 "BLD",5518,"KRN",.403,0) .403 "BLD",5518,"KRN",.5,0) .5 "BLD",5518,"KRN",.84,0) .84 "BLD",5518,"KRN",3.6,0) 3.6 "BLD",5518,"KRN",3.8,0) 3.8 "BLD",5518,"KRN",9.2,0) 9.2 "BLD",5518,"KRN",9.8,0) 9.8 "BLD",5518,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",5518,"KRN",9.8,"NM",1,0) DVB448PT^^0^B10467706 "BLD",5518,"KRN",9.8,"NM","B","DVB448PT",1) "BLD",5518,"KRN",19,0) 19 "BLD",5518,"KRN",19.1,0) 19.1 "BLD",5518,"KRN",101,0) 101 "BLD",5518,"KRN",409.61,0) 409.61 "BLD",5518,"KRN",771,0) 771 "BLD",5518,"KRN",870,0) 870 "BLD",5518,"KRN",8989.51,0) 8989.51 "BLD",5518,"KRN",8989.52,0) 8989.52 "BLD",5518,"KRN",8994,0) 8994 "BLD",5518,"KRN","B",.4,.4) "BLD",5518,"KRN","B",.401,.401) "BLD",5518,"KRN","B",.402,.402) "BLD",5518,"KRN","B",.403,.403) "BLD",5518,"KRN","B",.5,.5) "BLD",5518,"KRN","B",.84,.84) "BLD",5518,"KRN","B",3.6,3.6) "BLD",5518,"KRN","B",3.8,3.8) "BLD",5518,"KRN","B",9.2,9.2) "BLD",5518,"KRN","B",9.8,9.8) "BLD",5518,"KRN","B",19,19) "BLD",5518,"KRN","B",19.1,19.1) "BLD",5518,"KRN","B",101,101) "BLD",5518,"KRN","B",409.61,409.61) "BLD",5518,"KRN","B",771,771) "BLD",5518,"KRN","B",870,870) "BLD",5518,"KRN","B",8989.51,8989.51) "BLD",5518,"KRN","B",8989.52,8989.52) "BLD",5518,"KRN","B",8994,8994) "BLD",5518,"QUES",0) ^9.62^^ "BLD",5518,"REQB",0) ^9.611^1^1 "BLD",5518,"REQB",1,0) DVB*4.0*44^2 "BLD",5518,"REQB","B","DVB*4.0*44",1) "INIT") DVB448PT "MBREQ") 0 "PKG",119,-1) 1^1 "PKG",119,0) HINQ^DVB^HINQ(Hospital Inquiry) "PKG",119,20,0) ^9.402P^^ "PKG",119,22,0) ^9.49I^1^1 "PKG",119,22,1,0) 4.0^2930615^2920421 "PKG",119,22,1,"PAH",1,0) 48^3040524 "PKG",119,22,1,"PAH",1,1,0) ^^1^1^3040524 "PKG",119,22,1,"PAH",1,1,1,0) THIS PATCH WILL UPDATE THE DISABILITY CONDITION FILE(#31) "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") YES "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") YES "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") YES "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","DVB448PT") 0^1^B10467706 "RTN","DVB448PT",1,0) DVB448PT ;ALB/BWF POST-INSTALL FOR PATCH DVB*4*48 ;4/15/04 "RTN","DVB448PT",2,0) ;;4.0;HINQ;**44,48**;03/25/92 "RTN","DVB448PT",3,0) ; "RTN","DVB448PT",4,0) ;This routine will be run as a post-installation for patch DVB*4*48. "RTN","DVB448PT",5,0) ;This routine will add nine new disability codes to the DISABILITY "RTN","DVB448PT",6,0) ;CONDITION file (#31). "RTN","DVB448PT",7,0) ; "RTN","DVB448PT",8,0) POST ;entry point for post-install, setting up checkpoints "RTN","DVB448PT",9,0) N % "RTN","DVB448PT",10,0) S %=$$NEWCP^XPDUTL("DVBLINE","EN^DVB448PT",1) "RTN","DVB448PT",11,0) Q "RTN","DVB448PT",12,0) ; "RTN","DVB448PT",13,0) EN ;begin processing "RTN","DVB448PT",14,0) ; "RTN","DVB448PT",15,0) N DVBLINE "RTN","DVB448PT",16,0) ; "RTN","DVB448PT",17,0) D BMES^XPDUTL(" >> *** Updating DISABILITY CONDITION file (#31)") "RTN","DVB448PT",18,0) D MES^XPDUTL(" ") "RTN","DVB448PT",19,0) ; "RTN","DVB448PT",20,0) ;get value from checkpoints, previous run "RTN","DVB448PT",21,0) S DVBLINE=+$$PARCP^XPDUTL("DVBLINE") "RTN","DVB448PT",22,0) ; "RTN","DVB448PT",23,0) DVBNEW ;add new codes or modify name if code is in use "RTN","DVB448PT",24,0) ; "RTN","DVB448PT",25,0) F DVBI=DVBLINE:1 S DVBJ=$P($T(NEWCODE+DVBI),";;",2) Q:DVBJ["$EXIT" D "RTN","DVB448PT",26,0) .S DVBCODE=+DVBJ,DVBNAME=$E($P(DVBJ,"^",2),1,45),DVBLINE=DVBI "RTN","DVB448PT",27,0) .S DVBDESC=$E($P(DVBJ,"^",3),1,200) "RTN","DVB448PT",28,0) .; "RTN","DVB448PT",29,0) .;add new code "RTN","DVB448PT",30,0) .I '$D(^DIC(31,"C",DVBCODE)) D G UPDATECH "RTN","DVB448PT",31,0) ..K DD,DO "RTN","DVB448PT",32,0) ..S DIC="^DIC(31,",DIC(0)="L",DIC("DR")="2////"_DVBCODE_";10////"_DVBDESC "RTN","DVB448PT",33,0) ..S X=DVBNAME,DLAYGO=31 "RTN","DVB448PT",34,0) ..D FILE^DICN "RTN","DVB448PT",35,0) ..D MES^XPDUTL(DVBCODE_": adding "_DVBCODE_" "_X) "RTN","DVB448PT",36,0) ..K DLAYGO,DIC,X "RTN","DVB448PT",37,0) ..Q "RTN","DVB448PT",38,0) .; "RTN","DVB448PT",39,0) .;modify name "RTN","DVB448PT",40,0) .S DVBIEN=+$O(^DIC(31,"C",DVBCODE,0)) "RTN","DVB448PT",41,0) .S DVBREC=$G(^DIC(31,DVBIEN,0)),DVBOLDSC=$G(^DIC(31,DVBIEN,1)) I DVBREC']"" D G UPDATECH "RTN","DVB448PT",42,0) ..D MES^XPDUTL(" >>>> error "_DVBCODE_" in C x-reference and not in file 31") "RTN","DVB448PT",43,0) ..Q "RTN","DVB448PT",44,0) .S DVBOLDN=$P(DVBREC,"^") I DVBOLDN=DVBNAME&(DVBOLDSC=DVBDESC) G UPDATECH "RTN","DVB448PT",45,0) .S DA=DVBIEN,DIE="^DIC(31,",DR=".01////"_DVBNAME_";10////"_DVBDESC "RTN","DVB448PT",46,0) .D ^DIE "RTN","DVB448PT",47,0) .K DR,DA,DIE "RTN","DVB448PT",48,0) .I DVBOLDN'=DVBNAME D "RTN","DVB448PT",49,0) ..D MES^XPDUTL(DVBCODE_": changing name from "_DVBOLDN) "RTN","DVB448PT",50,0) ..D MES^XPDUTL(" to "_DVBNAME) "RTN","DVB448PT",51,0) .I DVBOLDSC'=DVBDESC D "RTN","DVB448PT",52,0) ..D MES^XPDUTL(DVBCODE_": changing description...") "RTN","DVB448PT",53,0) ..D MES^XPDUTL(" from: "_DVBOLDSC) "RTN","DVB448PT",54,0) ..D MES^XPDUTL(" to: "_DVBDESC) "RTN","DVB448PT",55,0) .; "RTN","DVB448PT",56,0) UPDATECH .;update checkpoint "RTN","DVB448PT",57,0) .S %=$$UPCP^XPDUTL("DVBLINE",DVBLINE) "RTN","DVB448PT",58,0) .Q "RTN","DVB448PT",59,0) K DVBCODE,DVBI,DVBIEN,DVBJ,DVBNAME,DVBOLDN,DVBREC,DVBDESC,DVBOLDSC "RTN","DVB448PT",60,0) Q "RTN","DVB448PT",61,0) ; "RTN","DVB448PT",62,0) NEWCODE ;codes to be added or changed "RTN","DVB448PT",63,0) ;;5235^VERTEBRAL FRACTURE OR DISLOCATION^VERTEBRAL FRACTURE OR DISLOCATION "RTN","DVB448PT",64,0) ;;5236^SACROILIAC INJURY AND WEAKNESS^SACROILIAC INJURY AND WEAKNESS "RTN","DVB448PT",65,0) ;;5237^LUMBOSACRAL OR CERVICAL STRAIN^LUMBOSACRAL OR CERVICAL STRAIN "RTN","DVB448PT",66,0) ;;5238^SPINAL STENOSIS^SPINAL STENOSIS "RTN","DVB448PT",67,0) ;;5239^SPONDYLOLISTHESIS OR SEGMENTAL INSTABILITY^SPONDYLOLISTHESIS OR SEGMENTAL INSTABILITY "RTN","DVB448PT",68,0) ;;5240^ANKYLOSING SPONDYLITIS^ANKYLOSING SPONDYLITIS "RTN","DVB448PT",69,0) ;;5241^SPINAL FUSION^SPINAL FUSION "RTN","DVB448PT",70,0) ;;5242^DEGENERATIVE ARTHRITIS OF THE SPINE^DEGENERATIVE ARTHRITIS OF THE SPINE "RTN","DVB448PT",71,0) ;;5243^INTERVERTEBRAL DISC SYNDROME^INTERVERTEBRAL DISC SYNDROME "RTN","DVB448PT",72,0) ;;$EXIT "RTN","DVB448PT",73,0) Q "VER") 8.0^22 **END** **END**