KIDS Distribution saved on Jul 12, 2021@15:42:04 SD*5.3*787, EC*2.0*155 **KIDS**:SD*5.3*787^EC*2.0*155^ **INSTALL NAME** SD*5.3*787 "BLD",12243,0) SD*5.3*787^SCHEDULING^0^3210712^y "BLD",12243,1,0) ^^3^3^3210712^^ "BLD",12243,1,1,0) This patch provides fiscal year 2022 annual updates to the CLINIC STOP "BLD",12243,1,2,0) (#40.7) file as requested by the Office of Finance, Managerial Cost "BLD",12243,1,3,0) Accounting Office (MCAO). "BLD",12243,4,0) ^9.64PA^^ "BLD",12243,6) 1 "BLD",12243,6.3) 2 "BLD",12243,"INIT") POST^SD53FY22 "BLD",12243,"KRN",0) ^9.67PA^1.5^25 "BLD",12243,"KRN",.4,0) .4 "BLD",12243,"KRN",.401,0) .401 "BLD",12243,"KRN",.402,0) .402 "BLD",12243,"KRN",.403,0) .403 "BLD",12243,"KRN",.5,0) .5 "BLD",12243,"KRN",.84,0) .84 "BLD",12243,"KRN",1.5,0) 1.5 "BLD",12243,"KRN",1.6,0) 1.6 "BLD",12243,"KRN",1.61,0) 1.61 "BLD",12243,"KRN",1.62,0) 1.62 "BLD",12243,"KRN",3.6,0) 3.6 "BLD",12243,"KRN",3.8,0) 3.8 "BLD",12243,"KRN",9.2,0) 9.2 "BLD",12243,"KRN",9.8,0) 9.8 "BLD",12243,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",12243,"KRN",9.8,"NM",1,0) SD53FY22^^0^B67487926 "BLD",12243,"KRN",9.8,"NM","B","SD53FY22",1) "BLD",12243,"KRN",19,0) 19 "BLD",12243,"KRN",19.1,0) 19.1 "BLD",12243,"KRN",101,0) 101 "BLD",12243,"KRN",409.61,0) 409.61 "BLD",12243,"KRN",771,0) 771 "BLD",12243,"KRN",779.2,0) 779.2 "BLD",12243,"KRN",870,0) 870 "BLD",12243,"KRN",8989.51,0) 8989.51 "BLD",12243,"KRN",8989.52,0) 8989.52 "BLD",12243,"KRN",8993,0) 8993 "BLD",12243,"KRN",8994,0) 8994 "BLD",12243,"KRN","B",.4,.4) "BLD",12243,"KRN","B",.401,.401) "BLD",12243,"KRN","B",.402,.402) "BLD",12243,"KRN","B",.403,.403) "BLD",12243,"KRN","B",.5,.5) "BLD",12243,"KRN","B",.84,.84) "BLD",12243,"KRN","B",1.5,1.5) "BLD",12243,"KRN","B",1.6,1.6) "BLD",12243,"KRN","B",1.61,1.61) "BLD",12243,"KRN","B",1.62,1.62) "BLD",12243,"KRN","B",3.6,3.6) "BLD",12243,"KRN","B",3.8,3.8) "BLD",12243,"KRN","B",9.2,9.2) "BLD",12243,"KRN","B",9.8,9.8) "BLD",12243,"KRN","B",19,19) "BLD",12243,"KRN","B",19.1,19.1) "BLD",12243,"KRN","B",101,101) "BLD",12243,"KRN","B",409.61,409.61) "BLD",12243,"KRN","B",771,771) "BLD",12243,"KRN","B",779.2,779.2) "BLD",12243,"KRN","B",870,870) "BLD",12243,"KRN","B",8989.51,8989.51) "BLD",12243,"KRN","B",8989.52,8989.52) "BLD",12243,"KRN","B",8993,8993) "BLD",12243,"KRN","B",8994,8994) "BLD",12243,"QUES",0) ^9.62^^ "BLD",12243,"REQB",0) ^9.611^1^1 "BLD",12243,"REQB",1,0) SD*5.3*770^2 "BLD",12243,"REQB","B","SD*5.3*770",1) "INIT") POST^SD53FY22 "MBREQ") 0 "PKG",16,-1) 1^1 "PKG",16,0) SCHEDULING^SD^APPOINTMENTS,PROFILES,LETTERS,AMIS REPORTS "PKG",16,22,0) ^9.49I^1^1 "PKG",16,22,1,0) 5.3^2930813 "PKG",16,22,1,"PAH",1,0) 787^3210712 "PKG",16,22,1,"PAH",1,1,0) ^^3^3^3210712 "PKG",16,22,1,"PAH",1,1,1,0) This patch provides fiscal year 2022 annual updates to the CLINIC STOP "PKG",16,22,1,"PAH",1,1,2,0) (#40.7) file as requested by the Office of Finance, Managerial Cost "PKG",16,22,1,"PAH",1,1,3,0) Accounting Office (MCAO). "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","SD53FY22") 0^1^B67487926 "RTN","SD53FY22",1,0) SD53FY22 ;MNT/TXH - FY22 STOP CODE UPDATES; May 24, 2021@15:39 "RTN","SD53FY22",2,0) ;;5.3;Scheduling;**787**;Aug 13, 1993;Build 2 "RTN","SD53FY22",3,0) ; "RTN","SD53FY22",4,0) ; Post-install routine updating stop codes in CLINIC STOP file "RTN","SD53FY22",5,0) ; (#40.7) for FY222 updates - effective 10/01/2022. "RTN","SD53FY22",6,0) ; "RTN","SD53FY22",7,0) ; References to %DT supported by ICR# 10003 "RTN","SD53FY22",8,0) ; References to DD^%DT supported by ICR# 10003 "RTN","SD53FY22",9,0) ; References to $$FIND1^DIC supported by ICR# 2051 "RTN","SD53FY22",10,0) ; References to FILE^DIE supported by ICR# 2053 "RTN","SD53FY22",11,0) ; References to BMES^XPDUTL supported by ICR# 10141 "RTN","SD53FY22",12,0) ; References to MES^XPDUTL supported by ICR# 10141 "RTN","SD53FY22",13,0) ; "RTN","SD53FY22",14,0) Q "RTN","SD53FY22",15,0) ; "RTN","SD53FY22",16,0) POST ; Update stop codes in Clinic Stop file 40.7 "RTN","SD53FY22",17,0) ; "RTN","SD53FY22",18,0) D BMES^XPDUTL("SD*5.3*787 Post-Install starts...") "RTN","SD53FY22",19,0) D:$P($T(OFF+1),";;",2)'="QUIT" INACT ; inactivate "RTN","SD53FY22",20,0) D:$P($T(CHG+1),";;",2)'="QUIT" CHGNM ; change name "RTN","SD53FY22",21,0) D:$P($T(RT+1),";;",2)'="QUIT" CHGRT ; change restriction data "RTN","SD53FY22",22,0) D BMES^XPDUTL("SD*5.3*787 Post-Install complete.") "RTN","SD53FY22",23,0) D MES^XPDUTL("") "RTN","SD53FY22",24,0) K SDIEN,%H,%I,DIC,X,Y "RTN","SD53FY22",25,0) Q "RTN","SD53FY22",26,0) ; "RTN","SD53FY22",27,0) INACT ; Inactivate stop code "RTN","SD53FY22",28,0) ; SDREC is in format: ;;code #^^inactivation date (in FileMan format) "RTN","SD53FY22",29,0) ; "RTN","SD53FY22",30,0) N SDI,SDREC,SDCODE,SDEXDT,SDINDT,SDNM,SDINTERR "RTN","SD53FY22",31,0) D BMES^XPDUTL(">>> Inactivating stop codes in CLINIC STOP (#40.7) file...") "RTN","SD53FY22",32,0) D BMES^XPDUTL(" [NOTE: These Stop Codes CANNOT be used AFTER the indicated inactivation date.]") "RTN","SD53FY22",33,0) ; "RTN","SD53FY22",34,0) ; load entries w/ inactivate date "RTN","SD53FY22",35,0) F SDI=1:1 S SDREC=$P($T(OFF+SDI),";;",2) Q:SDREC="QUIT" D "RTN","SD53FY22",36,0) . S SDCODE=$P(SDREC,U) ;code "RTN","SD53FY22",37,0) . ; get inactivate date and validate date passed in "RTN","SD53FY22",38,0) . I +$P(SDREC,U,3) D "RTN","SD53FY22",39,0) . . S X=$P(SDREC,U,3) "RTN","SD53FY22",40,0) . . S %DT="FTX" "RTN","SD53FY22",41,0) . . D ^%DT "RTN","SD53FY22",42,0) . . Q:Y<0 "RTN","SD53FY22",43,0) . . S SDINDT=Y "RTN","SD53FY22",44,0) . . D DD^%DT "RTN","SD53FY22",45,0) . . S SDEXDT=Y "RTN","SD53FY22",46,0) . . ; check if code already exists "RTN","SD53FY22",47,0) . . S SDIEN=$$FIND1^DIC(40.7,"","MX",SDCODE,"","","SDINTERR") "RTN","SD53FY22",48,0) . . ; quit if unable to find code in 40.7 "RTN","SD53FY22",49,0) . . I 'SDIEN D Q "RTN","SD53FY22",50,0) . . . D BMES^XPDUTL(" >> ... Unable to find stop code: "_SDCODE) "RTN","SD53FY22",51,0) . . . I $D(SDINTERR) D MES^XPDUTL(" >> ... "_$G(SDINTERR("DIERR",1,"TEXT",1))_".") "RTN","SD53FY22",52,0) . . . D MES^XPDUTL(" >> ... Please contact support for assistance.") "RTN","SD53FY22",53,0) . . . ; clean out error array b4 processing next code "RTN","SD53FY22",54,0) . . . K SDINTERR "RTN","SD53FY22",55,0) . . ; check if error "RTN","SD53FY22",56,0) . . I $D(SDINTERR) D Q "RTN","SD53FY22",57,0) . . . D BMES^XPDUTL(" >> ... Unable to inactivate stop code "_SDCODE) "RTN","SD53FY22",58,0) . . . D MES^XPDUTL(" >> ... "_$G(SDINTERR("DIERR",1,"TEXT",1))_".") "RTN","SD53FY22",59,0) . . . D MES^XPDUTL(" >> ... Please contact support for assistance...") "RTN","SD53FY22",60,0) . . . ; clean out error array b4 processing next code "RTN","SD53FY22",61,0) . . . K SDINTERR "RTN","SD53FY22",62,0) . . ; if no error, check if active "RTN","SD53FY22",63,0) . . I $D(^DIC(40.7,SDIEN,0)) I $P(^(0),U,3)="" D "RTN","SD53FY22",64,0) . . . S SDNM=$P($G(^DIC(40.7,SDIEN,0)),U) ;code name "RTN","SD53FY22",65,0) . . . ; set field value "RTN","SD53FY22",66,0) . . . K SDFDA "RTN","SD53FY22",67,0) . . . S SDFDA(40.7,SDIEN_",",2)=SDINDT "RTN","SD53FY22",68,0) . . . D FILE^DIE(,"SDFDA","SDINTERR") "RTN","SD53FY22",69,0) . . . ; check if error "RTN","SD53FY22",70,0) . . . I $D(SDINTERR) D Q "RTN","SD53FY22",71,0) . . . . D BMES^XPDUTL(" >> ... Unable to inactivate stop code: "_SDCODE) "RTN","SD53FY22",72,0) . . . . D MES^XPDUTL(" >> ... "_$G(SDINTERR("DIERR",1,"TEXT",1))_".") "RTN","SD53FY22",73,0) . . . . D MES^XPDUTL(" >> ... Please contact support for assistance.") "RTN","SD53FY22",74,0) . . . . ; clean out error array b4 processing next code "RTN","SD53FY22",75,0) . . . . K SDINTERR "RTN","SD53FY22",76,0) . . . I '$D(SDINTERR) D "RTN","SD53FY22",77,0) . . . . D BMES^XPDUTL(" >> Inactivated: "_+SDCODE_" "_SDNM_" as of "_SDEXDT) "RTN","SD53FY22",78,0) ; "RTN","SD53FY22",79,0) D BMES^XPDUTL(">>> Inactivation complete.") "RTN","SD53FY22",80,0) D MES^XPDUTL("") "RTN","SD53FY22",81,0) K %,%DT,%H,%I,DIC,X,Y "RTN","SD53FY22",82,0) Q "RTN","SD53FY22",83,0) ; "RTN","SD53FY22",84,0) CHGNM ; Change code names "RTN","SD53FY22",85,0) ; SDREC is in format: ;;code name^code #^^new code name "RTN","SD53FY22",86,0) ; "RTN","SD53FY22",87,0) N SDI,SDCODE,SDIEN,SDNEWNM,SDNM,SDREC,SDCHGERR "RTN","SD53FY22",88,0) D BMES^XPDUTL(">>> Changing code names in CLINIC STOP (#40.7) file...") "RTN","SD53FY22",89,0) ; "RTN","SD53FY22",90,0) ; load entries w/ new code name "RTN","SD53FY22",91,0) F SDI=1:1 S SDREC=$P($T(CHG+SDI),";;",2) Q:SDREC="QUIT" D "RTN","SD53FY22",92,0) . S SDCODE=$P(SDREC,U,2) ;code "RTN","SD53FY22",93,0) . S SDNEWNM=$P(SDREC,U,4) ;new name "RTN","SD53FY22",94,0) . ; "RTN","SD53FY22",95,0) . ; check if code already exists "RTN","SD53FY22",96,0) . S SDIEN=$$FIND1^DIC(40.7,"","MX",SDCODE,"","","SDCHGERR") "RTN","SD53FY22",97,0) . ; "RTN","SD53FY22",98,0) . ; check if error "RTN","SD53FY22",99,0) . I $D(SDCHGERR) D Q "RTN","SD53FY22",100,0) . . D BMES^XPDUTL(" >> ... Unable to change name of the stop code: "_SDCODE) "RTN","SD53FY22",101,0) . . D MES^XPDUTL(" >> ... "_$G(SDCHGERR("DIERR",1,"TEXT",1))_".") "RTN","SD53FY22",102,0) . . D MES^XPDUTL(" >> ... Please contact support for assistance...") "RTN","SD53FY22",103,0) . . ; clean out error array b4 processing next code "RTN","SD53FY22",104,0) . . K SDCHGERR "RTN","SD53FY22",105,0) . ; "RTN","SD53FY22",106,0) . ; quit if no entry in file "RTN","SD53FY22",107,0) . I 'SDIEN D Q "RTN","SD53FY22",108,0) . . D BMES^XPDUTL(" >> ... Unable to find stop code: "_SDCODE) "RTN","SD53FY22",109,0) . . D MES^XPDUTL(" >> ... Please contact support for assistance.") "RTN","SD53FY22",110,0) . ; "RTN","SD53FY22",111,0) . ; check if code is active "RTN","SD53FY22",112,0) . I $D(^DIC(40.7,SDIEN,0)) I $P(^(0),U,3)="" D "RTN","SD53FY22",113,0) . . ; get current name "RTN","SD53FY22",114,0) . . S SDNM=$P(^DIC(40.7,SDIEN,0),U,1) "RTN","SD53FY22",115,0) . . K SDFDA "RTN","SD53FY22",116,0) . . S SDFDA(40.7,SDIEN_",",.01)=SDNEWNM "RTN","SD53FY22",117,0) . . D FILE^DIE(,"SDFDA","SDCHGERR") "RTN","SD53FY22",118,0) . . ; check if error "RTN","SD53FY22",119,0) . . I $D(SDCHGERR) D Q "RTN","SD53FY22",120,0) . . . D BMES^XPDUTL(" >> ... Unable to change name for stop code: "_SDCODE) "RTN","SD53FY22",121,0) . . . D MES^XPDUTL(" >> ... "_$G(SDCHGERR("DIERR",1,"TEXT",1))_".") "RTN","SD53FY22",122,0) . . . D MES^XPDUTL(" >> ... Please contact support for assistance.") "RTN","SD53FY22",123,0) . . . ; clean out error array b4 processing next code "RTN","SD53FY22",124,0) . . . K SDCHGERR "RTN","SD53FY22",125,0) . . I '$D(SDCHGERR) D "RTN","SD53FY22",126,0) . . . D BMES^XPDUTL(" >> Stop Code "_SDCODE_" name changed from: "_SDNM) "RTN","SD53FY22",127,0) . . . D MES^XPDUTL(" to: "_SDNEWNM) "RTN","SD53FY22",128,0) . . . I SDNM=SDNEWNM D "RTN","SD53FY22",129,0) . . . . D BMES^XPDUTL(" Stop Code "_SDCODE_" name has already changed.") "RTN","SD53FY22",130,0) ; "RTN","SD53FY22",131,0) D BMES^XPDUTL(">>> Changing code names complete.") "RTN","SD53FY22",132,0) D MES^XPDUTL("") "RTN","SD53FY22",133,0) Q "RTN","SD53FY22",134,0) ; "RTN","SD53FY22",135,0) CHGRT ; Change restriction data "RTN","SD53FY22",136,0) ; SDREC is in format: ;;code name^code #^restriction type^restriction date "RTN","SD53FY22",137,0) ; "RTN","SD53FY22",138,0) N SDI,SDREC,SDNM,SDNUM,SDRTERR,SDIEN,SDOLDRT,SDRD,SDRT,SDX,SDINDT,SDEXRD,SDRDEX,SDRDIN "RTN","SD53FY22",139,0) D BMES^XPDUTL(">>> Changing restriction data in CLINIC STOP (#40.7) file...") "RTN","SD53FY22",140,0) ; "RTN","SD53FY22",141,0) ; load new entry w/ restriction data "RTN","SD53FY22",142,0) F SDI=1:1 S SDREC=$P($T(RT+SDI),";;",2) Q:SDREC="QUIT" D "RTN","SD53FY22",143,0) . S SDNM=$P(SDREC,U) ; code name "RTN","SD53FY22",144,0) . S SDNUM=$P(SDREC,U,2) ; code # "RTN","SD53FY22",145,0) . S SDRT=$P(SDREC,U,3) ; restriction type "RTN","SD53FY22",146,0) . S SDRD=$P(SDREC,U,4) ; restriction date "RTN","SD53FY22",147,0) . ; "RTN","SD53FY22",148,0) . ; check if code already exists and get code IEN "RTN","SD53FY22",149,0) . S SDIEN=$$FIND1^DIC(40.7,"","MX",SDNUM,"","","SDRTERR") "RTN","SD53FY22",150,0) . ; check if error "RTN","SD53FY22",151,0) . I $D(SDRTERR) D Q "RTN","SD53FY22",152,0) . . D BMES^XPDUTL(" >> ... Unable to inactivate stop code: "_SDNUM) "RTN","SD53FY22",153,0) . . D MES^XPDUTL(" >> ... "_$G(SDRTERR("DIERR",1,"TEXT",1))_".") "RTN","SD53FY22",154,0) . . D MES^XPDUTL(" >> ... Please contact support for assistance...") "RTN","SD53FY22",155,0) . . ; clean out error array b4 processing next code "RTN","SD53FY22",156,0) . . K SDRTERR "RTN","SD53FY22",157,0) . I 'SDIEN D Q "RTN","SD53FY22",158,0) . . D BMES^XPDUTL(" >> ... Unable to find stop code: "_SDNUM) "RTN","SD53FY22",159,0) . . D MES^XPDUTL(" >> ... Please contact support for assistance.") "RTN","SD53FY22",160,0) . ; "RTN","SD53FY22",161,0) . ; find current restriction type and date "RTN","SD53FY22",162,0) . I $D(^DIC(40.7,SDIEN,0)) I $P(^(0),U,3)="" D "RTN","SD53FY22",163,0) . . S SDOLDRT=$P(^DIC(40.7,SDIEN,0),U,6) ; old restriction type "RTN","SD53FY22",164,0) . . S SDEXRD="" "RTN","SD53FY22",165,0) . . S X=$P(^DIC(40.7,SDIEN,0),U,7) ; old restriction date "RTN","SD53FY22",166,0) . . S %DT="FTX" D ^%DT Q:Y<0 "RTN","SD53FY22",167,0) . . S SDINDT=Y D DD^%DT S SDEXRD=Y "RTN","SD53FY22",168,0) . ; set field value "RTN","SD53FY22",169,0) . ; new restriction date "RTN","SD53FY22",170,0) . S X=SDRD "RTN","SD53FY22",171,0) . S %DT="FTX" "RTN","SD53FY22",172,0) . D ^%DT "RTN","SD53FY22",173,0) . I Y<0 S SDRDIN="" Q "RTN","SD53FY22",174,0) . S SDRDIN=Y "RTN","SD53FY22",175,0) . D DD^%DT "RTN","SD53FY22",176,0) . S SDRDEX=Y "RTN","SD53FY22",177,0) . ; "RTN","SD53FY22",178,0) . K SDFDA "RTN","SD53FY22",179,0) . S SDFDA(40.7,SDIEN_",",5)=SDRT "RTN","SD53FY22",180,0) . S SDFDA(40.7,SDIEN_",",6)=SDRDIN ; save internal dt "RTN","SD53FY22",181,0) . D FILE^DIE(,"SDFDA","SDRTERR") "RTN","SD53FY22",182,0) . ; "RTN","SD53FY22",183,0) . I SDOLDRT'=SDRT D "RTN","SD53FY22",184,0) . . D BMES^XPDUTL(" >> Stop Code "_SDNUM_" restriction type changed from: "_SDOLDRT) "RTN","SD53FY22",185,0) . . D MES^XPDUTL(" to: "_SDRT) "RTN","SD53FY22",186,0) . E D "RTN","SD53FY22",187,0) . . D BMES^XPDUTL(" >> Stop Code "_SDNUM_" restriction type changed from: "_SDOLDRT) "RTN","SD53FY22",188,0) . . D MES^XPDUTL(" to: "_SDRT) "RTN","SD53FY22",189,0) . . D BMES^XPDUTL(" restriction type has NOT or already changed.") "RTN","SD53FY22",190,0) . ; "RTN","SD53FY22",191,0) . I SDEXRD'=SDRDEX D "RTN","SD53FY22",192,0) . . D BMES^XPDUTL(" >> restriction date changed from: "_SDEXRD) "RTN","SD53FY22",193,0) . . D MES^XPDUTL(" to: "_SDRDEX) "RTN","SD53FY22",194,0) . E D "RTN","SD53FY22",195,0) . . D BMES^XPDUTL(" >> restriction date changed from: "_SDEXRD) "RTN","SD53FY22",196,0) . . D MES^XPDUTL(" to: "_SDRDEX) "RTN","SD53FY22",197,0) . . D BMES^XPDUTL(" restriction date has NOT or already changed.") "RTN","SD53FY22",198,0) ; "RTN","SD53FY22",199,0) D BMES^XPDUTL(">>> Changing restriction data complete.") "RTN","SD53FY22",200,0) D MES^XPDUTL("") "RTN","SD53FY22",201,0) K %,%DT,%H,%I,DIC,X,Y,SDFDA "RTN","SD53FY22",202,0) Q "RTN","SD53FY22",203,0) ; "RTN","SD53FY22",204,0) OFF ; Codes to be inactivated - ;;code #^^inactive date "RTN","SD53FY22",205,0) ;;320^^10/1/2021 "RTN","SD53FY22",206,0) ;;QUIT "RTN","SD53FY22",207,0) ; "RTN","SD53FY22",208,0) CHG ; Code name changes - ;;code name^code #^^new code name "RTN","SD53FY22",209,0) ;;^189^^S&F HOME NON VA PROV SITE "RTN","SD53FY22",210,0) ;;^698^^REMOTE PT MONITOR PROV SITE "RTN","SD53FY22",211,0) ;;QUIT "RTN","SD53FY22",212,0) ; "RTN","SD53FY22",213,0) RT ; Change Restriction - ;;stop code name^CODE #^rest type^rest date "RTN","SD53FY22",214,0) ;;S&F HOME NON VA PROV SITE^189^S^10/1/2021 "RTN","SD53FY22",215,0) ;;REMOTE PT MONITOR PROV SITE^698^S^10/1/2021 "RTN","SD53FY22",216,0) ;;QUIT "VER") 8.0^22.2 **INSTALL NAME** EC*2.0*155 "BLD",12289,0) EC*2.0*155^EVENT CAPTURE^0^3210712^y "BLD",12289,1,0) ^^9^9^3210712^ "BLD",12289,1,1,0) This patch, EC*2.0*155, inactivates any DSS Units in the DSS UNIT "BLD",12289,1,2,0) (#724) file with the SEND TO PCE (#13) field set to 'Send No Records' "BLD",12289,1,3,0) and have an inactive/invalid Stop Code. "BLD",12289,1,4,0) "BLD",12289,1,5,0) This patch is being released along with patch SD*5.3*787, that provides "BLD",12289,1,6,0) provides Fiscal Year 2022 updates to the CLINIC STOP (#40.7) file. When "BLD",12289,1,7,0) inactivating stop codes in CLINIC STOP (#40.7) file, the DSS UNIT (#724) "BLD",12289,1,8,0) file also needs to be updated. Both patches will be bundled together "BLD",12289,1,9,0) with the Scheduling patch being the primary. "BLD",12289,4,0) ^9.64PA^^ "BLD",12289,6) 1 "BLD",12289,6.3) 1 "BLD",12289,"INIT") POST^EC2P155 "BLD",12289,"KRN",0) ^9.67PA^1.5^25 "BLD",12289,"KRN",.4,0) .4 "BLD",12289,"KRN",.401,0) .401 "BLD",12289,"KRN",.402,0) .402 "BLD",12289,"KRN",.403,0) .403 "BLD",12289,"KRN",.5,0) .5 "BLD",12289,"KRN",.84,0) .84 "BLD",12289,"KRN",1.5,0) 1.5 "BLD",12289,"KRN",1.6,0) 1.6 "BLD",12289,"KRN",1.61,0) 1.61 "BLD",12289,"KRN",1.62,0) 1.62 "BLD",12289,"KRN",3.6,0) 3.6 "BLD",12289,"KRN",3.8,0) 3.8 "BLD",12289,"KRN",9.2,0) 9.2 "BLD",12289,"KRN",9.8,0) 9.8 "BLD",12289,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",12289,"KRN",9.8,"NM",1,0) EC2P155^^0^B2367345 "BLD",12289,"KRN",9.8,"NM","B","EC2P155",1) "BLD",12289,"KRN",19,0) 19 "BLD",12289,"KRN",19.1,0) 19.1 "BLD",12289,"KRN",101,0) 101 "BLD",12289,"KRN",409.61,0) 409.61 "BLD",12289,"KRN",771,0) 771 "BLD",12289,"KRN",779.2,0) 779.2 "BLD",12289,"KRN",870,0) 870 "BLD",12289,"KRN",8989.51,0) 8989.51 "BLD",12289,"KRN",8989.52,0) 8989.52 "BLD",12289,"KRN",8993,0) 8993 "BLD",12289,"KRN",8994,0) 8994 "BLD",12289,"KRN","B",.4,.4) "BLD",12289,"KRN","B",.401,.401) "BLD",12289,"KRN","B",.402,.402) "BLD",12289,"KRN","B",.403,.403) "BLD",12289,"KRN","B",.5,.5) "BLD",12289,"KRN","B",.84,.84) "BLD",12289,"KRN","B",1.5,1.5) "BLD",12289,"KRN","B",1.6,1.6) "BLD",12289,"KRN","B",1.61,1.61) "BLD",12289,"KRN","B",1.62,1.62) "BLD",12289,"KRN","B",3.6,3.6) "BLD",12289,"KRN","B",3.8,3.8) "BLD",12289,"KRN","B",9.2,9.2) "BLD",12289,"KRN","B",9.8,9.8) "BLD",12289,"KRN","B",19,19) "BLD",12289,"KRN","B",19.1,19.1) "BLD",12289,"KRN","B",101,101) "BLD",12289,"KRN","B",409.61,409.61) "BLD",12289,"KRN","B",771,771) "BLD",12289,"KRN","B",779.2,779.2) "BLD",12289,"KRN","B",870,870) "BLD",12289,"KRN","B",8989.51,8989.51) "BLD",12289,"KRN","B",8989.52,8989.52) "BLD",12289,"KRN","B",8993,8993) "BLD",12289,"KRN","B",8994,8994) "BLD",12289,"QDEF") ^^^^ "BLD",12289,"QUES",0) ^9.62^^ "BLD",12289,"REQB",0) ^9.611^1^1 "BLD",12289,"REQB",1,0) EC*2.0*153^2 "BLD",12289,"REQB","B","EC*2.0*153",1) "INIT") POST^EC2P155 "MBREQ") 0 "PKG",486,-1) 1^1 "PKG",486,0) EVENT CAPTURE^EC^Event Capture Workload Capture System^ "PKG",486,22,0) ^9.49I^1^1 "PKG",486,22,1,0) 2.0^2960508^2981027^66481 "PKG",486,22,1,"PAH",1,0) 155^3210712 "PKG",486,22,1,"PAH",1,1,0) ^^9^9^3210712 "PKG",486,22,1,"PAH",1,1,1,0) This patch, EC*2.0*155, inactivates any DSS Units in the DSS UNIT "PKG",486,22,1,"PAH",1,1,2,0) (#724) file with the SEND TO PCE (#13) field set to 'Send No Records' "PKG",486,22,1,"PAH",1,1,3,0) and have an inactive/invalid Stop Code. "PKG",486,22,1,"PAH",1,1,4,0) "PKG",486,22,1,"PAH",1,1,5,0) This patch is being released along with patch SD*5.3*787, that provides "PKG",486,22,1,"PAH",1,1,6,0) provides Fiscal Year 2022 updates to the CLINIC STOP (#40.7) file. When "PKG",486,22,1,"PAH",1,1,7,0) inactivating stop codes in CLINIC STOP (#40.7) file, the DSS UNIT (#724) "PKG",486,22,1,"PAH",1,1,8,0) file also needs to be updated. Both patches will be bundled together "PKG",486,22,1,"PAH",1,1,9,0) with the Scheduling patch being the primary. "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","EC2P155") 0^1^B2367345 "RTN","EC2P155",1,0) EC2P155 ;ALB/JG - Inactive Stop Code DSS Unit Review; JUN 3, 2021@01:23 "RTN","EC2P155",2,0) ;;2.0;EVENT CAPTURE;**155**;May 8, 1996;Build 1 "RTN","EC2P155",3,0) ; "RTN","EC2P155",4,0) ;This routine is part of a combined build with scheduling to "RTN","EC2P155",5,0) ;inactivate any DSS units that are set to send no records "RTN","EC2P155",6,0) ;and have an inactive/invalid stop code. "RTN","EC2P155",7,0) ; "RTN","EC2P155",8,0) ; References to %ZTLOAD supported by ICR# 10063 "RTN","EC2P155",9,0) ; References to BMES^XPDUTL supported by ICR# 10141 "RTN","EC2P155",10,0) ; References to MES^XPDUTL supported by ICR# 10141 "RTN","EC2P155",11,0) ; "RTN","EC2P155",12,0) Q "RTN","EC2P155",13,0) ; "RTN","EC2P155",14,0) POST ;entry point "RTN","EC2P155",15,0) N ZTRTN,ZTDTH,ZTDESC,ZTIO,ZTSK "RTN","EC2P155",16,0) D BMES^XPDUTL("Queuing the inactivation of any DSS Units, that are set") "RTN","EC2P155",17,0) D MES^XPDUTL("to send no records and have an inactive/invalid stop code,") "RTN","EC2P155",18,0) D MES^XPDUTL("for 10/01/21 at 1:00 AM. If this patch is installed after that time") "RTN","EC2P155",19,0) D MES^XPDUTL("the post-install will queue immediately.") "RTN","EC2P155",20,0) ; "RTN","EC2P155",21,0) S ZTRTN="CHKDSS^ECUTL3",ZTDTH=3211001.0100 "RTN","EC2P155",22,0) S ZTDESC="Inactivate DSS Units with invalid stop codes",ZTIO="" "RTN","EC2P155",23,0) D ^%ZTLOAD "RTN","EC2P155",24,0) ; "RTN","EC2P155",25,0) D BMES^XPDUTL("Done. You will receive a MailMan message with the results on 10/01/21.") "RTN","EC2P155",26,0) Q "VER") 8.0^22.2 **END** **END**