| 1 | ABSVNOM ;VAMC ALTOONA/CTB - NATIONAL OFFICIALS MENU REPORTS ;1/11/01 10:20 AM
|
|---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;**18,22,23**;JULY 6, 1994
|
|---|
| 3 | AJR ;List by Annual Joint View Review Month
|
|---|
| 4 | N DIC,D0,L,BY,FLDS
|
|---|
| 5 | S DIC="^ABS(503334.1,",L=0,(BY,FLDS)="[ABSV AJR REPORT]" D EN1^DIP
|
|---|
| 6 | QUIT
|
|---|
| 7 | CERT ;List of Certifying Officials
|
|---|
| 8 | N DIC,D0,L,BY,FLDS
|
|---|
| 9 | S DIC="^ABS(503334.1,",L=0,FR=1,TO=1,(BY,FLDS)="[ABSV CERTIFYING OFFICIAL]" D EN1^DIP
|
|---|
| 10 | QUIT
|
|---|
| 11 | VIEW ;View/Print Individual Record
|
|---|
| 12 | N DIC,FR,TO,BY,FLDS,X,Y,DX,D0,DA,DISYS,DK,S
|
|---|
| 13 | S DIC="^ABS(503334.1,",DIC(0)="AEMNZ" D ^DIC Q:+Y<0
|
|---|
| 14 | S (FR,TO)=+Y,L=0,BY="[ABSV NOM VIEW]",FLDS="[CAPTIONED]" D EN1^DIP QUIT
|
|---|
| 15 | AFFIL ;Print affiliated organizations
|
|---|
| 16 | N DIC,D0,L,BY,FLDS
|
|---|
| 17 | D ^ABSVSITE Q:'%
|
|---|
| 18 | S DIS(0)="I $$AFFIL^ABSVLBL1(D0,"_ABSV("INST")_","_""""_ABSV("SITE")_""""_")"
|
|---|
| 19 | S (BY,FLDS)="[ABSV NOM BY ORGANIZATION]",DIC="^ABS(503334.1,",L=0 D EN1^DIP
|
|---|
| 20 | QUIT
|
|---|
| 21 | ALLORG ;Print all organizations
|
|---|
| 22 | N DIC,D0,L,BY,FLDS
|
|---|
| 23 | S (BY,FLDS)="[ABSV NOM BY ORGANIZATION]",DIC="^ABS(503334.1,",L=0 D EN1^DIP
|
|---|
| 24 | QUIT
|
|---|
| 25 | QUIT
|
|---|
