| [613] | 1 | ESPOFFCL ;DALISC/CKA- CLOSE AN OFFENSE REPORT;8/92
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | EN ;This routine allows the officer to close an open offense report.
|
|---|
| 4 | ;A report must be completed before it can be closed.
|
|---|
| 5 | ;Program will check if user holds ESP CHIEF key.
|
|---|
| 6 | ; OR for nonholders of the key (will not see confidential reports)
|
|---|
| 7 | D DT^DICRW
|
|---|
| 8 | I $D(^XUSEC("ESP CHIEF",DUZ)) G ORC
|
|---|
| 9 | OR S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,2),'$P(^(5),U,4),$P(^(5),U,5),'($P(^ESP(912,+Y,0),U,8)=""C"")",DIC="^ESP(912,"
|
|---|
| 10 | D ^DIC
|
|---|
| 11 | G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
|
|---|
| 12 | G:Y<0 OR S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPID,ESPOFN)=+Y
|
|---|
| 13 | G CLO
|
|---|
| 14 | ORC S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,2),$P(^(5),U,5),'($P(^ESP(912,+Y,0),U,8)=""C"")",DIC="^ESP(912,"
|
|---|
| 15 | D ^DIC
|
|---|
| 16 | G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
|
|---|
| 17 | G:Y<0 OR S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPID,ESPOFN)=+Y
|
|---|
| 18 | CLO ;ASK IF WANT TO CLOSE THE REPORT
|
|---|
| 19 | D CLO1^ESPOFFE
|
|---|
| 20 | G EXIT
|
|---|
| 21 | ;
|
|---|
| 22 | OR1 ;ENTRY POINT FOR MAKE A REPORT SENSITIVE
|
|---|
| 23 | S DIC(0)="AEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,2),$P(^(5),U,5)",DIC="^ESP(912,"
|
|---|
| 24 | D ^DIC
|
|---|
| 25 | G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
|
|---|
| 26 | G:Y<0 OR1 S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPID,ESPOFN)=+Y
|
|---|
| 27 | CHK I $P(^ESP(912,ESPOFN,5),U,4) D UNCONF G EXIT
|
|---|
| 28 | CONF ;MAKE REPORT SENSITIVE
|
|---|
| 29 | S $P(^ESP(912,ESPOFN,5),U,4)=1
|
|---|
| 30 | W !!,"The report is now sensitive."
|
|---|
| 31 | EXIT K DIC,DTOUT,DUOUT,ESPDTR,ESPID,ESPN,ESPOFN,Y Q
|
|---|
| 32 | UNCONF ;MAKE REPORT NONSENSITIVE
|
|---|
| 33 | W !!,"This report is now sensitive."
|
|---|
| 34 | ASK S DIR(0)="Y",DIR("A")="Do you want to make it nonsensitive",DIR("?")="Answer YES or NO.",DIR("??")="Answer NO if you want the report to remain sensitive. Answer YES if you want the report to be nonsensitive."
|
|---|
| 35 | D ^DIR K DIR
|
|---|
| 36 | W:$D(DTOUT) $C(7)
|
|---|
| 37 | Q:'Y!($D(DIRUT))
|
|---|
| 38 | S $P(^ESP(912,ESPOFN,5),U,4)=0
|
|---|
| 39 | W !!,"The report is now nonsensitive."
|
|---|
| 40 | Q
|
|---|
