|
Last change
on this file since 1093 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
719 bytes
|
| Line | |
|---|
| 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.
