| PERSON | 
Procedure returns an array containing the pieces
needed to build an HL7 Role Person for a given user.
Notes
-----
* Existance and validity of input is assumed
* Initializtion (i.e. KILLing) of ARRAY() must be done by the
calling program
* ARRAY() will not be set if role can not be calculated
Sample Use
----------
S PTR200=xxxxx
S ARRAY=$NA(^TMP("ZJRP",$J))
S NULL=$C(34,34)
D PERSON^VAFHLRO3(PTR200,ARRAY,NULL)
 | 
| VARIABLES | 
TYPE | 
VARIABLES DESCRIPTION | 
 
PTR200 | 
Input | 
Pointer to entry in NEW PERSON file (#200)
 
 | 
ARRAY | 
Both | 
Input: Array to store info in (full global reference)
Output: ARRAY will be set as follows
ARRAY(1,comp#) = Value
ARRAY(1,comp#,sub#) = Value
Comp 1: 2 Sub-components
Sub 1: DUZ
Sub 2: Facility number
Comp 2 - 7: Name in HL7 format
Comp 8: VA200 (literal)
ARRAY(2,comp#) = Value
Comp 1: Provider SSN
Comp 9: SSA (literal)
 
 | 
NULL | 
Input | 
HL7 null designation
 
 | 
 
 |