EMERGENCY Released SD*5.3*661 SEQ #541 Extracted from mail message **KIDS**:SD*5.3*661^ **INSTALL NAME** SD*5.3*661 "BLD",10408,0) SD*5.3*661^SCHEDULING^0^3170207^y "BLD",10408,1,0) ^^12^12^3170201^ "BLD",10408,1,1,0) SD*5.3*661 adds four new Stop Codes to the CLINIC STOP (#40.7) file as "BLD",10408,1,2,0) requested by the Office of Finance, Managerial Cost Accounting Office "BLD",10408,1,3,0) (MCAO). "BLD",10408,1,4,0) "BLD",10408,1,5,0) The Comprehensive Addiction and Recovery Act (CARA) of 2016 directs the "BLD",10408,1,6,0) Department of Veterans Affairs to expand its opioid safety initiative to "BLD",10408,1,7,0) include all VA medical facilities. CARA exempts Veterans from paying a "BLD",10408,1,8,0) copayment to the VA for education on opioid safety to include overdose "BLD",10408,1,9,0) prevention and treatment for overdose. In order to schedule, track and "BLD",10408,1,10,0) exempt from copayments these opioid education visits, designated clinics "BLD",10408,1,11,0) must be established. An emergency Stop Code patch is required to "BLD",10408,1,12,0) implement these clinics by March 15, 2017. "BLD",10408,4,0) ^9.64PA^^ "BLD",10408,6.3) 4 "BLD",10408,"INIT") EN^SD53M17A "BLD",10408,"KRN",0) ^9.67PA^779.2^20 "BLD",10408,"KRN",.4,0) .4 "BLD",10408,"KRN",.401,0) .401 "BLD",10408,"KRN",.402,0) .402 "BLD",10408,"KRN",.403,0) .403 "BLD",10408,"KRN",.5,0) .5 "BLD",10408,"KRN",.84,0) .84 "BLD",10408,"KRN",3.6,0) 3.6 "BLD",10408,"KRN",3.8,0) 3.8 "BLD",10408,"KRN",9.2,0) 9.2 "BLD",10408,"KRN",9.8,0) 9.8 "BLD",10408,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",10408,"KRN",9.8,"NM",1,0) SD53M17A^^0^B69741875 "BLD",10408,"KRN",9.8,"NM","B","SD53M17A",1) "BLD",10408,"KRN",19,0) 19 "BLD",10408,"KRN",19.1,0) 19.1 "BLD",10408,"KRN",101,0) 101 "BLD",10408,"KRN",409.61,0) 409.61 "BLD",10408,"KRN",771,0) 771 "BLD",10408,"KRN",779.2,0) 779.2 "BLD",10408,"KRN",870,0) 870 "BLD",10408,"KRN",8989.51,0) 8989.51 "BLD",10408,"KRN",8989.52,0) 8989.52 "BLD",10408,"KRN",8994,0) 8994 "BLD",10408,"KRN","B",.4,.4) "BLD",10408,"KRN","B",.401,.401) "BLD",10408,"KRN","B",.402,.402) "BLD",10408,"KRN","B",.403,.403) "BLD",10408,"KRN","B",.5,.5) "BLD",10408,"KRN","B",.84,.84) "BLD",10408,"KRN","B",3.6,3.6) "BLD",10408,"KRN","B",3.8,3.8) "BLD",10408,"KRN","B",9.2,9.2) "BLD",10408,"KRN","B",9.8,9.8) "BLD",10408,"KRN","B",19,19) "BLD",10408,"KRN","B",19.1,19.1) "BLD",10408,"KRN","B",101,101) "BLD",10408,"KRN","B",409.61,409.61) "BLD",10408,"KRN","B",771,771) "BLD",10408,"KRN","B",779.2,779.2) "BLD",10408,"KRN","B",870,870) "BLD",10408,"KRN","B",8989.51,8989.51) "BLD",10408,"KRN","B",8989.52,8989.52) "BLD",10408,"KRN","B",8994,8994) "BLD",10408,"QDEF") ^^^^NO^^^^^^NO "BLD",10408,"QUES",0) ^9.62^^ "INIT") EN^SD53M17A "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) 661^3170207 "PKG",16,22,1,"PAH",1,1,0) ^^12^12^3170207 "PKG",16,22,1,"PAH",1,1,1,0) SD*5.3*661 adds four new Stop Codes to the CLINIC STOP (#40.7) file as "PKG",16,22,1,"PAH",1,1,2,0) requested by the Office of Finance, Managerial Cost Accounting Office "PKG",16,22,1,"PAH",1,1,3,0) (MCAO). "PKG",16,22,1,"PAH",1,1,4,0) "PKG",16,22,1,"PAH",1,1,5,0) The Comprehensive Addiction and Recovery Act (CARA) of 2016 directs the "PKG",16,22,1,"PAH",1,1,6,0) Department of Veterans Affairs to expand its opioid safety initiative to "PKG",16,22,1,"PAH",1,1,7,0) include all VA medical facilities. CARA exempts Veterans from paying a "PKG",16,22,1,"PAH",1,1,8,0) copayment to the VA for education on opioid safety to include overdose "PKG",16,22,1,"PAH",1,1,9,0) prevention and treatment for overdose. In order to schedule, track and "PKG",16,22,1,"PAH",1,1,10,0) exempt from copayments these opioid education visits, designated clinics "PKG",16,22,1,"PAH",1,1,11,0) must be established. An emergency Stop Code patch is required to "PKG",16,22,1,"PAH",1,1,12,0) implement these clinics by March 15, 2017. "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","SD53M17A") 0^1^B69741875^n/a "RTN","SD53M17A",1,0) SD53M17A ;ALB/TXH - Stop Code Updates;FEB 1, 2017 "RTN","SD53M17A",2,0) ;;5.3;Scheduling;**661**;AUG 13, 1993;Build 4 "RTN","SD53M17A",3,0) ; "RTN","SD53M17A",4,0) ; This patch adds 4 stop codes to the CLINIC STOP file [^DIC(40.7,]. "RTN","SD53M17A",5,0) ; "RTN","SD53M17A",6,0) Q "RTN","SD53M17A",7,0) ; "RTN","SD53M17A",8,0) EN ; Add/inactivate/change/reactivate DSS IDs (stop codes). "RTN","SD53M17A",9,0) ; The following code executes if file modifications exist. "RTN","SD53M17A",10,0) ; "RTN","SD53M17A",11,0) N SDVAR,SDAUMF,SDTYPE "RTN","SD53M17A",12,0) S SDAUMF=1 "RTN","SD53M17A",13,0) L +^DIC(40.7):$S($G(DILOCKTM)>0:DILOCKTM,1:5) I '$T D Q "RTN","SD53M17A",14,0) . D BMES^XPDUTL("The CLINIC STOP file is not currently available. Please try again later.") "RTN","SD53M17A",15,0) D UPDATEDD("O") ;unlock file to allow edits "RTN","SD53M17A",16,0) D:$P($T(NEW+1),";;",2)'="QUIT" ADD "RTN","SD53M17A",17,0) D:$P($T(OLD+1),";;",2)'="QUIT" INACT "RTN","SD53M17A",18,0) D:$P($T(ACT+1),";;",2)'="QUIT" REACT "RTN","SD53M17A",19,0) D:$P($T(CHNG+1),";;",2)'="QUIT" CHANGE "RTN","SD53M17A",20,0) D:$P($T(CDR+1),";;",2)'="QUIT" CDRNUM "RTN","SD53M17A",21,0) D:$P($T(REST+1),";;",2)'="QUIT" RESTR "RTN","SD53M17A",22,0) S SDAUMF=0 "RTN","SD53M17A",23,0) D UPDATEDD("C") ;lock file back down "RTN","SD53M17A",24,0) L -^DIC(40.7) "RTN","SD53M17A",25,0) Q "RTN","SD53M17A",26,0) ; "RTN","SD53M17A",27,0) ; "RTN","SD53M17A",28,0) ADD ; Add DSS IDs "RTN","SD53M17A",29,0) ; "RTN","SD53M17A",30,0) ; SDXX is in format: "RTN","SD53M17A",31,0) ; STOP CODE NAME^AMIS #^RESTRICTION TYPE^REST. DATE^CDR # "RTN","SD53M17A",32,0) ; "RTN","SD53M17A",33,0) N SDX,SDXX "RTN","SD53M17A",34,0) S SDVAR=1 "RTN","SD53M17A",35,0) D MES^XPDUTL("") "RTN","SD53M17A",36,0) D BMES^XPDUTL(">>> Adding new Clinic Stops to CLINIC STOP (#40.7) file...") "RTN","SD53M17A",37,0) ; "RTN","SD53M17A",38,0) ; NOTE: The following line is for DSS IDs that are not yet active "RTN","SD53M17A",39,0) D BMES^XPDUTL(" [NOTE: These new Stop Codes will take effect when this patch is installed.]") "RTN","SD53M17A",40,0) S DIC(0)="L",DLAYGO=40.7,DIC="^DIC(40.7," "RTN","SD53M17A",41,0) F SDX=1:1 K DD,DO,DA S SDXX=$P($T(NEW+SDX),";;",2) Q:SDXX="QUIT" DO "RTN","SD53M17A",42,0) .S DIC("DR")="1////"_$P(SDXX,"^",2)_$S('+$P(SDXX,U,5):"",1:";4////"_$P(SDXX,"^",5)) "RTN","SD53M17A",43,0) .S DIC("DR")=DIC("DR")_";5////"_$P(SDXX,"^",3)_";6///"_$P(SDXX,"^",4) "RTN","SD53M17A",44,0) .S X=$P(SDXX,"^",1) "RTN","SD53M17A",45,0) .I '$D(^DIC(40.7,"C",$P(SDXX,"^",2))) D FILE^DICN,MESS Q "RTN","SD53M17A",46,0) .I $D(^DIC(40.7,"C",$P(SDXX,"^",2))) D EDIT(SDXX),MESSEX "RTN","SD53M17A",47,0) K DIC,DLAYGO,X "RTN","SD53M17A",48,0) Q "RTN","SD53M17A",49,0) ; "RTN","SD53M17A",50,0) EDIT(SDXX) ; Edit fields w/new values if stop code record already exists "RTN","SD53M17A",51,0) ; "RTN","SD53M17A",52,0) Q:$G(SDXX)="" "RTN","SD53M17A",53,0) N DA,DIE,DLAYGO,DR "RTN","SD53M17A",54,0) S DA=+$O(^DIC(40.7,"C",+$P(SDXX,"^",2),0)) "RTN","SD53M17A",55,0) Q:'DA "RTN","SD53M17A",56,0) S DIE="^DIC(40.7," "RTN","SD53M17A",57,0) S 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","SD53M17A",58,0) D ^DIE "RTN","SD53M17A",59,0) Q "RTN","SD53M17A",60,0) INACT ; Inactivate DSS IDs "RTN","SD53M17A",61,0) ; "RTN","SD53M17A",62,0) ; SDXX is in format: "RTN","SD53M17A",63,0) ; AMIS #^^INACTIVATION DATE (in FileMan format) "RTN","SD53M17A",64,0) ; "RTN","SD53M17A",65,0) N SDX,SDDA,SDXX,SDINDT,SDEXDT "RTN","SD53M17A",66,0) S SDVAR=1 "RTN","SD53M17A",67,0) D MES^XPDUTL("") "RTN","SD53M17A",68,0) D BMES^XPDUTL(">>> Inactivating Clinic Stops in CLINIC STOP (#40.7) file...") "RTN","SD53M17A",69,0) D BMES^XPDUTL(" [NOTE: These Stop Codes CANNOT be used AFTER the indicated inactivation date]") "RTN","SD53M17A",70,0) F SDX=1:1 K DD,DO,DA S SDXX=$P($T(OLD+SDX),";;",2) Q:SDXX="QUIT" DO "RTN","SD53M17A",71,0) . I +$P(SDXX,"^",3) D "RTN","SD53M17A",72,0) .. S X=$P(SDXX,"^",3) "RTN","SD53M17A",73,0) .. ; "RTN","SD53M17A",74,0) .. ;- Validate date passed in "RTN","SD53M17A",75,0) .. S %DT="FTX" "RTN","SD53M17A",76,0) .. D ^%DT "RTN","SD53M17A",77,0) .. Q:Y<0 "RTN","SD53M17A",78,0) .. S SDINDT=Y "RTN","SD53M17A",79,0) .. D DD^%DT "RTN","SD53M17A",80,0) .. S SDEXDT=Y "RTN","SD53M17A",81,0) .. S SDDA=0 "RTN","SD53M17A",82,0) .. F S SDDA=$O(^DIC(40.7,"C",+SDXX,SDDA)) Q:'SDDA D "RTN","SD53M17A",83,0) ... I $D(^DIC(40.7,SDDA,0)) I $P(^(0),U,3)="" D "RTN","SD53M17A",84,0) .... S DA=SDDA,DR="2////^S X=SDINDT",DIE="^DIC(40.7," "RTN","SD53M17A",85,0) .... D ^DIE,MESI(SDEXDT) "RTN","SD53M17A",86,0) K %,%H,%I,DR,DA,DIC,DIE,DLAYGO,X,%DT,Y "RTN","SD53M17A",87,0) Q "RTN","SD53M17A",88,0) ; "RTN","SD53M17A",89,0) CHANGE ; Change DSS ID names "RTN","SD53M17A",90,0) ; "RTN","SD53M17A",91,0) ; SDXX is in format: "RTN","SD53M17A",92,0) ; STOP CODE NAME^AMIS #^^NEW STOP CODE NAME "RTN","SD53M17A",93,0) ; "RTN","SD53M17A",94,0) N SDX,SDXX,SDDA "RTN","SD53M17A",95,0) S SDVAR=1 "RTN","SD53M17A",96,0) D MES^XPDUTL("") "RTN","SD53M17A",97,0) D BMES^XPDUTL(">>> Changing Clinic Stop names in CLINIC STOP (#40.7) file...") "RTN","SD53M17A",98,0) F SDX=1:1 K DD,DO,DA S SDXX=$P($T(CHNG+SDX),";;",2) Q:SDXX="QUIT" DO "RTN","SD53M17A",99,0) .S SDDA=0 "RTN","SD53M17A",100,0) .F S SDDA=$O(^DIC(40.7,"C",$P(SDXX,U,2),SDDA)) Q:'SDDA D "RTN","SD53M17A",101,0) ..I $D(^DIC(40.7,SDDA,0)) I $P(^(0),U,3)="" D "RTN","SD53M17A",102,0) ...S DA=SDDA,DR=".01///"_$P(SDXX,U,4),DIE="^DIC(40.7," "RTN","SD53M17A",103,0) ...D ^DIE,MESC "RTN","SD53M17A",104,0) K DIE,DR,DA "RTN","SD53M17A",105,0) Q "RTN","SD53M17A",106,0) ; "RTN","SD53M17A",107,0) CDRNUM ; Change CDR numbers "RTN","SD53M17A",108,0) ; "RTN","SD53M17A",109,0) ; SDXX is in format: "RTN","SD53M17A",110,0) ; STOP CODE NAME (AMIS #) ^ AMIS # ^ OLD CDR # ^ NEW CDR # "RTN","SD53M17A",111,0) ; "RTN","SD53M17A",112,0) N SDX,SDXX,SDDA "RTN","SD53M17A",113,0) S SDVAR=2 "RTN","SD53M17A",114,0) D MES^XPDUTL("") "RTN","SD53M17A",115,0) D BMES^XPDUTL(">>> Changing CDR numbers in CLINIC STOP (#40.7) file...") "RTN","SD53M17A",116,0) F SDX=1:1 K DD,DO,DA S SDXX=$P($T(CDR+SDX),";;",2) Q:SDXX="QUIT" DO "RTN","SD53M17A",117,0) .S SDDA=+$O(^DIC(40.7,"C",$P(SDXX,U,2),0)) "RTN","SD53M17A",118,0) .I $D(^DIC(40.7,SDDA,0)) DO "RTN","SD53M17A",119,0) ..S DA=SDDA,DR="4///"_$P(SDXX,U,4),DIE="^DIC(40.7," "RTN","SD53M17A",120,0) ..D ^DIE,MESN "RTN","SD53M17A",121,0) K DIE,DR,DA,X "RTN","SD53M17A",122,0) Q "RTN","SD53M17A",123,0) ; "RTN","SD53M17A",124,0) REACT ; Reactivate DSS IDs "RTN","SD53M17A",125,0) ; "RTN","SD53M17A",126,0) ; SDXX is in format: "RTN","SD53M17A",127,0) ; AMIS #^ "RTN","SD53M17A",128,0) ; "RTN","SD53M17A",129,0) N SDX,SDDA,SDXX "RTN","SD53M17A",130,0) S SDVAR=1 "RTN","SD53M17A",131,0) D MES^XPDUTL("") "RTN","SD53M17A",132,0) D BMES^XPDUTL(">>> Reactivating Clinic Stops (DSS IDs) in CLINIC STOP (#40.7) file...") "RTN","SD53M17A",133,0) ; Inactivation date is an uneditable field, cannot use DIE to delete "RTN","SD53M17A",134,0) ; so must manually set piece to null if stop code being reactivated. "RTN","SD53M17A",135,0) F SDX=1:1 K DD,DO,DA S SDXX=$P($T(ACT+SDX),";;",2) Q:SDXX="QUIT" D "RTN","SD53M17A",136,0) .S SDDA=+$O(^DIC(40.7,"C",+SDXX,0)) "RTN","SD53M17A",137,0) .I $P($G(^DIC(40.7,SDDA,0)),"^",3)'="" S $P(^DIC(40.7,SDDA,0),U,3)="" D MESA "RTN","SD53M17A",138,0) Q "RTN","SD53M17A",139,0) ; "RTN","SD53M17A",140,0) RESTR ; Change Restriction Data "RTN","SD53M17A",141,0) ; "RTN","SD53M17A",142,0) ; SDXX is in format: "RTN","SD53M17A",143,0) ; STOP CODE NAME^STOP CODE NUMBER^RESTRICTION TYPE^RESTRICTION DATE "RTN","SD53M17A",144,0) ; "RTN","SD53M17A",145,0) N SDX,SDXX,SDDA "RTN","SD53M17A",146,0) S SDVAR=3 "RTN","SD53M17A",147,0) D MES^XPDUTL("") "RTN","SD53M17A",148,0) D BMES^XPDUTL(">>> Changing Restriction Data in CLINIC STOP (#40.7) file...") "RTN","SD53M17A",149,0) F SDX=1:1 K DD,DO,DA S SDXX=$P($T(REST+SDX),";;",2) Q:SDXX="QUIT" D "RTN","SD53M17A",150,0) .S SDDA=0 "RTN","SD53M17A",151,0) .F S SDDA=$O(^DIC(40.7,"C",$P(SDXX,U,2),SDDA)) Q:'SDDA D "RTN","SD53M17A",152,0) ..I $D(^DIC(40.7,SDDA,0)) I $P(^(0),U,3)="" D "RTN","SD53M17A",153,0) ...S DA=SDDA,DR="5////"_$P(SDXX,U,3)_";6///"_$P(SDXX,U,4),DIE="^DIC(40.7," "RTN","SD53M17A",154,0) ...D ^DIE,MESR "RTN","SD53M17A",155,0) K DIE,DR,DA,X "RTN","SD53M17A",156,0) Q "RTN","SD53M17A",157,0) ; "RTN","SD53M17A",158,0) MESS ; Add message "RTN","SD53M17A",159,0) N ECXADMSG "RTN","SD53M17A",160,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD53M17A",161,0) D MES^XPDUTL(" ") "RTN","SD53M17A",162,0) ; "RTN","SD53M17A",163,0) I Y<0 D "RTN","SD53M17A",164,0) . S ECXADMSG="*** Error adding a new code: "_$P(SDXX,"^",2)_", please try again later. ***" "RTN","SD53M17A",165,0) . D MES^XPDUTL(ECXADMSG) "RTN","SD53M17A",166,0) ; "RTN","SD53M17A",167,0) I Y>0 D "RTN","SD53M17A",168,0) . S ECXADMSG="Added: "_$P(SDXX,"^",2)_" "_$P(SDXX,"^") "RTN","SD53M17A",169,0) . I $P(SDXX,"^",5)'="" S ECXADMSG=ECXADMSG_" [CDR#: "_$P(SDXX,"^",5)_"]" "RTN","SD53M17A",170,0) . D MES^XPDUTL(ECXADMSG) "RTN","SD53M17A",171,0) . I $P(SDXX,"^",3)'="" S ECXADMSG=" Restricted Type: "_$P(SDXX,"^",3)_" Restricted Date: "_$P(SDXX,"^",4) "RTN","SD53M17A",172,0) . D MES^XPDUTL(ECXADMSG) "RTN","SD53M17A",173,0) K SDVAR "RTN","SD53M17A",174,0) Q "RTN","SD53M17A",175,0) ; "RTN","SD53M17A",176,0) MESSEX ; Display message if stop code already exists "RTN","SD53M17A",177,0) N ECXADMSG "RTN","SD53M17A",178,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD53M17A",179,0) D MES^XPDUTL(" ") "RTN","SD53M17A",180,0) S ECXADMSG=" "_$P(SDXX,"^",2)_" "_$P(SDXX,"^")_" already exists." "RTN","SD53M17A",181,0) D MES^XPDUTL(ECXADMSG) "RTN","SD53M17A",182,0) K SDVAR "RTN","SD53M17A",183,0) Q "RTN","SD53M17A",184,0) ; "RTN","SD53M17A",185,0) MESI(SDEXDT) ; Inactivate message "RTN","SD53M17A",186,0) ; "RTN","SD53M17A",187,0) ; Parameter: "RTN","SD53M17A",188,0) ; SDEXDT - Date inactivation affective (External Format) "RTN","SD53M17A",189,0) ; "RTN","SD53M17A",190,0) N SDINMSG "RTN","SD53M17A",191,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD53M17A",192,0) I $G(SDEXDT)="" S SDEXDT="UNKNOWN" "RTN","SD53M17A",193,0) D MES^XPDUTL(" ") "RTN","SD53M17A",194,0) S SDINMSG="Inactivated: "_+SDXX_" "_$P($G(^DIC(40.7,SDDA,0)),"^")_" as of "_SDEXDT "RTN","SD53M17A",195,0) D MES^XPDUTL(SDINMSG) "RTN","SD53M17A",196,0) K SDVAR "RTN","SD53M17A",197,0) Q "RTN","SD53M17A",198,0) ; "RTN","SD53M17A",199,0) MESA ; Reactivate message "RTN","SD53M17A",200,0) ; "RTN","SD53M17A",201,0) N SDACMSG "RTN","SD53M17A",202,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD53M17A",203,0) D MES^XPDUTL(" ") "RTN","SD53M17A",204,0) S SDACMSG="Reactivated: "_+SDXX_" "_$P($G(^DIC(40.7,SDDA,0)),"^") "RTN","SD53M17A",205,0) D MES^XPDUTL(SDACMSG) "RTN","SD53M17A",206,0) K SDVAR "RTN","SD53M17A",207,0) Q "RTN","SD53M17A",208,0) ; "RTN","SD53M17A",209,0) MESC ; Change message "RTN","SD53M17A",210,0) N SDCMSG,SDCMSG1 "RTN","SD53M17A",211,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD53M17A",212,0) D MES^XPDUTL(" ") "RTN","SD53M17A",213,0) S SDCMSG="Changed: "_$P(SDXX,U,2)_" "_$P(SDXX,U) "RTN","SD53M17A",214,0) S SDCMSG1=" to: "_$P(SDXX,U,2)_" "_$P(SDXX,U,4) "RTN","SD53M17A",215,0) D MES^XPDUTL(SDCMSG) "RTN","SD53M17A",216,0) D MES^XPDUTL(SDCMSG1) "RTN","SD53M17A",217,0) K SDVAR "RTN","SD53M17A",218,0) Q "RTN","SD53M17A",219,0) ; "RTN","SD53M17A",220,0) MESN ; Change number "RTN","SD53M17A",221,0) N SDNMSG,SDNMSG1 "RTN","SD53M17A",222,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD53M17A",223,0) D MES^XPDUTL(" ") "RTN","SD53M17A",224,0) S SDNMSG=" Changed: "_$P(SDXX,U,2)_" "_$P(SDXX,U) "RTN","SD53M17A",225,0) S SDNMSG1=" : "_$P(SDXX,U,3)_" Date: "_$P(SDXX,U,5) "RTN","SD53M17A",226,0) D MES^XPDUTL(SDNMSG) "RTN","SD53M17A",227,0) D MES^XPDUTL(SDNMSG1) "RTN","SD53M17A",228,0) K SDVAR "RTN","SD53M17A",229,0) Q "RTN","SD53M17A",230,0) ; "RTN","SD53M17A",231,0) MESR ; Restricting Stop Code "RTN","SD53M17A",232,0) N SDNMSG,SDNMSG1 "RTN","SD53M17A",233,0) I +$G(SDVAR) D HDR(SDVAR) "RTN","SD53M17A",234,0) D MES^XPDUTL(" ") "RTN","SD53M17A",235,0) S SDNMSG="Changed: "_$P(SDXX,U,2)_" "_$P(SDXX,U)_" "_$P(SDXX,U,5)_" "_$P(SDXX,U,6) "RTN","SD53M17A",236,0) S SDNMSG1=" to: "_$P(SDXX,U,3)_" "_$P(SDXX,U,4) "RTN","SD53M17A",237,0) D MES^XPDUTL(SDNMSG) "RTN","SD53M17A",238,0) D MES^XPDUTL(SDNMSG1) "RTN","SD53M17A",239,0) K SDVAR "RTN","SD53M17A",240,0) Q "RTN","SD53M17A",241,0) ; "RTN","SD53M17A",242,0) HDR(SDVAR) ;- Header "RTN","SD53M17A",243,0) Q:'$G(SDVAR) "RTN","SD53M17A",244,0) N SDHDR "RTN","SD53M17A",245,0) S SDHDR=$P($T(@("HDR"_SDVAR)),";;",2) "RTN","SD53M17A",246,0) D BMES^XPDUTL(SDHDR) "RTN","SD53M17A",247,0) Q "RTN","SD53M17A",248,0) ; "RTN","SD53M17A",249,0) HDR1 ;; Stop Code Name "RTN","SD53M17A",250,0) ; "RTN","SD53M17A",251,0) HDR2 ;; CDR Stop Code Name "RTN","SD53M17A",252,0) ; "RTN","SD53M17A",253,0) HDR3 ;; Stop Code Name Rest. Type Date "RTN","SD53M17A",254,0) ; "RTN","SD53M17A",255,0) UPDATEDD(SDTYPE) ; Update DD for #40.7 to either unlock file to allow "RTN","SD53M17A",256,0) ; edits or lock file down to prohibit edits "RTN","SD53M17A",257,0) ; SDTYPE="O" to unlock file and SDTYPE="C" to lock file "RTN","SD53M17A",258,0) N I "RTN","SD53M17A",259,0) I SDTYPE="C" D ;restrict file edits "lockdown" file "RTN","SD53M17A",260,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 Council."","""",""!?5"") K X" "RTN","SD53M17A",261,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","SD53M17A",262,0) I SDTYPE="O" D ;remove restrictions "unlock" file "RTN","SD53M17A",263,0) .K ^DD(40.7,.01,7.5) "RTN","SD53M17A",264,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","SD53M17A",265,0) Q "RTN","SD53M17A",266,0) ; "RTN","SD53M17A",267,0) NEW ; DSS IDs to add - ex. ;;STOP CODE NAME^NUMBER^RESTRICTION TYPE^RESTRICTION DATE^CDR "RTN","SD53M17A",268,0) ;;OEND ED IND^721^S^3/15/2017^ "RTN","SD53M17A",269,0) ;;OEND ED GRP^722^S^3/15/2017^ "RTN","SD53M17A",270,0) ;;OEND ED CVT PT SITE^723^S^3/15/2017^ "RTN","SD53M17A",271,0) ;;OEND ED CVT PRV SITE^724^S^3/15/2017^ "RTN","SD53M17A",272,0) ;;QUIT "RTN","SD53M17A",273,0) ; "RTN","SD53M17A",274,0) OLD ;DSS IDs to be inactivated - ex. ;;AMIS NUMBER^^INACTIVE DATE "RTN","SD53M17A",275,0) ;;QUIT "RTN","SD53M17A",276,0) ; "RTN","SD53M17A",277,0) CHNG ;DSS ID name changes - ex. ;;STOP CODE NAME^NUMBER^^NEW NAME "RTN","SD53M17A",278,0) ;;QUIT "RTN","SD53M17A",279,0) ; "RTN","SD53M17A",280,0) CDR ;CDR account change - ex. ;;STOP CODE NAME^NUMBER^CDR # (old)^CDR# (new) "RTN","SD53M17A",281,0) ;;QUIT "RTN","SD53M17A",282,0) ; "RTN","SD53M17A",283,0) ACT ;DSS IDs to be reactivated - ex. ;;NUMBER^ "RTN","SD53M17A",284,0) ;;QUIT "RTN","SD53M17A",285,0) ; "RTN","SD53M17A",286,0) REST ;Change restriction - ex. ;;STOP CODE NAME^NUMBER^REST TYPE^RES DATE^OLD "RTN","SD53M17A",287,0) ;;QUIT "VER") 8.0^22.0 "BLD",10408,6) ^541 **END** **END**