source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPUCD.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 946 bytes
Line 
1ESPUCD ;DALISC/CKA - DELETE CRIME STATISTICS- 3/93
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3START ;
4 I '$D(DUZ(2)) W !,"Site # is not defined!" G EX
5DATE ;ASK BEGINNING DATE
6 D DT^DICRW K BEGDATE
7BEG ;ASK FOR CRIME DATA DATE TO DELETE
8 S DIC="^ESP(912.4,",DIC(0)="AEMQ",DIC("A")=" Beginning DATE of Report to Delete : " D ^DIC
9 I Y<0 G EX
10 S ESPIEN=+Y
11PRT ;PRINT BEGINNING AND ENDING DATE
12 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
13BDT W !!,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,DA,.01,"E"))
14EDT W !,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,DA,.02,"E")),!!
15ASK S DIR(0)="Y",DIR("A")="Are you sure you want to delete these statistics",DIR("B")="NO" D ^DIR K DIR W !!
16 I 'Y G EX
17DEL ;DIK CALL TO DELETE
18 S DIK="^ESP(912.4,",DA=ESPIEN D ^DIK W !,"Deleted"
19EX W:$D(DTOUT) $C(7)
20 K BEGDATE,DA,DIC,DIK,DIQ,DIR,DR,DTOUT,ESPIEN,Y,^UTILITY("DIQ1",$J) Q
Note: See TracBrowser for help on using the repository browser.