source: FOIAVistA/trunk/r/ASISTS-OOPS/OOPSEUT.m@ 1713

Last change on this file since 1713 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 525 bytes
Line 
1OOPSEUT ;WIOFO/CVW-EDIT UNION INFO ;03/12/01
2 ;;2.0;ASISTS;;Jun 03, 2002
3EN1(CALLER) ;Entry for Edit Union Information
4 I CALLER'="W" G EXIT
5 N DIC,Y
6ENTLOOP ;
7 N DLAYGO
8 S DLAYGO=2263.7,DIC="^OOPS(2263.7,",DIC(0)="AELMQZ" D ^DIC G:Y=-1 EXIT
9 S IEN=+Y
10 G:'IEN EXIT
11EDIT ;EDIT STUB
12 S DA=IEN,DR="",DIE=2263.7
13 S DR(1,2263.7,1)=".01 UNION NAME................."
14 S DR(1,2263.7,5)="1 UNION ACRONYM.............."
15 S DR(1,2263.7,10)="2 UNION REPRESENTATIVE......."
16 D ^DIE
17 G ENTLOOP
18EXIT ;EXIT AND CLEAN
19 K DA,DR,DIE,IEN
20 Q
Note: See TracBrowser for help on using the repository browser.