source: WorldVistAEHR/trunk/r/CARE_MANAGEMENT-ORRC/ORRCLPT.m@ 700

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

initial load of WorldVistAEHR

File size: 344 bytes
Line 
1ORRCLPT ; SLC/JER - Pt functions for CM ; 25 Jul 2003 9:31 AM
2 ;;1.0;CARE MANAGEMENT;;Jul 15, 2003
3NAME(DFN) ; Pt Name
4 Q $P($G(^DPT(DFN,0)),U)
5SSNL4(DFN) ; SSN Last4
6 N ORRCY
7 S ORRCY=$$SSN^DPTLK1(DFN)
8 Q $S(+ORRCY:$E(ORRCY,6,10),1:ORRCY)
9SEX(DFN) ; Pt SEX
10 Q $P($G(^DPT(DFN,0)),U,2)
11AGE(DFN) ; Pt AGE
12 Q $$AGE^ORWPT(DFN,$$DOB^DPTLK1(DFN,2))
Note: See TracBrowser for help on using the repository browser.