| 1 | ABSVDPRT ;EAP ALTOONA VOLUNTARY DONATIONS PROGRAM ;4/22/02 3:50 PM
|
|---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26,29**;JULY 6, 1994
|
|---|
| 3 | ;VALUE PRINT ROUTINES-ASK FOR SITE INFO FIRST
|
|---|
| 4 | ORG ;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
|
|---|
| 18 | DATEREC ;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
|
|---|
| 32 | TYPE ;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
|
|---|
| 47 | FISCAL ;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
|
|---|
| 62 | ACK ;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
|
|---|
| 77 | POST ;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
|
|---|
| 94 | END ;;;;;;;;;;;;;;;;;;;
|
|---|
| 95 | QUIT
|
|---|
