| [613] | 1 | ABSVDLE2 ;EAP ALTOONA VOLUNTARY DONATIONS PROGRAM ; 26 Sep 2001 2:04 PM
|
|---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26**;JULY 6, 1994
|
|---|
| 3 | ;CREATE MANUAL ENTRY IN FILE #503344
|
|---|
| 4 | CREATE ;
|
|---|
| 5 | S DIC="^ABS(503344,",DLAYGO=503344,DIC(0)="LM" D NOW^%DTC S DT=X
|
|---|
| 6 | GET L ^ABS("RECEIPT") S X=$S($D(^ABS("RECEIPT")):+^("RECEIPT")+1,1:1),^("RECEIPT")=X L G:$D(^ABS(503344,X)) GET S DINUM=X D FILE^DICN G:+Y<0 GET
|
|---|
| 7 | W !!,"THIS TEMPORARY RECEIPT LOG ENTRY HAS BEEN ASSIGNED NUMBER: ",+Y S ABSVDA=+Y
|
|---|
| 8 | EDIT S DIE=DIC,DA=+Y,DR="[ABSV DON MANUAL ENTRY]" D ^DIE I $D(Y) G END1
|
|---|
| 9 | END1 ;
|
|---|
| 10 | Q
|
|---|
| 11 | WRITE ;
|
|---|
| 12 | I '$D(ZHDATE) S ZHDATE=""
|
|---|
| 13 | S U="^" I '$D(IOM) S IOM=80
|
|---|
| 14 | W ! F I=1:1:IOM W "="
|
|---|
| 15 | I '$D(^ABS(503344,ABSVDA,0)) W !,"ENTRY IS NOT DEFINED IN FILE 503344" Q
|
|---|
| 16 | S ZH=^ABS(503344,ABSVDA,0) S ZHORG=$P(ZH,U,11) S ZHBY=$P(ZH,U,7) S ZHAMOU=$P(ZH,U,6) S ABSVDOLA=ZHAMOU D DOLL^ABSVDLE1 S ZHAMOU=ABSVDOLA
|
|---|
| 17 | I ZHORG="" W !,"NO ORGANIZATION NAME FOR THIS ENTRY" Q
|
|---|
| 18 | S ZHNAM=$P(^ABS(503334,ZHORG,0),U,2) S ZHNUM=$P(ZH,U,1) S ZHCITY=$P(ZH,U,4)
|
|---|
| 19 | W !,ZHNAM,?31,"| TYPE OF FUNDS | AMOUNT: ",ZHAMOU
|
|---|
| 20 | S ZHPOST="",ZHFUND="",ZHPURP=""
|
|---|
| 21 | I $D(^ABS(503344,ABSVDA,1)) S ZH1=^ABS(503344,ABSVDA,1) S ZHPOST=$P(ZH1,U,1) S ZHFUND=$P(ZH1,U,2) S ZHPURP=$P(ZH1,U,3)
|
|---|
| 22 | S ZHDON=$P(ZH,U,2) S ZHADD1=$P(ZH,U,3) S ZHADD2=$P(ZH,U,10)
|
|---|
| 23 | S $P(^ABS(503344,ABSVDA,0),U,5)="C" S $P(^ABS(503344,ABSVDA,0),U,8)=ZHDATE1 S $P(^ABS(503344,ABSVDA,0),U,9)="MANUAL ENTRY" I $D(ABSV("SITE")) S $P(^ABS(503344,ABSVDA,0),U,12)=ABSV("SITE")
|
|---|
| 24 | W !,ZHDON,?31,"| CASH/CHECK | ISSUED BY: ",ZHBY
|
|---|
| 25 | W !,ZHADD1,?31,"| | DATE ISSUED: ",ZHDATE
|
|---|
| 26 | I ZHADD2'="" D ADDRESS G SKIP
|
|---|
| 27 | I ZHADD2="" D NOADD
|
|---|
| 28 | SKIP W ! F I=1:1:IOM W "="
|
|---|
| 29 | I $D(^ABS(503342,ZHFUND,0)) S ZHFNUM=$P(^ABS(503342,ZHFUND,0),U,3) S ZHFUND=$P(^ABS(503342,ZHFUND,0),U,1)
|
|---|
| 30 | W !,"POST: ",ZHPOST,?31,"| FUND: ",ZHFUND," #",ZHFNUM
|
|---|
| 31 | W ! F I=1:1:IOM W "="
|
|---|
| 32 | W !,"PURPOSE OF DONATION: ",ZHPURP
|
|---|
| 33 | Q
|
|---|
| 34 | END ;
|
|---|
| 35 | K ZH,ZH1,ZHFUND,ZHFNUM,ZHPOST,ZHADD1,ZHADD2,ZHDON,ZHBY,ZHDATE,ZHAMOU,ZHNAM
|
|---|
| 36 | K ZHDATE1,ABSVDOLA,ZHPURP,ZHNUM,ZHCITY,ZHORG,ABSVDA
|
|---|
| 37 | Q
|
|---|
| 38 | ADDRESS ;
|
|---|
| 39 | W !,ZHADD2,?31,"| | LOG FILE#: ",ZHNUM
|
|---|
| 40 | W !,ZHCITY,?31,"| |"
|
|---|
| 41 | Q
|
|---|
| 42 | NOADD ;
|
|---|
| 43 | W !,ZHCITY,?31,"| | LOG FILE#: ",ZHNUM
|
|---|
| 44 | Q
|
|---|
