| [613] | 1 | ESPUCM ;DALISC/CKA -UNIFORM CRIME REPORT IN MAIL MESSAGE- 4/93
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;**13**;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 | NDB ; ask about transmission to national database
|
|---|
| 12 | N ESPFLG
|
|---|
| 13 | D VADB
|
|---|
| 14 | START ; BEGINS THE PRINT OF THIS CRIME REPORT
|
|---|
| 15 | MM S ESPL=0,PAGE=0,SPACES=" ",IOM=79,IOSL=64
|
|---|
| 16 | W !,"Mail message is now being created."
|
|---|
| 17 | K ^UTILITY("DIQ1",$J),^TMP($J,"UCM") D HDR
|
|---|
| 18 | 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
|
|---|
| 19 | BDT S ESPX=$E(SPACES,1,45)_"BEGINNING DATE: "_$G(^UTILITY("DIQ1",$J,912.4,DA,.01,"E")) D MSG
|
|---|
| 20 | EDT S ESPX=$E(SPACES,1,45)_"ENDING DATE: "_$G(^UTILITY("DIQ1",$J,912.4,DA,.02,"E")) D MSG
|
|---|
| 21 | F ESPN=0:0 S ESPN=$O(^ESP(912.4,ESPIEN,1,ESPN)) Q:ESPN'>0 D PRT^ESPUCM1
|
|---|
| 22 | EX K BEGDATE,DA,DIC,DIQ,DR,ESPIEN,ESPL,ESPN,ESPX,PAGE,SPACES,TOT,Y,^UTILITY("DIQ1",$J),^TMP($J,"UCM")
|
|---|
| 23 | QUIT
|
|---|
| 24 | HDR ;PRINT HEADING
|
|---|
| 25 | S PAGE=PAGE+1 S ESPX=$E(SPACES,1,25)_"DEPARTMENT OF VETERANS AFFAIRS"_$E(SPACES,1,(IOM-65))_"PAGE: "_$J(PAGE,3) D MSG
|
|---|
| 26 | S ESPX=$E(SPACES,1,35)_"VA POLICE" D MSG S ESPX=$E(SPACES,1,33)_"UNIFORM CRIME REPORT" D MSG
|
|---|
| 27 | S ESPX=" " D MSG S ESPX="VA Facility "_$P(^ESP(912.4,ESPIEN,1,1,0),U) D MSG
|
|---|
| 28 | QUIT
|
|---|
| 29 | MSG S ^TMP($J,"UCM",ESPL)=ESPX,ESPL=ESPL+1
|
|---|
| 30 | QUIT
|
|---|
| 31 | VADB ; transmit to national database
|
|---|
| 32 | N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
|
|---|
| 33 | W !
|
|---|
| 34 | S DIR("A")="Do you want to transmit this report to the National Database (XXX@Q-VAP.VA.GOV)",DIR("B")="NO",DIR(0)="Y"
|
|---|
| 35 | D ^DIR
|
|---|
| 36 | S ESPFLG=Y
|
|---|
| 37 | W !
|
|---|
| 38 | QUIT
|
|---|
