- 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 Jan 18, 2025@02:51:43 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