source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRARIPRE.m@ 700

Last change on this file since 700 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 927 bytes
RevLine 
[613]1LRARIPRE ;DALISC/CKA - LRAR PRE INIT DELETE ARCHIVED FILES
2 ;;5.2;LAB SERVICE;**59**;August 9, 1995
3EN ;
4 W !!,">>> Deleting OLD 'LAB' ARCHIVE FILES.",!
5AWD W !!,"DELETING ARCHIVED WKLD DATA FILE."
6 S DIU="^LRO(64.19999,",DIU(0)="D" D EN^DIU2
7ALM W !!,"DELETING ARCHIVED LAB MONTHLY WORKLOADS FILE."
8 S DIU="^LRO(67.99999,",DIU(0)="D" D EN^DIU2
9ABI 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
14BXREF ;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
Note: See TracBrowser for help on using the repository browser.