|
Last change
on this file since 899 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
448 bytes
|
| Line | |
|---|
| 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.
