EMERGENCY Released DG*5.3*1074 SEQ #945 Extracted from mail message **KIDS**:DG*5.3*1074^ **INSTALL NAME** DG*5.3*1074 "BLD",12518,0) DG*5.3*1074^REGISTRATION^0^3220210^y "BLD",12518,1,0) ^^2^2^3220112^ "BLD",12518,1,1,0) Patch DG*5.3*1074 adds one Treatment Specialty code to the SPECIALITY "BLD",12518,1,2,0) (#42.4) File and the FACILITY TREATING SPECIALTY (#45.7) File. "BLD",12518,4,0) ^9.64PA^^ "BLD",12518,6) 4 "BLD",12518,6.3) 4 "BLD",12518,"ABPKG") n "BLD",12518,"INID") ^n "BLD",12518,"INIT") EN^DG1074P "BLD",12518,"KRN",0) ^9.67PA^1.5^25 "BLD",12518,"KRN",.4,0) .4 "BLD",12518,"KRN",.401,0) .401 "BLD",12518,"KRN",.402,0) .402 "BLD",12518,"KRN",.403,0) .403 "BLD",12518,"KRN",.5,0) .5 "BLD",12518,"KRN",.84,0) .84 "BLD",12518,"KRN",1.5,0) 1.5 "BLD",12518,"KRN",1.6,0) 1.6 "BLD",12518,"KRN",1.61,0) 1.61 "BLD",12518,"KRN",1.62,0) 1.62 "BLD",12518,"KRN",3.6,0) 3.6 "BLD",12518,"KRN",3.8,0) 3.8 "BLD",12518,"KRN",9.2,0) 9.2 "BLD",12518,"KRN",9.8,0) 9.8 "BLD",12518,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",12518,"KRN",9.8,"NM",1,0) DG1074P^^0^B10626941 "BLD",12518,"KRN",9.8,"NM","B","DG1074P",1) "BLD",12518,"KRN",19,0) 19 "BLD",12518,"KRN",19,"NM",0) ^9.68A^^ "BLD",12518,"KRN",19.1,0) 19.1 "BLD",12518,"KRN",101,0) 101 "BLD",12518,"KRN",409.61,0) 409.61 "BLD",12518,"KRN",771,0) 771 "BLD",12518,"KRN",779.2,0) 779.2 "BLD",12518,"KRN",870,0) 870 "BLD",12518,"KRN",8989.51,0) 8989.51 "BLD",12518,"KRN",8989.52,0) 8989.52 "BLD",12518,"KRN",8993,0) 8993 "BLD",12518,"KRN",8994,0) 8994 "BLD",12518,"KRN","B",.4,.4) "BLD",12518,"KRN","B",.401,.401) "BLD",12518,"KRN","B",.402,.402) "BLD",12518,"KRN","B",.403,.403) "BLD",12518,"KRN","B",.5,.5) "BLD",12518,"KRN","B",.84,.84) "BLD",12518,"KRN","B",1.5,1.5) "BLD",12518,"KRN","B",1.6,1.6) "BLD",12518,"KRN","B",1.61,1.61) "BLD",12518,"KRN","B",1.62,1.62) "BLD",12518,"KRN","B",3.6,3.6) "BLD",12518,"KRN","B",3.8,3.8) "BLD",12518,"KRN","B",9.2,9.2) "BLD",12518,"KRN","B",9.8,9.8) "BLD",12518,"KRN","B",19,19) "BLD",12518,"KRN","B",19.1,19.1) "BLD",12518,"KRN","B",101,101) "BLD",12518,"KRN","B",409.61,409.61) "BLD",12518,"KRN","B",771,771) "BLD",12518,"KRN","B",779.2,779.2) "BLD",12518,"KRN","B",870,870) "BLD",12518,"KRN","B",8989.51,8989.51) "BLD",12518,"KRN","B",8989.52,8989.52) "BLD",12518,"KRN","B",8993,8993) "BLD",12518,"KRN","B",8994,8994) "BLD",12518,"QUES",0) ^9.62^^ "BLD",12518,"REQB",0) ^9.611^1^1 "BLD",12518,"REQB",1,0) DG*5.3*927^1 "BLD",12518,"REQB","B","DG*5.3*927",1) "INIT") EN^DG1074P "MBREQ") 0 "PKG",5,-1) 1^1 "PKG",5,0) REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "PKG",5,22,0) ^9.49I^1^1 "PKG",5,22,1,0) 5.3^2930813 "PKG",5,22,1,"PAH",1,0) 1074^3220210 "PKG",5,22,1,"PAH",1,1,0) ^^2^2^3220210 "PKG",5,22,1,"PAH",1,1,1,0) Patch DG*5.3*1074 adds one Treatment Specialty code to the SPECIALITY "PKG",5,22,1,"PAH",1,1,2,0) (#42.4) File and the FACILITY TREATING SPECIALTY (#45.7) 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","DG1074P") 0^1^B10626941^n/a "RTN","DG1074P",1,0) DG1074P ;MNTVBB/RS - TREATING SPECIALTIES UPDATE ; 1/12/2022 11:10am "RTN","DG1074P",2,0) ;;5.3;Registration;**1074**;Aug 13, 1993;Build 4 "RTN","DG1074P",3,0) ; "RTN","DG1074P",4,0) Q "RTN","DG1074P",5,0) EN ;Add Treating Specialties to the SPECIALTY file (#42.4) "RTN","DG1074P",6,0) N DGI,DGERR,DGSPEC,DGIFN,DGQUES "RTN","DG1074P",7,0) S DGIFN=0 "RTN","DG1074P",8,0) ;add new treating specialties "RTN","DG1074P",9,0) F DGI=1:1 S DGSPEC=$P($T(TRSP+DGI),";;",2) Q:DGSPEC="QUIT" D "RTN","DG1074P",10,0) .D TSPEC "RTN","DG1074P",11,0) .S DGQUES=$P(DGSPEC,U,9) "RTN","DG1074P",12,0) .D FAC "RTN","DG1074P",13,0) .Q "RTN","DG1074P",14,0) Q "RTN","DG1074P",15,0) TSPEC ;Add treating specialty to SPECIALTY File (#42.4) "RTN","DG1074P",16,0) D BMES^XPDUTL(">>>"_$P(DGSPEC,U,2)_">>>") "RTN","DG1074P",17,0) N DA,DGFILE,DGMULT,DIC,DIE,DGDA1,DINUM,DLAYGO,DR,X,Y "RTN","DG1074P",18,0) S DIC="^DIC(42.4," "RTN","DG1074P",19,0) S DIC(0)="LX" "RTN","DG1074P",20,0) S DINUM=$P(DGSPEC,U) "RTN","DG1074P",21,0) S X=$P(DGSPEC,U,2) "RTN","DG1074P",22,0) S DLAYGO=42.4 "RTN","DG1074P",23,0) D ^DIC "RTN","DG1074P",24,0) S (DGIFN,DGDA1)=DGSPEC "RTN","DG1074P",25,0) I +DGIFN=-1 D Q "RTN","DG1074P",26,0) .D MES^XPDUTL(" Entry not added to SPECIALTY File (#42.4). No further updating will occur.") "RTN","DG1074P",27,0) .D MES^XPDUTL(" Please contact Customer Service for assistance.") "RTN","DG1074P",28,0) .Q "RTN","DG1074P",29,0) D MES^XPDUTL(" Entry added to SPECIALTY File (#42.4).") "RTN","DG1074P",30,0) D MES^XPDUTL(" Updating SPECIALTY File fields.") "RTN","DG1074P",31,0) S DIE=DIC "RTN","DG1074P",32,0) S DR=".01///"_$P(DGSPEC,U,2)_";1///"_$P(DGSPEC,U,3)_";3///"_$P(DGSPEC,U,4)_";4///"_$P(DGSPEC,U,5)_";5///"_$P(DGSPEC,U,6)_";6///"_$P(DGSPEC,U,7)_";7///"_$P(DGSPEC,U,10) "RTN","DG1074P",33,0) S DA=+DGIFN "RTN","DG1074P",34,0) D ^DIE "RTN","DG1074P",35,0) S DGFILE=42.4 "RTN","DG1074P",36,0) S DGMULT=10 "RTN","DG1074P",37,0) S DIC="^DIC(42.4,"_+DGIFN_",""E""," "RTN","DG1074P",38,0) D MULT "RTN","DG1074P",39,0) Q "RTN","DG1074P",40,0) FAC ;Add treating specialty to Facility Treating Specialty file (#45.7) "RTN","DG1074P",41,0) N DA,DGFILE,DGMULT,DIC,DIE,DLAYGO,DR,X,Y "RTN","DG1074P",42,0) S DIC="^DIC(45.7," "RTN","DG1074P",43,0) S DIC(0)="LXZ" "RTN","DG1074P",44,0) S DLAYGO=45.7 "RTN","DG1074P",45,0) S X=$P(DGSPEC,U,2) "RTN","DG1074P",46,0) D ^DIC "RTN","DG1074P",47,0) S DGDA1=Y "RTN","DG1074P",48,0) I +DGDA1=-1 D BMES^XPDUTL(" Entry not added to FACILITY TREATING SPECIALTY File(#45.7).") Q "RTN","DG1074P",49,0) I $P(DGDA1,U,3)'=1&($P(Y(0),U,2)'=$P(DGSPEC,U)) D Q "RTN","DG1074P",50,0) .D BMES^XPDUTL(" Entry exists in FACILITY TREATING SPECIALTY File (#45.7), but with") "RTN","DG1074P",51,0) .D MES^XPDUTL(" a different PTF Code #. No further updating will occur.") "RTN","DG1074P",52,0) .D MES^XPDUTL(" Please review entry.") "RTN","DG1074P",53,0) .Q "RTN","DG1074P",54,0) D BMES^XPDUTL(" Entry "_$S($P(DGDA1,U,3)=1:"added to",1:"exists in")_" FACILITY TREATING SPECIALTY File (#45.7).") "RTN","DG1074P",55,0) D MES^XPDUTL(" Updating SPECIALTY field...") "RTN","DG1074P",56,0) S DIE=DIC "RTN","DG1074P",57,0) S DA=+DGDA1 "RTN","DG1074P",58,0) S DR="1////"_$P(DGSPEC,U) "RTN","DG1074P",59,0) D ^DIE "RTN","DG1074P",60,0) S DGFILE=45.7 "RTN","DG1074P",61,0) S DGMULT=100 "RTN","DG1074P",62,0) S DIC="^DIC(45.7,"_+DGDA1_",""E""," "RTN","DG1074P",63,0) D MULT "RTN","DG1074P",64,0) Q "RTN","DG1074P",65,0) MULT ;Add Effective Date "RTN","DG1074P",66,0) N DA,DIE,DR "RTN","DG1074P",67,0) S DA(1)=+DGDA1 "RTN","DG1074P",68,0) S DIC(0)="LX" "RTN","DG1074P",69,0) S DIC("P")=$P(^DD(DGFILE,DGMULT,0),"^",2) "RTN","DG1074P",70,0) S X=3221001 "RTN","DG1074P",71,0) D ^DIC "RTN","DG1074P",72,0) S DA=+Y "RTN","DG1074P",73,0) I +Y=-1 D MES^XPDUTL(" Effective date not added.") Q "RTN","DG1074P",74,0) D MES^XPDUTL(" Effective date added.") "RTN","DG1074P",75,0) S DIE=DIC "RTN","DG1074P",76,0) S DR=".02///Y" "RTN","DG1074P",77,0) D ^DIE "RTN","DG1074P",78,0) Q "RTN","DG1074P",79,0) TRSP ;PTF CODE^SPECIALTY^PRINT NAME^SERVICE^ASK PSYCH^BILLING BEDSECTION^CDR/MPCR^^QUES#^AUSTIN PTF CODE "RTN","DG1074P",80,0) ;;113^SPINAL CORD INJURY LTC CENTER^SCI LTC CENTER^SPINAL CORD INJURY^N^SPINAL CORD INJURY CARE^1116^^^1O "RTN","DG1074P",81,0) ;;QUIT "VER") 8.0^22.2 "BLD",12518,6) ^945 **END** **END**