Last change
on this file since 1785 was 628, checked in by George Lilly, 15 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.