|
Last change
on this file since 1604 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
802 bytes
|
| Line | |
|---|
| 1 | LRACFIX ;SLC/DCM - REBUILD ^LRO(68,"AC") FROM A GIVEN DATE AFTER ALL LRAC X-REF ARE REINITIALIZED. ; 5/30/86 2:47 PM ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | S %DT("A")="ENTER STARTING DATE FOR REINITIALIZATION: ",%DT="QEA" D ^%DT Q:Y<1 S LRXDT=9999999-Y D LRDFN
|
|---|
| 4 | END W !!,"DONE" Q
|
|---|
| 5 | LRDFN S LRDFN=0 F S LRDFN=$O(^LR(LRDFN)) Q:LRDFN<1 D LRIDT
|
|---|
| 6 | Q:'$D(^LR(LRDFN,"MI")) S LRIDT=0 F S LRIDT=$O(^LR(LRDFN,"MI",LRIDT)) Q:LRIDT<1!(LRIDT>LRXDT) S:'$D(^LRO(68,"MI",LRDFN,LRIDT)) ^(LRIDT)="" W ":"
|
|---|
| 7 | Q
|
|---|
| 8 | LRIDT Q:'$D(^LR(LRDFN,"CH")) S LRIDT=0 F S LRIDT=$O(^LR(LRDFN,"CH",LRIDT)) Q:LRIDT<1 D LRSB
|
|---|
| 9 | Q
|
|---|
| 10 | LRSB S $P(^LR(LRDFN,"CH",LRIDT,0),U,9)=$S(LRIDT>LRXDT:"1:0",1:"") Q:LRIDT>LRXDT
|
|---|
| 11 | S LRSB=1 F S LRSB=$O(^LR(LRDFN,"CH",LRIDT,LRSB)) Q:LRSB<1 D SB1
|
|---|
| 12 | Q
|
|---|
| 13 | SB1 I '$D(^LRO(68,"AC",LRDFN,LRIDT,LRSB)) S ^(LRSB)="" W "."
|
|---|
| 14 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
