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

RAIPS198.m

Go to the documentation of this file.
  1. RAIPS198 ;HISC/GJC - post install routine ; Feb 14, 2023@10:26:33
  1. ;;5.0;Radiology/Nuclear Medicine;**198**;Mar 16, 1998;Build 1
  1. ;
  1. ;Routine File IA Type
  1. ;-----------------------------------------------------
  1. ; DELETE^XPDMENU() 1157 (S)
  1. ; OUT^XPDMENU() 1157 (S)
  1. ; LKOPT^XPDMENU() 1157 (S)
  1. ; OPTION #19 10075 (S)
  1. ; OPTION #19 10156 (S)
  1. ;
  1. QUIT
  1. ;
  1. EN ;start here
  1. ;--- Step 1: find the option(s) to be set OOO
  1. N RAPRG,RANPRG,RAPRGIEN,RANPRGIEN
  1. ;get record # for each option to be OOO'd
  1. S RAPRG="RA PURGE",RANPRG="RA NOPURGE"
  1. S RAPRGIEN=$$LKOPT^XPDMENU(RAPRG)
  1. S RANPRGIEN=$$LKOPT^XPDMENU(RANPRG)
  1. I RAPRGIEN="",(RAPRGIEN="") D Q
  1. .N RATXT S RATXT(1)="Option 'RA PURGE' was not found."
  1. .S RATXT(2)="Option 'RA NOPURGE' was not found."
  1. .D MES^XPDUTL(.RATXT)
  1. .D BMES^XPDUTL("Exiting the RA*5.0*198 post-init process.")
  1. .Q
  1. ;
  1. ;--- Step 2: set the option(s) OOO
  1. N RAOOOMSG S RAOOOMSG="RA*5.0*198: Radiology data purge not allowed."
  1. I RAPRGIEN>0 D
  1. .N RATXT D OUT^XPDMENU(RAPRG,RAOOOMSG)
  1. .S RAPRG(2)=$P(^DIC(19,RAPRGIEN,0),U,3)
  1. .S RATXT="Option: '"_RAPRG_"' has "_$S(RAPRG(2)="":"not ",1:"")_"been disabled."
  1. .D BMES^XPDUTL(RATXT)
  1. .Q
  1. ;
  1. I RANPRGIEN>0 D
  1. .N RATXT D OUT^XPDMENU(RANPRG,RAOOOMSG)
  1. .S RANPRG(2)=$P(^DIC(19,RANPRGIEN,0),U,3)
  1. .S RATXT="Option: '"_RANPRG_"' has "_$S(RANPRG(2)="":"not ",1:"")_"been disabled."
  1. .D BMES^XPDUTL(RATXT)
  1. .Q
  1. ;
  1. ;--- Step 3: remove the OOO'd option(s) from parent menus
  1. I RAPRGIEN>0 D ;RA PURGE
  1. .N RAMENU S RAMENU="RA SITEMANAGER"
  1. .I $$LKOPT^XPDMENU(RAMENU)="" D MES^XPDUTL("Warning: '"_RAMENU_"' was not found w/item: '"_RAPRG_"'.") QUIT
  1. .N RAR S RAR=$$DELETE^XPDMENU(RAMENU,RAPRG)
  1. .D:RAR=1 BMES^XPDUTL("Option '"_RAPRG_"' was removed as an item from '"_RAMENU_"'.")
  1. .D:RAR=0 BMES^XPDUTL("Option '"_RAPRG_"' was not removed as an item from '"_RAMENU_"'.")
  1. .Q
  1. I RANPRGIEN>0 D ;RA NOPURGE
  1. .N RAMENU F RAMENU="RA TECHMENU","RA EXAMEDIT","RA RADIOLOGIST" D
  1. ..I $$LKOPT^XPDMENU(RAMENU)="" D MES^XPDUTL("Warning: '"_RAMENU_"' was not found w/item: '"_RANPRG_"'.") Q
  1. ..N RAR S RAR=$$DELETE^XPDMENU(RAMENU,RANPRG)
  1. ..D:RAR=1 BMES^XPDUTL("Option '"_RANPRG_"' was removed as an item from '"_RAMENU_"'.")
  1. ..D:RAR=0 BMES^XPDUTL("Option '"_RANPRG_"' was not removed as an item from '"_RAMENU_"'.")
  1. ..Q
  1. .Q
  1. Q