ABSVCK ;VAMC ALTOONA/CTB - CHECK AND REPAIR COMBINATIONS ; 09 Mar 92  4:49 PM
V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
ALL ;CHECKS AND REBUILDS COMBINATIONS FOR ALL VOLUNTEERS
 N DA
 S DA=0 F  S DA=$O(^ABS(503330,DA)) Q:'DA  W !,$P(^(DA,0),"^") D ONE
 Q
SINGLE ;CHECKS AND REBUILDS COMBINATIONS FOR A SINGLE VOLUNTEER
 N DA,DIC
 S DIC=503330,DIC(0)="AEM" D ^DIC Q:Y<0  S DA=+Y D ONE
 Q
ONE ;CONVERT COMBINATIONS
 N D1
 S D1=0 F  S D1=$O(^ABS(503330,DA,1,D1)) Q:'D1  I $D(^(D1,0)) D COMB^ABSVCVT W "."