Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
448 bytes
|
Rev | Line | |
---|
[613] | 1 | LRACPG ;SLC/RWF - REMOVE LR(LRDFN,"PG") TO INITIALIZE PAT CUM ;19 JUN 84 12:38PM ;
|
---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
---|
| 3 | ANS ;
|
---|
| 4 | W !,"Are you certain you wish to re-initial",!?10," every patient's cumulative pages "
|
---|
| 5 | S %=2 D YN^DICN G:%=1 GO
|
---|
| 6 | W !!,"Process Aborted ",!!,$C(7)
|
---|
| 7 | Q
|
---|
| 8 | GO W !?20,"This may take a while. PG XREF INITIALIZATION",! S LRDFN=0
|
---|
| 9 | DFN W "." S LRDFN=$O(^LR(LRDFN)) Q:LRDFN<1 I $D(^LR(LRDFN,"PG")) W LRDFN," " K ^LR(LRDFN,"PG")
|
---|
| 10 | G DFN
|
---|
Note:
See
TracBrowser
for help on using the repository browser.