Last change
on this file since 1006 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
741 bytes
|
Line | |
---|
1 | PRCAI158 ;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 | ;
|
---|
8 | DATADEL ; 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.