GMPL56PR.m

GMPL56PR ;BP/KAM - Pre-init Driver, patch GMPL*2.0*56 ; 7/17/20 7:40am

VERSION ;;2.0;Problem List;**56**;Aug 25, 1994;Build 3

 ; Backup the OR PROBLEM NTRT BULLETIN

 Q

PRE ;

 I '$D(^XTMP("OR PROBLEM NTRT BULLETIN BACKUP")) D

 . N X1,X2,X

 . S X1=DT,X2=180 D C^%DTC

 . S ^XTMP("OR PROBLEM NTRT BULLETIN BACKUP",0)=$G(X)_"^"_$G(DT)_"^"_"Backup of the OR PROBLEM NTRT BULLETIN Patch GMPL*2*56"

 . D EN^DDIOL("Backing up OR PROBLEM NTRT BULLETIN to ^XTMP.","","!!?1")

 . S X=0

 . S X=$O(^XMB(3.6,"B","OR PROBLEM NTRT BULLETIN",X))

 . M ^XTMP("OR PROBLEM NTRT BULLETIN BACKUP",3.6,X)=^XMB(3.6,X)

 . D EN^DDIOL("Backup complete","","!!?1")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMPL56PR   656     printed  Apr 09, 2024@21:33:20                                                                                                                                                                                                     Page 2

GMPL56PR  ;BP/KAM - Pre-init Driver, patch GMPL*2.0*56 ; 7/17/20 7:40am

VERSION   ;;2.0;Problem List;**56**;Aug 25, 1994;Build 3

 +1       ; Backup the OR PROBLEM NTRT BULLETIN

 +2        QUIT 

PRE       ;

 +1        IF '$DATA(^XTMP("OR PROBLEM NTRT BULLETIN BACKUP"))

               Begin DoDot:1

 +2                NEW X1,X2,X

 +3                SET X1=DT

                   SET X2=180

                   DO C^%DTC

 +4                SET ^XTMP("OR PROBLEM NTRT BULLETIN BACKUP",0)=$GET(X)_"^"_$GET(DT)_"^"_"Backup of the OR PROBLEM NTRT BULLETIN Patch GMPL*2*56"

 +5                DO EN^DDIOL("Backing up OR PROBLEM NTRT BULLETIN to ^XTMP.","","!!?1")

 +6                SET X=0

 +7                SET X=$ORDER(^XMB(3.6,"B","OR PROBLEM NTRT BULLETIN",X))

 +8                MERGE ^XTMP("OR PROBLEM NTRT BULLETIN BACKUP",3.6,X)=^XMB(3.6,X)

 +9                DO EN^DDIOL("Backup complete","","!!?1")

               End DoDot:1

 +10       QUIT 

 +11      ;