ESPEVID ;DALISC/CKA- MAKE AN EVIDENCE RECORD SENSITIVE OR NONSENSITIVE;5/93
;;1.0;POLICE & SECURITY;;Mar 31, 1994
EVID ;ENTRY POINT FOR MAKE A THIS EVIDENCE RECORD SENSITIVE
S DIC(0)="QAEMZ",DIC="^ESP(910.8,"
D ^DIC
G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
G:Y<0 EVID S ESPEVID=+Y
CHK I $P(^ESP(910.8,ESPEVID,0),U,4) D UNCONF G EXIT
CONF ;MAKE REPORT SENSITIVE
S $P(^ESP(910.8,ESPEVID,0),U,4)=1
W !!,"This evidence record is now sensitive."
EXIT W:$D(DTOUT) $C(7)
K DIC,DIRUT,DTOUT,DUOUT,ESPEVID,X,Y Q
UNCONF ;MAKE EVIDENCE RECORD NONSENSITIVE
W !!,"This evidence record is now sensitive."
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."
D ^DIR K DIR
Q:'Y!($D(DIRUT))
S $P(^ESP(910.8,ESPEVID,0),U,4)=0
W !!,"This evidence record is now nonsensitive."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPEVID 949 printed Oct 16, 2024@18:30:24 Page 2
ESPEVID ;DALISC/CKA- MAKE AN EVIDENCE RECORD SENSITIVE OR NONSENSITIVE;5/93
+1 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
EVID ;ENTRY POINT FOR MAKE A THIS EVIDENCE RECORD SENSITIVE
+1 SET DIC(0)="QAEMZ"
SET DIC="^ESP(910.8,"
+2 DO ^DIC
+3 if $DATA(DTOUT)!($DATA(DUOUT))!(X="")
GOTO EXIT
+4 if Y<0
GOTO EVID
SET ESPEVID=+Y
CHK IF $PIECE(^ESP(910.8,ESPEVID,0),U,4)
DO UNCONF
GOTO EXIT
CONF ;MAKE REPORT SENSITIVE
+1 SET $PIECE(^ESP(910.8,ESPEVID,0),U,4)=1
+2 WRITE !!,"This evidence record is now sensitive."
EXIT if $DATA(DTOUT)
WRITE $CHAR(7)
+1 KILL DIC,DIRUT,DTOUT,DUOUT,ESPEVID,X,Y
QUIT
UNCONF ;MAKE EVIDENCE RECORD NONSENSITIVE
+1 WRITE !!,"This evidence record is now sensitive."
ASK SET DIR(0)="Y"
SET DIR("A")="Do you want to make it nonsensitive"
SET DIR("?")="Answer YES or NO."
SET DIR("??")="Answer NO if you want the report to remain sensitive. Answer YES if you want the report to be nonsensitive."
+1 DO ^DIR
KILL DIR
+2 if 'Y!($DATA(DIRUT))
QUIT
+3 SET $PIECE(^ESP(910.8,ESPEVID,0),U,4)=0
+4 WRITE !!,"This evidence record is now nonsensitive."
+5 QUIT
