source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPOFI.m@ 789

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1ESPOFI ;DALISC/CKA- ENTER/EDIT FOLLOW-UP INVESTIGATION NOTES;5/93
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3EN ;This routine allows the officer to enter follow-up investigation notes.
4 ;When the officer hits '??' at the UOR# prompt, he/she will see open offense reports.
5START D DT^DICRW
6 I '$D(^XUSEC("ESP CHIEF",DUZ)) G OR
7ORC ;This allows persons holding the ESP CHIEF key to add follow-up notes to sensitive reports
8 S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,5),$P(^(0),U,8)=""O""",DIC="^ESP(912,"
9 D ^DIC G:$D(DTOUT)!($D(DUOUT)) EXIT G:Y<0 OR S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPID,ESPOFN)=+Y
10 G DISP
11OR ;This allows persons to add follow-up notes to nonsensitive reports
12 S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),'$P(^(5),U,4),$P(^(5),U,5)",DIC="^ESP(912,"
13 D ^DIC
14 G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT
15 G:Y<0 OR S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPID,ESPOFN)=+Y
16 I $P(^ESP(912,+Y,0),U,8)="C" W !,$C(7),"This report is closed and follow-up notes cannot be added!" G OR
17DISP ;ASK IF WANT TO DISPLAY THIS REPORT
18 S DIR(0)="Y",DIR("A")="Do you want to print the report first",DIR("B")="NO" D ^DIR K DIR
19 G:$D(DTOUT) EXIT
20 I 'Y G EDIT
21Q S %ZIS="Q" D ^%ZIS G:POP EXIT I '$D(IO("Q")) U IO D START^ESPORP G EDIT
22 S ZTRTN="START^ESPORP",ZTSAVE("ESP*")="",ZTDESC="OFFENSE REPORT" D ^%ZTLOAD,HOME^%ZIS
23 W !!!!
24 G:$D(DTOUT) EXIT
25EDIT ;ADD/EDIT FOLLOW-UP NOTES
26 D DT^DICRW
27 S DIE="^ESP(912,",DA=ESPOFN,DIE("NO^")="OUTOK",DR="[ESP FOLLOW-UP NOTES"
28 L +^ESP(912,DA):1 I '$T W !,"Another user is editing this record!!" G EXIT
29 D ^DIE
30 L -^ESP(912,ESPOFN)
31EXIT W:$D(DTOUT) $C(7)
32 K %ZIS,DA,DD,DIC,DIE,DIR,DO,DR,DTOUT,DUOUT,ESPDTR,ESPID,ESPOFN,X,Y Q
Note: See TracBrowser for help on using the repository browser.