Routine: PSOERALL

Information

PSOERALL ;ALB/MR - eRx Patient Allergies ; 8/3/2016 5:14pm

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for PSO ERX HOLDING QUEUE
LMHDR	; ListMan Header Code
HDR	; -- header code
INIT	;
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code
VPA	; Vista Patient Allergies
ALLERGY(ERXIEN,DFN)	; VistA Patient Allergy and Adverse Reaction information ; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) ; DFN - Pointer to PATIENT File(#2)
ADDFRTXT(TEXT,RS2C,SIZE,ARRAY,ARRLN,PFIX,HIGH)	; Wraps FreeText and adds to existing array
C2S(STR)	; Replaces commas with spaces (for auto-wrap to work) - Arbitrarily using '@' (not likely to be on the string)
S2C(STR)	; Replaces spaces with commas (for auto-wrap to work)
SORT(STR)	; Sorts a comma (,) separated list alphabetically