|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
575 bytes
|
| Line | |
|---|
| 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.
