source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPEVID.m@ 1639

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

initial load of WorldVistAEHR

File size: 928 bytes
Line 
1ESPEVID ;DALISC/CKA- MAKE AN EVIDENCE RECORD SENSITIVE OR NONSENSITIVE;5/93
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3EVID ;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
8CHK I $P(^ESP(910.8,ESPEVID,0),U,4) D UNCONF G EXIT
9CONF ;MAKE REPORT SENSITIVE
10 S $P(^ESP(910.8,ESPEVID,0),U,4)=1
11 W !!,"This evidence record is now sensitive."
12EXIT W:$D(DTOUT) $C(7)
13 K DIC,DIRUT,DTOUT,DUOUT,ESPEVID,X,Y Q
14UNCONF ;MAKE EVIDENCE RECORD NONSENSITIVE
15 W !!,"This evidence record is now sensitive."
16ASK 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
Note: See TracBrowser for help on using the repository browser.