Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
575 bytes
|
Rev | Line | |
---|
[613] | 1 | SPNENPR ;;SD/CM- RETRIEVES ENROLLMENT PRIORITY; 6-27-02
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**19**;01/02/97
|
---|
| 3 | ;
|
---|
| 4 | START ;
|
---|
| 5 | ;Returns ENROLLMENT PRIORITY from pt's current enrollment.
|
---|
| 6 | ;If pt has a current ENROLLMENT PRIORITY, this function returns
|
---|
| 7 | ;its value, otherwise it returns null.
|
---|
| 8 | ;Used in the computed field ENROLLMENT PRIORITY of file 154.
|
---|
| 9 | FINDCUR(DFN) ;
|
---|
| 10 | Q:'$G(DFN)
|
---|
| 11 | N CUR
|
---|
| 12 | S CUR=$P($G(^DPT(DFN,"ENR")),U)
|
---|
| 13 | I CUR,$P($G(^DGEN(27.11,CUR,0)),U,2)'=DFN S CUR=""
|
---|
| 14 | Q CUR
|
---|
| 15 | PR(DFN) ;
|
---|
| 16 | N SPNNRIEN
|
---|
| 17 | S SPNNRIEN=$$FINDCUR($G(DFN))
|
---|
| 18 | Q:'SPNNRIEN ""
|
---|
| 19 | Q $P($G(^DGEN(27.11,SPNNRIEN,0)),U,7)
|
---|
Note:
See
TracBrowser
for help on using the repository browser.