source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPVNP.m@ 701

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

initial load of WorldVistAEHR

File size: 3.7 KB
Line 
1ESPVNP ;DALISC/CKA - PRINT VIOLATION NOTICE;12/92
2 ;;1.0;POLICE & SECURITY;**5,12,14**;Mar 31, 1994
3EN ;Prints Courtesy or U.S. District Court violations
4VIO ;Entry point to print U.S. DISTRICT COURT VIOLATION NOTICES BY VIOLATION #.
5 D DT^DICRW
6NUM S DIC(0)="AEMZ",DIC("A")="VIOLATION #: ",DIC("S")="I $P(^(0),U,3)=""V""",DIC="^ESP(914,"
7 D ^DIC G:$D(DTOUT)!($D(DUOUT)) EXIT G:Y<0 NUM
8 S ESPID=+Y
9Q S %ZIS="Q" D ^%ZIS G:POP EXIT I '$D(IO("Q")) U IO D START G EXIT
10 S ZTRTN="START^ESPVNP",ZTSAVE("ESP*")="",ZTDESC="PRINT USDC VIOLATION NOTICE" D ^%ZTLOAD,HOME^%ZIS G EXIT
11START ; BEGINS THE PRINT OF THIS VIOLATION NOTICE
12 K ^UTILITY("DIQ1",$J) S TYPE=$P(^ESP(914,ESPID,0),U,3),(END,PAGE)=0 D HDR G:END EXIT
13 S DIC="^ESP(914,",DA=ESPID,DR=".02;.04;.05;.06;.07;.08;.09;1.01;1.02;1.03;1.04;1.05;1.06;1.07;1.08;1.09;2.01;2.02;10",DIQ(0)="EI" D EN^DIQ1 I '$D(^UTILITY("DIQ1",$J,914,DA)) W !,"RECORD DOESN'T EXIST!" G EXIT
14DTO W !,"DATE/TIME OF OFFENSE: ",$G(^UTILITY("DIQ1",$J,914,DA,.02,"E"))
15OFF W !,"OFFENSE CHARGED: ",$G(^UTILITY("DIQ1",$J,914,DA,.04,"E"))
16PO W !,"INVESTIGATING OFFICER: ",$G(^UTILITY("DIQ1",$J,914,DA,.06,"E"))
17LOC W !,"LOCATION: ",$G(^UTILITY("DIQ1",$J,914,DA,.07,"E"))
18DESC W !,"OFFENSE DESCRIPTION: ",$G(^UTILITY("DIQ1",$J,914,DA,.08,"E"))
19NAM W !,"OFFENDER: ",$G(^UTILITY("DIQ1",$J,914,DA,.09,"E"))
20 S ESPFN=$G(^UTILITY("DIQ1",$J,914,DA,.09,"I")) D:ESPFN
21 . S DIC="^ESP(910,",DA=ESPFN,DR=".03;.08;.09;.1;.11;1.01:1.06;3.01;3.02",DIQ(0)="E" D EN^DIQ1 I '$D(^UTILITY("DIQ1",$J,910,DA)) W !,"RECORD DOESN'T EXIST." Q
22 . W !,"DRIVER'S LICENSE #: ",$G(^UTILITY("DIQ1",$J,910,DA,.1,"E")),?40,"STATE: ",$G(^UTILITY("DIQ1",$J,910,DA,.11,"E"))
23 . W !,"HOME ADDRESS: ",$G(^UTILITY("DIQ1",$J,910,DA,1.01,"E"))
24 . I $G(^UTILITY("DIQ1",$J,910,DA,1.02,"E"))]"" W !?14,^("E")
25 . I $G(^UTILITY("DIQ1",$J,910,DA,1.03,"E"))]"" W !?14,^("E"),","
26 . W $G(^UTILITY("DIQ1",$J,910,DA,1.04,"E"))," ",$G(^UTILITY("DIQ1",$J,910,DA,1.05,"E"))
27 . Q:TYPE="C"
28 . W !,"HOME PHONE: ",$G(^UTILITY("DIQ1",$J,910,DA,1.06,"E"))
29 . W !,"BIRTH DATE: ",$G(^UTILITY("DIQ1",$J,910,DA,.03,"E"))
30 . W ?38,"SEX: ",$G(^UTILITY("DIQ1",$J,910,DA,.08,"E"))
31 . W !,"RACE: ",$G(^UTILITY("DIQ1",$J,910,DA,.09,"E"))
32 . W ?38,"HEIGHT: ",$G(^UTILITY("DIQ1",$J,910,DA,3.01,"E"))
33 . W ?55,"WEIGHT: ",$G(^UTILITY("DIQ1",$J,910,DA,3.02,"E"))
34 S DA=ESPID
35DEC W !,"DECAL # & COLOR: ",$G(^UTILITY("DIQ1",$J,914,DA,1.01,"E"))," ",$G(^UTILITY("DIQ1",$J,914,DA,1.02,"E"))
36TAG W ?38,"TAG # & STATE: ",$G(^UTILITY("DIQ1",$J,914,DA,1.03,"E"))," ",$G(^UTILITY("DIQ1",$J,914,DA,1.04,"E"))
37MAKE W !,"MAKE: ",$G(^UTILITY("DIQ1",$J,914,DA,1.05,"E"))
38MOD W ?38,"MODEL: ",$G(^UTILITY("DIQ1",$J,914,DA,1.06,"E"))
39STY W !,"STYLE: ",$G(^UTILITY("DIQ1",$J,914,DA,1.07,"E"))
40VCOL W ?38,"VEHICLE COLOR: ",$G(^UTILITY("DIQ1",$J,914,DA,1.08,"E"))
41YR W ?70,"YEAR: ",$G(^UTILITY("DIQ1",$J,914,DA,1.09,"E"))
42 I TYPE="C" G EXIT
43CRT W !,"COURT DATE: ",$G(^UTILITY("DIQ1",$J,914,DA,2.01,"E"))
44REP W ?38,"DISPOSITION: ",$G(^UTILITY("DIQ1",$J,914,DA,2.02,"E"))
45RMK K ^UTILITY($J,"W") S DIWL=3,DIWR=78,DIWF="W",IEN=0
46 W !,"REMARKS: ",!
47 F ESPN=1:1 S IEN=$O(^ESP(914,ESPID,10,IEN)) Q:IEN'>0 S X=^(IEN,0) D ^DIWP
48 D ^DIWW
49EXIT W:$D(DTOUT) $C(7)
50 K %ZIS,DA,DIC,DIQ,DIR,DIRUT,DR,DTOUT,END,ESPDTR,ESPID,ESPN,ESPN1,IEN,PAGE,TYPE,X,Y,ZTDESC,ZTRTN,ZTSAVE
51 K ^UTILITY("DIQ1",$J)
52 D ^%ZISC
53 QUIT
54 ;
55HDR ;PRINT HEADING
56 I $E(IOST,1,2)="C-" S END=$$EOP^ESPUTIL() Q:END
57 S PAGE=PAGE+1 W @IOF
58 I TYPE="V" W !?26,"* * * VIOLATION NOTICE * * *",!
59 W:TYPE="V" ?30,"VIOLATION #: ",$P(^ESP(914,ESPID,0),U,5)
60 I TYPE="C" W !?21,"* * * COURTESY VIOLATION NOTICE * * *",?(IOM-10)
61 W !
62 QUIT
63 ;
64 ;ENTRY POINT CSY IS TO PRINT VIOLATIONS BY OFFENDER NAME
65CSY S DIC(0)="AEMZ",DIC("A")="OFFENDER NAME: ",DIC="^ESP(914,"
66 D ^DIC G:$D(DTOUT)!($D(DUOUT)) EXIT G:Y<0 CSY S ESPID=+Y
67 D Q
68 QUIT
Note: See TracBrowser for help on using the repository browser.