37 lines
980 B
Mathematica
37 lines
980 B
Mathematica
XDRDPRG2 ;SF-IRMFO/REM - PURGE MERGE PROCESS FILE; 9/26/96
|
|
;;7.3;TOOLKIT;**23**;Apr 25, 1995
|
|
;;
|
|
;;
|
|
EN ;
|
|
N Y
|
|
Q:$$CHK(15.2)
|
|
;W ! K DIR S DIR(0)="Y",DIR("A")="Do you wish to Queue this purging (Y/N)"
|
|
;D ^DIR K DIR I $D(DIRUT) Q
|
|
;I Y D QUEUE Q
|
|
D ASK
|
|
Q
|
|
;
|
|
QUEUE ;Queues the process.
|
|
S ZTRTN="START^XDRDPRG2",ZTIO="",ZTDESC="Merge Process File Purge"
|
|
D ^%ZTLOAD
|
|
QUEUEX Q
|
|
;
|
|
CHK(XDRFL) ;Checks if data in file.
|
|
N XDRGL
|
|
S XDRGL=^DIC(XDRFL,0,"GL")
|
|
I $D(@(XDRGL_"""B"""_")")) Q 0
|
|
W *7,!!,"THERE IS NO DATA IN FILE!",!!
|
|
Q 1
|
|
;
|
|
ASK ;Ask user for entries to purge then purge.
|
|
N Y,DA,DIC,DIR,DIK,NAME
|
|
F D Q:Y<0
|
|
.W ! S DIC=15.2,DIC(0)="AEMZ",DIC("A")="Select Merge Process to Purge: "
|
|
.S DIC("S")="I $P(^(0),U,4)=""C""" ;Scrn for only Completed ones.
|
|
.D ^DIC Q:+Y<0 S NAME=Y(0,0),DA=+Y
|
|
.S DIR(0)="Y",DIR("B")="NO",DIR("A")="Are you sure you want to delete """_NAME_""""
|
|
.D ^DIR Q:$D(DIRUT)!('Y)
|
|
.S DIK="^VA(15.2," D ^DIK
|
|
.W !!,*7,?3,""""_NAME_""""," DELETED!",!
|
|
Q
|