OOPSEUT.m

OOPSEUT ;WIOFO/CVW-EDIT UNION INFO ;03/12/01

 ;;2.0;ASISTS;;Jun 03, 2002

EN1(CALLER) ;Entry for Edit Union Information

 I CALLER'="W" G EXIT

 N DIC,Y

ENTLOOP ;

 N DLAYGO

 S DLAYGO=2263.7,DIC="^OOPS(2263.7,",DIC(0)="AELMQZ" D ^DIC G:Y=-1 EXIT

 S IEN=+Y

 G:'IEN EXIT

EDIT ;EDIT STUB 

 S DA=IEN,DR="",DIE=2263.7

 S DR(1,2263.7,1)=".01  UNION NAME................."

 S DR(1,2263.7,5)="1  UNION ACRONYM.............."

 S DR(1,2263.7,10)="2  UNION REPRESENTATIVE......."

 D ^DIE

 G ENTLOOP

EXIT ;EXIT AND CLEAN

 K DA,DR,DIE,IEN

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OOPSEUT   545     printed  Apr 09, 2024@20:45:10                                                                                                                                                                                                      Page 2

OOPSEUT   ;WIOFO/CVW-EDIT UNION INFO ;03/12/01

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

EN1(CALLER) ;Entry for Edit Union Information

 +1        IF CALLER'="W"

               GOTO EXIT

 +2        NEW DIC,Y

ENTLOOP   ;

 +1        NEW DLAYGO

 +2        SET DLAYGO=2263.7

           SET DIC="^OOPS(2263.7,"

           SET DIC(0)="AELMQZ"

           DO ^DIC

           if Y=-1

               GOTO EXIT

 +3        SET IEN=+Y

 +4        if 'IEN

               GOTO EXIT

EDIT      ;EDIT STUB 

 +1        SET DA=IEN

           SET DR=""

           SET DIE=2263.7

 +2        SET DR(1,2263.7,1)=".01  UNION NAME................."

 +3        SET DR(1,2263.7,5)="1  UNION ACRONYM.............."

 +4        SET DR(1,2263.7,10)="2  UNION REPRESENTATIVE......."

 +5        DO ^DIE

 +6        GOTO ENTLOOP

EXIT      ;EXIT AND CLEAN

 +1        KILL DA,DR,DIE,IEN

 +2        QUIT