Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: QAMARCH0

QAMARCH0.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. EN1 ; *** MONITOR HISTORY FILE (#743.2)
  1. W !!?5,"*********************************************************************",*7
  1. W !?5,"* This option DELETES selected data from the Monitor History file *"
  1. W !?5,"* Once the data has been deleted it CANNOT BE RECOVERED *"
  1. W !?5,"*********************************************************************",*7
  1. D ASKCONT G:%'=1 EXIT
  1. D GETMON G:QAQQUIT EXIT
  1. D GETDATE G:QAQQUIT EXIT
  1. D ASKREADY I %'=1 W !!,"Nothing deleted." G EXIT
  1. D QUEUE(1) G EXIT
  1. ENTSK1 ; *** TASKED ENTRY POINT
  1. D EN1^QAMARCH1 G EXIT
  1. ;
  1. EN2 ; *** FALL OUT FILE (#743.1)
  1. W !!?5,"********************************************************************",*7
  1. W !?5,"* This option DELETES selected data from the Fall Out file *"
  1. W !?5,"* Once the data has been deleted it CANNOT BE RECOVERED *"
  1. W !?5,"********************************************************************",*7
  1. D ASKCONT G:%'=1 EXIT
  1. D GETMON G:QAQQUIT EXIT
  1. D GETDATE G:QAQQUIT EXIT
  1. D ASKREADY I %'=1 W !!,"Nothing deleted." G EXIT
  1. D QUEUE(2) G EXIT
  1. ENTSK2 ; *** TASKED ENTRY POINT
  1. D EN2^QAMARCH1 G EXIT
  1. ;
  1. EN3 ; *** AUTO ENROLL RUN DATES FILE (#743.6)
  1. W !!?2,"***************************************************************************",*7
  1. W !?2,"* This option DELETES selected data from the Auto Enroll Run Dates file *"
  1. W !?2,"* Once the data has been deleted it CANNOT BE RECOVERED *"
  1. W !?2,"***************************************************************************",*7
  1. D ASKCONT G:%'=1 EXIT
  1. D GETMON G:QAQQUIT EXIT
  1. D GETDATE G:QAQQUIT EXIT
  1. D ASKREADY I %'=1 W !!,"Nothing deleted." G EXIT
  1. D QUEUE(3) G EXIT
  1. ENTSK3 ; *** TASKED ENTRY POINT
  1. D EN3^QAMARCH1
  1. ;
  1. EXIT ; *** COMMON EXIT POINT
  1. S:$D(ZTQUEUED) ZTREQ="@"
  1. 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
  1. Q
  1. ;
  1. ASKCONT ; *** CONTINUE?
  1. 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
  1. Q
  1. ;
  1. ASKREADY ; *** READY TO DELETE?
  1. W *7
  1. 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
  1. Q
  1. ;
  1. GETMON ; *** MONITORS TO DELETE
  1. W !!,"Select the monitors to delete." S QAQDIC="^QA(743,",QAQDIC(0)="AEMNQZ",QAQDIC("A")="Select MONITOR: ",QAQUTIL="QAM MONITOR" D EN1^QAQSELCT
  1. Q
  1. ;
  1. GETDATE ; *** DATE RANGE TO DELETE
  1. W !!,"Select the date range to delete." D ^QAQDATE
  1. Q
  1. ;
  1. QUEUE(X) ; *** QUEUE THE DELETION
  1. S ZTRTN="ENTSK"_X_"^QAMARCH0",(ZTSAVE("QAM*"),ZTSAVE("QAQ*"),ZTSAVE("^UTILITY($J,"),ZTIO)=""
  1. 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
  1. D ^%ZTLOAD W !!,"Deletion request queued."
  1. Q