ECX3P174 ;ALB/DAN - DSS FY2020 Conversion, Post-init ;6/17/19 11:28
;;3.0;DSS EXTRACTS;**174**;Dec 22, 1997;Build 33
;
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,"FY2020")
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_" <<<")
Q
;
;;ECX LAB RESULTS TRANS EDIT^ECXLAB MAINTENACE
;;ECX UNTRANS LAR REPORT^ECXLAB MAINTENACE
;;ECX LAR LOINC RPT^ECXLAB MAINTENACE
;;ECXLAB MAINTENACE^ECX MAINTENANCE
;;DONE
;;ECX LAR LOINC RPT^ECX MAINTENANCE^LAB^4
;;ECXINDIV^ECX MAINTENANCE^DIV^7.5
;;ECX PHA COST AUDIT^ECX SOURCE AUDITS^PHA^8
;;DONE
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX3P174 1838 printed Dec 13, 2024@01:50:30 Page 2
ECX3P174 ;ALB/DAN - DSS FY2020 Conversion, Post-init ;6/17/19 11:28
+1 ;;3.0;DSS EXTRACTS;**174**;Dec 22, 1997;Build 33
+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,"FY2020")
+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 SET TYPE="MENUDEL"
FOR OFF=1:1
SET CHOICE=$PIECE($TEXT(@TYPE+OFF),";;",2)
if CHOICE="DONE"
QUIT
Begin DoDot:1
+3 SET OPTION=$PIECE(CHOICE,"^")
SET MENU=$PIECE(CHOICE,"^",2)
+4 SET CHECK=$$DELETE^XPDMENU(MENU,OPTION)
+5 DO BMES^XPDUTL(">>> "_OPTION_" OPTION "_$SELECT(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
End DoDot:1
+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 QUIT
+11 ;
+1 ;;ECX LAB RESULTS TRANS EDIT^ECXLAB MAINTENACE
+2 ;;ECX UNTRANS LAR REPORT^ECXLAB MAINTENACE
+3 ;;ECX LAR LOINC RPT^ECXLAB MAINTENACE
+4 ;;ECXLAB MAINTENACE^ECX MAINTENANCE
+5 ;;DONE
+1 ;;ECX LAR LOINC RPT^ECX MAINTENANCE^LAB^4
+2 ;;ECXINDIV^ECX MAINTENANCE^DIV^7.5
+3 ;;ECX PHA COST AUDIT^ECX SOURCE AUDITS^PHA^8
+4 ;;DONE
