source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAI114.m@ 846

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

initial load of WorldVistAEHR

File size: 407 bytes
Line 
1PRCAI114 ;WISC/RFJ-patch 114 post init ;1 Jun 99
2 ;;4.5;Accounts Receivable;**114**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6 ;
7POST ; add lockbox type of payment
8 I $O(^RC(341.1,"B","LOCKBOX",0)) Q
9 N %,D0,DA,DDER,DI,DIC,DIE,DLAYGO,DQ,DR,X,Y
10 S DIC="^RC(341.1,",DIC(0)="L",DLAYGO=341.1,X="LOCKBOX"
11 S DIC("DR")=".02////"_12_";.06///PAYMENT;"
12 D FILE^DICN
13 Q
Note: See TracBrowser for help on using the repository browser.