Routine: DPTLK3

Information

DPTLK3 ;ALB/RMO - MAS Patient Look-up Check for Duplicates ; 22 JUN 87 1:00 pm

Source file <DPTLK3.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,*7,"Unable to search for potential duplicates, Date of Birth and",!?3,"Social Security Number must be defined." Line Location: DPTLK3+3
Function Call: WRITE	Prompt: ! Line Location: EP2+1
Function Call: WRITE	Prompt: W Condition for execution: '$D(DDS) !?3 W "...searching for potential duplicates" D ^DPTDUP I 'DPTD Line Location: EP2+1
Function Call: WRITE	Prompt: !!?3,"No potential duplicates have been identified." Line Location: EP2+1
Function Call: WRITE	Prompt: ! Line Location: EP2+2
Function Call: WRITE	Prompt: Condition for execution: '$D(DDS) !?3 W *7,"The following patients have been identified as potential duplicates:",! F Y=0:0 S Y=$O(DPTD(Y)) Q:'Y Line Location: EP2+2
Function Call: WRITE	Prompt: !?5,$P(^DPT(Y,0),U) Line Location: EP2+2
Function Call: WRITE	Prompt: !!?6,"Enter 'YES' to add new patient, or 'NO' not to." Line Location: ASKADD+0