| [613] | 1 | ESPUCP ;DALISC/CKA -PRINT UNIFORM CRIME REPORT- 3/93
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;**11**;Mar 31, 1994
|
|---|
| 3 | EN ;
|
|---|
| 4 | I '$D(DUZ(2)) W !,"Site # is not defined!" G EX
|
|---|
| 5 | DATE ;ASK BEGINNING DATE
|
|---|
| 6 | D DT^DICRW K BEGDATE
|
|---|
| 7 | ASK ;ASK FOR CRIME DATA DATE TO PRINT
|
|---|
| 8 | S DIC="^ESP(912.4,",DIC(0)="AEMQ",DIC("A")=" Beginning DATE of Report to Print : " D ^DIC
|
|---|
| 9 | I Y<0 G EX
|
|---|
| 10 | S ESPIEN=+Y
|
|---|
| 11 | PRT ;PRINT REPORT
|
|---|
| 12 | Q S %ZIS="Q" D ^%ZIS G:POP EX I '$D(IO("Q")) U IO D START G EX
|
|---|
| 13 | S ZTRTN="START^ESPUCP",ZTSAVE("ESP*")="",ZTDESC="UNIFORM CRIME REPORT" D ^%ZTLOAD,HOME^%ZIS G EX
|
|---|
| 14 | START ; BEGINS THE PRINT OF THIS CRIME REPORT
|
|---|
| 15 | K ^UTILITY("DIQ1",$J) S (END,PAGE)=0 D HDR G:END EX
|
|---|
| 16 | 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
|
|---|
| 17 | BDT W ?45,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,DA,.01,"E"))
|
|---|
| 18 | EDT W !,"Date/Time Printed",?45,"ENDING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,DA,.02,"E"))
|
|---|
| 19 | D NOW^%DTC S Y=% X ^DD("DD") W !,$P(Y,":",1,2)
|
|---|
| 20 | F ESPN=0:0 S ESPN=$O(^ESP(912.4,ESPIEN,1,ESPN)) Q:ESPN'>0 D PRT^ESPUCP1
|
|---|
| 21 | W !!,"Done."
|
|---|
| 22 | QUIT
|
|---|
| 23 | EX D ^%ZISC
|
|---|
| 24 | K %ZIS,BEGDATE,DA,DIC,DIQ,DR,END,ESPIEN,ESPN,PAGE,TOT,X,Y,^UTILITY("DIQ1",$J)
|
|---|
| 25 | QUIT
|
|---|
| 26 | HDR ;PRINT HEADING
|
|---|
| 27 | I $E(IOST,1,2)="C-" W !,"Press RETURN to continue or '^' to exit: " R X:DTIME S END='$T!(X="^") Q:END
|
|---|
| 28 | S PAGE=PAGE+1 W @IOF,!?25,"DEPARTMENT OF VETERANS AFFAIRS",?70,"PAGE ",$J(PAGE,3)
|
|---|
| 29 | W !?35,"VA POLICE",!?33,"UNIFORM CRIME REPORT"
|
|---|
| 30 | W !!,"VA Facility ",$P(^ESP(912.4,ESPIEN,1,1,0),U)
|
|---|
| 31 | QUIT
|
|---|
