ECX3P190 ;ALB/TJL - DSS FY2025 Conversion, Post-init ;4/10/24 10:54
;;3.0;DSS EXTRACTS;**190**;Dec 22, 1997;Build 36
;
POST ;Post-install items
D TEST ;Set testing site information
D MENU ;update menus
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,"FY2025")
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
;
N DA,DIE,DR,MENU,OPTION,CHECK,CHOICE,SYN,ORD,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_" <<<")
S TYPE="MENUADD" F OFF=1:1 S CHOICE=$P($T(@TYPE+OFF),";;",2) Q:CHOICE="DONE" D
.S OPTION=$P(CHOICE,"^"),MENU=$P(CHOICE,"^",2),SYN=$P(CHOICE,"^",3),ORD=$P(CHOICE,"^",4)
.S CHECK=$$ADD^XPDMENU(MENU,OPTION,SYN,ORD)
.D BMES^XPDUTL(">>> "_OPTION_" OPTION"_$S('CHECK:" NOT",1:"")_" ADDED TO "_MENU_" <<<")
;S OPTION=$$LKOPT^XPDMENU("ECX SOURCE AUDITS") Q:'+OPTION
;S UPDATE(19,OPTION_",",1)="Extract Audit Reports"
;D FILE^DIE("","UPDATE")
;D BMES^XPDUTL("Source Audit menu text updated")
Q
;
;;ECX SETUP LAB^ECX MAINTENANCE
;;DONE
;;ECX KILL TASK^ECX TRANSMISSION^X^17
;;ECX DRG RPT^ECX MAINTENANCE^DRG^5.5
;;ECX MAS MOV RPT^ECX MAINTENANCE^MOV^7.7
;;ECX TREAT SPEC RPT^ECX MAINTENANCE^TSR^8.8
;;ECX PHA IV HOLD^ECX PHARMACY PRE-EXTRACT^5^5
;;DONE
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX3P190 1875 printed Sep 23, 2025@19:26:45 Page 2
ECX3P190 ;ALB/TJL - DSS FY2025 Conversion, Post-init ;4/10/24 10:54
+1 ;;3.0;DSS EXTRACTS;**190**;Dec 22, 1997;Build 36
+2 ;
POST ;Post-install items
+1 ;Set testing site information
DO TEST
+2 ;update menus
DO MENU
+3 QUIT
+4 ;
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,"FY2025")
+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 NEW DA,DIE,DR,MENU,OPTION,CHECK,CHOICE,SYN,ORD,TYPE,OFF,UPDATE
+2 ;S TYPE="MENUDEL" F OFF=1:1 S CHOICE=$P($T(@TYPE+OFF),";;",2) Q:CHOICE="DONE" D
+3 ;.S OPTION=$P(CHOICE,"^"),MENU=$P(CHOICE,"^",2)
+4 ;.S CHECK=$$DELETE^XPDMENU(MENU,OPTION)
+5 ;.D BMES^XPDUTL(">>> "_OPTION_" OPTION "_$S(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
+6 SET TYPE="MENUADD"
FOR OFF=1:1
SET CHOICE=$PIECE($TEXT(@TYPE+OFF),";;",2)
if CHOICE="DONE"
QUIT
Begin DoDot:1
+7 SET OPTION=$PIECE(CHOICE,"^")
SET MENU=$PIECE(CHOICE,"^",2)
SET SYN=$PIECE(CHOICE,"^",3)
SET ORD=$PIECE(CHOICE,"^",4)
+8 SET CHECK=$$ADD^XPDMENU(MENU,OPTION,SYN,ORD)
+9 DO BMES^XPDUTL(">>> "_OPTION_" OPTION"_$SELECT('CHECK:" NOT",1:"")_" ADDED TO "_MENU_" <<<")
End DoDot:1
+10 ;S OPTION=$$LKOPT^XPDMENU("ECX SOURCE AUDITS") Q:'+OPTION
+11 ;S UPDATE(19,OPTION_",",1)="Extract Audit Reports"
+12 ;D FILE^DIE("","UPDATE")
+13 ;D BMES^XPDUTL("Source Audit menu text updated")
+14 QUIT
+15 ;
+1 ;;ECX SETUP LAB^ECX MAINTENANCE
+2 ;;DONE
+1 ;;ECX KILL TASK^ECX TRANSMISSION^X^17
+2 ;;ECX DRG RPT^ECX MAINTENANCE^DRG^5.5
+3 ;;ECX MAS MOV RPT^ECX MAINTENANCE^MOV^7.7
+4 ;;ECX TREAT SPEC RPT^ECX MAINTENANCE^TSR^8.8
+5 ;;ECX PHA IV HOLD^ECX PHARMACY PRE-EXTRACT^5^5
+6 ;;DONE
