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

BMCPOS1.m

Go to the documentation of this file.
  1. BMCPOS1 ; IHS/PHXAO/TMJ - PATCH #1 POST-INIT ;
  1. ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
  1. ;
  1. START ;
  1. ; The following line prevents the "Disable Options..." and "Move
  1. ; Routines..." questions from being asked during the install.
  1. I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1. ;
  1. ;Delete old Option
  1. S DA=$O(^DIC(19,"B","BMC OUTSIDE REFERRALS",0)) I DA S DIK="^DIC(19," D ^DIK
  1. ;
  1. Q
  1. ;
  1. OPT ;add 2 options (existing option and new option)
  1. S X=$$ADD^XPDMENU("BMC MENU-RPTS ADMINISTRATIVE","BMC OUTSIDE REFERRALS","OUT")
  1. I 'X W "Attempt to add Referrals Initiated At Outside Facility option failed.." H 3
  1. NEW X S X=$$ADD^XPDMENU("BMC MENU-RPTS ADMINISTRATIVE","BMC RPT-SECONDARY WORKLOAD","SWK")
  1. I 'X W "Attempt to add Secondary Provider Letter Workload option failed." H 3
  1. ;
  1. SEC ;Security Key Change
  1. ;Add Security Key BMCZEDIT to BMC MENU-DATA ENTRY Option
  1. S DA=$O(^DIC(19,"B","BMC MENU-DATA ENTRY",0)) I DA S DIE="^DIC(19,",DR="3////"_"BMCZEDIT" D ^DIE K DIE,DR,DA
  1. ;
  1. ;Remove Security Key BMCZMGR from BMC MODIFY REFERRAL
  1. S DA=$O(^DIC(19,"B","BMC MODIFY REFERRAL",0)) I DA S DIE="^DIC(19,",DR="3///"_"@" D ^DIE K DIE,DR,DA
  1. ;
  1. ;
  1. END ;End of Post Init Routine
  1. ;
  1. W "The Referred Care Package - Patch #1 Post Init Routine has",!,"successfully completed",!
  1. ;
  1. Q