| 1 | ESPVREG ;DALISC/CKA - VEHICLE REGISTRATION INPUT;3/99
|
---|
| 2 | ;;1.0;POLICE & SECURITY;**12,27**;Mar 31, 1994
|
---|
| 3 | EN ;
|
---|
| 4 | D DT^DICRW S ESPRT(1)=1 F I=1:1:13 S ESPD(I)=""
|
---|
| 5 | NAM I '$D(ESPFN) W ! S ESPVAR=2 D EN^ESPMNI G:'$D(ESPFN)!($D(DTOUT)) EXIT S ESPNAM=$P(^ESP(910,ESPFN,0),U)
|
---|
| 6 | NUM W ! S DIR(0)="FO^1:30",DIR("A")="DECAL",DIR("?")="Enter the Decal # (ex. 9999)",DIR("??")="^S D=""B"",DZ=""??"",DIC=""^ESP(910.2,"",DIC(0)=""AEQZ"",DIC(""S"")=""I $P(^(0),U,4)=1&($P(^(0),U,3)=ESPFN)"" D DQ^DICQ K DIC"
|
---|
| 7 | D ^DIR K DIR G:$D(DIRUT) EXIT S ESPX=Y
|
---|
| 8 | LKUP S X=ESPX,DIC="^ESP(910.2,",DIC(0)="EZ",DIC("S")="I $P(^(0),U,4)=1&($P(^(0),U,3)=ESPFN)" D ^DIC K DIC S ESPY=+Y I Y'<0 D FND G:'Y NAM S ESPRT(1)=1 D DISPLAY^ESPREG G:$D(DTOUT) EXIT K ESPFN G NAM
|
---|
| 9 | I Y<0 W ! G:$D(DUOUT) NUM
|
---|
| 10 | W !!,"NO MATCH FOUND."
|
---|
| 11 | ADD S DIR(0)="Y",DIR("A")="Do you want to add this decal #",DIR("B")="YES" D ^DIR K DIR I 'Y G NUM
|
---|
| 12 | S ESPD(.01)=ESPX
|
---|
| 13 | QUES F ESPI=.08,.02,.05,.07,1.01:.01:1.09 Q:$D(DUOUT) S ESPX=ESPI D RD S ESPD(ESPI)=Y
|
---|
| 14 | G:$D(DUOUT) NOU
|
---|
| 15 | REM W !,"REMARKS: " S DIC="^TMP($J," D EN^DIWE
|
---|
| 16 | DISPLAY S I=.01 D W W !,"DECAL COLOR: ",$P(ESPD(.02),U,2)
|
---|
| 17 | W !,"FACILITY: ",$P(ESPD(.08),U,2)
|
---|
| 18 | S Y=ESPD(.05) D DD^%DT W !,"DATE ASSIGNED: ",Y F I=.07,1.01 D W
|
---|
| 19 | W !,"STATE: ",$P(ESPD(1.02),U,2),!,"VEHICLE MAKE: ",$P(ESPD(1.03),U,2) F I=1.04,1.05 D W
|
---|
| 20 | W !,"VEHICLE COLOR: ",$P(ESPD(1.06),U,2),! S Y=ESPD(1.07) D DD^%DT W "YEAR OF MANUFACTURE: ",Y,!,"ASSIGNED PARKING SPACE: ",ESPD(1.08),!,"CAR POOL MEMBER: ",$S(ESPD(1.09)="Y":"YES",ESPD(1.09)="N":"NO",1:"")
|
---|
| 21 | K ^UTILITY($J,"W") S DIWL=10,DIWR=70,DIWF="W" W !,"REMARKS: " S ESPIEN=0
|
---|
| 22 | F I=0:0 S ESPIEN=$O(^TMP($J,ESPIEN)) Q:ESPIEN'>0 S X=^(ESPIEN,0) D ^DIWP
|
---|
| 23 | D ^DIWW
|
---|
| 24 | OK S DIR(0)="Y",DIR("A")="READY TO UPDATE",DIR("B")="YES" D ^DIR K DIR W !! I 'Y G NOU
|
---|
| 25 | STUFF W !,"Updating",!! K DD,DO S DIC="^ESP(910.2,",DIC(0)="L",DLAYGO=910.2,X=ESPD(.01) D FILE^DICN S ESPNUM=+Y
|
---|
| 26 | L +^ESP(910.2,ESPNUM):1 I '$T W !,"Another user is editing this record!"
|
---|
| 27 | S ^ESP(910.2,ESPNUM,0)=ESPD(.01)_"^"_+ESPD(.02)_"^"_ESPFN_"^1^"_ESPD(.05)_"^^"_ESPD(.07)_"^"_ESPD(.08)
|
---|
| 28 | S ^ESP(910.2,ESPNUM,1)=ESPD(1.01)_"^"_$P(ESPD(1.02),U,1)_"^"_$P(ESPD(1.03),U,1)_"^"_ESPD(1.04)_"^"_ESPD(1.05)_"^"_$P(ESPD(1.06),U,1)_"^"_ESPD(1.07)_"^"_ESPD(1.08)_"^"_$P(ESPD(1.09),U)
|
---|
| 29 | SREM S %X="^TMP("_$J_",",%Y="^ESP(910.2,"_ESPNUM_",20," D %XY^%RCR K ^TMP($J)
|
---|
| 30 | XR S DIK="^ESP(910.2,",DA=ESPNUM D IX1^DIK K DIK,DA W !,"Done",!!
|
---|
| 31 | L -^ESP(910.2,ESPNUM)
|
---|
| 32 | EXIT W:$D(DTOUT) $C(7)
|
---|
| 33 | K DIC,ESPD,ESPFN,ESPI,ESPNUM,Y Q
|
---|
| 34 | RD S DIR(0)="910.2,"_ESPX D ^DIR K DA,DIR Q
|
---|
| 35 | FND W !,"This decal # is already in the Police Registration Log."
|
---|
| 36 | YN1 S DIR(0)="Y",DIR("A")="Do you want to edit this registration",DIR("B")="NO" D ^DIR K DIR W !! Q
|
---|
| 37 | NOU W !!,$C(7),?20,"NO UPDATING HAS OCCURRED!!!",!! K ESPX,ESPD G EN
|
---|
| 38 | W W !,$P(^DD(910.2,I,0),U),": ",ESPD(I)
|
---|
| 39 | Q
|
---|