- ESPUVN ;DALISC/CKA - ENTER U.S. DISTRICT COURT/COURTESY VIOLATION NOTICE;12/17/93
- ;;1.0;POLICE & SECURITY;**4,35**;Mar 31, 1994
- ;ESPTYPE="C" FOR COURTESY ESPTYPE="V" FOR USDCVN
- TYPE ;IF '$D(ESPTYPE) THEN ASK IF COURTESY OR USDCVN
- I '$D(ESPTYPE) D
- . S DIR(0)="S^C:COURTESY;V:USDC",DIR("A")="Is this a courtesy or USDC violation",DIR("?")="^W !,?10,""Enter C for COURTESY or V for USDC violation"""
- . D ^DIR K DIR I "CV"[Y S ESPTYPE=Y
- I '$D(ESPTYPE) W !!,$C(7),"The program is now exiting!" G EXIT
- FAC K DIC S DIC("A")="Select Facility: ",DIC(0)="QAEMZ",DIC="^DG(40.8," D ^DIC
- G:$D(DTOUT)!$D(DUOUT)!(+Y'>0) EXIT
- S ESPFAC=+Y
- D DT^DICRW F I=1:1:13 S ESPD(I)="" S ESPVAR=4
- MNI I '$D(ESPFN) W ! D EN^ESPMNI G:'$D(ESPFN) EXIT G:(ESPFN'>0) EXIT
- S ESPNAM=$P(^ESP(910,ESPFN,0),U)
- I ESPNAM'["UNKNOWN" D DISPL
- ADD S DIR(0)="Y",DIR("A")="Do you want to add a new violation",DIR("B")="YES" D ^DIR K DIR I 'Y K ESPFN G MNI
- DTO W !! S DIR(0)="DO^:-NOW:ETXR",DIR("A")="DATE/TIME OF OFFENSE",DIR("?")="^W !!,?10,""Enter the date and time of the offense. Future dates not allowed."" S %DT=""ETXR"" D HELP^%DTC"
- D ^DIR K DIR G:$D(DIRUT) EXIT S ESPD(.02)=Y,ESPD(.1)=ESPFAC
- OFF S ESPX=".04" D RD G:$D(DUOUT) NOUPD S:+Y ESPD(.04)=+Y S:'+Y ESPD(.02)=""
- I ESPTYPE="C" G POL
- VIO S ESPX=".05" D RD G:$D(DUOUT) NOUPD S ESPD(.05)=Y
- POL S ESPX=".06" D RD G:$D(DUOUT) NOUPD S:+Y ESPD(.06)=+Y S:'+Y ESPD(.06)=""
- LOC S ESPX=".07" D RD G:$D(DUOUT) NOUPD S ESPD(.07)=Y
- DESC S ESPX=".08" D RD G:$D(DUOUT) NOUPD S ESPD(.08)=Y
- DEC S ESPX="1.01" D RD G:$D(DUOUT) NOUPD S:+Y ESPD(1.01)=+Y S:'+Y ESPD(1.01)=""
- DCOL S ESPX="1.02" D RD G:$D(DUOUT) NOUPD S:+Y ESPD(1.02)=+Y S:'+Y ESPD(1.02)=""
- LIC S ESPX="1.03" D RD G:$D(DUOUT) NOUPD S ESPD(1.03)=Y
- ST S ESPX="1.04" D RD G:$D(DUOUT) NOUPD S:+Y ESPD(1.04)=+Y S:'+Y ESPD(1.04)=""
- MAKE S ESPX="1.05" D RD G:$D(DUOUT) NOUPD S:+Y ESPD(1.05)=+Y S:'+Y ESPD(1.05)=""
- MOD S ESPX="1.06" D RD G:$D(DUOUT) NOUPD S ESPD(1.06)=Y
- STY S ESPX="1.07" D RD G:$D(DUOUT) NOUPD S ESPD(1.07)=Y
- VCOL S ESPX="1.08" D RD G:$D(DUOUT) NOUPD S:+Y ESPD(1.08)=+Y S:'+Y ESPD(1.08)=""
- YR S ESPX="1.09" D RD G:$D(DUOUT) NOUPD S ESPD(1.09)=Y
- I ESPTYPE="C" G UPD
- CRT S ESPX="2.01" D RD G:$D(DUOUT) NOUPD S ESPD(2.01)=Y
- I ESPD(2.01)<ESPD(.02),ESPD(2.01)'="" W !?5,$C(7),"Court Date must be after the Date/Time of Offense!" G CRT
- DISP S ESPX="2.02" D RD G:$D(DUOUT) NOUPD S:+Y ESPD(2.02)=+Y S:'+Y ESPD(2.02)=""
- RMK W !,"REMARKS: " S DWLW=80,DWPK=1,DIC="^TMP($J," D EN^DIWE
- UPD W !!!,"Updating."
- STUFF K DD,DO S DIC="^ESP(914,",DIC(0)="L",DLAYGO=914 D VIO^ESPOID D FILE^DICN
- S ESPVIO=+Y
- L +^ESP(914,ESPVIO):1 I '$T W !,"Another user is editing this record!!"
- I ESPTYPE="C" G C
- S ^ESP(914,ESPVIO,0)=ESPVIO_"^"_ESPD(.02)_"^V^"_ESPD(.04)_"^"_ESPD(.05)_"^"_ESPD(.06)_"^"_ESPD(.07)_"^"_ESPD(.08)_"^"_ESPFN_"^"_ESPD(.1)
- S ^ESP(914,ESPVIO,1)=ESPD(1.01)_"^"_ESPD(1.02)_"^"_ESPD(1.03)_"^"_ESPD(1.04)_"^"_ESPD(1.05)_"^"_ESPD(1.06)_"^"_ESPD(1.07)_"^"_ESPD(1.08)_"^"_ESPD(1.09)
- S ^ESP(914,ESPVIO,2)=ESPD(2.01)_"^"_ESPD(2.02),%X="^TMP("_$J_",",%Y="^ESP(914,"_ESPVIO_",10," D %XY^%RCR
- S DIK="^ESP(914,",DA=ESPVIO D IX1^DIK K DIK,DD
- W !!,"Done."
- L -^ESP(914,ESPVIO)
- G EXIT
- ;
- C ;STUFF COURTESY VIOLATION
- S ^ESP(914,ESPVIO,0)=ESPVIO_"^"_ESPD(.02)_"^C^"_ESPD(.04)_"^^"_ESPD(.06)_"^"_ESPD(.07)_"^"_ESPD(.08)_"^"_ESPFN_"^"_ESPD(.1)
- S ^ESP(914,ESPVIO,1)=ESPD(1.01)_"^"_ESPD(1.02)_"^"_ESPD(1.03)_"^"_ESPD(1.04)_"^"_ESPD(1.05)_"^"_ESPD(1.06)_"^"_ESPD(1.07)_"^"_ESPD(1.08)_"^"_ESPD(1.09)
- S DIK="^ESP(914,",DA=ESPVIO D IX1^DIK K DIK,DD
- W !!,"Done."
- L -^ESP(914,ESPVIO)
- EXIT K ESPFAC,ESPD,ESPFN,ESPTYPE,ESPVIO,ESPX,^TMP($J)
- QUIT
- RD S DIR(0)="914,"_ESPX D ^DIR I $S(($L(X)>1&($E(X)=U)):1,($L(X)>1&(X[U)):1,1:0) D NO K X,Y G RD
- K DIR
- Q
- NO W $C(7),!!?5,"NO '^'S ALLOWED!",!! Q
- NOUPD W !!,$C(7),?20,"NO UPDATING HAS OCCURRED!!!",!! K ESPD,ESPX G DTO
- DISPL S ESPN=0 I '$O(^ESP(914,"E",ESPFN,ESPN)) W !!,"NO EXISTING VIOLATIONS FOR ",ESPNAM,! Q
- W !!,"EXISTING VIOLATIONS FOR ",ESPNAM,!
- W "ID#",?15,"DATE/TIME OF OFFENSE",?37,"OFFENSE CHARGED",?70,"TYPE"
- F ESPN=0:0 S ESPN=$O(^ESP(914,"E",ESPFN,ESPN)) Q:ESPN="" D
- . K ^UTILITY("DIQ1",$J)
- . S DIC="^ESP(914,",DR=".01;.02;.04;.03",DA=ESPN,DIQ(0)="IE" D EN^DIQ1
- . W !,^UTILITY("DIQ1",$J,914,DA,.01,"E"),?15,^UTILITY("DIQ1",$J,914,DA,.02,"E"),?37,^UTILITY("DIQ1",$J,914,DA,.04,"E"),?70,^UTILITY("DIQ1",$J,914,DA,.03,"E")
- . K DA
- QUIT
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPUVN 4438 printed Jan 18, 2025@03:32:04 Page 2
- ESPUVN ;DALISC/CKA - ENTER U.S. DISTRICT COURT/COURTESY VIOLATION NOTICE;12/17/93
- +1 ;;1.0;POLICE & SECURITY;**4,35**;Mar 31, 1994
- +2 ;ESPTYPE="C" FOR COURTESY ESPTYPE="V" FOR USDCVN
- TYPE ;IF '$D(ESPTYPE) THEN ASK IF COURTESY OR USDCVN
- +1 IF '$DATA(ESPTYPE)
- Begin DoDot:1
- +2 SET DIR(0)="S^C:COURTESY;V:USDC"
- SET DIR("A")="Is this a courtesy or USDC violation"
- SET DIR("?")="^W !,?10,""Enter C for COURTESY or V for USDC violation"""
- +3 DO ^DIR
- KILL DIR
- IF "CV"[Y
- SET ESPTYPE=Y
- End DoDot:1
- +4 IF '$DATA(ESPTYPE)
- WRITE !!,$CHAR(7),"The program is now exiting!"
- GOTO EXIT
- FAC KILL DIC
- SET DIC("A")="Select Facility: "
- SET DIC(0)="QAEMZ"
- SET DIC="^DG(40.8,"
- DO ^DIC
- +1 if $DATA(DTOUT)!$DATA(DUOUT)!(+Y'>0)
- GOTO EXIT
- +2 SET ESPFAC=+Y
- +3 DO DT^DICRW
- FOR I=1:1:13
- SET ESPD(I)=""
- SET ESPVAR=4
- MNI IF '$DATA(ESPFN)
- WRITE !
- DO EN^ESPMNI
- if '$DATA(ESPFN)
- GOTO EXIT
- if (ESPFN'>0)
- GOTO EXIT
- +1 SET ESPNAM=$PIECE(^ESP(910,ESPFN,0),U)
- +2 IF ESPNAM'["UNKNOWN"
- DO DISPL
- ADD SET DIR(0)="Y"
- SET DIR("A")="Do you want to add a new violation"
- SET DIR("B")="YES"
- DO ^DIR
- KILL DIR
- IF 'Y
- KILL ESPFN
- GOTO MNI
- DTO WRITE !!
- SET DIR(0)="DO^:-NOW:ETXR"
- SET DIR("A")="DATE/TIME OF OFFENSE"
- SET DIR("?")="^W !!,?10,""Enter the date and time of the offense. Future dates not allowed."" S %DT=""ETXR"" D HELP^%DTC"
- +1 DO ^DIR
- KILL DIR
- if $DATA(DIRUT)
- GOTO EXIT
- SET ESPD(.02)=Y
- SET ESPD(.1)=ESPFAC
- OFF SET ESPX=".04"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- if +Y
- SET ESPD(.04)=+Y
- if '+Y
- SET ESPD(.02)=""
- +1 IF ESPTYPE="C"
- GOTO POL
- VIO SET ESPX=".05"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- SET ESPD(.05)=Y
- POL SET ESPX=".06"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- if +Y
- SET ESPD(.06)=+Y
- if '+Y
- SET ESPD(.06)=""
- LOC SET ESPX=".07"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- SET ESPD(.07)=Y
- DESC SET ESPX=".08"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- SET ESPD(.08)=Y
- DEC SET ESPX="1.01"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- if +Y
- SET ESPD(1.01)=+Y
- if '+Y
- SET ESPD(1.01)=""
- DCOL SET ESPX="1.02"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- if +Y
- SET ESPD(1.02)=+Y
- if '+Y
- SET ESPD(1.02)=""
- LIC SET ESPX="1.03"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- SET ESPD(1.03)=Y
- ST SET ESPX="1.04"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- if +Y
- SET ESPD(1.04)=+Y
- if '+Y
- SET ESPD(1.04)=""
- MAKE SET ESPX="1.05"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- if +Y
- SET ESPD(1.05)=+Y
- if '+Y
- SET ESPD(1.05)=""
- MOD SET ESPX="1.06"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- SET ESPD(1.06)=Y
- STY SET ESPX="1.07"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- SET ESPD(1.07)=Y
- VCOL SET ESPX="1.08"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- if +Y
- SET ESPD(1.08)=+Y
- if '+Y
- SET ESPD(1.08)=""
- YR SET ESPX="1.09"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- SET ESPD(1.09)=Y
- +1 IF ESPTYPE="C"
- GOTO UPD
- CRT SET ESPX="2.01"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- SET ESPD(2.01)=Y
- +1 IF ESPD(2.01)<ESPD(.02)
- IF ESPD(2.01)'=""
- WRITE !?5,$CHAR(7),"Court Date must be after the Date/Time of Offense!"
- GOTO CRT
- DISP SET ESPX="2.02"
- DO RD
- if $DATA(DUOUT)
- GOTO NOUPD
- if +Y
- SET ESPD(2.02)=+Y
- if '+Y
- SET ESPD(2.02)=""
- RMK WRITE !,"REMARKS: "
- SET DWLW=80
- SET DWPK=1
- SET DIC="^TMP($J,"
- DO EN^DIWE
- UPD WRITE !!!,"Updating."
- STUFF KILL DD,DO
- SET DIC="^ESP(914,"
- SET DIC(0)="L"
- SET DLAYGO=914
- DO VIO^ESPOID
- DO FILE^DICN
- +1 SET ESPVIO=+Y
- +2 LOCK +^ESP(914,ESPVIO):1
- IF '$TEST
- WRITE !,"Another user is editing this record!!"
- +3 IF ESPTYPE="C"
- GOTO C
- +4 SET ^ESP(914,ESPVIO,0)=ESPVIO_"^"_ESPD(.02)_"^V^"_ESPD(.04)_"^"_ESPD(.05)_"^"_ESPD(.06)_"^"_ESPD(.07)_"^"_ESPD(.08)_"^"_ESPFN_"^"_ESPD(.1)
- +5 SET ^ESP(914,ESPVIO,1)=ESPD(1.01)_"^"_ESPD(1.02)_"^"_ESPD(1.03)_"^"_ESPD(1.04)_"^"_ESPD(1.05)_"^"_ESPD(1.06)_"^"_ESPD(1.07)_"^"_ESPD(1.08)_"^"_ESPD(1.09)
- +6 SET ^ESP(914,ESPVIO,2)=ESPD(2.01)_"^"_ESPD(2.02)
- SET %X="^TMP("_$JOB_","
- SET %Y="^ESP(914,"_ESPVIO_",10,"
- DO %XY^%RCR
- +7 SET DIK="^ESP(914,"
- SET DA=ESPVIO
- DO IX1^DIK
- KILL DIK,DD
- +8 WRITE !!,"Done."
- +9 LOCK -^ESP(914,ESPVIO)
- +10 GOTO EXIT
- +11 ;
- C ;STUFF COURTESY VIOLATION
- +1 SET ^ESP(914,ESPVIO,0)=ESPVIO_"^"_ESPD(.02)_"^C^"_ESPD(.04)_"^^"_ESPD(.06)_"^"_ESPD(.07)_"^"_ESPD(.08)_"^"_ESPFN_"^"_ESPD(.1)
- +2 SET ^ESP(914,ESPVIO,1)=ESPD(1.01)_"^"_ESPD(1.02)_"^"_ESPD(1.03)_"^"_ESPD(1.04)_"^"_ESPD(1.05)_"^"_ESPD(1.06)_"^"_ESPD(1.07)_"^"_ESPD(1.08)_"^"_ESPD(1.09)
- +3 SET DIK="^ESP(914,"
- SET DA=ESPVIO
- DO IX1^DIK
- KILL DIK,DD
- +4 WRITE !!,"Done."
- +5 LOCK -^ESP(914,ESPVIO)
- EXIT KILL ESPFAC,ESPD,ESPFN,ESPTYPE,ESPVIO,ESPX,^TMP($JOB)
- +1 QUIT
- RD SET DIR(0)="914,"_ESPX
- DO ^DIR
- IF $SELECT(($LENGTH(X)>1&($EXTRACT(X)=U)):1,($LENGTH(X)>1&(X[U)):1,1:0)
- DO NO
- KILL X,Y
- GOTO RD
- +1 KILL DIR
- +2 QUIT
- NO WRITE $CHAR(7),!!?5,"NO '^'S ALLOWED!",!!
- QUIT
- NOUPD WRITE !!,$CHAR(7),?20,"NO UPDATING HAS OCCURRED!!!",!!
- KILL ESPD,ESPX
- GOTO DTO
- DISPL SET ESPN=0
- IF '$ORDER(^ESP(914,"E",ESPFN,ESPN))
- WRITE !!,"NO EXISTING VIOLATIONS FOR ",ESPNAM,!
- QUIT
- +1 WRITE !!,"EXISTING VIOLATIONS FOR ",ESPNAM,!
- +2 WRITE "ID#",?15,"DATE/TIME OF OFFENSE",?37,"OFFENSE CHARGED",?70,"TYPE"
- +3 FOR ESPN=0:0
- SET ESPN=$ORDER(^ESP(914,"E",ESPFN,ESPN))
- if ESPN=""
- QUIT
- Begin DoDot:1
- +4 KILL ^UTILITY("DIQ1",$JOB)
- +5 SET DIC="^ESP(914,"
- SET DR=".01;.02;.04;.03"
- SET DA=ESPN
- SET DIQ(0)="IE"
- DO EN^DIQ1
- +6 WRITE !,^UTILITY("DIQ1",$JOB,914,DA,.01,"E"),?15,^UTILITY("DIQ1",$JOB,914,DA,.02,"E"),?37,^UTILITY("DIQ1",$JOB,914,DA,.04,"E"),?70,^UTILITY("DIQ1",$JOB,914,DA,.03,"E")
- +7 KILL DA
- End DoDot:1
- +8 QUIT