Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
741 bytes
|
Rev | Line | |
---|
[613] | 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.