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

ECX3P71.m

Go to the documentation of this file.
  1. ECX3P71 ; BPFO/JRC - Post Utility for DSS Extracts ; 11/24/04 9:28am
  1. ;;3.0;DSS EXTRACTS;**71**;Dec 22, 1997
  1. EN ;Main entry point
  1. ;Change menu option locks
  1. N MENU,PTR
  1. S (MENU,PTR)=""
  1. F MENU="ECXMGR","ECX MAINTENANCE","ECX TRANSMISSION","ECXSCLOAD","ECXSCEDIT","ECXSCAPPROV","ECX IV DIV EDIT","ECXLABRS","ECX LAB RESULTS TRANS EDIT" D
  1. .K ECXMSG
  1. .S ECXMSG(1)=" "
  1. .S ECXMSG(2)=$S(MENU="ECX MAINTENANCE":"** Removing ",MENU="ECX TRANSMISSION":"** Removing ",MENU="ECXMGR":"** Removing ",1:"** Adding ")_"ECXMGR lock for "_MENU_" menu **"
  1. .D MES^XPDUTL(.ECXMSG)
  1. .;Order thru option file and find menu and retrieve IEN
  1. .S PTR="",PTR=$O(^DIC(19,"B",MENU,PTR))
  1. .I 'PTR D BMES^XPDUTL("** "_MENU_" item not found, not updated **") Q
  1. .S $P(^DIC(19,PTR,0),U,6)=$S(MENU="ECX MAINTENANCE":"",MENU="ECX TRANSMISSION":"",MENU="ECXMGR":"",1:"ECXMGR")
  1. D BMES^XPDUTL("** Menu locks update completed **")
  1. ;
  1. ;Remove ECX DSSDEPT DECODE menu
  1. ;
  1. ;Init variables
  1. N MENU,SMENU,PTR,DA,DIK
  1. S (MENU,SMENU,PTR)=""
  1. S ECXMSG(1)=" "
  1. S ECXMSG(2)="** Looking for ECX DSSDEPT DECODE menu under ECX DSSDEPT MGMT **"
  1. S ECXMSG(3)=" If found, the submenu item will be deleted "
  1. D MES^XPDUTL(.ECXMSG)
  1. ;Order thru option file and find ECX DSSDEPT MGMT and retrieve IEN
  1. S MENU=$O(^DIC(19,"B","ECX DSSDEPT MGMT",MENU))
  1. I 'MENU D BMES^XPDUTL("** ECX DSSDEPT MGMT item not found **") Q
  1. ;Order thru option file and find ECX DSSDEPT DECODE and retrieve IEN
  1. S SMENU=$O(^DIC(19,"B","ECX DSSDEPT DECODE",SMENU))
  1. I 'SMENU D BMES^XPDUTL("** ECX DSSDEPT DECODE menu item not found **") Q
  1. ;Order thru ECX DSSDEPT MGMT menu subfile check for ECX DSSDEPT DECODE
  1. S PTR=($O(^DIC(19,MENU,10,"B",SMENU,PTR)))
  1. I 'PTR D BMES^XPDUTL("** ECX DSSDEPT DECODE was not found as a submenu, nothing deleted **") Q
  1. D BMES^XPDUTL("** ECX DSSDEPT DECODE menu found under ECX DSSDEPT MGMT **")
  1. S DA(1)=MENU,DIK="^DIC(19,"_DA(1)_","_10_",",DA=PTR
  1. D ^DIK
  1. N ECXMSG
  1. S ECXMSG(1)=" "
  1. S ECXMSG(2)="*** ECX DSSDEPT DECODE menu deleted from ECX DSSDEPT MGMT menu ***"
  1. D MES^XPDUTL(.ECXMSG)
  1. Q