source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPVREG.m@ 1042

Last change on this file since 1042 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.7 KB
Line 
1ESPVREG ;DALISC/CKA - VEHICLE REGISTRATION INPUT;3/99
2 ;;1.0;POLICE & SECURITY;**12,27**;Mar 31, 1994
3EN ;
4 D DT^DICRW S ESPRT(1)=1 F I=1:1:13 S ESPD(I)=""
5NAM I '$D(ESPFN) W ! S ESPVAR=2 D EN^ESPMNI G:'$D(ESPFN)!($D(DTOUT)) EXIT S ESPNAM=$P(^ESP(910,ESPFN,0),U)
6NUM 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
8LKUP 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."
11ADD 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
13QUES 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
15REM W !,"REMARKS: " S DIC="^TMP($J," D EN^DIWE
16DISPLAY 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
24OK S DIR(0)="Y",DIR("A")="READY TO UPDATE",DIR("B")="YES" D ^DIR K DIR W !! I 'Y G NOU
25STUFF 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)
29SREM S %X="^TMP("_$J_",",%Y="^ESP(910.2,"_ESPNUM_",20," D %XY^%RCR K ^TMP($J)
30XR S DIK="^ESP(910.2,",DA=ESPNUM D IX1^DIK K DIK,DA W !,"Done",!!
31 L -^ESP(910.2,ESPNUM)
32EXIT W:$D(DTOUT) $C(7)
33 K DIC,ESPD,ESPFN,ESPI,ESPNUM,Y Q
34RD S DIR(0)="910.2,"_ESPX D ^DIR K DA,DIR Q
35FND W !,"This decal # is already in the Police Registration Log."
36YN1 S DIR(0)="Y",DIR("A")="Do you want to edit this registration",DIR("B")="NO" D ^DIR K DIR W !! Q
37NOU W !!,$C(7),?20,"NO UPDATING HAS OCCURRED!!!",!! K ESPX,ESPD G EN
38W W !,$P(^DD(910.2,I,0),U),": ",ESPD(I)
39 Q
Note: See TracBrowser for help on using the repository browser.