ECX3P178 ;ALB/CMD - DSS Patch 178 Post-init routine; Feb 07, 2020@16:50:34
;;3.0;DSS EXTRACTS;**178**;Dec 22, 1997;Build 67
POST ;Post-install items
D TEST ;Set testing site information
D MENU ;update menus
D INACT ;Inactivate Quasar and Lab Results in extract file definitions 727.1
Q
;
TEST ;turn-on fld #73 in file #728 for Field Test Site;
;allows use of option ECX FISCAL YEAR EXTRACT by test sites;
D MES^XPDUTL(" ")
D MES^XPDUTL("Providing special menu option access for DSS FY Conversion test sites.")
D TESTON^ECXTREX(XPDNM,"FY2021")
D MES^XPDUTL(" ")
;if this is the national released version, then fld #73 will be turned-off
;the first time any user attempts to use ECX FISCAL YEAR EXTRACT option
Q
;
;Add new option: ECX SUR Observation for Surgery Pre-Extract Audit Report.
N DA,DIE,DR,MENU,OPTION,CHECK,CHOICE,TYPE,OFF,UPDATE
S TYPE="MENUDEL" F OFF=1:1 S CHOICE=$P($T(@TYPE+OFF),";;",2) Q:CHOICE="DONE" D
.S OPTION=$P(CHOICE,"^"),MENU=$P(CHOICE,"^",2)
.S CHECK=$$DELETE^XPDMENU(MENU,OPTION)
.D BMES^XPDUTL(">>> "_OPTION_" OPTION "_$S(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
D BMES^XPDUTL("Updating Surgery Pre-Extract Audit Report Menu")
S CHECK=$$ADD^XPDMENU("ECX SURGERY PRE-EXTRACT","ECX SUR OBS",3,3)
D BMES^XPDUTL("ECX SUR OBSERVATION Option "_$S('+$G(CHECK):"NOT ",1:"")_"added to menu ECX SURGERY PRE-EXTRACT")
Q
;
;;ECXQSR^ECXMENU
;;ECXLABR^ECXMENU
;;ECX LAR SOURCE AUDIT^ECX SOURCE AUDITS
;;ECX QSR SOURCE AUDIT^ECX SOURCE AUDITS
;;ECX LAR LOINC RPT^ECX MAINTENANCE
;;DONE
;
INACT ; Inactivate ECQ (Quasar)and LAR (Lab Results) in EXTRACT DEFINITION file (#727.1)
N I,ECXFDA,ECXERR,ECXMSG,ECXDA,ECXOFF
F I="ECQ","LAR" D
.D MES^XPDUTL(" Inactivating "_I_" entry ...")
.S ECXDA=+$O(^ECX(727.1,"C",I,0))
.I 'ECXDA D Q
..K ECXMSG
..S ECXMSG(1)=" "
..S ECXMSG(2)=" ** ERROR INACTIVATING "_I_" **"
..S ECXMSG(3)=" Entry not found in file"
..D MES^XPDUTL(.ECXMSG)
.K ECXFDA,ECXERR
.S ECXFDA(727.1,ECXDA_",",13)=1
.D FILE^DIE("","ECXFDA","ECXERR")
.Q:'$D(ECXERR)
.D BMES^XPDUTL(" ** ERROR INACTIVING **")
.K ECXMSG D MSG^DIALOG("AE",.ECXMSG,65,6,"ECXERR")
.D MES^XPDUTL(.ECXERR)
D BMES^XPDUTL("- Done -")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX3P178 2504 printed Oct 16, 2024@17:51:23 Page 2
ECX3P178 ;ALB/CMD - DSS Patch 178 Post-init routine; Feb 07, 2020@16:50:34
+1 ;;3.0;DSS EXTRACTS;**178**;Dec 22, 1997;Build 67
POST ;Post-install items
+1 ;Set testing site information
DO TEST
+2 ;update menus
DO MENU
+3 ;Inactivate Quasar and Lab Results in extract file definitions 727.1
DO INACT
+4 QUIT
+5 ;
TEST ;turn-on fld #73 in file #728 for Field Test Site;
+1 ;allows use of option ECX FISCAL YEAR EXTRACT by test sites;
+2 DO MES^XPDUTL(" ")
+3 DO MES^XPDUTL("Providing special menu option access for DSS FY Conversion test sites.")
+4 DO TESTON^ECXTREX(XPDNM,"FY2021")
+5 DO MES^XPDUTL(" ")
+6 ;if this is the national released version, then fld #73 will be turned-off
+7 ;the first time any user attempts to use ECX FISCAL YEAR EXTRACT option
+8 QUIT
+9 ;
+1 ;Add new option: ECX SUR Observation for Surgery Pre-Extract Audit Report.
+2 NEW DA,DIE,DR,MENU,OPTION,CHECK,CHOICE,TYPE,OFF,UPDATE
+3 SET TYPE="MENUDEL"
FOR OFF=1:1
SET CHOICE=$PIECE($TEXT(@TYPE+OFF),";;",2)
if CHOICE="DONE"
QUIT
Begin DoDot:1
+4 SET OPTION=$PIECE(CHOICE,"^")
SET MENU=$PIECE(CHOICE,"^",2)
+5 SET CHECK=$$DELETE^XPDMENU(MENU,OPTION)
+6 DO BMES^XPDUTL(">>> "_OPTION_" OPTION "_$SELECT(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
End DoDot:1
+7 DO BMES^XPDUTL("Updating Surgery Pre-Extract Audit Report Menu")
+8 SET CHECK=$$ADD^XPDMENU("ECX SURGERY PRE-EXTRACT","ECX SUR OBS",3,3)
+9 DO BMES^XPDUTL("ECX SUR OBSERVATION Option "_$SELECT('+$GET(CHECK):"NOT ",1:"")_"added to menu ECX SURGERY PRE-EXTRACT")
+10 QUIT
+11 ;
+1 ;;ECXQSR^ECXMENU
+2 ;;ECXLABR^ECXMENU
+3 ;;ECX LAR SOURCE AUDIT^ECX SOURCE AUDITS
+4 ;;ECX QSR SOURCE AUDIT^ECX SOURCE AUDITS
+5 ;;ECX LAR LOINC RPT^ECX MAINTENANCE
+6 ;;DONE
+7 ;
INACT ; Inactivate ECQ (Quasar)and LAR (Lab Results) in EXTRACT DEFINITION file (#727.1)
+1 NEW I,ECXFDA,ECXERR,ECXMSG,ECXDA,ECXOFF
+2 FOR I="ECQ","LAR"
Begin DoDot:1
+3 DO MES^XPDUTL(" Inactivating "_I_" entry ...")
+4 SET ECXDA=+$ORDER(^ECX(727.1,"C",I,0))
+5 IF 'ECXDA
Begin DoDot:2
+6 KILL ECXMSG
+7 SET ECXMSG(1)=" "
+8 SET ECXMSG(2)=" ** ERROR INACTIVATING "_I_" **"
+9 SET ECXMSG(3)=" Entry not found in file"
+10 DO MES^XPDUTL(.ECXMSG)
End DoDot:2
QUIT
+11 KILL ECXFDA,ECXERR
+12 SET ECXFDA(727.1,ECXDA_",",13)=1
+13 DO FILE^DIE("","ECXFDA","ECXERR")
+14 if '$DATA(ECXERR)
QUIT
+15 DO BMES^XPDUTL(" ** ERROR INACTIVING **")
+16 KILL ECXMSG
DO MSG^DIALOG("AE",.ECXMSG,65,6,"ECXERR")
+17 DO MES^XPDUTL(.ECXERR)
End DoDot:1
+18 DO BMES^XPDUTL("- Done -")
+19 QUIT
+20 ;
