Last change
on this file since 1005 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
815 bytes
|
Line | |
---|
1 | ABSVDDLE ;EAP ALTOONA VOLUNTARY PACKAGE ; 26 Sep 2001 2:04 PM
|
---|
2 | V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26**;JULY 6, 1994
|
---|
3 | ;EDIT EXISTING DONATIONS LETTER FORMAT
|
---|
4 | START S DIC="^ABS(503341," S DIC(0)="AEMNZQ" D ^DIC G:Y<0 END
|
---|
5 | EDIT S DIE=DIC,DA=+Y,DR="[ABSV DON LETTER EDIT]" D ^DIE I $D(Y) G END
|
---|
6 | D YESNO I %=1 G START
|
---|
7 | END ;;;;;;;;;;;;;;
|
---|
8 | K DIC,DIC(0),DR,DIE,%
|
---|
9 | Q
|
---|
10 | YESNO ;;YES/NO PROCESSOR UTILITY
|
---|
11 | ;;OPTIONAL VARIABLE %A WHICH EQUALS QUESTION TEXT
|
---|
12 | ;;RETURNS % : 1=YES, 2=NO, 3=^, 4=ANYTHING ELSE ASK AGAIN.
|
---|
13 | ASKIT S:'$D(%A) %A="Do you want to EDIT another one"
|
---|
14 | S %B="Enter 'Yes' or 'No'. Enter '^' to Quit."
|
---|
15 | W !,%A_"? (Y/N) // " R ANS:$S($D(DTIME):DTIME,1:300) I (ANS["?")!(ANS="") W *7,!,%B G ASKIT
|
---|
16 | I ANS["^" S %=3 Q
|
---|
17 | S ANS=$E(ANS,1) S %=$S(ANS="Y":1,ANS="y":1,ANS="N":2,ANS="n":2,1:4) I ANS=4 G ASKIT
|
---|
18 | K ANS,%A,%B Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.