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

SD53P779.m

Go to the documentation of this file.
  1. SD53P779 ;MS/SA - POST INSTALL FOR PATCH SD*5.3*779;Jun 21, 2021
  1. ;;5.3;Scheduling;**779**;May 29, 2018;Build 7
  1. ;
  1. ;
  1. Q
  1. POST ; Perform post-install updates
  1. N OPT
  1. D BMES^XPDUTL("Description Updates for the 'SD TELE TOOLS' menu options")
  1. S OPT=$$LKOPT^XPDMENU("SD TELE TOOLS") G:'OPT 1
  1. S ^DIC(19,OPT,1,0)="^19.06^2^2"
  1. S ^DIC(19,OPT,1,1,0)="This is the primary menu option which allows the user access to all"
  1. S ^DIC(19,OPT,1,2,0)="Telehealth Management options."
  1. ;
  1. 1 S OPT=$$LKOPT^XPDMENU("SD TELE INQ") G:'OPT 2
  1. S ^DIC(19,OPT,1,0)="^19.06^3^3"
  1. S ^DIC(19,OPT,1,1,0)="This option allows the Scheduling Supervisor to inquire using the Clinic, "
  1. S ^DIC(19,OPT,1,2,0)="Medical Center Division, Institution, Patient, List Telehealth Stop Codes,"
  1. S ^DIC(19,OPT,1,3,0)="and Telehealth Stop Code Lookup. "
  1. ;
  1. 2 S OPT=$$LKOPT^XPDMENU("SD TELE CLN UPDATE") G:'OPT EX
  1. S ^DIC(19,OPT,1,0)="^19.06^2^2"
  1. S ^DIC(19,OPT,1,1,0)="This option allows the Scheduling Supervisor to send clinic update"
  1. S ^DIC(19,OPT,1,2,0)="message(s) from VistA to TMP without a need to edit the Clinic Profile."
  1. ;
  1. EX D MES^XPDUTL("Update successful.")
  1. Q