source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPEDIT.m@ 1147

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

initial load of WorldVistAEHR

File size: 817 bytes
RevLine 
[613]1ESPEDIT ;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)
6EN ;
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.",!
10EN1 ;
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
21EDIT ;
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.