Last change
on this file since 1535 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
492 bytes
|
Line | |
---|
1 | LRUD1 ;AVAMC/REG - STUFF DATA CHANGE IN COMMENT FIELD ;1/14/91 09:44
|
---|
2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
---|
3 | BB Q:'$D(L("BB")) S:'$D(^LR(LRDFN,"BB",LRI,99,0)) ^(0)="^63.199A^^" S Z(10)=$P(^(0),"^",3)+1
|
---|
4 | E I $D(^LR(LRDFN,"BB",LRI,99,Z(10),0)) S Z(10)=Z(10)+1 G E
|
---|
5 | S Y=Z(1) D D^LRU S ^LR(LRDFN,"BB",LRI,99,Z(10),0)=Z(3)_" changed from:"_O,Z(10)=Z(10)+1,^LR(LRDFN,"BB",LRI,99,Z(10),0)="Above changed:"_Y_" By:"_Z(2)
|
---|
6 | S X=^LR(LRDFN,"BB",LRI,99,0),^(0)=$P(X,"^",1,2)_"^"_Z(10)_"^"_($P(X,"^",4)+2) K L Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.