source: FOIAVistA/tag/r/PAID-PRS/PRSEDESC.m@ 1700

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

initial load of FOIAVistA 6/30/08 version

File size: 302 bytes
Line 
1PRSEDESC ; 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
5WRITE 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.