Routine: ESPUVN

Information

ESPUVN ;DALISC/CKA - ENTER U.S. DISTRICT COURT/COURTESY VIOLATION NOTICE;12/17/93

Source file <ESPUVN.m>

Name	Comments	DBIA/ICR reference
TYPE	;IF '$D(ESPTYPE) THEN ASK IF COURTESY OR USDCVN
FAC
MNI
ADD
DTO
OFF
VIO
POL
LOC
DESC
DEC
DCOL
LIC
ST
MAKE
MOD
STY
VCOL
YR
CRT
DISP
RMK
UPD
STUFF
C	;STUFF COURTESY VIOLATION
EXIT
RD
NO
NOUPD
DISPL

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"The program is now exiting!" Line Location: TYPE+4
Function Call: WRITE	Prompt: ! Line Location: MNI+0
Function Call: WRITE	Prompt: !! Line Location: DTO+0
Function Call: WRITE	Prompt: !?5,$C(7),"Court Date must be after the Date/Time of Offense!" Line Location: CRT+1
Function Call: WRITE	Prompt: !,"REMARKS: " Line Location: RMK+0
Function Call: WRITE	Prompt: !!!,"Updating." Line Location: UPD+0
Function Call: WRITE	Prompt: !,"Another user is editing this record!!" Line Location: STUFF+2
Function Call: WRITE	Prompt: !!,"Done." Line Location: STUFF+8
Function Call: WRITE	Prompt: !!,"Done." Line Location: C+4
Function Call: WRITE	Prompt: $C(7),!!?5,"NO '^'S ALLOWED!",!! Line Location: NO+0
Function Call: WRITE	Prompt: !!,$C(7),?20,"NO UPDATING HAS OCCURRED!!!",!! Line Location: NOUPD+0
Function Call: WRITE	Prompt: !!,"NO EXISTING VIOLATIONS FOR ",ESPNAM,! Line Location: DISPL+0
Function Call: WRITE	Prompt: !!,"EXISTING VIOLATIONS FOR ",ESPNAM,! Line Location: DISPL+1
Function Call: WRITE	Prompt: "ID#",?15,"DATE/TIME OF OFFENSE",?37,"OFFENSE CHARGED",?70,"TYPE" Line Location: DISPL+2
Function Call: WRITE	Prompt: !,^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") Line Location: DISPL+6

FileNo	Call Tags
^DG(40.8 - [#40.8]	Classic Fileman Calls
^ESP(914 - [#914]	Classic Fileman Calls