source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPUCP.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1ESPUCP ;DALISC/CKA -PRINT UNIFORM CRIME REPORT- 3/93
2 ;;1.0;POLICE & SECURITY;**11**;Mar 31, 1994
3EN ;
4 I '$D(DUZ(2)) W !,"Site # is not defined!" G EX
5DATE ;ASK BEGINNING DATE
6 D DT^DICRW K BEGDATE
7ASK ;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
11PRT ;PRINT REPORT
12Q 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
14START ; 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
17BDT W ?45,"BEGINNING DATE: ",$G(^UTILITY("DIQ1",$J,912.4,DA,.01,"E"))
18EDT 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
23EX D ^%ZISC
24 K %ZIS,BEGDATE,DA,DIC,DIQ,DR,END,ESPIEN,ESPN,PAGE,TOT,X,Y,^UTILITY("DIQ1",$J)
25 QUIT
26HDR ;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
Note: See TracBrowser for help on using the repository browser.