|
Last change
on this file since 1166 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
504 bytes
|
| Line | |
|---|
| 1 | ABSVCK ;VAMC ALTOONA/CTB - CHECK AND REPAIR COMBINATIONS ; 09 Mar 92 4:49 PM
|
|---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
|
|---|
| 3 | ALL ;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
|
|---|
| 7 | SINGLE ;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
|
|---|
| 11 | ONE ;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.
