ESPEDIT ;WASH/ERC - Police Officer Add/Edit ; 5 Apr 00 11:56 AM
;;1.0;POLICE & SECURITY;**31,44**;Mar 31, 1994;Build 1
; Routine will allow Police personnel to add/edit the Police Officer
; Rank and Badge Numer fields.
; (Previously an edit type option, changed with patch 31)
EN ;
N D,DA,DIC,DIE,DR,ESPFLG,Y
W @IOF
W !!!,"This option will allow the editing of Badge Number and Rank on those",!,"people holding the ESP POLICE security key.",!
EN1 ;
S DIC="^VA(200,"
S DIC(0)="AEQ"
S DIC("A")="Select POLICE NAME: "
S D="AK.ESP POLICE"
D IX^DIC
I +Y=-1 K DIC Q
I '$O(^VA(200,"AK.ESP POLICE",$P(Y,U,2),0)) D
. W !!,"Only employees who hold the ESP POLICE security key can be edited.",!!
. S ESPFLG=1
I $G(ESPFLG)=1 S ESPFLG=0 G EN1
EDIT ;
S DIE=DIC K DIC
S DA=+Y
S DR="910.1;910.2"
D ^DIE G EN1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPEDIT 843 printed Dec 13, 2024@02:29:38 Page 2
ESPEDIT ;WASH/ERC - Police Officer Add/Edit ; 5 Apr 00 11:56 AM
+1 ;;1.0;POLICE & SECURITY;**31,44**;Mar 31, 1994;Build 1
+2 ; Routine will allow Police personnel to add/edit the Police Officer
+3 ; Rank and Badge Numer fields.
+4 ; (Previously an edit type option, changed with patch 31)
EN ;
+1 NEW D,DA,DIC,DIE,DR,ESPFLG,Y
+2 WRITE @IOF
+3 WRITE !!!,"This option will allow the editing of Badge Number and Rank on those",!,"people holding the ESP POLICE security key.",!
EN1 ;
+1 SET DIC="^VA(200,"
+2 SET DIC(0)="AEQ"
+3 SET DIC("A")="Select POLICE NAME: "
+4 SET D="AK.ESP POLICE"
+5 DO IX^DIC
+6 IF +Y=-1
KILL DIC
QUIT
+7 IF '$ORDER(^VA(200,"AK.ESP POLICE",$PIECE(Y,U,2),0))
Begin DoDot:1
+8 WRITE !!,"Only employees who hold the ESP POLICE security key can be edited.",!!
+9 SET ESPFLG=1
End DoDot:1
+10 IF $GET(ESPFLG)=1
SET ESPFLG=0
GOTO EN1
EDIT ;
+1 SET DIE=DIC
KILL DIC
+2 SET DA=+Y
+3 SET DR="910.1;910.2"
+4 DO ^DIE
GOTO EN1
+5 QUIT
