Last change
on this file since 741 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
302 bytes
|
Line | |
---|
1 | PRSEDESC ; FILE DESCRIPTION FOR EDUCATION TRACKING FILES
|
---|
2 | ;;4.0;PAID;;Sep 21, 1995
|
---|
3 | F PRSE=452,452.1,452.2,452.3,452.4,452.5,452.51,452.6,452.7,452.8,452.9 I $D(^DIC(PRSE)) D WRITE
|
---|
4 | Q
|
---|
5 | WRITE W !!,$P(^DIC(PRSE,0),U)_" "_PRSE F X=0:0 S X=$O(^DIC(210,"%D",X)) Q:X'>0 I $D(^DIC(PRSE,"%D",X,0)) W !,^(0)
|
---|
6 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.