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 ---[H[J[2J[HOOPSEUT 545 printed Dec 13, 2024@01:38:56 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
