| 1 | LRARIPRE ;DALISC/CKA - LRAR PRE INIT DELETE ARCHIVED FILES
|
|---|
| 2 | ;;5.2;LAB SERVICE;**59**;August 9, 1995
|
|---|
| 3 | EN ;
|
|---|
| 4 | W !!,">>> Deleting OLD 'LAB' ARCHIVE FILES.",!
|
|---|
| 5 | AWD W !!,"DELETING ARCHIVED WKLD DATA FILE."
|
|---|
| 6 | S DIU="^LRO(64.19999,",DIU(0)="D" D EN^DIU2
|
|---|
| 7 | ALM W !!,"DELETING ARCHIVED LAB MONTHLY WORKLOADS FILE."
|
|---|
| 8 | S DIU="^LRO(67.99999,",DIU(0)="D" D EN^DIU2
|
|---|
| 9 | ABI W !!,"DELETING ARCHIVED BLOOD INVENTORY FILE."
|
|---|
| 10 | S DIU="^LRD(65.9999,",DIU(0)="D" D EN^DIU2
|
|---|
| 11 | K DIU
|
|---|
| 12 | W !!,"The data dictionaries for these files will be reinstalled during the inits."
|
|---|
| 13 | Q
|
|---|
| 14 | BXREF ;Kills B xref on PATIENT XMATCH field (#65.01)
|
|---|
| 15 | ;This xref is in the DD's but not the file.
|
|---|
| 16 | Q:'$D(^DD(65.01,0,"IX","B",65.01,.01)) ;already deleted
|
|---|
| 17 | S LRARI=0 F S LRARI=$O(^DD(65.01,.01,1,LRARI)) Q:'LRARI D
|
|---|
| 18 | . K:$G(^DD(65.01,.01,1,LRARI,0))="65.01^B" ^DD(65.01,.01,1,LRARI)
|
|---|
| 19 | K ^DD(65.01,0,"IX","B",65.01,.01)
|
|---|
| 20 | K:'$O(^DD(65.01,.01,1,0)) ^DD(65.01,"IX",.01) ;no xrefs left on field
|
|---|
| 21 | Q
|
|---|
