| [613] | 1 | ESPREG ;DALISC/CKA- EDIT REGISTRATION PROGRAM ;5/91
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | EN ;
|
|---|
| 4 | 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
|
|---|
| 5 | 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
|
|---|
| 6 | ;
|
|---|
| 7 | 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
|
|---|
| 8 | 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
|
|---|
| 9 | DISPLAY ;Show the record to be edited
|
|---|
| 10 | S DIC="^ESP(910.2,",DA=+ESPY D EN^DIQ
|
|---|
| 11 | EDIT ;
|
|---|
| 12 | L +^ESP(910.2,+ESPY):0 E W !!?5,"Record is in use. Try later.",!,$C(7) G REG
|
|---|
| 13 | 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
|
|---|
| 14 | ;
|
|---|
| 15 | DR ;
|
|---|
| 16 | ;;1.01:1.09;20
|
|---|
| 17 | ;;4.01:4.05;20
|
|---|
| 18 | ;;2.01:2.08;20
|
|---|
| 19 | ;;3.01:3.08;20
|
|---|
| 20 | ;;5.02;20
|
|---|
| 21 | ;;10;5;20
|
|---|
| 22 | EXIT W:$D(DTOUT) $C(7)
|
|---|
| 23 | K ESPNAM,ESPRT,ESPRTD,ESPY QUIT
|
|---|
| 24 | MES ;
|
|---|
| 25 | 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."
|
|---|
| 26 | G REG
|
|---|
