Routine: GMPLDUP2

Package	Total	Call Graph
Kernel	3	^%ZTLOAD $$HTFM^XLFDT (BMES,MES)^XPDUTL
MailMan	1	^XMB
Problem List	1	(AUDIT,DTMOD)^GMPLX
Registration	1	$$SITE^VASITE

Entry Points

Name	Comments	DBIA/ICR reference
SEARCH	;Search for possible duplicates and locate in ^TMP("GMPLDUP")
TASK	;-TASK JOB
CLASS2	;Eliminate Class 2 Duplicates
EN	; Official entry point
DEL	; -- delete a problem
SET2
HIDE2	;---Hide Duplicates and count them.
EXIT	;-KILLS GLOBALS AND EXITS
FIND2	;

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	SEARCH+7, SEARCH+8, SEARCH+9, FIND2+7, FIND2+9, FIND2+11, FIND2+13, FIND2+14, FIND2+15, DEL+3*
^AUPNPROB("AC"	SEARCH+5, SEARCH+6
^AUPNPROB(0	SEARCH+1
^TMP("GMPLD"	SEARCH+3!, SEARCH+5!, SEARCH+11, SEARCH+12*, SEARCH+13, EXIT+1!
^TMP("GMPLDUP"	SEARCH+13*, FIND2+1, FIND2+2, FIND2+3, FIND2+4, EXIT+1!
^TMP("GMPLREM"	FIND2+18*, HIDE2+3, HIDE2+15!, EXIT+1!

Name	Field # of Occurrence
CHNGE	DEL+1~, DEL+2*, DEL+4
CNT	SEARCH+2~, SEARCH+4, SEARCH+10, SET2+2, HIDE2+1~, HIDE2+2, HIDE2+4*, HIDE2+12, EXIT+2!
CNTR	SEARCH+2~, SEARCH+4, SEARCH+13
CONDITIO	SET2~, SET2+2, FIND2+15, FIND2+17
DEFAULT	DEL+1~
DOC	SET2+1~
DUPLICAT	SET2~
DUZ	HIDE2+11, DEL+2
FACILITY	SET2+1~
FLAG	SET2~, SET2+2*
GMPFLD	DEL+1~
GMPIFN	HIDE2+1~, HIDE2+5*, DEL+2, DEL+3, DEL+4
GMPLC1	SET2+1~, FIND2+3!
GMPLC1(	FIND2+17*
GMPROV	DEL+1~, DEL+2
GMPSAVED	DEL+1~, DEL+3*
ICD	SEARCH+2~, SEARCH+4, SEARCH+8, SEARCH+11, SEARCH+12, SEARCH+13, SET2~, FIND2+2*, FIND2+3, FIND2+4
IEN	SEARCH+2~, SEARCH+6*, SEARCH+7, SEARCH+8, SEARCH+9, SEARCH+12, SEARCH+13
IFN	SET2~, FIND2+4, FIND2+7, FIND2+9, FIND2+11, FIND2+13, FIND2+14, FIND2+15, FIND2+17, FIND2+18 , HIDE2+1~, HIDE2+3, HIDE2+5
PATIENT	SEARCH+2~, SEARCH+4, SEARCH+5, SEARCH+6, SEARCH+11, SEARCH+12, SEARCH+13, SET2~, SET2+2, FIND2+1 , FIND2+2, FIND2+3, FIND2+4
PN	SET2~, FIND2+13*, FIND2+17
PROBLEM	SEARCH+2~, SEARCH+4, SEARCH+9, SEARCH+11, SEARCH+12, SEARCH+13, SET2~, FIND2+3*, FIND2+4
PROMPT	DEL+1~
STATUS	SET2~, FIND2+14*, FIND2+17
TOTAL	SEARCH+1*, EXIT+2!
U	DEL+2, DEL+3
X	DEL+1~
>> XMB	HIDE2+8*
>> XMB(1	HIDE2+12*
>> XMDUZ	HIDE2+9*
>> XMY(	HIDE2+11*
>> XMY("SMITH,VAUGHN@ISC-SLC.VA.GOV"	HIDE2+10*
Y	DEL+1~
>> ZTDESC	TASK+2*
>> ZTDTH	TASK+3*
>> ZTIO	TASK+5*
>> ZTRTN	TASK+1*
>> ZTSAVE	TASK+4*
>> ZTSK	TASK+7, TASK+8, TASK+9