- ESPUCD ;DALISC/CKA - DELETE CRIME STATISTICS- 3/93
- ;;1.0;POLICE & SECURITY;;Mar 31, 1994
- START ;
- I '$D(DUZ(2)) W !,"Site # is not defined!" G EX
- DATE ;ASK BEGINNING DATE
- D DT^DICRW K BEGDATE
- BEG ;ASK FOR CRIME DATA DATE TO DELETE
- S DIC="^ESP(912.4,",DIC(0)="AEMQ",DIC("A")=" Beginning DATE of Report to Delete : " D ^DIC
- I Y<0 G EX
- S ESPIEN=+Y
- PRT ;PRINT BEGINNING AND ENDING DATE
- S DIC="^ESP(912.4,",DA=ESPIEN,DR=".01;.02",DIQ(0)="E" D EN^DIQ1 I '$D(^UTILITY("DIQ1",$J,912.4,DA)) W !,"RECORD DOESN'T EXIST!" G EX
- BDT W !!,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,DA,.01,"E"))
- EDT W !,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,DA,.02,"E")),!!
- ASK S DIR(0)="Y",DIR("A")="Are you sure you want to delete these statistics",DIR("B")="NO" D ^DIR K DIR W !!
- I 'Y G EX
- DEL ;DIK CALL TO DELETE
- S DIK="^ESP(912.4,",DA=ESPIEN D ^DIK W !,"Deleted"
- EX W:$D(DTOUT) $C(7)
- K BEGDATE,DA,DIC,DIK,DIQ,DIR,DR,DTOUT,ESPIEN,Y,^UTILITY("DIQ1",$J) Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPUCD 966 printed Feb 18, 2025@23:56:53 Page 2
- ESPUCD ;DALISC/CKA - DELETE CRIME STATISTICS- 3/93
- +1 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
- START ;
- +1 IF '$DATA(DUZ(2))
- WRITE !,"Site # is not defined!"
- GOTO EX
- DATE ;ASK BEGINNING DATE
- +1 DO DT^DICRW
- KILL BEGDATE
- BEG ;ASK FOR CRIME DATA DATE TO DELETE
- +1 SET DIC="^ESP(912.4,"
- SET DIC(0)="AEMQ"
- SET DIC("A")=" Beginning DATE of Report to Delete : "
- DO ^DIC
- +2 IF Y<0
- GOTO EX
- +3 SET ESPIEN=+Y
- PRT ;PRINT BEGINNING AND ENDING DATE
- +1 SET DIC="^ESP(912.4,"
- SET DA=ESPIEN
- SET DR=".01;.02"
- SET DIQ(0)="E"
- DO EN^DIQ1
- IF '$DATA(^UTILITY("DIQ1",$JOB,912.4,DA))
- WRITE !,"RECORD DOESN'T EXIST!"
- GOTO EX
- BDT WRITE !!,"BEGINNING DATE: ",$GET(^UTILITY("DIQ1",$JOB,912.4,DA,.01,"E"))
- EDT WRITE !,"ENDING DATE: ",$GET(^UTILITY("DIQ1",$JOB,912.4,DA,.02,"E")),!!
- ASK SET DIR(0)="Y"
- SET DIR("A")="Are you sure you want to delete these statistics"
- SET DIR("B")="NO"
- DO ^DIR
- KILL DIR
- WRITE !!
- +1 IF 'Y
- GOTO EX
- DEL ;DIK CALL TO DELETE
- +1 SET DIK="^ESP(912.4,"
- SET DA=ESPIEN
- DO ^DIK
- WRITE !,"Deleted"
- EX if $DATA(DTOUT)
- WRITE $CHAR(7)
- +1 KILL BEGDATE,DA,DIC,DIK,DIQ,DIR,DR,DTOUT,ESPIEN,Y,^UTILITY("DIQ1",$JOB)
- QUIT