source: FOIAVistA/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVDPRT.m@ 1635

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

initial load of FOIAVistA 6/30/08 version
File size: 2.8 KB
Line 
1ABSVDPRT ;EAP ALTOONA VOLUNTARY DONATIONS PROGRAM ;4/22/02 3:50 PM
2V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26,29**;JULY 6, 1994
3 ;VALUE PRINT ROUTINES-ASK FOR SITE INFO FIRST
4ORG ;ORGANIZATION VALUE PRINT
5 N DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,BDATE,EDATE
6 D ^ABSVSITE Q:'%
7 D GETDATE^ABSVDPNT
8 D DRNG^ABSVU Q:'%
9 S X=FR D CNVD^ABSVQ S BDATE=Y
10 S X=TO D CNVD^ABSVQ S EDATE=Y
11 S FR=ABSV("SITE")_",?,"_FR,TO=ABSV("SITE")_",?,"_TO
12 S DIC=503340
13 S L=0,BY="[ABSV DON ORG VALUE SORT]"
14 S FLDS="[ABSV DON ORG VALUE PRINT]"
15 D EN1^DIP
16 K DIC,BY,FLDS,L,FR,TO
17 QUIT
18DATEREC ;DATE RECEIVED VALUE PRINT
19 N DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
20 D ^ABSVSITE Q:'%
21 D GETDATE^ABSVDPNT
22 D DRNG^ABSVU Q:'%
23 S X=FR D CNVD^ABSVQ S BDATE=Y
24 S X=TO D CNVD^ABSVQ S EDATE=Y
25 S FR=ABSV("SITE")_","_FR,TO=ABSV("SITE")_","_TO
26 S DIC=503340
27 S L=0,BY="[ABSV DON RECEIVED SORT]"
28 S FLDS="[ABSV DON RECEIVED PRINT]"
29 D EN1^DIP
30 K DIC,BY,FLDS,L,FR,TO
31 QUIT
32TYPE ;TYPE OF DONATION VALUE PRINT
33 N DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
34 D ^ABSVSITE Q:'%
35 D GETDATE^ABSVDPNT
36 D DRNG^ABSVU Q:'%
37 S X=FR D CNVD^ABSVQ S BDATE=Y
38 S X=TO D CNVD^ABSVQ S EDATE=Y
39 S FR=ABSV("SITE")_",,"_FR,TO=ABSV("SITE")_",,"_TO
40 S DIC=503340
41 S BY="[ABSV DON TYPE VALUE SORT]"
42 S FLDS="[ABSV DON TYPE VALUE PRINT]"
43 S L=0
44 D EN1^DIP
45 K DIC,BY,FLDS,L,FR,TO
46 QUIT
47FISCAL ;MONTHLY REPORT TO FISCAL VALUE PRINT
48 N DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
49 D ^ABSVSITE Q:'%
50 D GETDATE^ABSVDPNT
51 D DRNG^ABSVU Q:'%
52 S X=FR D CNVD^ABSVQ S BDATE=Y
53 S X=TO D CNVD^ABSVQ S EDATE=Y
54 S FR=ABSV("SITE")_",,"_FR,TO=ABSV("SITE")_",,"_TO
55 S DIC=503340
56 S BY="[ABSV DON FISCAL SORT]"
57 S FLDS="[ABSV DON FISCAL PRINT]"
58 S L=0
59 D EN1^DIP
60 K DIC,BY,FLDS,L,FR,TO
61 QUIT
62ACK ;DATE ACKNOWLEDGED VALUE PRINT
63 N DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
64 D ^ABSVSITE Q:'%
65 D GETDATE^ABSVDPNT
66 D DRNG^ABSVU Q:'%
67 S X=FR D CNVD^ABSVQ S BDATE=Y
68 S X=TO D CNVD^ABSVQ S EDATE=Y
69 S FR=ABSV("SITE")_","_FR_",",TO=ABSV("SITE")_","_TO_","
70 S DIC=503340
71 S BY="[ABSV DON ACK VALUE SORT]"
72 S FLDS="[ABSV DON ACK VALUE PRINT]"
73 S L=0
74 D EN1^DIP
75 K DIC,BY,FLDS,L,FR,TO
76 QUIT
77POST ;PRINT POST/UNIT/CHAPTER
78 N AFR,ATO,DIR,DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
79 D ^ABSVSITE Q:'%
80 S DIC("A")="Select VOLUNTEER ORGANIZATION: "
81 S DIC=503334,DIC(0)="AEMNZ" D ^DIC Q:+Y<0 S ORG=$P(Y,"^",2)
82 S DIR(0)="F^1:8",DIR("A")="Select POST",DIR("B")="ALL",DIR("?")="Enter the individual POST for the Organization you have selected, or ALL to print ALL Posts."
83 D ^DIR Q:$$DIR^ABSVU2
84 I X="ALL"!(X="all") S AFR="@",ATO="zzzzzz"
85 E S (AFR,ATO)=X
86 D GETDATE^ABSVDPNT
87 D DRNG^ABSVU Q:'%
88 S X=FR D CNVD^ABSVQ S BDATE=Y
89 S X=TO D CNVD^ABSVQ S EDATE=Y
90 S DIC=503340,(BY,FLDS)="[ABSV DON POST]"
91 S FR=ABSV("SITE")_","_ORG_","_AFR_",,"_FR,TO=ABSV("SITE")_","_ORG_","_ATO_",,"_TO
92 D EN1^DIP
93 QUIT
94END ;;;;;;;;;;;;;;;;;;;
95 QUIT
Note: See TracBrowser for help on using the repository browser.