source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRACPG.m@ 724

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

initial load of WorldVistAEHR

File size: 448 bytes
Line 
1LRACPG ;SLC/RWF - REMOVE LR(LRDFN,"PG") TO INITIALIZE PAT CUM ;19 JUN 84 12:38PM ;
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3ANS ;
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
8GO W !?20,"This may take a while. PG XREF INITIALIZATION",! S LRDFN=0
9DFN 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.