source:
WorldVistAEHR/trunk/r/PAID-PRS/PRSEDESC.m
| Last change on this file was 613, checked in by , 15 years ago | |
|---|---|
| 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.
