ACRFPAYU ;IHS/OIRM/DSD/THL,AEF - PAYMENT MANAGEMENT UTILITIES; [ 11/01/2001 9:44 AM ]
;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
;;
I '$D(^ACRAPL("AC",DUZ,38)) D Q
.W !!,"You do not have the authority for Utility Functions."
.D PAUSE^ACRFWARN
EN F D EN1 Q:$D(ACRQUIT)!$D(ACROUT)
EXIT K ACR,ACRQUIT,ACROUT
Q
EN1 ;SELECT PAYMENT MANAGEMENT UTILITY
W @IOF
W !?10,"Payment Management Utilities"
S DIR(0)="SO^1:Enter Bank Information;2:Enter/Edit Object Class Codes;3:Add New Traveler;4:Print Bank Information;5:Late Payment Interest Rates;6:Add/Edit Vendor;7:Import Obligations from PCC/HAS"
S DIR("A")="Which Utility"
W !
D DIR^ACRFDIC
I +Y<1 S ACRQUIT="" Q
I Y=1 D ACHINFO Q
I Y=2 D OBJCODE^ACRFDFL1 Q
I Y=3 D ADDT Q
I Y=4 D PRINT Q
I Y=5 D LATEPAY Q
I Y=6 D VENDOR Q
I Y=7 D ^AFSLLDO1 Q
Q
ACHINFO ;EP;TO EDIT ACH INFORMATION
F D ACH1 Q:$D(ACRQUIT)!$D(ACROUT)
K ACRBTYP,ACRQUIT
Q
ACH1 ;SELECT TYPE OF LOOKUP
K ACRBTYP
D WHICH
I $G(ACRBTYP)="" S ACRQUIT="" Q
F D ACH2 Q:$D(ACRQUIT)!$D(ACROUT)
K ACRQUIT
Q
ACH2 ;SELECT VENDOR OR TRAVELER
D ACHHEAD
S DIC=$S(ACRBTYP="V":"^AUTTVNDR(",1:"^ACRAU(")
S DIC(0)="AEMQZ"
S DIC("A")="Which "_$S(ACRBTYP="V":"VENDOR",1:"TRAVELER")_": "
W !
D DIC^ACRFDIC
I +Y<1 S ACRQUIT="" Q
S DA=+Y
D BANKINFO^ACRFPAY
Q
ACHHEAD ;
W @IOF
W !?5,"BANK INFORMATION is CONFIDENTIAL, PROTECTED information."
W !?5,"Illegal use or dissemination of this data is against Federal Law."
Q
ADDT ;ADD TRAVELERE
F D AT1 Q:$D(ACRQUIT)!$D(ACROUT)
K ACRQUIT
Q
AT1 S DIC="^ACRAU("
S DIC(0)="AELMQZ"
S DIC("A")="Traveler's NAME (LAST,FIRST): "
W !
D DIC^ACRFDIC
I +Y<1 S ACRQUIT="" Q
S (DA,ACRDUZ)=+Y
S DIE="^ACRAU("
S DDSFILE="9002185.3"
S DR="[ACR ARMS USER]"
D DDS^ACRFDIC
S DA=ACRDUZ
S ACRBTYP="T"
D BANKINFO^ACRFPAY
Q
PRINT ;
D WHICH
I $G(ACRBTYP)="" K ACRQUIT Q
D ALL
I $G(ACRALL)="" K ACRQUIT Q
Q
PALL ;EP;PRINT BANK INFO FOR ALL TRAVLERES/VENDORS
S FLDS="[ACR "_$S(ACRBTYP="T":"TRAVELER",1:"VENDOR")_" BANK INFO]"
S BY=.01 ;$S(ACRBTYP="T":".01;""""",1:".01")
S FR="A"
S TO="z"
S IOP=ION
S ACRDIC=$S(ACRBTYP="V":"^AUTTVNDR",1:"^ACRAU")
S DIC=ACRDIC_"("
S DIS(0)="I $G(@ACRDIC@(D0,19))]"""""
D EN1^DIP
D PAUSE^ACRFWARN
Q
PSELECT ;PRINT BANK INFO FOR SELECTED TRAVLERES/VENDORS
D PSHEAD
S ACRNAM=""
F S ACRNAM=$O(^TMP("ACRBI",$J,ACRNAM)) Q:ACRNAM=""!$D(ACRQUIT) D
.S ACRDA=0
.F S ACRDA=$O(^TMP("ACRBI",$J,ACRNAM,ACRDA)) Q:'ACRDA!$D(ACRQUIT) D
..S X=$S(ACRBTYP="T":$G(^ACRAU(ACRDA,19)),1:$G(^AUTTVNDR(ACRDA,19)))
..W !,ACRNAM,?32,$S($P(X,U)="C":"CHECKING",$P(X,U)="S":"SAVING",1:"")
..W ?42,$S($D(^XUSEC("ACRFZ EDIT EFT",DUZ)):$P(X,U,2),$D(^XUSEC("ACRFZ VIEW EFT",DUZ)):$P(X,U,2),1:"<HIDDEN>")
..W ?53,$S($D(^XUSEC("ACRFZ EDIT EFT",DUZ)):$P(X,U,3),$D(^XUSEC("ACRFZ VIEW EFT",DUZ)):$P(X,U,3),1:"<HIDDEN>")
..I IOSL-4<$Y D PAUSE^ACRFWARN Q:$D(ACRQUIT) D PSHEAD
D PAUSE^ACRFWARN
K ACRDC
Q
PSHEAD ;
W @IOF
W !,"EFT BANK INFORMATION"
W !,"REPORT DATE: "
S Y=DT
X ^DD("DD")
W Y
S ACRDC=$G(ACRDC)+1
W ?55,"PAGE: ",ACRDC
W !!,"NAME",?32,"ACCOUNT",?42,"ROUTING #",?53,"ACCOUNT #"
W !,"--------------------------------------------------------------------------------"
Q
ALL S DIR(0)="SO^1:Print for ALL "_$S(ACRBTYP="T":"Travelers",1:"Vendors")_";2:Print for SELECTED "_$S(ACRBTYP="T":"Travelers",1:"Vendors")
S DIR("A")="Which one"
W !
D DIR^ACRFDIC
I Y<1 K ACRQUIT Q
S ACRALL=$S(Y=1:"ALL",1:"SELECT")
I Y=1 D ZIS Q
I Y=2 D SEL Q
Q
SEL ;SELECT TRAVELER/VENDOR TO PRINT
K ^TMP("ACRBI",$J)
F D S1 Q:$D(ACRQUIT)!$D(ACROUT)
K ACRQUIT
Q:'$D(^TMP("ACRBI",$J))
S (ACRRTN,ZTRTN)="PSELECT^ACRFPAYU"
S ZTDESC="PRINT EFT BANK INFORMATION"
D ^ACRFZIS
Q
S1 S DIC=$S(ACRBTYP="T":"^ACRAU(",1:"^AUTTVNDR(")
S ACRDIC=$S(ACRBTYP="T":"^ACRAU",1:"^AUTTVNDR")
S DIC(0)="AEMQZ"
W !
D DIC^ACRFDIC
I +Y<1 S ACRQUIT="" Q
I $G(@ACRDIC@(+Y,19))="" W !!,"NO BANK INFO ON FILE" H 2 Q
S ^TMP("ACRBI",$J,$P(Y(0,0),U),+Y)=""
Q
ZIS ;SELECT DEVICE
S (ACRRTN,ZTRTN)=$S(ACRALL="ALL":"PALL^ACRFPAYU",1:"PSELECT^ACRFPAYU")
S ZTDESC="EFT BANK INFORMATION"
D ^ACRFZIS
K ACRQUIT
Q
WHICH ;SELECT VENDOR OR TRAVELER
K ACRBTYP
D ACHHEAD
S DIR(0)="SO^1:Vendor Banking Information;2:Traveler Banking Information"
S DIR("A")="Which Banking Information"
W !
D DIR^ACRFDIC
I +Y<1 S ACRQUIT="" Q
S ACRBTYP=$S(Y=1:"V",Y=2:"T",1:"")
Q
LATEPAY ;EP;TO REVIEW/ADD/EDIT LATE PAY INTEREST RATES
F D LP1 Q:$D(ACRQUIT)!$D(ACROUT)
LPEXIT K ACRQUIT,ACRLP,ACRIR,ACRED,ACRXX,ACRYY,ACRJ
Q
LP1 ;
D LPHEAD
S ACRJ=0
S ACRXX=9999
F S ACRXX=$O(^ACRSYS(1,40,ACRXX),-1) Q:'ACRXX!(ACRJ>7) D
.S ACRYY=$G(^ACRSYS(1,40,ACRXX,0))
.S Y=$P(ACRYY,U)
.X ^DD("DD")
.S ACRJ=ACRJ+1
.S ACRLP(ACRJ)=ACRXX
.W !?10,ACRJ
.W ?15,Y
.W ?30,$J($FN($P(ACRYY,U,2),"P",3),5)
S DIR(0)="SO^1:Edit Rate;2:ADD New Rate;3:REMOVE Rate"
S DIR("A")="Which one"
W !
D DIR^ACRFDIC
I Y<1 S ACRQUIT="" Q
I Y=1 D LPE K ACRQUIT Q
I Y=2 D LPA K ACRQUIT Q
I Y=3 D LPR K ACRQUIT Q
Q
LPE ;EDIT LP RATE
S DIR(0)="NO^1:"_ACRJ
S DIR("A")="Edit which one"
W !
D DIR^ACRFDIC
I Y<1 K ACRQUIT Q
I '$D(ACRLP(+Y)) K ACRQUIT Q
S DA=+ACRLP(Y)
S DA(1)=1
S DIE="^ACRSYS(1,40,"
S DR=".01T;.02T"
W !
D DIE^ACRFDIC
Q
LPA ;ADD LP RATE
S DIR(0)="DO^::ET"
S DIR("A")="EFFECTIVE DATE"
W !
D DIR^ACRFDIC
I Y<1 K ACRQUIT Q
S ACRED=Y
S DIR(0)="NOA^1:10:3"
S DIR("A")="INTEREST RATE.: "
D DIR^ACRFDIC
I Y<1 K ACRQUIT Q
S ACRIR=Y
S X=ACRED
S DA(1)=1
S DIC="^ACRSYS(1,40,"
S DIC(0)="L"
S DIC("DR")=".02////"_ACRIR
D FILE^ACRFDIC
Q
LPR ;REMOVE LP RATE
S DIR(0)="NO^1:"_ACRJ
S DIR("A")="Remove which one"
W !
D DIR^ACRFDIC
I Y<1 K ACRQUIT Q
I '$D(ACRLP(+Y)) K ACRQUIT Q
S DA=+ACRLP(Y)
S DA(1)=1
S DIK="^ACRSYS(1,40,"
D DIK^ACRFDIC
Q
LPHEAD ;LP HEADER
W @IOF
W !?10,"Late Payment Interest Rates"
W !!?15,"Effective",?30,"Interest"
W !?10,"NO.",?15,"Date",?30,"Rate"
W !?10,"---",?15,"----------",?30,"--------"
Q
VENDOR ;ADD/EDIT VENDOR
D EN^ACRFVEND
Q
ACRFPAYU ;IHS/OIRM/DSD/THL,AEF - PAYMENT MANAGEMENT UTILITIES; [ 11/01/2001 9:44 AM ]
+1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
+2 ;;
+3 IF '$DATA(^ACRAPL("AC",DUZ,38))
Begin DoDot:1
+4 WRITE !!,"You do not have the authority for Utility Functions."
+5 DO PAUSE^ACRFWARN
End DoDot:1
QUIT
EN FOR
DO EN1
IF $DATA(ACRQUIT)!$DATA(ACROUT)
QUIT
EXIT KILL ACR,ACRQUIT,ACROUT
+1 QUIT
EN1 ;SELECT PAYMENT MANAGEMENT UTILITY
+1 WRITE @IOF
+2 WRITE !?10,"Payment Management Utilities"
+3 SET DIR(0)="SO^1:Enter Bank Information;2:Enter/Edit Object Class Codes;3:Add New Traveler;4:Print Bank Information;5:Late Payment Interest Rates;6:Add/Edit Vendor;7:Import Obligations from PCC/HAS"
+4 SET DIR("A")="Which Utility"
+5 WRITE !
+6 DO DIR^ACRFDIC
+7 IF +Y<1
SET ACRQUIT=""
QUIT
+8 IF Y=1
DO ACHINFO
QUIT
+9 IF Y=2
DO OBJCODE^ACRFDFL1
QUIT
+10 IF Y=3
DO ADDT
QUIT
+11 IF Y=4
DO PRINT
QUIT
+12 IF Y=5
DO LATEPAY
QUIT
+13 IF Y=6
DO VENDOR
QUIT
+14 IF Y=7
DO ^AFSLLDO1
QUIT
+15 QUIT
ACHINFO ;EP;TO EDIT ACH INFORMATION
+1 FOR
DO ACH1
IF $DATA(ACRQUIT)!$DATA(ACROUT)
QUIT
+2 KILL ACRBTYP,ACRQUIT
+3 QUIT
ACH1 ;SELECT TYPE OF LOOKUP
+1 KILL ACRBTYP
+2 DO WHICH
+3 IF $GET(ACRBTYP)=""
SET ACRQUIT=""
QUIT
+4 FOR
DO ACH2
IF $DATA(ACRQUIT)!$DATA(ACROUT)
QUIT
+5 KILL ACRQUIT
+6 QUIT
ACH2 ;SELECT VENDOR OR TRAVELER
+1 DO ACHHEAD
+2 SET DIC=$SELECT(ACRBTYP="V":"^AUTTVNDR(",1:"^ACRAU(")
+3 SET DIC(0)="AEMQZ"
+4 SET DIC("A")="Which "_$SELECT(ACRBTYP="V":"VENDOR",1:"TRAVELER")_": "
+5 WRITE !
+6 DO DIC^ACRFDIC
+7 IF +Y<1
SET ACRQUIT=""
QUIT
+8 SET DA=+Y
+9 DO BANKINFO^ACRFPAY
+10 QUIT
ACHHEAD ;
+1 WRITE @IOF
+2 WRITE !?5,"BANK INFORMATION is CONFIDENTIAL, PROTECTED information."
+3 WRITE !?5,"Illegal use or dissemination of this data is against Federal Law."
+4 QUIT
ADDT ;ADD TRAVELERE
+1 FOR
DO AT1
IF $DATA(ACRQUIT)!$DATA(ACROUT)
QUIT
+2 KILL ACRQUIT
+3 QUIT
AT1 SET DIC="^ACRAU("
+1 SET DIC(0)="AELMQZ"
+2 SET DIC("A")="Traveler's NAME (LAST,FIRST): "
+3 WRITE !
+4 DO DIC^ACRFDIC
+5 IF +Y<1
SET ACRQUIT=""
QUIT
+6 SET (DA,ACRDUZ)=+Y
+7 SET DIE="^ACRAU("
+8 SET DDSFILE="9002185.3"
+9 SET DR="[ACR ARMS USER]"
+10 DO DDS^ACRFDIC
+11 SET DA=ACRDUZ
+12 SET ACRBTYP="T"
+13 DO BANKINFO^ACRFPAY
+14 QUIT
PRINT ;
+1 DO WHICH
+2 IF $GET(ACRBTYP)=""
KILL ACRQUIT
QUIT
+3 DO ALL
+4 IF $GET(ACRALL)=""
KILL ACRQUIT
QUIT
+5 QUIT
PALL ;EP;PRINT BANK INFO FOR ALL TRAVLERES/VENDORS
+1 SET FLDS="[ACR "_$SELECT(ACRBTYP="T":"TRAVELER",1:"VENDOR")_" BANK INFO]"
+2 ;$S(ACRBTYP="T":".01;""""",1:".01")
SET BY=.01
+3 SET FR="A"
+4 SET TO="z"
+5 SET IOP=ION
+6 SET ACRDIC=$SELECT(ACRBTYP="V":"^AUTTVNDR",1:"^ACRAU")
+7 SET DIC=ACRDIC_"("
+8 SET DIS(0)="I $G(@ACRDIC@(D0,19))]"""""
+9 DO EN1^DIP
+10 DO PAUSE^ACRFWARN
+11 QUIT
PSELECT ;PRINT BANK INFO FOR SELECTED TRAVLERES/VENDORS
+1 DO PSHEAD
+2 SET ACRNAM=""
+3 FOR
SET ACRNAM=$ORDER(^TMP("ACRBI",$JOB,ACRNAM))
IF ACRNAM=""!$DATA(ACRQUIT)
QUIT
Begin DoDot:1
+4 SET ACRDA=0
+5 FOR
SET ACRDA=$ORDER(^TMP("ACRBI",$JOB,ACRNAM,ACRDA))
IF 'ACRDA!$DATA(ACRQUIT)
QUIT
Begin DoDot:2
+6 SET X=$SELECT(ACRBTYP="T":$GET(^ACRAU(ACRDA,19)),1:$GET(^AUTTVNDR(ACRDA,19)))
+7 WRITE !,ACRNAM,?32,$SELECT($PIECE(X,U)="C":"CHECKING",$PIECE(X,U)="S":"SAVING",1:"")
+8 WRITE ?42,$SELECT($DATA(^XUSEC("ACRFZ EDIT EFT",DUZ)):$PIECE(X,U,2),$DATA(^XUSEC("ACRFZ VIEW EFT",DUZ)):$PIECE(X,U,2),1:"<HIDDEN>")
+9 WRITE ?53,$SELECT($DATA(^XUSEC("ACRFZ EDIT EFT",DUZ)):$PIECE(X,U,3),$DATA(^XUSEC("ACRFZ VIEW EFT",DUZ)):$PIECE(X,U,3),1:"<HIDDEN>")
+10 IF IOSL-4<$Y
DO PAUSE^ACRFWARN
IF $DATA(ACRQUIT)
QUIT
DO PSHEAD
End DoDot:2
End DoDot:1
+11 DO PAUSE^ACRFWARN
+12 KILL ACRDC
+13 QUIT
PSHEAD ;
+1 WRITE @IOF
+2 WRITE !,"EFT BANK INFORMATION"
+3 WRITE !,"REPORT DATE: "
+4 SET Y=DT
+5 XECUTE ^DD("DD")
+6 WRITE Y
+7 SET ACRDC=$GET(ACRDC)+1
+8 WRITE ?55,"PAGE: ",ACRDC
+9 WRITE !!,"NAME",?32,"ACCOUNT",?42,"ROUTING #",?53,"ACCOUNT #"
+10 WRITE !,"--------------------------------------------------------------------------------"
+11 QUIT
ALL SET DIR(0)="SO^1:Print for ALL "_$SELECT(ACRBTYP="T":"Travelers",1:"Vendors")_";2:Print for SELECTED "_$SELECT(ACRBTYP="T":"Travelers",1:"Vendors")
+1 SET DIR("A")="Which one"
+2 WRITE !
+3 DO DIR^ACRFDIC
+4 IF Y<1
KILL ACRQUIT
QUIT
+5 SET ACRALL=$SELECT(Y=1:"ALL",1:"SELECT")
+6 IF Y=1
DO ZIS
QUIT
+7 IF Y=2
DO SEL
QUIT
+8 QUIT
SEL ;SELECT TRAVELER/VENDOR TO PRINT
+1 KILL ^TMP("ACRBI",$JOB)
+2 FOR
DO S1
IF $DATA(ACRQUIT)!$DATA(ACROUT)
QUIT
+3 KILL ACRQUIT
+4 IF '$DATA(^TMP("ACRBI",$JOB))
QUIT
+5 SET (ACRRTN,ZTRTN)="PSELECT^ACRFPAYU"
+6 SET ZTDESC="PRINT EFT BANK INFORMATION"
+7 DO ^ACRFZIS
+8 QUIT
S1 SET DIC=$SELECT(ACRBTYP="T":"^ACRAU(",1:"^AUTTVNDR(")
+1 SET ACRDIC=$SELECT(ACRBTYP="T":"^ACRAU",1:"^AUTTVNDR")
+2 SET DIC(0)="AEMQZ"
+3 WRITE !
+4 DO DIC^ACRFDIC
+5 IF +Y<1
SET ACRQUIT=""
QUIT
+6 IF $GET(@ACRDIC@(+Y,19))=""
WRITE !!,"NO BANK INFO ON FILE"
HANG 2
QUIT
+7 SET ^TMP("ACRBI",$JOB,$PIECE(Y(0,0),U),+Y)=""
+8 QUIT
ZIS ;SELECT DEVICE
+1 SET (ACRRTN,ZTRTN)=$SELECT(ACRALL="ALL":"PALL^ACRFPAYU",1:"PSELECT^ACRFPAYU")
+2 SET ZTDESC="EFT BANK INFORMATION"
+3 DO ^ACRFZIS
+4 KILL ACRQUIT
+5 QUIT
WHICH ;SELECT VENDOR OR TRAVELER
+1 KILL ACRBTYP
+2 DO ACHHEAD
+3 SET DIR(0)="SO^1:Vendor Banking Information;2:Traveler Banking Information"
+4 SET DIR("A")="Which Banking Information"
+5 WRITE !
+6 DO DIR^ACRFDIC
+7 IF +Y<1
SET ACRQUIT=""
QUIT
+8 SET ACRBTYP=$SELECT(Y=1:"V",Y=2:"T",1:"")
+9 QUIT
LATEPAY ;EP;TO REVIEW/ADD/EDIT LATE PAY INTEREST RATES
+1 FOR
DO LP1
IF $DATA(ACRQUIT)!$DATA(ACROUT)
QUIT
LPEXIT KILL ACRQUIT,ACRLP,ACRIR,ACRED,ACRXX,ACRYY,ACRJ
+1 QUIT
LP1 ;
+1 DO LPHEAD
+2 SET ACRJ=0
+3 SET ACRXX=9999
+4 FOR
SET ACRXX=$ORDER(^ACRSYS(1,40,ACRXX),-1)
IF 'ACRXX!(ACRJ>7)
QUIT
Begin DoDot:1
+5 SET ACRYY=$GET(^ACRSYS(1,40,ACRXX,0))
+6 SET Y=$PIECE(ACRYY,U)
+7 XECUTE ^DD("DD")
+8 SET ACRJ=ACRJ+1
+9 SET ACRLP(ACRJ)=ACRXX
+10 WRITE !?10,ACRJ
+11 WRITE ?15,Y
+12 WRITE ?30,$JUSTIFY($FNUMBER($PIECE(ACRYY,U,2),"P",3),5)
End DoDot:1
+13 SET DIR(0)="SO^1:Edit Rate;2:ADD New Rate;3:REMOVE Rate"
+14 SET DIR("A")="Which one"
+15 WRITE !
+16 DO DIR^ACRFDIC
+17 IF Y<1
SET ACRQUIT=""
QUIT
+18 IF Y=1
DO LPE
KILL ACRQUIT
QUIT
+19 IF Y=2
DO LPA
KILL ACRQUIT
QUIT
+20 IF Y=3
DO LPR
KILL ACRQUIT
QUIT
+21 QUIT
LPE ;EDIT LP RATE
+1 SET DIR(0)="NO^1:"_ACRJ
+2 SET DIR("A")="Edit which one"
+3 WRITE !
+4 DO DIR^ACRFDIC
+5 IF Y<1
KILL ACRQUIT
QUIT
+6 IF '$DATA(ACRLP(+Y))
KILL ACRQUIT
QUIT
+7 SET DA=+ACRLP(Y)
+8 SET DA(1)=1
+9 SET DIE="^ACRSYS(1,40,"
+10 SET DR=".01T;.02T"
+11 WRITE !
+12 DO DIE^ACRFDIC
+13 QUIT
LPA ;ADD LP RATE
+1 SET DIR(0)="DO^::ET"
+2 SET DIR("A")="EFFECTIVE DATE"
+3 WRITE !
+4 DO DIR^ACRFDIC
+5 IF Y<1
KILL ACRQUIT
QUIT
+6 SET ACRED=Y
+7 SET DIR(0)="NOA^1:10:3"
+8 SET DIR("A")="INTEREST RATE.: "
+9 DO DIR^ACRFDIC
+10 IF Y<1
KILL ACRQUIT
QUIT
+11 SET ACRIR=Y
+12 SET X=ACRED
+13 SET DA(1)=1
+14 SET DIC="^ACRSYS(1,40,"
+15 SET DIC(0)="L"
+16 SET DIC("DR")=".02////"_ACRIR
+17 DO FILE^ACRFDIC
+18 QUIT
LPR ;REMOVE LP RATE
+1 SET DIR(0)="NO^1:"_ACRJ
+2 SET DIR("A")="Remove which one"
+3 WRITE !
+4 DO DIR^ACRFDIC
+5 IF Y<1
KILL ACRQUIT
QUIT
+6 IF '$DATA(ACRLP(+Y))
KILL ACRQUIT
QUIT
+7 SET DA=+ACRLP(Y)
+8 SET DA(1)=1
+9 SET DIK="^ACRSYS(1,40,"
+10 DO DIK^ACRFDIC
+11 QUIT
LPHEAD ;LP HEADER
+1 WRITE @IOF
+2 WRITE !?10,"Late Payment Interest Rates"
+3 WRITE !!?15,"Effective",?30,"Interest"
+4 WRITE !?10,"NO.",?15,"Date",?30,"Rate"
+5 WRITE !?10,"---",?15,"----------",?30,"--------"
+6 QUIT
VENDOR ;ADD/EDIT VENDOR
+1 DO EN^ACRFVEND
+2 QUIT
