Routine: VAQLED03

Information

VAQLED03 ;ALB/JFP,JRP - PDX, DISPLAY POSSIBLE MATCHES, SCREEN;01MAR93

Name	Comments	DBIA/ICR reference
EP	; -- Main entry point for the list processor
INIT	; -- Builds array of possible matches
SETD	; -- Set data for display in list processor
TMP	; -- Set the array used by list processor
HD	; -- Make header line for list processor
SEL	; -- Select possible match
EXP	; -- Displays MAS minimal information from patient file (2)
NEW	; -- Creates new patient in local database
EXIT	; -- Note: The list processor cleans up its own variables. ; All other variables cleaned up here.
MRGECHK	;CHECK FOR EXACT MATCH BEFORE ALLOWING MERGE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Checking for potential duplicates and matches of remote patient " Line Location: EP+2
Function Call: WRITE	Prompt: $C(7),X Line Location: MRGECHK+19
Function Call: WRITE	Prompt: !,X,$C(7) Line Location: MRGECHK+26
Function Call: WRITE	Prompt: !!,?22,"Name",?48,"SSN",?64,"DOB" Line Location: MRGECHK+27
Function Call: WRITE	Prompt: !,?8,X,?43,$E(X,1,12),?60,$E(X,1,10) Line Location: MRGECHK+29
Function Call: WRITE	Prompt: !," Local: ",LOCNAME,?43,$$DASHSSN^VAQUTL99(LOCSSN),?60,$$DOBFMT^VAQUTL99(LOCDOB,0) Line Location: MRGECHK+30
Function Call: WRITE	Prompt: !,"Remote: ",VAQPTNM,?43,VAQESSN,?60,VAQEDOB Line Location: MRGECHK+31
Function Call: WRITE	Prompt: !!! Line Location: MRGECHK+32
Function Call: WRITE	Prompt: !,?3,"Pertinent patient data must match in order for the upload process" Line Location: MRGECHK+33
Function Call: WRITE	Prompt: !,?3,"to continue. Local and remote patient should be verified using the" Line Location: MRGECHK+34
Function Call: WRITE	Prompt: !,?3,"appropriate procedures. Once verified, the Load/Edit Patient Data" Line Location: MRGECHK+35
Function Call: WRITE	Prompt: !,?3,"option, which is found in the Registration Menu, should be used to" Line Location: MRGECHK+36
Function Call: WRITE	Prompt: !,?3,"correct the information." Line Location: MRGECHK+37
Function Call: WRITE	Prompt: ! Line Location: MRGECHK+38