- 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 ---[H[J[2J[HGMPL56PR 656 printed Feb 18, 2025@23:56:12 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 ;