source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCABIL4.m@ 975

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

initial load of WorldVistAEHR

File size: 839 bytes
Line 
1PRCABIL4 ;WIRMFO/RWT-DELETE BILL LEAVING AUDIT TRAIL
2V ;;4.5;Accounts Receivable;**67**;March 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4DELETE ;Deletes a Bill leaving an audit trail
5 ;REQUIRES PRCABN=Bill IEN to delete
6 ; PRCACOMM=Reason why this bill is being deleted
7 N PRCACAT,PRCASTAT,PRCAID,B0,DIK,DIE,DA,DR
8 I '$D(^PRCA(430,PRCABN,0)) Q
9 S B0=$G(^PRCA(430,PRCABN,0))
10 S PRCAID=$P(B0,U,1),PRCACAT=$P(B0,U,2),PRCASTAT=$P(B0,U,8)
11 S DIK="^PRCA(430,",DA=PRCABN D ^DIK K DIK
12 ;
13 ; Now Add it back in w/ audit trails
14 S X=PRCAID,DINUM=PRCABN,DIC="^PRCA(430,",DIC(0)="L",DLAYGO=430
15 K DD,DO D FILE^DICN K DIC,DLAYGO,DO
16 ;
17 ; Ensure that the last entry number counter is correct
18 S $P(^PRCA(430,0),U,3)=$O(^PRCA(430,"A"),-1)
19 ;
20 S DIE="^PRCA(430,",DR="[PRCA CREATE BILL STUB]",DA=PRCABN D ^DIE
21 Q
Note: See TracBrowser for help on using the repository browser.