| [613] | 1 | PSOFIXVS ;BIR/HTW-Data Cleanup Utility; [ 09/08/95 12:38 PM ]
|
|---|
| 2 | ;;6.0;OUTPATIENT PHARMACY;**140,142**;APRIL 1993
|
|---|
| 3 | VERIFY ;
|
|---|
| 4 | W !!,"Checking Rx Verify File"
|
|---|
| 5 | S CT=0
|
|---|
| 6 | S I="" F S I=$O(^PS(52.4,"B",I)) Q:I="" I '$D(^PSRX(I)) D
|
|---|
| 7 | .S DIK="^PS(52.4,",DA=I D ^DIK K DIK,DA
|
|---|
| 8 | .S CT=CT+1
|
|---|
| 9 | .I CT=1 W !!,"Entries deleted from Rx Verify File (52.4): "
|
|---|
| 10 | .W !,I
|
|---|
| 11 | W !!,$G(CT)," Entries deleted from Rx Verify File (52.4)."
|
|---|
| 12 | SUSPENSE ;
|
|---|
| 13 | W !!,"Checking Rx Suspense File"
|
|---|
| 14 | S CT=0
|
|---|
| 15 | F I=0:0 S I=$O(^PS(52.5,"B",I)) Q:'I I '$D(^PSRX(I)) D
|
|---|
| 16 | .S I525=$O(^PS(52.5,"B",I,"")) Q:'I525
|
|---|
| 17 | .I '$D(^PS(52.5,I525)) K ^PS(52.5,"B",I,I525) Q
|
|---|
| 18 | .S DIK="^PS(52.5,",DA=I525 D ^DIK K DIK,DA
|
|---|
| 19 | .S CT=CT+1
|
|---|
| 20 | .I CT=1 W !!,"Entries deleted from Rx Suspense File (52.5): "
|
|---|
| 21 | .W !,I525 K I525
|
|---|
| 22 | W !!,$G(CT)," Entries deleted from Rx Suspense File (52.5)."
|
|---|
| 23 | K CT,I
|
|---|
| 24 | Q
|
|---|
