EMERGENCY Released SD*5.3*573 SEQ #469 Extracted from mail message **KIDS**:SD*5.3*573^ **INSTALL NAME** SD*5.3*573 "BLD",8457,0) SD*5.3*573^SCHEDULING^0^3101130^y "BLD",8457,1,0) ^^2^2^3101014^ "BLD",8457,1,1,0) This patch provides mid-Fiscal Year 2011 updates to the CLINIC STOP "BLD",8457,1,2,0) file (#40.7) as requested by the Decision Support Office (DSO). "BLD",8457,4,0) ^9.64PA^^ "BLD",8457,6.3) 10 "BLD",8457,"ABPKG") n "BLD",8457,"INID") ^n "BLD",8457,"INIT") EN^SD11SUPP "BLD",8457,"KRN",0) ^9.67PA^779.2^20 "BLD",8457,"KRN",.4,0) .4 "BLD",8457,"KRN",.401,0) .401 "BLD",8457,"KRN",.402,0) .402 "BLD",8457,"KRN",.403,0) .403 "BLD",8457,"KRN",.5,0) .5 "BLD",8457,"KRN",.84,0) .84 "BLD",8457,"KRN",3.6,0) 3.6 "BLD",8457,"KRN",3.8,0) 3.8 "BLD",8457,"KRN",9.2,0) 9.2 "BLD",8457,"KRN",9.8,0) 9.8 "BLD",8457,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",8457,"KRN",9.8,"NM",1,0) SD11SUPP^^0^B69344956 "BLD",8457,"KRN",9.8,"NM","B","SD11SUPP",1) "BLD",8457,"KRN",19,0) 19 "BLD",8457,"KRN",19.1,0) 19.1 "BLD",8457,"KRN",101,0) 101 "BLD",8457,"KRN",409.61,0) 409.61 "BLD",8457,"KRN",771,0) 771 "BLD",8457,"KRN",779.2,0) 779.2 "BLD",8457,"KRN",870,0) 870 "BLD",8457,"KRN",8989.51,0) 8989.51 "BLD",8457,"KRN",8989.52,0) 8989.52 "BLD",8457,"KRN",8994,0) 8994 "BLD",8457,"KRN","B",.4,.4) "BLD",8457,"KRN","B",.401,.401) "BLD",8457,"KRN","B",.402,.402) "BLD",8457,"KRN","B",.403,.403) "BLD",8457,"KRN","B",.5,.5) "BLD",8457,"KRN","B",.84,.84) "BLD",8457,"KRN","B",3.6,3.6) "BLD",8457,"KRN","B",3.8,3.8) "BLD",8457,"KRN","B",9.2,9.2) "BLD",8457,"KRN","B",9.8,9.8) "BLD",8457,"KRN","B",19,19) "BLD",8457,"KRN","B",19.1,19.1) "BLD",8457,"KRN","B",101,101) "BLD",8457,"KRN","B",409.61,409.61) "BLD",8457,"KRN","B",771,771) "BLD",8457,"KRN","B",779.2,779.2) "BLD",8457,"KRN","B",870,870) "BLD",8457,"KRN","B",8989.51,8989.51) "BLD",8457,"KRN","B",8989.52,8989.52) "BLD",8457,"KRN","B",8994,8994) "BLD",8457,"QDEF") ^^^^NO^^^^NO^^NO "BLD",8457,"QUES",0) ^9.62^^ "BLD",8457,"REQB",0) ^9.611^1^1 "BLD",8457,"REQB",1,0) SD*5.3*568^2 "BLD",8457,"REQB","B","SD*5.3*568",1) "INIT") EN^SD11SUPP "MBREQ") 0 "PKG",16,-1) 1^1 "PKG",16,0) SCHEDULING^SD^APPOINTMENTS,PROFILES,LETTERS,AMIS REPORTS "PKG",16,20,0) ^9.402P^^ "PKG",16,22,0) ^9.49I^1^1 "PKG",16,22,1,0) 5.3^2930813 "PKG",16,22,1,"PAH",1,0) 573^3101130 "PKG",16,22,1,"PAH",1,1,0) ^^2^2^3101130 "PKG",16,22,1,"PAH",1,1,1,0) This patch provides mid-Fiscal Year 2011 updates to the CLINIC STOP "PKG",16,22,1,"PAH",1,1,2,0) file (#40.7) as requested by the Decision Support Office (DSO). "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","SD11SUPP") 0^1^B69344956^n/a "RTN","SD11SUPP",1,0) SD11SUPP ;ALB/RLC- Stop Code/DSS Identifier Update 6/18/07 "RTN","SD11SUPP",2,0) ;;5.3;Scheduling;**573**;AUG 13, 1993;Build 10 "RTN","SD11SUPP",3,0) ; "RTN","SD11SUPP",4,0) ;** This patch is used as a Post-Init in a KIDS build to modify the "RTN","SD11SUPP",5,0) ;** the CLINIC STOP file [^DIC(40.7,] for Mid-FY2011 updates. "RTN","SD11SUPP",6,0) ; "RTN","SD11SUPP",7,0) Q "RTN","SD11SUPP",8,0) ; "RTN","SD11SUPP",9,0) EN ;** Add/inactivate/change/reactivate DSS IDs (stop codes) "RTN","SD11SUPP",10,0) ;** The following code executes if file modifications exist "RTN","SD11SUPP",11,0) ; "RTN","SD11SUPP",12,0) N SDVAR,SDAUMF,TYPE "RTN","SD11SUPP",13,0) S SDAUMF=1 "RTN","SD11SUPP",14,0) D UPDATEDD("O") ;unlock file to allow edits "RTN","SD11SUPP",15,0) D:$P($T(NEW+1),";;",2)'="QUIT" ADD "RTN","SD11SUPP",16,0) D:$P($T(OLD+1),";;",2)'="QUIT" INACT "RTN","SD11SUPP",17,0) D:$P($T(ACT+1),";;",2)'="QUIT" REACT "RTN","SD11SUPP",18,0) D:$P($T(CHNG+1),";;",2)'="QUIT" CHANGE "RTN","SD11SUPP",19,0) D:$P($T(CDR+1),";;",2)'="QUIT" CDRNUM "RTN","SD11SUPP",20,0) D:$P($T(REST+1),";;",2)'="QUIT" RESTR "RTN","SD11SUPP",21,0) D UPDATEDD("C") ;lock file back down "RTN","SD11SUPP",22,0) Q "RTN","SD11SUPP",23,0) ; "RTN","SD11SUPP",24,0) ADD ;** Add DSS IDs "RTN","SD11SUPP",25,0) ; "RTN","SD11SUPP",26,0) ; SDXX is in format: "RTN","SD11SUPP",27,0) ; STOP CODE NAME^AMIS #^RESTRICTION TYPE^REST. DATE^CDR # "RTN","SD11SUPP",28,0) ; "RTN","SD11SUPP",29,0) N SDX,SDXX "RTN","SD11SUPP",30,0) S SDVAR=1 "RTN","SD11SUPP",31,0) D MES^XPDUTL("") "RTN","SD11SUPP",32,0) D BMES^XPDUTL(">>> Adding new Clinic Stops (DSS IDs) to CLINIC STOP File (#40.7)...") "RTN","SD11SUPP",33,0) ; "RTN","SD11SUPP",34,0) ;** NOTE: The following line is for DSS IDs that are not yet active "RTN","SD11SUPP",35,0) D BMES^XPDUTL(" [NOTE: These Stop Codes CANNOT be used UNTIL 3/1/2011]") "RTN","SD11SUPP",36,0) S DIC(0)="L",DLAYGO=40.7,DIC="^DIC(40.7," "RTN","SD11SUPP",37,0) F SDX=1:1 K DD,DO,DA S SDXX=$P($T(NEW+SDX),";;",2) Q:SDXX="QUIT" DO "RTN","SD11SUPP",38,0) .S DIC("DR")="1///"_$P(SDXX,"^",2)_$S('+$P(SDXX,U,5):"",1:";4///"_$P(SDXX,"^",5)) "RTN","SD11SUPP",39,0) .S DIC("DR")=DIC("DR")_";5///"_$P(SDXX,"^",3)_";6///"_$P(SDXX,"^",4) "RTN","SD11SUPP",40,0) .S X=$P(SDXX,"^",1) "RTN","SD11SUPP",41,0) .I '$D(^DIC(40.7,"C",$P(SDXX,"^",2))) D FILE^DICN,MESS Q "RTN","SD11SUPP",42,0) .I $D(^DIC(40.7,"C",$P(SDXX,"^",2))) D EDIT(SDXX),MESSEX "RTN","SD11SUPP",43,0) K DIC,DLAYGO,X "RTN","SD11SUPP",44,0) Q "RTN","SD11SUPP",45,0) ; "RTN","SD11SUPP",46,0) EDIT(SDXX) ;- Edit fields w/new values if stop code record already exists "RTN","SD11SUPP",47,0) ; "RTN","SD11SUPP",48,0) Q:$G(SDXX)="" "RTN","SD11SUPP",49,0) N DA,DIE,DLAYGO,DR "RTN","SD11SUPP",50,0) S DA=+$O(^DIC(40.7,"C",+$P(SDXX,"^",2),0)) "RTN","SD11SUPP",51,0) Q:'DA "RTN","SD11SUPP",52,0) S DIE="^DIC(40.7,",DR=".01///"_$P(SDXX,"^")_";1///"_$P(SDXX,"^",2)_";2///@"_$S('+$P(SDXX,U,5):"",1:";4///"_$P(SDXX,"^",5))_";5///"_$P(SDXX,"^",3)_";6///"_$P(SDXX,"^",4) "RTN","SD11SUPP",53,0) D ^DIE "RTN","SD11SUPP",54,0) Q "RTN","SD11SUPP",55,0) INACT ;** Inactivate DSS IDs "RTN","SD11SUPP",56,0) ; "RTN","SD11SUPP",57,0) ; SDXX is in format: "RTN","SD11SUPP",58,0) ; AMIS #^^INACTIVATION DATE (in FileMan format) "RTN","SD11SUPP",59,0) ; "RTN","SD11SUPP",60,0) N SDX,SDDA,SDXX,SDINDT,SDEXDT "RTN","SD11SUPP",61,0) S SDVAR=1 "RTN","SD11SUPP",62,0) D MES^XPDUTL("") "RTN","SD11SUPP",63,0) D BMES^XPDUTL(">>> Inactivating Clinic Stops (DSS IDs) in CLINIC STOP File (#40.7)...") "RTN","SD11SUPP",64,0) D BMES^XPDUTL(" [NOTE: These Stop Codes CANNOT be used AFTER the indicated inactivation date]") "RTN","SD11SUPP",65,0) F SDX=1:1 K DD,DO,DA S SDXX=$P($T(OLD+SDX),";;",2) Q:SDXX="QUIT" DO "RTN","SD11SUPP",66,0) . I +$P(SDXX,"^",3) D "RTN","SD11SUPP",67,0) .. S X=$P(SDXX,"^",3) "RTN","SD11SUPP",68,0) .. ; "RTN","SD11SUPP",69,0) .. ;- Validate date passed in "RTN","SD11SUPP",70,0) .. S %DT="FTX" "RTN","SD11SUPP",71,0) .. D ^%DT "RTN","SD11SUPP",72,0) .. Q:Y<0 "RTN","SD11SUPP",73,0) .. S SDINDT=Y "RTN","SD11SUPP",74,0) .. D DD^%DT "RTN","SD11SUPP",75,0) .. S SDEXDT=Y "RTN","SD11SUPP",76,0) .. S SDDA=0 "RTN","SD11SUPP",77,0) .. F S SDDA=$O(^DIC(40.7,"C",+SDXX,SDDA)) Q:'SDDA D "RTN","SD11SUPP",78,0) ... I $D(^DIC(40.7,SDDA,0)) D "RTN","SD11SUPP",79,0) .... S DA=SDDA,DR="2////^S X=SDINDT",DIE="^DIC(40.7," "RTN","SD11SUPP",80,0) .... D ^DIE,MESI(SDEXDT) "RTN","SD11SUPP",81,0) K %,%H,%I,DR,DA,DIC,DIE,DLAYGO,X,%DT,Y "RTN","SD11SUPP",82,0) Q "RTN","SD11SUPP",83,0) ; "RTN","SD11SUPP",84,0) CHANGE ;** Change DSS ID names "RTN","SD11SUPP",85,0) ; "RTN","SD11SUPP",86,0) ; SDXX is in format: "RTN","SD11SUPP",87,0) ; STOP CODE NAME^AMIS #^^NEW STOP CODE NAME "RTN","SD11SUPP",88,0) ; "RTN","SD11SUPP",89,0) N SDX,SDXX,SDDA "RTN","SD11SUPP",90,0) S SDVAR=1 "RTN","SD11SUPP",91,0) D MES^XPDUTL("") "RTN","SD11SUPP",92,0) D BMES^XPDUTL(">>> Changing Clinic Stop (DSS ID) names in CLINIC STOP File (#40.7)...") "RTN","SD11SUPP",93,0) F SDX=1:1 K DD,DO,DA S SDXX=$P($T(CHNG+SDX),";;",2) Q:SDXX="QUIT" DO "RTN","SD11SUPP",94,0) .S SDDA=+$O(^DIC(40.7,"C",$P(SDXX,U,2),0)) "RTN","SD11SUPP",95,0) .I $D(^DIC(40.7,SDDA,0)) I $P(^(0),U,3)="" D "RTN","SD11SUPP",96,0) ..S DA=SDDA,DR=".01///"_$P(SDXX,U,4),DIE="^DIC(40.7," "RTN","SD11SUPP",97,0) ..D ^DIE,MESC "RTN","SD11SUPP",98,0) K DIE,DR,DA "RTN","SD11SUPP",99,0) Q "RTN","SD11SUPP",100,0) ; "RTN","SD11SUPP",101,0) CDRNUM ;** Change CDR numbers "RTN","SD11SUPP",102,0) ; "RTN","SD11SUPP",103,0) ; SDXX is in format: "RTN","SD11SUPP",104,0) ; STOP CODE NAME (AMIS #) ^ AMIS # ^ OLD CDR # ^ NEW CDR # "RTN","SD11SUPP",105,0) ; "RTN","SD11SUPP",106,0) N SDX,SDXX,SDDA "RTN","SD11SUPP",107,0) S SDVAR=2 "RTN","SD11SUPP",108,0) D MES^XPDUTL("") "RTN","SD11SUPP",109,0) D BMES^XPDUTL(">>> Changing CDR numbers in CLINIC STOP File (#40.7)...") "RTN","SD11SUPP",110,0) F SDX=1:1 K DD,DO,DA S SDXX=$P($T(CDR+SDX),";;",2) Q:SDXX="QUIT" DO "RTN","SD11SUPP",111,0) .S SDDA=+$O(^DIC(40.7,"C",$P(SDXX,U,2),0)) "RTN","SD11SUPP",112,0) .I $D(^DIC(40.7,SDDA,0)) DO "RTN","SD11SUPP",113,0) ..S DA=SDDA,DR="4///"_$P(SDXX,U,4),DIE="^DIC(40.7," "RTN","SD11SUPP",114,0) ..D ^DIE,MESN "RTN","SD11SUPP",115,0) K DIE,DR,DA,X "RTN","SD11SUPP",116,0) Q "RTN","SD11SUPP",117,0) ; "RTN","SD11SUPP",118,0) REACT ;** Reactivate DSS IDs "RTN","SD11SUPP",119,0) ; "RTN","SD11SUPP",120,0) ; SDXX is in format: "RTN","SD11SUPP",121,0) ; AMIS #^ "RTN","SD11SUPP",122,0) ; "RTN","SD11SUPP",123,0) N SDX,SDDA,SDXX "RTN","SD11SUPP",124,0) S SDVAR=1 "RTN","SD11SUPP",125,0) D MES^XPDUTL("") "RTN","SD11SUPP",126,0) D BMES^XPDUTL(">>> Reactivating Clinic Stops (DSS IDs) in CLINIC STOP File (#40.7)...") "RTN","SD11SUPP",127,0) ;Inactivation date is an uneditable field, cannot use DIE to delete so "RTN","SD11SUPP",128,0) ;must manually set piece to null if stop code being reactivated. "RTN","SD11SUPP",129,0) F SDX=1:1 K DD,DO,DA S SDXX=$P($T(ACT+SDX),";;",2) Q:SDXX="QUIT" D "RTN","SD11SUPP",130,0) .S SDDA=+$O(^DIC(40.7,"C",+SDXX,0)) "RTN","SD11SUPP",131,0) .I $P($G(^DIC(40.7,SDDA,0)),"^",3)'="" S $P(^DIC(40.7,SDDA,0),U,3)="" D MESA "RTN","SD11SUPP",132,0) .I $P(^DIC(40.7,SDDA,0),U,2)=511 I $P(^(0),U,6)'="E" D "RTN","SD11SUPP",133,0) ..S DIE="^DIC(40.7,",DA=SDDA,DR="5///E" D ^DIE "RTN","SD11SUPP",134,0) ..K DIE,DA,DR "RTN","SD11SUPP",135,0) Q "RTN","SD11SUPP",136,0) ; "RTN","SD11SUPP",137,0) RESTR ;** Change Restriction Data "RTN","SD11SUPP",138,0) ; "RTN","SD11SUPP",139,0) ; SDXX is in format: "RTN","SD11SUPP",140,0) ; STOP CODE NAME^STOP CODE NUMBER^RESTRICTION TYPE^RESTRICTION DATE "RTN","SD11SUPP",141,0) ; "RTN","SD11SUPP",142,0) N SDX,SDXX,SDDA "RTN","SD11SUPP",143,0) S SDVAR=3 "RTN","SD11SUPP",144,0) D MES^XPDUTL("") "RTN","SD11SUPP",145,0) D BMES^XPDUTL(">>> Changing Restriction Data in CLINIC STOP File (#40.7)...") "RTN","SD11SUPP",146,0) F SDX=1:1 K DD,DO,DA S SDXX=$P($T(REST+SDX),";;",2) Q:SDXX="QUIT" D "RTN","SD11SUPP",147,0) .S SDDA=+$O(^DIC(40.7,"C",$P(SDXX,U,2),0)) "RTN","SD11SUPP",148,0) .I $D(^DIC(40.7,SDDA,0)) I $P(^(0),U,3)="" D "RTN","SD11SUPP",149,0) ..S DA=SDDA,DR="5///"_$P(SDXX,U,3)_";6///@",DIE="^DIC(40.7," "RTN","SD11SUPP",150,0) ..D ^DIE,MESR "RTN","SD11SUPP",151,0) K DIE,DR,DA,X "RTN","SD11SUPP",152,0) Q "RTN","SD11SUPP",153,0) ; "RTN","SD11SUPP",154,0) MESS ;** Add message "RTN","SD11SUPP",155,0) N ECXADMSG "RTN","SD11SUPP",156,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD11SUPP",157,0) D MES^XPDUTL(" ") "RTN","SD11SUPP",158,0) S ECXADMSG="Added: "_$P(SDXX,"^",2)_" "_$P(SDXX,"^") "RTN","SD11SUPP",159,0) I $P(SDXX,"^",5)'="" S ECXADMSG=ECXADMSG_" [CDR#: "_$P(SDXX,"^",5)_"]" "RTN","SD11SUPP",160,0) D MES^XPDUTL(ECXADMSG) "RTN","SD11SUPP",161,0) I $P(SDXX,"^",3)'="" S ECXADMSG=" Restricted Type: "_$P(SDXX,"^",3)_" Restricted Date: "_$P(SDXX,"^",4) "RTN","SD11SUPP",162,0) D MES^XPDUTL(ECXADMSG) "RTN","SD11SUPP",163,0) K SDVAR "RTN","SD11SUPP",164,0) Q "RTN","SD11SUPP",165,0) ; "RTN","SD11SUPP",166,0) MESSEX ;** Display message if stop code already exists "RTN","SD11SUPP",167,0) N ECXADMSG "RTN","SD11SUPP",168,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD11SUPP",169,0) D MES^XPDUTL(" ") "RTN","SD11SUPP",170,0) S ECXADMSG=" "_$P(SDXX,"^",2)_" "_$P(SDXX,"^")_" already exists." "RTN","SD11SUPP",171,0) D MES^XPDUTL(ECXADMSG) "RTN","SD11SUPP",172,0) K SDVAR "RTN","SD11SUPP",173,0) Q "RTN","SD11SUPP",174,0) ; "RTN","SD11SUPP",175,0) MESI(SDEXDT) ;** Inactivate message "RTN","SD11SUPP",176,0) ; "RTN","SD11SUPP",177,0) ; Parameter: "RTN","SD11SUPP",178,0) ; SDEXDT - Date inactivation affective (External Format) "RTN","SD11SUPP",179,0) ; "RTN","SD11SUPP",180,0) N SDINMSG "RTN","SD11SUPP",181,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD11SUPP",182,0) I $G(SDEXDT)="" S SDEXDT="UNKNOWN" "RTN","SD11SUPP",183,0) D MES^XPDUTL(" ") "RTN","SD11SUPP",184,0) S SDINMSG="Inactivated: "_+SDXX_" "_$P($G(^DIC(40.7,SDDA,0)),"^")_" as of "_SDEXDT "RTN","SD11SUPP",185,0) D MES^XPDUTL(SDINMSG) "RTN","SD11SUPP",186,0) K SDVAR "RTN","SD11SUPP",187,0) Q "RTN","SD11SUPP",188,0) ; "RTN","SD11SUPP",189,0) MESA ;** Reactivate message "RTN","SD11SUPP",190,0) ; "RTN","SD11SUPP",191,0) N SDACMSG "RTN","SD11SUPP",192,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD11SUPP",193,0) D MES^XPDUTL(" ") "RTN","SD11SUPP",194,0) S SDACMSG="Reactivated: "_+SDXX_" "_$P($G(^DIC(40.7,SDDA,0)),"^") "RTN","SD11SUPP",195,0) D MES^XPDUTL(SDACMSG) "RTN","SD11SUPP",196,0) K SDVAR "RTN","SD11SUPP",197,0) Q "RTN","SD11SUPP",198,0) ; "RTN","SD11SUPP",199,0) MESC ;** Change message "RTN","SD11SUPP",200,0) N SDCMSG,SDCMSG1 "RTN","SD11SUPP",201,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD11SUPP",202,0) D MES^XPDUTL(" ") "RTN","SD11SUPP",203,0) S SDCMSG="Changed: "_$P(SDXX,U,2)_" "_$P(SDXX,U) "RTN","SD11SUPP",204,0) S SDCMSG1=" to: "_$P(SDXX,U,2)_" "_$P(SDXX,U,4) "RTN","SD11SUPP",205,0) D MES^XPDUTL(SDCMSG) "RTN","SD11SUPP",206,0) D MES^XPDUTL(SDCMSG1) "RTN","SD11SUPP",207,0) K SDVAR "RTN","SD11SUPP",208,0) Q "RTN","SD11SUPP",209,0) ; "RTN","SD11SUPP",210,0) MESN ;** Change number "RTN","SD11SUPP",211,0) N SDNMSG,SDNMSG1 "RTN","SD11SUPP",212,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD11SUPP",213,0) D MES^XPDUTL(" ") "RTN","SD11SUPP",214,0) S SDNMSG=" Changed: "_$P(SDXX,U,2)_" "_$P(SDXX,U) "RTN","SD11SUPP",215,0) S SDNMSG1=" : "_$P(SDXX,U,3)_" Date: "_$P(SDXX,U,5) "RTN","SD11SUPP",216,0) D MES^XPDUTL(SDNMSG) "RTN","SD11SUPP",217,0) D MES^XPDUTL(SDNMSG1) "RTN","SD11SUPP",218,0) K SDVAR "RTN","SD11SUPP",219,0) Q "RTN","SD11SUPP",220,0) MESR ;** Restricting Stop Code "RTN","SD11SUPP",221,0) N SDNMSG,SDNMSG1 "RTN","SD11SUPP",222,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD11SUPP",223,0) D MES^XPDUTL(" ") "RTN","SD11SUPP",224,0) W !,"Changed: ",?11,$P(SDXX,U,2),?26,$P(SDXX,U),?57,$P(SDXX,U,5),?67,$P(SDXX,U,6) "RTN","SD11SUPP",225,0) W !?5,"to:",?57,$P(SDXX,U,3),?67,$P(SDXX,U,4) "RTN","SD11SUPP",226,0) K SDVAR "RTN","SD11SUPP",227,0) Q "RTN","SD11SUPP",228,0) ; "RTN","SD11SUPP",229,0) HDR(SDVAR) ;- Header "RTN","SD11SUPP",230,0) Q:'$G(SDVAR) "RTN","SD11SUPP",231,0) N SDHDR "RTN","SD11SUPP",232,0) S SDHDR=$P($T(@("HDR"_SDVAR)),";;",2) "RTN","SD11SUPP",233,0) D BMES^XPDUTL(SDHDR) "RTN","SD11SUPP",234,0) Q "RTN","SD11SUPP",235,0) ; "RTN","SD11SUPP",236,0) ; "RTN","SD11SUPP",237,0) HDR1 ;; Stop Code Name "RTN","SD11SUPP",238,0) ; "RTN","SD11SUPP",239,0) HDR2 ;; CDR Stop Code Name "RTN","SD11SUPP",240,0) ; "RTN","SD11SUPP",241,0) HDR3 ;; Stop Code Name Rest. Type Date "RTN","SD11SUPP",242,0) ; "RTN","SD11SUPP",243,0) ; "RTN","SD11SUPP",244,0) UPDATEDD(TYPE) ;update DD for 40.7 to either lock file and prohibit edits or "RTN","SD11SUPP",245,0) ;unlock file to allow edits "RTN","SD11SUPP",246,0) ;TYPE="C" to lock file or TYPE="O" to unlock file "RTN","SD11SUPP",247,0) N I "RTN","SD11SUPP",248,0) I TYPE="C" D ;restrict file edits "lockdown" file "RTN","SD11SUPP",249,0) .S ^DD(40.7,.01,7.5)="I $G(DIC(0))[""L"",'$D(SDAUMF) D EN^DDIOL(""Entries can only be added by the Stop Code Counsel."","""",""!?5"") K X" "RTN","SD11SUPP",250,0) .F I=1:1:6 I $P(^DD(40.7,I,0),U,2)'["I" S $P(^DD(40.7,I,0),U,2)=$P(^DD(40.7,I,0),U,2)_"I" ;makes all fields uneditable "RTN","SD11SUPP",251,0) I TYPE="O" D ;remove restrictions "unlock" file "RTN","SD11SUPP",252,0) .K ^DD(40.7,.01,7.5) "RTN","SD11SUPP",253,0) .F I=1:1:6 S $P(^DD(40.7,I,0),U,2)=$TR($P(^DD(40.7,I,0),U,2),"I","") "RTN","SD11SUPP",254,0) Q "RTN","SD11SUPP",255,0) ; "RTN","SD11SUPP",256,0) ; "RTN","SD11SUPP",257,0) NEW ;DSS IDs to add- ex ;;STOP CODE NAME^NUMBER^RESTRICTION TYPE^RESTRICTION DATE^CDR "RTN","SD11SUPP",258,0) ;;BRACHYTHERAPY TREATMENT^158^E "RTN","SD11SUPP",259,0) ;;QUIT "RTN","SD11SUPP",260,0) ; "RTN","SD11SUPP",261,0) OLD ;DSS IDs to be inactivated- ex. ;;AMIS NUMBER^^INACTIVE DATE "RTN","SD11SUPP",262,0) ;;219^TBI (TRAUMATIC BRAIN INJURY)^03/1/2011 "RTN","SD11SUPP",263,0) ;;QUIT "RTN","SD11SUPP",264,0) ; "RTN","SD11SUPP",265,0) CHNG ;DSS ID name changes- example ;;STOP CODE NAME^NUMBER^^NEW NAME "RTN","SD11SUPP",266,0) ;;POLYTRAUMA INDIV^197^^POLYTRAUMA/TBI IND "RTN","SD11SUPP",267,0) ;;POLYTRAUMA GRP^198^^POLYTRAUMA/TBI GRP "RTN","SD11SUPP",268,0) ;;POLYTRAUMA PHONE^199^^TELEPHONE POLYTRAUMA/TBI "RTN","SD11SUPP",269,0) ;;PRIMARY CARE GROUP PRI ONLY^348^^PRIMARY CARE SHARED APPT "RTN","SD11SUPP",270,0) ;;MED SPECIALTY GROUP PRI ONLY^394^^MED SPECIALTY SHARED APPT "RTN","SD11SUPP",271,0) ;;NEUROBEHAVIORAL-INDIVIDUAL^511^^GRANT AND PER DIEM "RTN","SD11SUPP",272,0) ;;QUIT "RTN","SD11SUPP",273,0) ; "RTN","SD11SUPP",274,0) CDR ;CDR account change- ex. ;;STOP CODE NAME^NUMBER^CDR # (old)^CDR# (new) "RTN","SD11SUPP",275,0) ;;QUIT "RTN","SD11SUPP",276,0) ; "RTN","SD11SUPP",277,0) ACT ;DSS IDs to be reactivated- example ;;NUMBER^ "RTN","SD11SUPP",278,0) ;;511^ "RTN","SD11SUPP",279,0) ;;QUIT "RTN","SD11SUPP",280,0) ; "RTN","SD11SUPP",281,0) REST ;Change restriction - ;;STOP CODE NAME^NUMBER^REST TYPE^RES DATE^OLD "RTN","SD11SUPP",282,0) ;;NON-OR ANESTHESIA PROCEDURES^434^E^^P "RTN","SD11SUPP",283,0) ;;HCHV/HCMI^529^E^^P "RTN","SD11SUPP",284,0) ;;QUIT "VER") 8.0^22.0 "BLD",8457,6) ^469 **END** **END**