source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAI158.m@ 691

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

initial load of WorldVistAEHR

File size: 741 bytes
RevLine 
[613]1PRCAI158 ;ALB/MFR-PATCH PRCA*4.5*158 POST INIT ; 06/27/00
2 ;;4.5;Accounts Receivable;**158**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 D DATADEL
6 Q
7 ;
8DATADEL ; Delete the "-1" Bills from the Accounts Receivable file (430)
9 ;
10 N DA,DIK,RCIDX,RCXRF,RCCNT
11 ;
12 D BMES^XPDUTL(" >> Removing inconsistent entries from file 430...")
13 ;
14 S (DA,RCCNT)="",DIK="^PRCA(430,"
15 F RCIDX="B","D" D
16 . S RCXRF=$S(RCIDX="B":"-1^",1:"1^")
17 . F S RCXRF=$O(^PRCA(430,RCIDX,RCXRF)) Q:RCXRF=""!(RCXRF'["^") D
18 . . F S DA=$O(^PRCA(430,RCIDX,RCXRF,DA)) Q:DA="" D
19 . . . I $D(^PRCA(430,DA,0)) D ^DIK S RCCNT=RCCNT+1
20 . . . K ^PRCA(430,RCIDX,RCXRF,DA)
21 ;
22 D BMES^XPDUTL(" >> Total of "_+RCCNT_" bills removed.")
23 ;
24 Q
Note: See TracBrowser for help on using the repository browser.