source: WorldVistAEHR/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVDLE1.m@ 975

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

initial load of WorldVistAEHR

File size: 2.9 KB
Line 
1ABSVDLE1 ;EAP ALTOONA VOLUNTARY DONATIONS UTILITY PROGRAM ; 26 Sep 2001 2:04 PM
2V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26**;JULY 6, 1994
3NOTE 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
7STATE ;
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
10HEADER ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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
19WARN 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
28WARN2 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
35YESNO ;;YES/NO PROCESSOR UTILITY
36 ;;OPTIONAL VARIABLE %A WHICH EQUALS QUESTION TEXT
37 ;;RETURNS % : 1=YES, 2=NO, 3=^, 4=ANYTHING ELSE ASK AGAIN.
38ASKIT 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
44CONV ;;DATE CONVERTER BLACK BOX. ** FORMAT 11/04/90 **
45 ;;NEEDS VARIABLE NEWDATE WHICH MUST BE FORMAT 2900411 (S NEWDATE=DT)
46CONVERT Q:'$D(NEWDATE)
47 S:NEWDATE'="" NEWDATE=$E(NEWDATE,4,5)_"/"_$E(NEWDATE,6,7)_"/"_$E(NEWDATE,2,3)
48 Q
49DOLL ;;;;;;;;;;DOLLAR CONVERTER;;;;;;;;;;;;;;;;;;;;;;;;
50 I ABSVDOLA="" Q
51 I $E(ABSVDOLA)'="$" S ABSVDOLA="$"_ABSVDOLA
52 I ABSVDOLA'["." S ABSVDOLA=ABSVDOLA_".00"
53 Q
54NAMEFLIP ;;;;;;;;;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
62END ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
63 Q
Note: See TracBrowser for help on using the repository browser.