- QAMARCH0 ;HISC/DAD-SELECTIVELY PURGE FILES 743.1, 743.2, 743.6 ;7/17/92 09:39
- ;;1.0;Clinical Monitoring System;;09/13/1993
- ;
- EN1 ; *** MONITOR HISTORY FILE (#743.2)
- W !!?5,"*********************************************************************",*7
- W !?5,"* This option DELETES selected data from the Monitor History file *"
- W !?5,"* Once the data has been deleted it CANNOT BE RECOVERED *"
- W !?5,"*********************************************************************",*7
- D ASKCONT G:%'=1 EXIT
- D GETMON G:QAQQUIT EXIT
- D GETDATE G:QAQQUIT EXIT
- D ASKREADY I %'=1 W !!,"Nothing deleted." G EXIT
- D QUEUE(1) G EXIT
- ENTSK1 ; *** TASKED ENTRY POINT
- D EN1^QAMARCH1 G EXIT
- ;
- EN2 ; *** FALL OUT FILE (#743.1)
- W !!?5,"********************************************************************",*7
- W !?5,"* This option DELETES selected data from the Fall Out file *"
- W !?5,"* Once the data has been deleted it CANNOT BE RECOVERED *"
- W !?5,"********************************************************************",*7
- D ASKCONT G:%'=1 EXIT
- D GETMON G:QAQQUIT EXIT
- D GETDATE G:QAQQUIT EXIT
- D ASKREADY I %'=1 W !!,"Nothing deleted." G EXIT
- D QUEUE(2) G EXIT
- ENTSK2 ; *** TASKED ENTRY POINT
- D EN2^QAMARCH1 G EXIT
- ;
- EN3 ; *** AUTO ENROLL RUN DATES FILE (#743.6)
- W !!?2,"***************************************************************************",*7
- W !?2,"* This option DELETES selected data from the Auto Enroll Run Dates file *"
- W !?2,"* Once the data has been deleted it CANNOT BE RECOVERED *"
- W !?2,"***************************************************************************",*7
- D ASKCONT G:%'=1 EXIT
- D GETMON G:QAQQUIT EXIT
- D GETDATE G:QAQQUIT EXIT
- D ASKREADY I %'=1 W !!,"Nothing deleted." G EXIT
- D QUEUE(3) G EXIT
- ENTSK3 ; *** TASKED ENTRY POINT
- D EN3^QAMARCH1
- ;
- EXIT ; *** COMMON EXIT POINT
- S:$D(ZTQUEUED) ZTREQ="@"
- 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
- Q
- ;
- ASKCONT ; *** CONTINUE?
- 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
- Q
- ;
- ASKREADY ; *** READY TO DELETE?
- W *7
- 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
- Q
- ;
- GETMON ; *** MONITORS TO DELETE
- W !!,"Select the monitors to delete." S QAQDIC="^QA(743,",QAQDIC(0)="AEMNQZ",QAQDIC("A")="Select MONITOR: ",QAQUTIL="QAM MONITOR" D EN1^QAQSELCT
- Q
- ;
- GETDATE ; *** DATE RANGE TO DELETE
- W !!,"Select the date range to delete." D ^QAQDATE
- Q
- ;
- QUEUE(X) ; *** QUEUE THE DELETION
- S ZTRTN="ENTSK"_X_"^QAMARCH0",(ZTSAVE("QAM*"),ZTSAVE("QAQ*"),ZTSAVE("^UTILITY($J,"),ZTIO)=""
- 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
- D ^%ZTLOAD W !!,"Deletion request queued."
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAMARCH0 3103 printed Jan 18, 2025@02:42:56 Page 2
- QAMARCH0 ;HISC/DAD-SELECTIVELY PURGE FILES 743.1, 743.2, 743.6 ;7/17/92 09:39
- +1 ;;1.0;Clinical Monitoring System;;09/13/1993
- +2 ;
- EN1 ; *** MONITOR HISTORY FILE (#743.2)
- +1 WRITE !!?5,"*********************************************************************",*7
- +2 WRITE !?5,"* This option DELETES selected data from the Monitor History file *"
- +3 WRITE !?5,"* Once the data has been deleted it CANNOT BE RECOVERED *"
- +4 WRITE !?5,"*********************************************************************",*7
- +5 DO ASKCONT
- if %'=1
- GOTO EXIT
- +6 DO GETMON
- if QAQQUIT
- GOTO EXIT
- +7 DO GETDATE
- if QAQQUIT
- GOTO EXIT
- +8 DO ASKREADY
- IF %'=1
- WRITE !!,"Nothing deleted."
- GOTO EXIT
- +9 DO QUEUE(1)
- GOTO EXIT
- ENTSK1 ; *** TASKED ENTRY POINT
- +1 DO EN1^QAMARCH1
- GOTO EXIT
- +2 ;
- EN2 ; *** FALL OUT FILE (#743.1)
- +1 WRITE !!?5,"********************************************************************",*7
- +2 WRITE !?5,"* This option DELETES selected data from the Fall Out file *"
- +3 WRITE !?5,"* Once the data has been deleted it CANNOT BE RECOVERED *"
- +4 WRITE !?5,"********************************************************************",*7
- +5 DO ASKCONT
- if %'=1
- GOTO EXIT
- +6 DO GETMON
- if QAQQUIT
- GOTO EXIT
- +7 DO GETDATE
- if QAQQUIT
- GOTO EXIT
- +8 DO ASKREADY
- IF %'=1
- WRITE !!,"Nothing deleted."
- GOTO EXIT
- +9 DO QUEUE(2)
- GOTO EXIT
- ENTSK2 ; *** TASKED ENTRY POINT
- +1 DO EN2^QAMARCH1
- GOTO EXIT
- +2 ;
- EN3 ; *** AUTO ENROLL RUN DATES FILE (#743.6)
- +1 WRITE !!?2,"***************************************************************************",*7
- +2 WRITE !?2,"* This option DELETES selected data from the Auto Enroll Run Dates file *"
- +3 WRITE !?2,"* Once the data has been deleted it CANNOT BE RECOVERED *"
- +4 WRITE !?2,"***************************************************************************",*7
- +5 DO ASKCONT
- if %'=1
- GOTO EXIT
- +6 DO GETMON
- if QAQQUIT
- GOTO EXIT
- +7 DO GETDATE
- if QAQQUIT
- GOTO EXIT
- +8 DO ASKREADY
- IF %'=1
- WRITE !!,"Nothing deleted."
- GOTO EXIT
- +9 DO QUEUE(3)
- GOTO EXIT
- ENTSK3 ; *** TASKED ENTRY POINT
- +1 DO EN3^QAMARCH1
- +2 ;
- EXIT ; *** COMMON EXIT POINT
- +1 if $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +2 KILL %,%Y,DA,DIC,DIE,DIK,DR,QADL,QAMD0,QAMD1,QAMDATE,QAMDELET,QAMEND,QAMFALL,QAMMON,QAMMONNM,QAMQUIT,QAMSAMP,QAMSTART,QAMZERO,QAQQUIT,ZTDESC,ZTIO,ZTRTN,ZTSAVE
- DO K^QAQDATE
- +3 QUIT
- +4 ;
- ASKCONT ; *** CONTINUE?
- +1 WRITE !!,"Are you sure you want to continue"
- SET %=2
- DO YN^DICN
- IF '%
- WRITE !!?5,"Please answer Y(es) or N(o)"
- GOTO ASKCONT
- +2 QUIT
- +3 ;
- ASKREADY ; *** READY TO DELETE?
- +1 WRITE *7
- AR WRITE !!,"Ready to DELETE, are you sure"
- SET %=2
- DO YN^DICN
- IF '%
- WRITE !!?5,"Enter Y(es) to delete the selected data, or",!?5,"Enter N(o) to exit without deleting the data"
- GOTO AR
- +1 QUIT
- +2 ;
- GETMON ; *** MONITORS TO DELETE
- +1 WRITE !!,"Select the monitors to delete."
- SET QAQDIC="^QA(743,"
- SET QAQDIC(0)="AEMNQZ"
- SET QAQDIC("A")="Select MONITOR: "
- SET QAQUTIL="QAM MONITOR"
- DO EN1^QAQSELCT
- +2 QUIT
- +3 ;
- GETDATE ; *** DATE RANGE TO DELETE
- +1 WRITE !!,"Select the date range to delete."
- DO ^QAQDATE
- +2 QUIT
- +3 ;
- QUEUE(X) ; *** QUEUE THE DELETION
- +1 SET ZTRTN="ENTSK"_X_"^QAMARCH0"
- SET (ZTSAVE("QAM*"),ZTSAVE("QAQ*"),ZTSAVE("^UTILITY($J,"),ZTIO)=""
- +2 SET ZTDESC="Purge the "_$SELECT(X=1:"MONITOR HISTORY",X=2:"FALL OUT",X=3:"AUTO ENROLL RUN DATES",1:"???")_" file (#"_$SELECT(X=1:743.2,X=2:743.1,X=3:743.6,1:"???")_")"
- SET ZTDTH=$HOROLOG
- +3 DO ^%ZTLOAD
- WRITE !!,"Deletion request queued."
- +4 QUIT