Routine: PXRRPECU

Information

PXRRPECU ;ISL/PKR - Utilities for dealing with the Person Class file. ;4/3/97

Name	Comments	DBIA/ICR reference
ABBRV(VACODE)	;Given a VACODE get the full Person Class entry and return an
ALPHA(PCLASS)	;Given a person class of the form IEN_U_Occupation_U_Specialty
FDME(INP,ARRAY)	;Find and display the entries matching the input and get a selection.
GETYORN(PROMPT)	;Get a yes or no answer, return true (yes) or false (no).
LISTA(ARRAY)	;List all the elements of ARRAY.
MATCH(PCLASS)	;Return true if PCLASS is in the PERSON CLASS list, PXXRPECL.
NXREF(XREF,STRING)	;Return the number of elements for the STRING and cross-ref pair.
PAGE(ARRAY)	;Page breaking with optional return of selection.
PCLLIST(NEWPIEN,BDT,EDT,LIST)	;Build a list of all the person classes for the
UPPRCASE(STRING)	;Convert STRING to uppercase and return it.
VERIFY	;Have the user verify the most recent Person Class selection.

Name	Line Occurrences
Function Call: WRITE	Prompt: " ",$P(SA(1),U,1) Line Location: FDME+18
Function Call: WRITE	Prompt: !,IC,?INDENT,$P(SA(IC),U,1) Line Location: FDME+21
Function Call: WRITE	Prompt: ! Line Location: FDME+24
Function Call: WRITE	Prompt: !,"Choose from:" Line Location: LISTA+5
Function Call: WRITE	Prompt: !,?INDENT,IC Line Location: LISTA+8
Function Call: WRITE	Prompt: ! Line Location: PAGE+4
Function Call: WRITE	Prompt: !!,"Your Person Class Selection was:" Line Location: VERIFY+2
Function Call: WRITE	Prompt: !,?INDENT,"OCCUPATION: ",$P(PXRRPECL(NCL),U,1) Line Location: VERIFY+3
Function Call: WRITE	Prompt: !,?INDENT,"SPECIALTY: ",$P(PXRRPECL(NCL),U,2) Line Location: VERIFY+4
Function Call: WRITE	Prompt: !,?INDENT,"SUBSPECIALTY: ",$P(PXRRPECL(NCL),U,3) Line Location: VERIFY+5
Function Call: WRITE	Prompt: ! Line Location: VERIFY+6