source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPOFFCL.m@ 701

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1ESPOFFCL ;DALISC/CKA- CLOSE AN OFFENSE REPORT;8/92
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3EN ;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
9OR 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
14ORC 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
18CLO ;ASK IF WANT TO CLOSE THE REPORT
19 D CLO1^ESPOFFE
20 G EXIT
21 ;
22OR1 ;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
27CHK I $P(^ESP(912,ESPOFN,5),U,4) D UNCONF G EXIT
28CONF ;MAKE REPORT SENSITIVE
29 S $P(^ESP(912,ESPOFN,5),U,4)=1
30 W !!,"The report is now sensitive."
31EXIT K DIC,DTOUT,DUOUT,ESPDTR,ESPID,ESPN,ESPOFN,Y Q
32UNCONF ;MAKE REPORT NONSENSITIVE
33 W !!,"This report is now sensitive."
34ASK 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
Note: See TracBrowser for help on using the repository browser.