ABSVDPRT ;EAP ALTOONA VOLUNTARY DONATIONS PROGRAM ;4/22/02 3:50 PM
V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26,29**;JULY 6, 1994
;VALUE PRINT ROUTINES-ASK FOR SITE INFO FIRST
ORG ;ORGANIZATION VALUE PRINT
N DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,BDATE,EDATE
D ^ABSVSITE Q:'%
D GETDATE^ABSVDPNT
D DRNG^ABSVU Q:'%
S X=FR D CNVD^ABSVQ S BDATE=Y
S X=TO D CNVD^ABSVQ S EDATE=Y
S FR=ABSV("SITE")_",?,"_FR,TO=ABSV("SITE")_",?,"_TO
S DIC=503340
S L=0,BY="[ABSV DON ORG VALUE SORT]"
S FLDS="[ABSV DON ORG VALUE PRINT]"
D EN1^DIP
K DIC,BY,FLDS,L,FR,TO
QUIT
DATEREC ;DATE RECEIVED VALUE PRINT
N DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
D ^ABSVSITE Q:'%
D GETDATE^ABSVDPNT
D DRNG^ABSVU Q:'%
S X=FR D CNVD^ABSVQ S BDATE=Y
S X=TO D CNVD^ABSVQ S EDATE=Y
S FR=ABSV("SITE")_","_FR,TO=ABSV("SITE")_","_TO
S DIC=503340
S L=0,BY="[ABSV DON RECEIVED SORT]"
S FLDS="[ABSV DON RECEIVED PRINT]"
D EN1^DIP
K DIC,BY,FLDS,L,FR,TO
QUIT
TYPE ;TYPE OF DONATION VALUE PRINT
N DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
D ^ABSVSITE Q:'%
D GETDATE^ABSVDPNT
D DRNG^ABSVU Q:'%
S X=FR D CNVD^ABSVQ S BDATE=Y
S X=TO D CNVD^ABSVQ S EDATE=Y
S FR=ABSV("SITE")_",,"_FR,TO=ABSV("SITE")_",,"_TO
S DIC=503340
S BY="[ABSV DON TYPE VALUE SORT]"
S FLDS="[ABSV DON TYPE VALUE PRINT]"
S L=0
D EN1^DIP
K DIC,BY,FLDS,L,FR,TO
QUIT
FISCAL ;MONTHLY REPORT TO FISCAL VALUE PRINT
N DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
D ^ABSVSITE Q:'%
D GETDATE^ABSVDPNT
D DRNG^ABSVU Q:'%
S X=FR D CNVD^ABSVQ S BDATE=Y
S X=TO D CNVD^ABSVQ S EDATE=Y
S FR=ABSV("SITE")_",,"_FR,TO=ABSV("SITE")_",,"_TO
S DIC=503340
S BY="[ABSV DON FISCAL SORT]"
S FLDS="[ABSV DON FISCAL PRINT]"
S L=0
D EN1^DIP
K DIC,BY,FLDS,L,FR,TO
QUIT
ACK ;DATE ACKNOWLEDGED VALUE PRINT
N DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
D ^ABSVSITE Q:'%
D GETDATE^ABSVDPNT
D DRNG^ABSVU Q:'%
S X=FR D CNVD^ABSVQ S BDATE=Y
S X=TO D CNVD^ABSVQ S EDATE=Y
S FR=ABSV("SITE")_","_FR_",",TO=ABSV("SITE")_","_TO_","
S DIC=503340
S BY="[ABSV DON ACK VALUE SORT]"
S FLDS="[ABSV DON ACK VALUE PRINT]"
S L=0
D EN1^DIP
K DIC,BY,FLDS,L,FR,TO
QUIT
POST ;PRINT POST/UNIT/CHAPTER
N AFR,ATO,DIR,DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
D ^ABSVSITE Q:'%
S DIC("A")="Select VOLUNTEER ORGANIZATION: "
S DIC=503334,DIC(0)="AEMNZ" D ^DIC Q:+Y<0 S ORG=$P(Y,"^",2)
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."
D ^DIR Q:$$DIR^ABSVU2
I X="ALL"!(X="all") S AFR="@",ATO="zzzzzz"
E S (AFR,ATO)=X
D GETDATE^ABSVDPNT
D DRNG^ABSVU Q:'%
S X=FR D CNVD^ABSVQ S BDATE=Y
S X=TO D CNVD^ABSVQ S EDATE=Y
S DIC=503340,(BY,FLDS)="[ABSV DON POST]"
S FR=ABSV("SITE")_","_ORG_","_AFR_",,"_FR,TO=ABSV("SITE")_","_ORG_","_ATO_",,"_TO
D EN1^DIP
QUIT
END ;;;;;;;;;;;;;;;;;;;
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HABSVDPRT 2931 printed Jan 14, 2021@17:31:40 Page 2
ABSVDPRT ;EAP ALTOONA VOLUNTARY DONATIONS PROGRAM ;4/22/02 3:50 PM
V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26,29**;JULY 6, 1994
+1 ;VALUE PRINT ROUTINES-ASK FOR SITE INFO FIRST
ORG ;ORGANIZATION VALUE PRINT
+1 NEW DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,BDATE,EDATE
+2 DO ^ABSVSITE
if '%
QUIT
+3 DO GETDATE^ABSVDPNT
+4 DO DRNG^ABSVU
if '%
QUIT
+5 SET X=FR
DO CNVD^ABSVQ
SET BDATE=Y
+6 SET X=TO
DO CNVD^ABSVQ
SET EDATE=Y
+7 SET FR=ABSV("SITE")_",?,"_FR
SET TO=ABSV("SITE")_",?,"_TO
+8 SET DIC=503340
+9 SET L=0
SET BY="[ABSV DON ORG VALUE SORT]"
+10 SET FLDS="[ABSV DON ORG VALUE PRINT]"
+11 DO EN1^DIP
+12 KILL DIC,BY,FLDS,L,FR,TO
+13 QUIT
DATEREC ;DATE RECEIVED VALUE PRINT
+1 NEW DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
+2 DO ^ABSVSITE
if '%
QUIT
+3 DO GETDATE^ABSVDPNT
+4 DO DRNG^ABSVU
if '%
QUIT
+5 SET X=FR
DO CNVD^ABSVQ
SET BDATE=Y
+6 SET X=TO
DO CNVD^ABSVQ
SET EDATE=Y
+7 SET FR=ABSV("SITE")_","_FR
SET TO=ABSV("SITE")_","_TO
+8 SET DIC=503340
+9 SET L=0
SET BY="[ABSV DON RECEIVED SORT]"
+10 SET FLDS="[ABSV DON RECEIVED PRINT]"
+11 DO EN1^DIP
+12 KILL DIC,BY,FLDS,L,FR,TO
+13 QUIT
TYPE ;TYPE OF DONATION VALUE PRINT
+1 NEW DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
+2 DO ^ABSVSITE
if '%
QUIT
+3 DO GETDATE^ABSVDPNT
+4 DO DRNG^ABSVU
if '%
QUIT
+5 SET X=FR
DO CNVD^ABSVQ
SET BDATE=Y
+6 SET X=TO
DO CNVD^ABSVQ
SET EDATE=Y
+7 SET FR=ABSV("SITE")_",,"_FR
SET TO=ABSV("SITE")_",,"_TO
+8 SET DIC=503340
+9 SET BY="[ABSV DON TYPE VALUE SORT]"
+10 SET FLDS="[ABSV DON TYPE VALUE PRINT]"
+11 SET L=0
+12 DO EN1^DIP
+13 KILL DIC,BY,FLDS,L,FR,TO
+14 QUIT
FISCAL ;MONTHLY REPORT TO FISCAL VALUE PRINT
+1 NEW DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
+2 DO ^ABSVSITE
if '%
QUIT
+3 DO GETDATE^ABSVDPNT
+4 DO DRNG^ABSVU
if '%
QUIT
+5 SET X=FR
DO CNVD^ABSVQ
SET BDATE=Y
+6 SET X=TO
DO CNVD^ABSVQ
SET EDATE=Y
+7 SET FR=ABSV("SITE")_",,"_FR
SET TO=ABSV("SITE")_",,"_TO
+8 SET DIC=503340
+9 SET BY="[ABSV DON FISCAL SORT]"
+10 SET FLDS="[ABSV DON FISCAL PRINT]"
+11 SET L=0
+12 DO EN1^DIP
+13 KILL DIC,BY,FLDS,L,FR,TO
+14 QUIT
ACK ;DATE ACKNOWLEDGED VALUE PRINT
+1 NEW DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
+2 DO ^ABSVSITE
if '%
QUIT
+3 DO GETDATE^ABSVDPNT
+4 DO DRNG^ABSVU
if '%
QUIT
+5 SET X=FR
DO CNVD^ABSVQ
SET BDATE=Y
+6 SET X=TO
DO CNVD^ABSVQ
SET EDATE=Y
+7 SET FR=ABSV("SITE")_","_FR_","
SET TO=ABSV("SITE")_","_TO_","
+8 SET DIC=503340
+9 SET BY="[ABSV DON ACK VALUE SORT]"
+10 SET FLDS="[ABSV DON ACK VALUE PRINT]"
+11 SET L=0
+12 DO EN1^DIP
+13 KILL DIC,BY,FLDS,L,FR,TO
+14 QUIT
POST ;PRINT POST/UNIT/CHAPTER
+1 NEW AFR,ATO,DIR,DIC,Y,BY,FR,TO,L,FLDS,CTBX,ABSVXX,EDATE,BDATE
+2 DO ^ABSVSITE
if '%
QUIT
+3 SET DIC("A")="Select VOLUNTEER ORGANIZATION: "
+4 SET DIC=503334
SET DIC(0)="AEMNZ"
DO ^DIC
if +Y<0
QUIT
SET ORG=$PIECE(Y,"^",2)
+5 SET DIR(0)="F^1:8"
SET DIR("A")="Select POST"
SET DIR("B")="ALL"
SET DIR("?")="Enter the individual POST for the Organization you have selected, or ALL to print ALL Posts."
+6 DO ^DIR
if $$DIR^ABSVU2
QUIT
+7 IF X="ALL"!(X="all")
SET AFR="@"
SET ATO="zzzzzz"
+8 IF '$TEST
SET (AFR,ATO)=X
+9 DO GETDATE^ABSVDPNT
+10 DO DRNG^ABSVU
if '%
QUIT
+11 SET X=FR
DO CNVD^ABSVQ
SET BDATE=Y
+12 SET X=TO
DO CNVD^ABSVQ
SET EDATE=Y
+13 SET DIC=503340
SET (BY,FLDS)="[ABSV DON POST]"
+14 SET FR=ABSV("SITE")_","_ORG_","_AFR_",,"_FR
SET TO=ABSV("SITE")_","_ORG_","_ATO_",,"_TO
+15 DO EN1^DIP
+16 QUIT
END ;;;;;;;;;;;;;;;;;;;
+1 QUIT
