Last change
on this file since 1785 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.