source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNENPR.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 575 bytes
Line 
1SPNENPR ;;SD/CM- RETRIEVES ENROLLMENT PRIORITY; 6-27-02
2 ;;2.0;Spinal Cord Dysfunction;**19**;01/02/97
3 ;
4START ;
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.
9FINDCUR(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
15PR(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.