25 lines
741 B
Mathematica
25 lines
741 B
Mathematica
PRCAI158 ;ALB/MFR-PATCH PRCA*4.5*158 POST INIT ; 06/27/00
|
|
;;4.5;Accounts Receivable;**158**;Mar 20, 1995
|
|
;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
;
|
|
D DATADEL
|
|
Q
|
|
;
|
|
DATADEL ; Delete the "-1" Bills from the Accounts Receivable file (430)
|
|
;
|
|
N DA,DIK,RCIDX,RCXRF,RCCNT
|
|
;
|
|
D BMES^XPDUTL(" >> Removing inconsistent entries from file 430...")
|
|
;
|
|
S (DA,RCCNT)="",DIK="^PRCA(430,"
|
|
F RCIDX="B","D" D
|
|
. S RCXRF=$S(RCIDX="B":"-1^",1:"1^")
|
|
. F S RCXRF=$O(^PRCA(430,RCIDX,RCXRF)) Q:RCXRF=""!(RCXRF'["^") D
|
|
. . F S DA=$O(^PRCA(430,RCIDX,RCXRF,DA)) Q:DA="" D
|
|
. . . I $D(^PRCA(430,DA,0)) D ^DIK S RCCNT=RCCNT+1
|
|
. . . K ^PRCA(430,RCIDX,RCXRF,DA)
|
|
;
|
|
D BMES^XPDUTL(" >> Total of "_+RCCNT_" bills removed.")
|
|
;
|
|
Q
|