source: FOIAVistA/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVDGPF.m@ 1470

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

initial load of FOIAVistA 6/30/08 version

File size: 594 bytes
Line 
1ABSVDGPF ;EAP ALTOONA VOLUNTARY GPF ENTER EDIT ;9/26/01 10:19 AM
2V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26**;JULY 6, 1994
3START S DIC=503342,DIC(0)="AEMNLZQ",DLAYGO=DIC D ^DIC I Y<0 G END
4 S DA=+Y S DIE=DIC,DR="[ABSV DON GPF]" D ^DIE
5 D ASKFOR I %=1 G START
6END ;;;;;;;;;
7 K DIC,DIC(0),DR,DA,DIE
8 Q
9ASKFOR ;;;;RETURNS % WITH EITHER 1 FOR YES OR 0 FOR NO;;;;;
10 S %A="Do you want to Add/Edit Another GPF",%B="Enter Yes or No."
11 W !!,%A_"? (YES) // " R ANS:$S($D(DTIME):DTIME,1:300)
12 I ANS="" S ANS="YES"
13 I (ANS["?") W !,%B G ASKFOR
14 S ANS=$E(ANS,1) S %=$S(ANS="Y":1,ANS="y":1,1:0)
15 K %A,%B,ANS
16 Q
Note: See TracBrowser for help on using the repository browser.