ESPEDIT.m

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 ---ESPEDIT   843     printed  Apr 09, 2024@21:32:51                                                                                                                                                                                                      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