source: WorldVistAEHR/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVNOM.m@ 1766

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

initial load of WorldVistAEHR

File size: 1006 bytes
Line 
1ABSVNOM ;VAMC ALTOONA/CTB - NATIONAL OFFICIALS MENU REPORTS ;1/11/01 10:20 AM
2V ;;4.0;VOLUNTARY TIMEKEEPING;**18,22,23**;JULY 6, 1994
3AJR ;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
7CERT ;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
11VIEW ;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
15AFFIL ;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
21ALLORG ;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
Note: See TracBrowser for help on using the repository browser.