BMCPOS1.m

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