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

GMPL56PR.m

Go to the documentation of this file.
  1. GMPL56PR ;BP/KAM - Pre-init Driver, patch GMPL*2.0*56 ; 7/17/20 7:40am
  1. VERSION ;;2.0;Problem List;**56**;Aug 25, 1994;Build 3
  1. ; Backup the OR PROBLEM NTRT BULLETIN
  1. Q
  1. PRE ;
  1. I '$D(^XTMP("OR PROBLEM NTRT BULLETIN BACKUP")) D
  1. . N X1,X2,X
  1. . S X1=DT,X2=180 D C^%DTC
  1. . S ^XTMP("OR PROBLEM NTRT BULLETIN BACKUP",0)=$G(X)_"^"_$G(DT)_"^"_"Backup of the OR PROBLEM NTRT BULLETIN Patch GMPL*2*56"
  1. . D EN^DDIOL("Backing up OR PROBLEM NTRT BULLETIN to ^XTMP.","","!!?1")
  1. . S X=0
  1. . S X=$O(^XMB(3.6,"B","OR PROBLEM NTRT BULLETIN",X))
  1. . M ^XTMP("OR PROBLEM NTRT BULLETIN BACKUP",3.6,X)=^XMB(3.6,X)
  1. . D EN^DDIOL("Backup complete","","!!?1")
  1. Q
  1. ;