25 lines
814 B
Mathematica
25 lines
814 B
Mathematica
PSOFIXVS ;BIR/HTW-Data Cleanup Utility; [ 09/08/95 12:38 PM ]
|
|
;;6.0;OUTPATIENT PHARMACY;**140,142**;APRIL 1993
|
|
VERIFY ;
|
|
W !!,"Checking Rx Verify File"
|
|
S CT=0
|
|
S I="" F S I=$O(^PS(52.4,"B",I)) Q:I="" I '$D(^PSRX(I)) D
|
|
.S DIK="^PS(52.4,",DA=I D ^DIK K DIK,DA
|
|
.S CT=CT+1
|
|
.I CT=1 W !!,"Entries deleted from Rx Verify File (52.4): "
|
|
.W !,I
|
|
W !!,$G(CT)," Entries deleted from Rx Verify File (52.4)."
|
|
SUSPENSE ;
|
|
W !!,"Checking Rx Suspense File"
|
|
S CT=0
|
|
F I=0:0 S I=$O(^PS(52.5,"B",I)) Q:'I I '$D(^PSRX(I)) D
|
|
.S I525=$O(^PS(52.5,"B",I,"")) Q:'I525
|
|
.I '$D(^PS(52.5,I525)) K ^PS(52.5,"B",I,I525) Q
|
|
.S DIK="^PS(52.5,",DA=I525 D ^DIK K DIK,DA
|
|
.S CT=CT+1
|
|
.I CT=1 W !!,"Entries deleted from Rx Suspense File (52.5): "
|
|
.W !,I525 K I525
|
|
W !!,$G(CT)," Entries deleted from Rx Suspense File (52.5)."
|
|
K CT,I
|
|
Q
|