OOPSESP.m

OOPSESP ;WIOFO/CAH-EDIT SITE PARAMETER ;2/16/00

 ;;2.0;ASISTS;;Jun 03, 2002

 W @IOF

EDIT K DR S DR(1,2262,10)=".01 SITE NAME..............."

 K DO,DD S DIC="^OOPS(2262,",DIC(0)="AEMQ" D ^DIC G:Y=-1 EXIT

 ; patch 11 - added .7 below - new field

 S DR(2,2262.03)=".7;1;2;3;4;5;6"

 S DIE="^OOPS(2262,",IEN2262=+Y,DA=IEN2262,DR=""

 ; patch 11 - removed field 1 from input screen - not used.

 ; S DR(1,2262,20)="1 OWCP AGENCY CODE........"

 S DR(1,2262,30)="2 OWCP DISTRICT OFFICE...."

 S DR(1,2262,40)="3"    ;MULTIPLE FIELD

 D ^DIE

EXIT K DA,DIC,DIE,DR,IEN2262

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OOPSESP   576     printed  Apr 09, 2024@20:44:09                                                                                                                                                                                                      Page 2

OOPSESP   ;WIOFO/CAH-EDIT SITE PARAMETER ;2/16/00

 +1       ;;2.0;ASISTS;;Jun 03, 2002

 +2        WRITE @IOF

EDIT       KILL DR

           SET DR(1,2262,10)=".01 SITE NAME..............."

 +1        KILL DO,DD

           SET DIC="^OOPS(2262,"

           SET DIC(0)="AEMQ"

           DO ^DIC

           if Y=-1

               GOTO EXIT

 +2       ; patch 11 - added .7 below - new field

 +3        SET DR(2,2262.03)=".7;1;2;3;4;5;6"

 +4        SET DIE="^OOPS(2262,"

           SET IEN2262=+Y

           SET DA=IEN2262

           SET DR=""

 +5       ; patch 11 - removed field 1 from input screen - not used.

 +6       ; S DR(1,2262,20)="1 OWCP AGENCY CODE........"

 +7        SET DR(1,2262,30)="2 OWCP DISTRICT OFFICE...."

 +8       ;MULTIPLE FIELD

           SET DR(1,2262,40)="3"

 +9        DO ^DIE

EXIT       KILL DA,DIC,DIE,DR,IEN2262

 +1        QUIT