| [613] | 1 | ESPORO ;DALISC/CKA-OPEN A CLOSED OFFENSE REPORT;11/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | EN ;
|
|---|
| 4 | D DT^DICRW
|
|---|
| 5 | OR S DIC(0)="AEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,5),$P(^(0),U,8)=""C""",DIC="^ESP(912,"
|
|---|
| 6 | D ^DIC
|
|---|
| 7 | G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
|
|---|
| 8 | G:Y<0 OR S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPOFN,ESPID)=+Y
|
|---|
| 9 | OP ;OPEN CLOSED REPORT
|
|---|
| 10 | D NOW^%DTC
|
|---|
| 11 | S NOW=X,$P(^ESP(912,ESPID,0),U,8)="O",$P(^(5),U,5)="R"
|
|---|
| 12 | W !?5,$C(7),"This report is now open and may be edited."
|
|---|
| 13 | ;COPY REOPENED REPORT TO A NEW ID # IN OFFENSE REPORT FILE
|
|---|
| 14 | K DD,D0 S DIC="^ESP(912,",DIC(0)="L",DLAYGO=912 D OFF^ESPOID D FILE^DICN
|
|---|
| 15 | S ESPOFN=+Y
|
|---|
| 16 | L +^ESP(912,ESPOFN):1 I '$T W !,"Another user is editing this record!!"
|
|---|
| 17 | S %X="^ESP(912,"_ESPID_",",%Y="^ESP(912,"_ESPOFN_"," D %XY^%RCR
|
|---|
| 18 | S $P(^ESP(912,ESPOFN,0),U)=ESPOFN,$P(^(5),U,5)=1,$P(^(6),U)=ESPID,$P(^(6),U,2)=NOW,$P(^(6),U,3)=DUZ
|
|---|
| 19 | ;CROSS REFERENCES SET
|
|---|
| 20 | S DIK="^ESP(912,",DA=ESPOFN D IX1^DIK K DIK,DA
|
|---|
| 21 | L -^ESP(912,ESPOFN)
|
|---|
| 22 | EDIT ;CALL TO ESPOFFE TO PRINT/EDIT REPORT
|
|---|
| 23 | S ESPVAR=2,ESPID=ESPOFN D PRT^ESPOFFE
|
|---|
| 24 | EXIT K %ZIS,DA,DIE,DIR,DIRUT,DR,ESPID,ESPN,ESPOFN,ESPVAR,NOW,POP,Y,ZTDESC,ZTRTN,ZTSAVE Q
|
|---|
