source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGNFUNC.m@ 1578

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

initial load of WorldVistAEHR

File size: 719 bytes
Line 
1DGNFUNC ;BPCIOFO/CMC-NAME FORMAT FUNCTIONS ; 22 Jan 2002 10:39 AM
2 ;;5.3;Registration;**149,244**;Aug 13, 1993
3 ;
4 ;This routine will contains functions for returning the name field
5 ;in a variety of formats. It will NOT update the Patient file,
6 ;the name field.
7 ;
8FML(DFN) ;
9 ;This function will return the name from the Patient file for the given
10 ;DFN in the format of First Middle Last Suffix.
11 ; Input: DFN - ien of patient in Patient file
12 ; Output: -1^error message OR
13 ; Patient name formatted First Middle Last Suffix.
14 ;
15 I '$D(DFN) Q "-1^MISSING DFN"
16 I $G(DFN)<0 Q "-1^Missing DFN"
17 N DPTNAME
18 S DPTNAME("IENS")=DFN_",",DPTNAME("FILE")=2,DPTNAME("FIELD")=.01
19 Q $$NAMEFMT^XLFNAME(.DPTNAME,"G","")
Note: See TracBrowser for help on using the repository browser.