ESPREG ;DALISC/CKA- EDIT REGISTRATION PROGRAM ;5/91
;;1.0;POLICE & SECURITY;;Mar 31, 1994
EN ;
S DIR(0)="910.2,.04" D ^DIR K DIR G:$D(DIRUT) EXIT S ESPRT=$S($D(Y(0)):Y(0),X'?1N:X,1:""),ESPRT(1)=+Y
NAM W ! S DIR(0)="P^910:EMZ" D ^DIR K DIR G:$D(DIRUT) EXIT S ESPFN=+Y,ESPNAM=$P(Y,U,2) D REG G ESPREG
;
REG S DIR(0)="FO:1:30",DIR("A")="Select VA TAG ID",DIR("?")="^S D=""B"",DZ=""??"",DIC=""^ESP(910.2,"",DIC(0)=""AEQZ"",DIC(""S"")=""I $P(^(0),U,4)=ESPRT(1)&($P(^(0),U,3)=ESPFN)"" D DQ^DICQ K DIC" D ^DIR K DIR G:'Y EXIT
S DIC="^ESP(910.2,",DIC("S")="I $P(^(0),""^"",4)=ESPRT(1)",DIC(0)="E" D ^DIC K DIC G:Y'>0 MES S ESPY=Y I '$D(^ESP(910.2,+Y,0)) W !!,"Invalid selection made...try again please!",$C(7) G REG
DISPLAY ;Show the record to be edited
S DIC="^ESP(910.2,",DA=+ESPY D EN^DIQ
EDIT ;
L +^ESP(910.2,+ESPY):0 E W !!?5,"Record is in use. Try later.",!,$C(7) G REG
S DIE="^ESP(910.2,",DA=+ESPY,DR=".01DECAL NO.;.02:.07",DR=DR_";"_$P($T(DR+ESPRT(1)),";;",2) D ^DIE L -^ESP(910.2,+ESPY) K DR,DIE G:'$D(ESPVAR) REG G EXIT
;
DR ;
;;1.01:1.09;20
;;4.01:4.05;20
;;2.01:2.08;20
;;3.01:3.08;20
;;5.02;20
;;10;5;20
EXIT W:$D(DTOUT) $C(7)
K ESPNAM,ESPRT,ESPRTD,ESPY QUIT
MES ;
I ESPRT(1)=1 W !,$C(7),ESPNAM," does not have a vehicle registered with this decal." E W !,$C(7),ESPNAM," does not have this va tag id."
G REG
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPREG 1359 printed Dec 13, 2024@02:30:16 Page 2
ESPREG ;DALISC/CKA- EDIT REGISTRATION PROGRAM ;5/91
+1 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
EN ;
+1 SET DIR(0)="910.2,.04"
DO ^DIR
KILL DIR
if $DATA(DIRUT)
GOTO EXIT
SET ESPRT=$SELECT($DATA(Y(0)):Y(0),X'?1N:X,1:"")
SET ESPRT(1)=+Y
NAM WRITE !
SET DIR(0)="P^910:EMZ"
DO ^DIR
KILL DIR
if $DATA(DIRUT)
GOTO EXIT
SET ESPFN=+Y
SET ESPNAM=$PIECE(Y,U,2)
DO REG
GOTO ESPREG
+1 ;
REG SET DIR(0)="FO:1:30"
SET DIR("A")="Select VA TAG ID"
SET DIR("?")="^S D=""B"",DZ=""??"",DIC=""^ESP(910.2,"",DIC(0)=""AEQZ"",DIC(""S"")=""I $P(^(0),U,4)=ESPRT(1)&($P(^(0),U,3)=ESPFN)"" D DQ^DICQ K DIC"
DO ^DIR
KILL DIR
if 'Y
GOTO EXIT
+1 SET DIC="^ESP(910.2,"
SET DIC("S")="I $P(^(0),""^"",4)=ESPRT(1)"
SET DIC(0)="E"
DO ^DIC
KILL DIC
if Y'>0
GOTO MES
SET ESPY=Y
IF '$DATA(^ESP(910.2,+Y,0))
WRITE !!,"Invalid selection made...try again please!",$CHAR(7)
GOTO REG
DISPLAY ;Show the record to be edited
+1 SET DIC="^ESP(910.2,"
SET DA=+ESPY
DO EN^DIQ
EDIT ;
+1 LOCK +^ESP(910.2,+ESPY):0
IF '$TEST
WRITE !!?5,"Record is in use. Try later.",!,$CHAR(7)
GOTO REG
+2 SET DIE="^ESP(910.2,"
SET DA=+ESPY
SET DR=".01DECAL NO.;.02:.07"
SET DR=DR_";"_$PIECE($TEXT(DR+ESPRT(1)),";;",2)
DO ^DIE
LOCK -^ESP(910.2,+ESPY)
KILL DR,DIE
if '$DATA(ESPVAR)
GOTO REG
GOTO EXIT
+3 ;
DR ;
+1 ;;1.01:1.09;20
+2 ;;4.01:4.05;20
+3 ;;2.01:2.08;20
+4 ;;3.01:3.08;20
+5 ;;5.02;20
+6 ;;10;5;20
EXIT if $DATA(DTOUT)
WRITE $CHAR(7)
+1 KILL ESPNAM,ESPRT,ESPRTD,ESPY
QUIT
MES ;
+1 IF ESPRT(1)=1
WRITE !,$CHAR(7),ESPNAM," does not have a vehicle registered with this decal."
IF '$TEST
WRITE !,$CHAR(7),ESPNAM," does not have this va tag id."
+2 GOTO REG
