source: WorldVistAEHR/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVDLE2.m@ 1739

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

initial load of WorldVistAEHR

File size: 2.1 KB
RevLine 
[613]1ABSVDLE2 ;EAP ALTOONA VOLUNTARY DONATIONS PROGRAM ; 26 Sep 2001 2:04 PM
2V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26**;JULY 6, 1994
3 ;CREATE MANUAL ENTRY IN FILE #503344
4CREATE ;
5 S DIC="^ABS(503344,",DLAYGO=503344,DIC(0)="LM" D NOW^%DTC S DT=X
6GET 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
8EDIT S DIE=DIC,DA=+Y,DR="[ABSV DON MANUAL ENTRY]" D ^DIE I $D(Y) G END1
9END1 ;
10 Q
11WRITE ;
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
28SKIP 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
34END ;
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
38ADDRESS ;
39 W !,ZHADD2,?31,"| | LOG FILE#: ",ZHNUM
40 W !,ZHCITY,?31,"| |"
41 Q
42NOADD ;
43 W !,ZHCITY,?31,"| | LOG FILE#: ",ZHNUM
44 Q
Note: See TracBrowser for help on using the repository browser.