| 1 | ESPEVID ;DALISC/CKA- MAKE AN EVIDENCE RECORD SENSITIVE OR NONSENSITIVE;5/93
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | EVID ;ENTRY POINT FOR MAKE A THIS EVIDENCE RECORD SENSITIVE
|
|---|
| 4 | S DIC(0)="QAEMZ",DIC="^ESP(910.8,"
|
|---|
| 5 | D ^DIC
|
|---|
| 6 | G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
|
|---|
| 7 | G:Y<0 EVID S ESPEVID=+Y
|
|---|
| 8 | CHK I $P(^ESP(910.8,ESPEVID,0),U,4) D UNCONF G EXIT
|
|---|
| 9 | CONF ;MAKE REPORT SENSITIVE
|
|---|
| 10 | S $P(^ESP(910.8,ESPEVID,0),U,4)=1
|
|---|
| 11 | W !!,"This evidence record is now sensitive."
|
|---|
| 12 | EXIT W:$D(DTOUT) $C(7)
|
|---|
| 13 | K DIC,DIRUT,DTOUT,DUOUT,ESPEVID,X,Y Q
|
|---|
| 14 | UNCONF ;MAKE EVIDENCE RECORD NONSENSITIVE
|
|---|
| 15 | W !!,"This evidence record is now sensitive."
|
|---|
| 16 | 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."
|
|---|
| 17 | D ^DIR K DIR
|
|---|
| 18 | Q:'Y!($D(DIRUT))
|
|---|
| 19 | S $P(^ESP(910.8,ESPEVID,0),U,4)=0
|
|---|
| 20 | W !!,"This evidence record is now nonsensitive."
|
|---|
| 21 | Q
|
|---|
