Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
719 bytes
|
Rev | Line | |
---|
[628] | 1 | DGNFUNC ;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 | ;
|
---|
| 8 | FML(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.