Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGNFUNC

DGNFUNC.m

Go to the documentation of this file.
  1. DGNFUNC ;BPCIOFO/CMC-NAME FORMAT FUNCTIONS ; 22 Jan 2002 10:39 AM
  1. ;;5.3;Registration;**149,244**;Aug 13, 1993
  1. ;
  1. ;This routine will contains functions for returning the name field
  1. ;in a variety of formats. It will NOT update the Patient file,
  1. ;the name field.
  1. ;
  1. FML(DFN) ;
  1. ;This function will return the name from the Patient file for the given
  1. ;DFN in the format of First Middle Last Suffix.
  1. ; Input: DFN - ien of patient in Patient file
  1. ; Output: -1^error message OR
  1. ; Patient name formatted First Middle Last Suffix.
  1. ;
  1. I '$D(DFN) Q "-1^MISSING DFN"
  1. I $G(DFN)<0 Q "-1^Missing DFN"
  1. N DPTNAME
  1. S DPTNAME("IENS")=DFN_",",DPTNAME("FILE")=2,DPTNAME("FIELD")=.01
  1. Q $$NAMEFMT^XLFNAME(.DPTNAME,"G","")