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