source: WorldVistAEHR/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVCK.m@ 1604

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

initial load of WorldVistAEHR

File size: 504 bytes
Line 
1ABSVCK ;VAMC ALTOONA/CTB - CHECK AND REPAIR COMBINATIONS ; 09 Mar 92 4:49 PM
2V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
3ALL ;CHECKS AND REBUILDS COMBINATIONS FOR ALL VOLUNTEERS
4 N DA
5 S DA=0 F S DA=$O(^ABS(503330,DA)) Q:'DA W !,$P(^(DA,0),"^") D ONE
6 Q
7SINGLE ;CHECKS AND REBUILDS COMBINATIONS FOR A SINGLE VOLUNTEER
8 N DA,DIC
9 S DIC=503330,DIC(0)="AEM" D ^DIC Q:Y<0 S DA=+Y D ONE
10 Q
11ONE ;CONVERT COMBINATIONS
12 N D1
13 S D1=0 F S D1=$O(^ABS(503330,DA,1,D1)) Q:'D1 I $D(^(D1,0)) D COMB^ABSVCVT W "."
Note: See TracBrowser for help on using the repository browser.