|
Last change
on this file since 660 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.
