| 1 | ABSVDLE1 ;EAP ALTOONA VOLUNTARY DONATIONS UTILITY PROGRAM ; 26 Sep 2001 2:04 PM
|
|---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26**;JULY 6, 1994
|
|---|
| 3 | NOTE W !,"You will have to either update the DONATIONS file #503340"
|
|---|
| 4 | W !,"OR enter this data manually which DOES NOT record it in the DONATIONS file."
|
|---|
| 5 | W !
|
|---|
| 6 | Q
|
|---|
| 7 | STATE ;
|
|---|
| 8 | S ABSVPENN=$P(ABSVZN1,U,5) I ABSVPENN>"" I $D(^DIC(5,ABSVPENN,0)) S ABSVPENN=$P(^DIC(5,ABSVPENN,0),U,2)
|
|---|
| 9 | Q
|
|---|
| 10 | HEADER ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|---|
| 11 | W !,"**** ******* "
|
|---|
| 12 | W !," **** *********" W " DEPARTMENT OF VETERAN AFFAIRS "
|
|---|
| 13 | W !," **** *** ****" W " TEMPORARY RECEIPT FOR FUNDS "
|
|---|
| 14 | W !," *******************" W " ",ABSVSTAT
|
|---|
| 15 | W !," ******* **** "
|
|---|
| 16 | W !," ***** **** "
|
|---|
| 17 | W !
|
|---|
| 18 | Q
|
|---|
| 19 | WARN W !,?5,"******************************************************************"
|
|---|
| 20 | W !,?5,"* If you don't know the Donation Tracking Number, hit '?' for *"
|
|---|
| 21 | W !,?5,"* help OR hit the ENTER key and you will have a chance to enter *"
|
|---|
| 22 | W !,?5,"* the information manually. All Temporary Receipt Info is logged *"
|
|---|
| 23 | W !,?5,"* in file #503344 IF ENTERED MANUALLY. It is NOT recorded in *"
|
|---|
| 24 | W !,?5,"* the Donations File #503340 if entered manually! *"
|
|---|
| 25 | W !,?5,"******************************************************************"
|
|---|
| 26 | W !
|
|---|
| 27 | Q
|
|---|
| 28 | WARN2 W !!,?5,"**************************************************"
|
|---|
| 29 | W !,?5,"* WARNING: Information entered manually IS NOT *"
|
|---|
| 30 | W !,?5,"* recorded in the DONATIONS FILE (#503340). *"
|
|---|
| 31 | W !,?5,"* It is recorded in File #503344! *"
|
|---|
| 32 | W !,?5,"**************************************************"
|
|---|
| 33 | W !!,"NOW USING MANUAL ENTRY METHOD (hit ^ to exit)"
|
|---|
| 34 | Q
|
|---|
| 35 | YESNO ;;YES/NO PROCESSOR UTILITY
|
|---|
| 36 | ;;OPTIONAL VARIABLE %A WHICH EQUALS QUESTION TEXT
|
|---|
| 37 | ;;RETURNS % : 1=YES, 2=NO, 3=^, 4=ANYTHING ELSE ASK AGAIN.
|
|---|
| 38 | ASKIT S:'$D(%A) %A="Do you want to continue"
|
|---|
| 39 | S %B="Enter 'Yes' or 'No'. Enter '^' to Quit."
|
|---|
| 40 | W !,%A_"? (Y/N) // " R ANS:$S($D(DTIME):DTIME,1:300) I (ANS["?")!(ANS="") W *7,!,%B G ASKIT
|
|---|
| 41 | I ANS["^" S %=3 Q
|
|---|
| 42 | 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
|
|---|
| 43 | K ANS,%A,%B Q
|
|---|
| 44 | CONV ;;DATE CONVERTER BLACK BOX. ** FORMAT 11/04/90 **
|
|---|
| 45 | ;;NEEDS VARIABLE NEWDATE WHICH MUST BE FORMAT 2900411 (S NEWDATE=DT)
|
|---|
| 46 | CONVERT Q:'$D(NEWDATE)
|
|---|
| 47 | S:NEWDATE'="" NEWDATE=$E(NEWDATE,4,5)_"/"_$E(NEWDATE,6,7)_"/"_$E(NEWDATE,2,3)
|
|---|
| 48 | Q
|
|---|
| 49 | DOLL ;;;;;;;;;;DOLLAR CONVERTER;;;;;;;;;;;;;;;;;;;;;;;;
|
|---|
| 50 | I ABSVDOLA="" Q
|
|---|
| 51 | I $E(ABSVDOLA)'="$" S ABSVDOLA="$"_ABSVDOLA
|
|---|
| 52 | I ABSVDOLA'["." S ABSVDOLA=ABSVDOLA_".00"
|
|---|
| 53 | Q
|
|---|
| 54 | NAMEFLIP ;;;;;;;;;SWITCHES NAME FROM SMITH,JOE TO JOE SMITH;;;;;;;
|
|---|
| 55 | ;;;;MUST HAVE VARIABLE NAME DEFINED AS INPUT IN FORM
|
|---|
| 56 | ;;;;SMITH, JOHN A. WITH COMMA AS DELIMITER;;;;;;;;;;;;;
|
|---|
| 57 | Q:'$D(NAME)
|
|---|
| 58 | I NAME'["," Q
|
|---|
| 59 | S ONE=$P(NAME,",",2) S TWO=$P(NAME,",",1) S NAME=ONE_" "_TWO
|
|---|
| 60 | K ONE,TWO
|
|---|
| 61 | Q
|
|---|
| 62 | END ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|---|
| 63 | Q
|
|---|
