- ACRFCCP ;IHS/OIRM/DSD/THL,AEF - CREDIT CARD PURCHASE MANAGEMENT REPORTS; [ 11/01/2001 9:44 AM ]
- ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
- ;;ROUTINE TO SELECT DATE RANGE AND CARDHOLDERS AND PRINT THE CREDIT
- ;;CARD REPORT
- EN D EN1
- EXIT K ACR,ACRBEGIN,ACREND,ACRDUZ,ACRCAN,ACRDATE,ACRDOC0,ACRDOCDA,ACRJ,ACRI,ACROBJ,ACRP,ACRPAID,ACRPO,ACRQUAN,ACRRCD,ACRREQ,ACRREQ2,ACRRTN,ACRSSDA,ACRT,ACRTOT,ACRTOTAL,ACRTOTP,ACRTOTPD,ACRTP,ACRUC,ACRUI,ACRQUIT,ACRBYCAN,ACRCANDA
- Q
- EN1 ;
- D PO
- Q:$D(ACRQUIT)!$D(ACROUT)!'$D(ACRPODA)
- W @IOF
- W !?20,"CREDIT CARD REPORT"
- W !!!,"Select the DATE RANGE and CARDHOLDER(S) for this report:"
- W !
- D DATE
- Q:$D(ACRQUIT)!$D(ACROUT)!'$D(ACRBEGIN)
- D HOLDER
- Q:$D(ACRQUIT)!$D(ACROUT)
- D TYPE
- Q:$D(ACRQUIT)!$D(ACROUT)
- I ACRBEGIN="" D Q:$G(Y)'=1
- .W !!,"You have chosen to print the CREDIT CARD REPORT for"
- .W !,"ALL dates and ALL cardholders."
- .W !,"(This could be a VERY lengthy report!"
- .W !
- .S DIR(0)="YO"
- .S DIR("B")="NO"
- .S DIR("A")="Are you certain this is what you want"
- .D DIR^ACRFDIC
- ZIS S (ACRRTN,ZTRTN)="PRINT^ACRFCCP1"
- S ZTDESC="CREDIT CARD REPORT"
- S ACRCOND=""
- D ^ACRFZIS
- Q
- DATE ;
- S DIR(0)="DO^::E"
- S DIR("A")="Beginning Date"
- S DIR("?",1)="Enter the earliest date for which you want to include credit card purchases"
- S DIR("?")="Do not enter any date if you want to list all credit card purchases"
- D DIR^ACRFDIC
- Q:$D(ACRQUIT)!$D(ACROUT)
- Q:'Y
- K ACRQUIT
- S ACRBEGIN=Y,ACREND=""
- I ACRBEGIN D Q:$D(ACRQUIT)
- . S DIR(0)="DO^::E"
- .S DIR("A")="Ending Date..."
- .S DIR("?",1)="Enter the latest date for which you want to include credit card purchases."
- .S DIR("?")="Do not enter any date if you want to list all credit card purchases."
- .D DIR^ACRFDIC
- .I $E(X)[U S ACRQUIT="" Q
- .K ACRQUIT
- .S ACREND=$S(Y="":DT,1:Y)
- Q
- HOLDER ;
- S DIC="^ACRAU("
- S DIC(0)="AEMQZ"
- S DIC("A")="Cardholder....: "
- S DIC("S")="I $P($G(^ACRAU(+Y,1)),U,5)=1"
- D DIC^ACRFDIC
- Q:$D(ACRQUIT)!$D(ACROUT)
- S ACRDUZ=$S(+Y>0:+Y,1:"")
- Q
- TYPE ;SELECT TYPE OF REPORT
- S DIR(0)="SO^1:Standard Report by Cardholder;2:Finance Report by CAN"
- S DIR("B")="Standard Report"
- S DIR("A")="Which Report"
- W !
- D DIR^ACRFDIC
- Q:$D(ACRQUIT)!$D(ACROUT)
- Q:'Y
- I Y=2 S ACRBYCAN=""
- Q
- PO ;SELECT PURCHASING OFFICE
- D OFFICE^ACRFPA
- I '+$G(ACRDA) S ACRQUIT="" Q
- I '$D(^ACRPO(ACRDA,0)) S ACRQUIT="" Q
- S ACRPODA=ACRDA
- Q
- ACRFCCP ;IHS/OIRM/DSD/THL,AEF - CREDIT CARD PURCHASE MANAGEMENT REPORTS; [ 11/01/2001 9:44 AM ]
- +1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
- +2 ;;ROUTINE TO SELECT DATE RANGE AND CARDHOLDERS AND PRINT THE CREDIT
- +3 ;;CARD REPORT
- EN DO EN1
- EXIT KILL ACR,ACRBEGIN,ACREND,ACRDUZ,ACRCAN,ACRDATE,ACRDOC0,ACRDOCDA,ACRJ,ACRI,ACROBJ,ACRP,ACRPAID,ACRPO,ACRQUAN,ACRRCD,ACRREQ,ACRREQ2,ACRRTN,ACRSSDA,ACRT,ACRTOT,ACRTOTAL,ACRTOTP,ACRTOTPD,ACRTP,ACRUC,ACRUI,ACRQUIT,ACRBYCAN,ACRCANDA
- +1 QUIT
- EN1 ;
- +1 DO PO
- +2 IF $DATA(ACRQUIT)!$DATA(ACROUT)!'$DATA(ACRPODA)
- QUIT
- +3 WRITE @IOF
- +4 WRITE !?20,"CREDIT CARD REPORT"
- +5 WRITE !!!,"Select the DATE RANGE and CARDHOLDER(S) for this report:"
- +6 WRITE !
- +7 DO DATE
- +8 IF $DATA(ACRQUIT)!$DATA(ACROUT)!'$DATA(ACRBEGIN)
- QUIT
- +9 DO HOLDER
- +10 IF $DATA(ACRQUIT)!$DATA(ACROUT)
- QUIT
- +11 DO TYPE
- +12 IF $DATA(ACRQUIT)!$DATA(ACROUT)
- QUIT
- +13 IF ACRBEGIN=""
- Begin DoDot:1
- +14 WRITE !!,"You have chosen to print the CREDIT CARD REPORT for"
- +15 WRITE !,"ALL dates and ALL cardholders."
- +16 WRITE !,"(This could be a VERY lengthy report!"
- +17 WRITE !
- +18 SET DIR(0)="YO"
- +19 SET DIR("B")="NO"
- +20 SET DIR("A")="Are you certain this is what you want"
- +21 DO DIR^ACRFDIC
- End DoDot:1
- IF $GET(Y)'=1
- QUIT
- ZIS SET (ACRRTN,ZTRTN)="PRINT^ACRFCCP1"
- +1 SET ZTDESC="CREDIT CARD REPORT"
- +2 SET ACRCOND=""
- +3 DO ^ACRFZIS
- +4 QUIT
- DATE ;
- +1 SET DIR(0)="DO^::E"
- +2 SET DIR("A")="Beginning Date"
- +3 SET DIR("?",1)="Enter the earliest date for which you want to include credit card purchases"
- +4 SET DIR("?")="Do not enter any date if you want to list all credit card purchases"
- +5 DO DIR^ACRFDIC
- +6 IF $DATA(ACRQUIT)!$DATA(ACROUT)
- QUIT
- +7 IF 'Y
- QUIT
- +8 KILL ACRQUIT
- +9 SET ACRBEGIN=Y
- SET ACREND=""
- +10 IF ACRBEGIN
- Begin DoDot:1
- +11 SET DIR(0)="DO^::E"
- +12 SET DIR("A")="Ending Date..."
- +13 SET DIR("?",1)="Enter the latest date for which you want to include credit card purchases."
- +14 SET DIR("?")="Do not enter any date if you want to list all credit card purchases."
- +15 DO DIR^ACRFDIC
- +16 IF $EXTRACT(X)[U
- SET ACRQUIT=""
- QUIT
- +17 KILL ACRQUIT
- +18 SET ACREND=$SELECT(Y="":DT,1:Y)
- End DoDot:1
- IF $DATA(ACRQUIT)
- QUIT
- +19 QUIT
- HOLDER ;
- +1 SET DIC="^ACRAU("
- +2 SET DIC(0)="AEMQZ"
- +3 SET DIC("A")="Cardholder....: "
- +4 SET DIC("S")="I $P($G(^ACRAU(+Y,1)),U,5)=1"
- +5 DO DIC^ACRFDIC
- +6 IF $DATA(ACRQUIT)!$DATA(ACROUT)
- QUIT
- +7 SET ACRDUZ=$SELECT(+Y>0:+Y,1:"")
- +8 QUIT
- TYPE ;SELECT TYPE OF REPORT
- +1 SET DIR(0)="SO^1:Standard Report by Cardholder;2:Finance Report by CAN"
- +2 SET DIR("B")="Standard Report"
- +3 SET DIR("A")="Which Report"
- +4 WRITE !
- +5 DO DIR^ACRFDIC
- +6 IF $DATA(ACRQUIT)!$DATA(ACROUT)
- QUIT
- +7 IF 'Y
- QUIT
- +8 IF Y=2
- SET ACRBYCAN=""
- +9 QUIT
- PO ;SELECT PURCHASING OFFICE
- +1 DO OFFICE^ACRFPA
- +2 IF '+$GET(ACRDA)
- SET ACRQUIT=""
- QUIT
- +3 IF '$DATA(^ACRPO(ACRDA,0))
- SET ACRQUIT=""
- QUIT
- +4 SET ACRPODA=ACRDA
- +5 QUIT
