source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRYBPOST.m@ 1073

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

initial load of WorldVistAEHR

File size: 600 bytes
RevLine 
[613]1PRYBPOST ;Washington ISC@Altoona,Pa/TJK-SETS FILE 433 "AW" X-REF ;4/18/95 8:06 AM
2V ;;4.5;Accounts Receivable;**3**;Mar 20, 1995
3 N RCI,TRTYP
4 W !,"SETTING AW X-REF IN FILE 433"
5 ;S DIK="^PRCA(433,",DIK(1)="12^AW" D ENALL^DIK
6 S RCI=0 F S RCI=$O(^PRCA(433,RCI)) Q:RCI'?1N.N D
7 .S TRTYP=$P($G(^PRCA(433,RCI,1)),U,2)
8 .I TRTYP>7,TRTYP<12 S ^PRCA(433,"AW",TRTYP,RCI)="" W "."
9 .Q
10 W !,"AW X-REF SET"
11 W !,"RECOMPILING PRCA BATCH PAYMENT INPUT TEMPLATE"
12 S X="PRCATB",Y=$O(^DIE("B","PRCA BATCH PAYMENT",0)),DMAX=5000
13 D EN^DIEZ
14 W !,"PRCA BATCH PAYMENT INPUT TEMPLATE RECOMPILED",!,"DONE"
15 Q
Note: See TracBrowser for help on using the repository browser.