ACRFIV1.m

ACRFIV1 ;IHS/OIRM/DSD/THL,AEF - INVOICE AUDIT; [ 11/01/2001   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 ;;ROUTINE TO FILE NEW PAYMENTS TO ARMS AND 1166 FILES

 Q

PAY ;EP;TO FILE NEW PAYMENT

 S X=ACRPAYDA

 S DIC="^ACRPAY("

 S DIC("DR")=".02////"_ACRDOCDA_";.05////"_DUZ_";.06////"_DT

 D FILE^ACRFDIC

 Q

ACRFIV1   ;IHS/OIRM/DSD/THL,AEF - INVOICE AUDIT; [ 11/01/2001   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 +2       ;;ROUTINE TO FILE NEW PAYMENTS TO ARMS AND 1166 FILES

 +3        QUIT 

PAY       ;EP;TO FILE NEW PAYMENT

 +1        SET X=ACRPAYDA

 +2        SET DIC="^ACRPAY("

 +3        SET DIC("DR")=".02////"_ACRDOCDA_";.05////"_DUZ_";.06////"_DT

 +4        DO FILE^ACRFDIC

 +5        QUIT