|
Last change
on this file since 949 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
817 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
