| 1 | QAMARCH0 ;HISC/DAD-SELECTIVELY PURGE FILES 743.1, 743.2, 743.6 ;7/17/92 09:39
|
|---|
| 2 | ;;1.0;Clinical Monitoring System;;09/13/1993
|
|---|
| 3 | ;
|
|---|
| 4 | EN1 ; *** MONITOR HISTORY FILE (#743.2)
|
|---|
| 5 | W !!?5,"*********************************************************************",*7
|
|---|
| 6 | W !?5,"* This option DELETES selected data from the Monitor History file *"
|
|---|
| 7 | W !?5,"* Once the data has been deleted it CANNOT BE RECOVERED *"
|
|---|
| 8 | W !?5,"*********************************************************************",*7
|
|---|
| 9 | D ASKCONT G:%'=1 EXIT
|
|---|
| 10 | D GETMON G:QAQQUIT EXIT
|
|---|
| 11 | D GETDATE G:QAQQUIT EXIT
|
|---|
| 12 | D ASKREADY I %'=1 W !!,"Nothing deleted." G EXIT
|
|---|
| 13 | D QUEUE(1) G EXIT
|
|---|
| 14 | ENTSK1 ; *** TASKED ENTRY POINT
|
|---|
| 15 | D EN1^QAMARCH1 G EXIT
|
|---|
| 16 | ;
|
|---|
| 17 | EN2 ; *** FALL OUT FILE (#743.1)
|
|---|
| 18 | W !!?5,"********************************************************************",*7
|
|---|
| 19 | W !?5,"* This option DELETES selected data from the Fall Out file *"
|
|---|
| 20 | W !?5,"* Once the data has been deleted it CANNOT BE RECOVERED *"
|
|---|
| 21 | W !?5,"********************************************************************",*7
|
|---|
| 22 | D ASKCONT G:%'=1 EXIT
|
|---|
| 23 | D GETMON G:QAQQUIT EXIT
|
|---|
| 24 | D GETDATE G:QAQQUIT EXIT
|
|---|
| 25 | D ASKREADY I %'=1 W !!,"Nothing deleted." G EXIT
|
|---|
| 26 | D QUEUE(2) G EXIT
|
|---|
| 27 | ENTSK2 ; *** TASKED ENTRY POINT
|
|---|
| 28 | D EN2^QAMARCH1 G EXIT
|
|---|
| 29 | ;
|
|---|
| 30 | EN3 ; *** AUTO ENROLL RUN DATES FILE (#743.6)
|
|---|
| 31 | W !!?2,"***************************************************************************",*7
|
|---|
| 32 | W !?2,"* This option DELETES selected data from the Auto Enroll Run Dates file *"
|
|---|
| 33 | W !?2,"* Once the data has been deleted it CANNOT BE RECOVERED *"
|
|---|
| 34 | W !?2,"***************************************************************************",*7
|
|---|
| 35 | D ASKCONT G:%'=1 EXIT
|
|---|
| 36 | D GETMON G:QAQQUIT EXIT
|
|---|
| 37 | D GETDATE G:QAQQUIT EXIT
|
|---|
| 38 | D ASKREADY I %'=1 W !!,"Nothing deleted." G EXIT
|
|---|
| 39 | D QUEUE(3) G EXIT
|
|---|
| 40 | ENTSK3 ; *** TASKED ENTRY POINT
|
|---|
| 41 | D EN3^QAMARCH1
|
|---|
| 42 | ;
|
|---|
| 43 | EXIT ; *** COMMON EXIT POINT
|
|---|
| 44 | S:$D(ZTQUEUED) ZTREQ="@"
|
|---|
| 45 | K %,%Y,DA,DIC,DIE,DIK,DR,QADL,QAMD0,QAMD1,QAMDATE,QAMDELET,QAMEND,QAMFALL,QAMMON,QAMMONNM,QAMQUIT,QAMSAMP,QAMSTART,QAMZERO,QAQQUIT,ZTDESC,ZTIO,ZTRTN,ZTSAVE D K^QAQDATE
|
|---|
| 46 | Q
|
|---|
| 47 | ;
|
|---|
| 48 | ASKCONT ; *** CONTINUE?
|
|---|
| 49 | W !!,"Are you sure you want to continue" S %=2 D YN^DICN I '% W !!?5,"Please answer Y(es) or N(o)" G ASKCONT
|
|---|
| 50 | Q
|
|---|
| 51 | ;
|
|---|
| 52 | ASKREADY ; *** READY TO DELETE?
|
|---|
| 53 | W *7
|
|---|
| 54 | AR W !!,"Ready to DELETE, are you sure" S %=2 D YN^DICN I '% W !!?5,"Enter Y(es) to delete the selected data, or",!?5,"Enter N(o) to exit without deleting the data" G AR
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
| 57 | GETMON ; *** MONITORS TO DELETE
|
|---|
| 58 | W !!,"Select the monitors to delete." S QAQDIC="^QA(743,",QAQDIC(0)="AEMNQZ",QAQDIC("A")="Select MONITOR: ",QAQUTIL="QAM MONITOR" D EN1^QAQSELCT
|
|---|
| 59 | Q
|
|---|
| 60 | ;
|
|---|
| 61 | GETDATE ; *** DATE RANGE TO DELETE
|
|---|
| 62 | W !!,"Select the date range to delete." D ^QAQDATE
|
|---|
| 63 | Q
|
|---|
| 64 | ;
|
|---|
| 65 | QUEUE(X) ; *** QUEUE THE DELETION
|
|---|
| 66 | S ZTRTN="ENTSK"_X_"^QAMARCH0",(ZTSAVE("QAM*"),ZTSAVE("QAQ*"),ZTSAVE("^UTILITY($J,"),ZTIO)=""
|
|---|
| 67 | S ZTDESC="Purge the "_$S(X=1:"MONITOR HISTORY",X=2:"FALL OUT",X=3:"AUTO ENROLL RUN DATES",1:"???")_" file (#"_$S(X=1:743.2,X=2:743.1,X=3:743.6,1:"???")_")",ZTDTH=$H
|
|---|
| 68 | D ^%ZTLOAD W !!,"Deletion request queued."
|
|---|
| 69 | Q
|
|---|
