Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ECX3P174

ECX3P174.m

Go to the documentation of this file.
  1. ECX3P174 ;ALB/DAN - DSS FY2020 Conversion, Post-init ;6/17/19 11:28
  1. ;;3.0;DSS EXTRACTS;**174**;Dec 22, 1997;Build 33
  1. ;
  1. POST ;Post-install items
  1. D TEST ;Set testing site information
  1. D MENU ;update menus
  1. Q
  1. ;
  1. TEST ;turn-on fld #73 in file #728 for Field Test Site;
  1. ;allows use of option ECX FISCAL YEAR EXTRACT by test sites;
  1. D MES^XPDUTL(" ")
  1. D MES^XPDUTL("Providing special menu option access for DSS FY Conversion test sites.")
  1. D TESTON^ECXTREX(XPDNM,"FY2020")
  1. D MES^XPDUTL(" ")
  1. ;if this is the national released version, then fld #73 will be turned-off
  1. ;the first time any user attempts to use ECX FISCAL YEAR EXTRACT option
  1. Q
  1. ;
  1. N DA,DIE,DR,MENU,OPTION,CHECK,CHOICE,SYN,ORD,TYPE,OFF,UPDATE
  1. S TYPE="MENUDEL" F OFF=1:1 S CHOICE=$P($T(@TYPE+OFF),";;",2) Q:CHOICE="DONE" D
  1. .S OPTION=$P(CHOICE,"^"),MENU=$P(CHOICE,"^",2)
  1. .S CHECK=$$DELETE^XPDMENU(MENU,OPTION)
  1. .D BMES^XPDUTL(">>> "_OPTION_" OPTION "_$S(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<")
  1. S TYPE="MENUADD" F OFF=1:1 S CHOICE=$P($T(@TYPE+OFF),";;",2) Q:CHOICE="DONE" D
  1. .S OPTION=$P(CHOICE,"^"),MENU=$P(CHOICE,"^",2),SYN=$P(CHOICE,"^",3),ORD=$P(CHOICE,"^",4)
  1. .S CHECK=$$ADD^XPDMENU(MENU,OPTION,SYN,ORD)
  1. .D BMES^XPDUTL(">>> "_OPTION_" OPTION"_$S('CHECK:" NOT",1:"")_" ADDED TO "_MENU_" <<<")
  1. Q
  1. ;
  1. ;;ECX LAB RESULTS TRANS EDIT^ECXLAB MAINTENACE
  1. ;;ECX UNTRANS LAR REPORT^ECXLAB MAINTENACE
  1. ;;ECX LAR LOINC RPT^ECXLAB MAINTENACE
  1. ;;ECXLAB MAINTENACE^ECX MAINTENANCE
  1. ;;DONE
  1. ;;ECX LAR LOINC RPT^ECX MAINTENANCE^LAB^4
  1. ;;ECXINDIV^ECX MAINTENANCE^DIV^7.5
  1. ;;ECX PHA COST AUDIT^ECX SOURCE AUDITS^PHA^8
  1. ;;DONE