| 1 | ESPMNI1 ;DALISC/CKA - MASTER NAME INPUT-PART 2;5/92
|
---|
| 2 | ;;1.0;POLICE & SECURITY;**14**;Mar 31, 1994
|
---|
| 3 | CONT ;CONTINUE MASTER NAME INPUT
|
---|
| 4 | S ESPJ=1
|
---|
| 5 | AKA S DIR(0)="910.01,.01" D ^DIR K DIR G:$D(DUOUT)!($D(DTOUT)) NOU G:$D(DIRUT)&($E(Y)'="^") REM S ESPAKA(ESPJ)=Y I Y["^" D NO G AKA
|
---|
| 6 | YN S DIR(0)="Y",DIR("A")="Do you want to enter another AKA",DIR("B")="NO" D ^DIR K DIR
|
---|
| 7 | G:$D(DTOUT) NOU
|
---|
| 8 | I Y'=1&(Y'=0) W !!,$C(7),?5,"You must enter Yes or No." G YN
|
---|
| 9 | I Y S ESPJ=ESPJ+1 G AKA
|
---|
| 10 | REM W !,"REMARKS: " S DIC="^TMP("_$J_",""MNI""," D EN^DIWE
|
---|
| 11 | ;DISPLAY INFO BEFORE UPDATE
|
---|
| 12 | DISP W !!,"Name: ",ESPD(.01),?40,"SSN: ",$S(ESPD(.02,"P")]"":ESPD(.02,"P"),1:ESPD(.02)),!,"DOB: ",ESPD(.03,"P"),?25,"SEX: ",ESPD(.08),?35,"RACE: ",ESPD(.09,"P")
|
---|
| 13 | W !,"Height: ",ESPD(3.01),?15,"Weight: ",ESPD(3.02)
|
---|
| 14 | W !,"Hair Color: ",ESPD(3.03,"P"),?35,"Eye Color: ",ESPD(3.04,"P"),?60,"Skin Tone: ",ESPD(3.05,"P")
|
---|
| 15 | W !,"Scars/Marks: ",ESPD(3.06)
|
---|
| 16 | W !,"DL#: ",ESPD(.1),?25,"STATE: ",ESPD(.11,"P"),!,"CATEGORY: ",ESPD(.04,"P")
|
---|
| 17 | I ESPD(.04)'="E" W !,"Place of Employment: ",ESPD(.06),!,"Work Address: ",ESPD(2.01),!,"Work Address [line 2]: ",ESPD(2.02),!,"City: ",ESPD(2.03),?25,"State: ",ESPD(2.04,"P"),?65,"Zip: ",ESPD(2.05)
|
---|
| 18 | I ESPD(.04)="E" W !,"Service: ",ESPD(.05,"P"),?60,"ID: ",ESPD(.07)
|
---|
| 19 | W !,"Office Phone: ",ESPD(2.06),!,"Home Address: ",ESPD(1.01),!,"Home Address [line 2]: ",ESPD(1.02),!,"City: ",ESPD(1.03),?25,"State: ",ESPD(1.04,"P"),?65,"Zip: ",ESPD(1.05),!,"Home Phone: ",ESPD(1.06)
|
---|
| 20 | F ESPJ=1:1 Q:'$D(ESPAKA(ESPJ)) W !,"ALIAS ",ESPJ,": ",ESPAKA(ESPJ)
|
---|
| 21 | K ^UTILITY($J,"W") S DIWL=10,DIWR=70,DIWF="W" W !,"REMARKS: "
|
---|
| 22 | S IEN=0 F ESPJ=0:0 S IEN=$O(^TMP($J,"MNI",IEN)) Q:IEN'>0 S X=^(IEN,0) D ^DIWP
|
---|
| 23 | D ^DIWW
|
---|
| 24 | OK ;UPDATE WILL BEGIN NOW
|
---|
| 25 | D:$D(XRTL) T0^%ZOSV ; START
|
---|
| 26 | STUFF W !!!,"Updating",!! K DD,DO S DIC="^ESP(910,",DIC(0)="L",DLAYGO=910,X=ESPD(.01) D FILE^DICN S ESPFN=+Y I '$P(Y,U,3) W !,$C(7),"This entry already exists!" G NOU
|
---|
| 27 | L +^ESP(910,ESPFN):1 I '$T W !,"Another user is editing this record!!" G NOU
|
---|
| 28 | S ^ESP(910,ESPFN,0)=ESPD(.01)_"^"_ESPD(.02)_"^"_ESPD(.03)_"^"_ESPD(.04)_"^"_ESPD(.05)_"^"_ESPD(.06)_"^"_ESPD(.07)_"^"_ESPD(.08)_"^"_ESPD(.09)_"^"_ESPD(.1)_"^"_ESPD(.11)
|
---|
| 29 | S ^ESP(910,ESPFN,1)=ESPD(1.01)_"^"_ESPD(1.02)_"^"_ESPD(1.03)_"^"_ESPD(1.04)_"^"_ESPD(1.05)_"^"_ESPD(1.06),^(2)=ESPD(2.01)_"^"_ESPD(2.02)_"^"_ESPD(2.03)_"^"_ESPD(2.04)_"^"_ESPD(2.05)_"^"_ESPD(2.06)
|
---|
| 30 | S ^ESP(910,ESPFN,3)=ESPD(3.01)_"^"_ESPD(3.02)_"^"_ESPD(3.03)_"^"_ESPD(3.04)_"^"_ESPD(3.05)_"^"_ESPD(3.06)
|
---|
| 31 | SAKA S:$O(ESPAKA(0)) ^ESP(910,ESPFN,10,0)="^910.01^" K DD,DO S DIC="^ESP(910,"_ESPFN_",10,",DIC(0)="L",DLAYGO=910,DA(1)=ESPFN F ESPJ=1:1 Q:'$D(ESPAKA(ESPJ)) S X=ESPAKA(ESPJ) D FILE^DICN
|
---|
| 32 | SREM S %X="^TMP("_$J_",""MNI"",",%Y="^ESP(910,"_ESPFN_",20," D %XY^%RCR K ^TMP($J,"MNI")
|
---|
| 33 | XR S DIK="^ESP(910,",DA=ESPFN D IX1^DIK K DIK,DA
|
---|
| 34 | W !,"Done",!!
|
---|
| 35 | L -^ESP(910,ESPFN)
|
---|
| 36 | S:$D(XRT0) XRTN=$T(+0) D:$D(XRT0) T1^%ZOSV ; STOP
|
---|
| 37 | D FDISP^ESPMNI2
|
---|
| 38 | EXIT W:$D(DTOUT) $C(7)
|
---|
| 39 | K %X,%Y,DA,DD,DIC,DIK,DIR,DIRUT,DIWF,DIWL,DIWR,DO,DUOUT,ESPAKA,ESPD,ESPDOB,ESPJ,ESPNO,IEN,X,Y,^TMP($J,"MNI")
|
---|
| 40 | Q:$D(DTOUT)
|
---|
| 41 | G:ESPVAR=1 EN^ESPMNI
|
---|
| 42 | G:ESPVAR=2 NUM^ESPVREG
|
---|
| 43 | D:ESPVAR=3 RET
|
---|
| 44 | D:ESPVAR=4 RETV
|
---|
| 45 | QUIT QUIT
|
---|
| 46 | NOU W !!,$C(7),?20,"NO UPDATING HAS OCCURRED!!!",!! K ESPAKA,ESPD,^TMP($J,"MNI") G:$D(DTOUT) EXIT G EN^ESPMNI
|
---|
| 47 | NO W $C(7),!!?5,"NO ^'S ALLOWED!",!! Q
|
---|
| 48 | RETV W !,"Now returning to the Violation Notice!"
|
---|
| 49 | Q
|
---|
| 50 | RET W !,"Now returning to the Offense Report!"
|
---|
| 51 | Q
|
---|