source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPMNI1.m@ 623

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

initial load of WorldVistAEHR

File size: 3.3 KB
Line 
1ESPMNI1 ;DALISC/CKA - MASTER NAME INPUT-PART 2;5/92
2 ;;1.0;POLICE & SECURITY;**14**;Mar 31, 1994
3CONT ;CONTINUE MASTER NAME INPUT
4 S ESPJ=1
5AKA 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
6YN 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
10REM W !,"REMARKS: " S DIC="^TMP("_$J_",""MNI""," D EN^DIWE
11 ;DISPLAY INFO BEFORE UPDATE
12DISP 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
24OK ;UPDATE WILL BEGIN NOW
25 D:$D(XRTL) T0^%ZOSV ; START
26STUFF 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)
31SAKA 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
32SREM S %X="^TMP("_$J_",""MNI"",",%Y="^ESP(910,"_ESPFN_",20," D %XY^%RCR K ^TMP($J,"MNI")
33XR 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
38EXIT 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
45QUIT QUIT
46NOU W !!,$C(7),?20,"NO UPDATING HAS OCCURRED!!!",!! K ESPAKA,ESPD,^TMP($J,"MNI") G:$D(DTOUT) EXIT G EN^ESPMNI
47NO W $C(7),!!?5,"NO ^'S ALLOWED!",!! Q
48RETV W !,"Now returning to the Violation Notice!"
49 Q
50RET W !,"Now returning to the Offense Report!"
51 Q
Note: See TracBrowser for help on using the repository browser.