Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
817 bytes
|
Line | |
---|
1 | ESPEDIT ;WASH/ERC - Police Officer Add/Edit ; 5 Apr 00 11:56 AM
|
---|
2 | ;;1.0;POLICE & SECURITY;**31,44**;Mar 31, 1994;Build 1
|
---|
3 | ; Routine will allow Police personnel to add/edit the Police Officer
|
---|
4 | ; Rank and Badge Numer fields.
|
---|
5 | ; (Previously an edit type option, changed with patch 31)
|
---|
6 | EN ;
|
---|
7 | N D,DA,DIC,DIE,DR,ESPFLG,Y
|
---|
8 | W @IOF
|
---|
9 | W !!!,"This option will allow the editing of Badge Number and Rank on those",!,"people holding the ESP POLICE security key.",!
|
---|
10 | EN1 ;
|
---|
11 | S DIC="^VA(200,"
|
---|
12 | S DIC(0)="AEQ"
|
---|
13 | S DIC("A")="Select POLICE NAME: "
|
---|
14 | S D="AK.ESP POLICE"
|
---|
15 | D IX^DIC
|
---|
16 | I +Y=-1 K DIC Q
|
---|
17 | I '$O(^VA(200,"AK.ESP POLICE",$P(Y,U,2),0)) D
|
---|
18 | . W !!,"Only employees who hold the ESP POLICE security key can be edited.",!!
|
---|
19 | . S ESPFLG=1
|
---|
20 | I $G(ESPFLG)=1 S ESPFLG=0 G EN1
|
---|
21 | EDIT ;
|
---|
22 | S DIE=DIC K DIC
|
---|
23 | S DA=+Y
|
---|
24 | S DR="910.1;910.2"
|
---|
25 | D ^DIE G EN1
|
---|
26 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.