Routine: DPTLK3

Information

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

Source file <DPTLK3.m>

Package	Total	Caller Graph
Registration	2	DPTLK DPTLK2

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
Routine Call	DDS Line Location: DPTLK3+2

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EP2+2

Name	Line Occurrences
ASKADD	ASKADD
Q	DPTLK3+3, EP2+1

Name	Field # of Occurrence
>> %	ASKADD*
>> DDS	DPTLK3+2, EP2+1, EP2+2
>> DDSHBX	DPTLK3+2
>> DDXY	DPTLK3+2
DFN	VAADV~, VAADV+5
DGARRY	VAADV+3~, VAADV+5
DGARRY("IBBAPI"	VAADV+6, VAADV+7
DGINS	VAADV+3~, VAADV+4, VAADV+6, VAADV+7
DGVAADV	VAADV+3~, VAADV+4, VAADV+6, VAADV+7, VAADV+8
DOB	EP2+1*, Q!
DPTD	EP2+1, Q!
DPTD(	EP2+2
>> DPTDFN	DPTLK3+3, EP2+1, ASKADD*
>> DPTIDS(	DPTLK3+3, EP2+1
DPTKD	EP2+1*, Q!
DPTKS	EP2+1*, Q!
DPTNM	EP2+1*, Q!
>> DPTX	DPTLK3+3, EP2+1, ASKADD
>> DX	DPTLK3+2*
>> DY	DPTLK3+2*
SSN	EP2+1*, Q!
U	EP2+2
>> Y	EP2+2*