Routine: AGGRPTDP

Package	Total	Call Graph
Kernel	3	^%ZTER $$NOW^XLFDT $$STRIP^XLFSTR
IHS Patient Registration	2	$$CHKDEATH^AGEDERR (CENTER,WRAP)^AGUTILS
VA Fileman	2	NOW^%DTC DT^DICRW
Patient Registration GUI	1	$$TMPFL^AGGUL1

Entry Points

Name	Comments	DBIA/ICR reference
EN(DATA,QNAM,QDOB,QSSN,QCOM,QM,QALL,QIN)	; EP -AGG POTENTIAL DUPLICATE PATIENT REPORT
ACTFAC(FAC)	;EP - IS THE FACILITY ACTIVE?
HDR	;
ERR	;
RHDR(CRITERIA)	;EP - MAIN HEADER
BGL
DONE	;
EXIT	;CLEANUP VARS
MAIN(CRITERIA)	;MAIN
QUE	;EP
CRITTXT	;;1:NAME^2:DOB^3:SSN^4:COM^5:MAIDEN
SHOWCRIT(CRITERIA)	;EP - DISPLAY CRITERIA SELECTED
REPORT(CRITERIA)	;EP

External References

Name	Field # of Occurrence
NOW^%DTC	MAIN+3
^%ZTER	ERR+1
$$CHKDEATH^AGEDERR	MAIN+8, REPORT+11
$$TMPFL^AGGUL1	EN+26, BGL+3, BGL+4, BGL+12, BGL+13, ERR+6
CENTER^AGUTILS	RHDR+5, RHDR+7, RHDR+11, RHDR+13, RHDR+15
WRAP^AGUTILS	RHDR+9
DT^DICRW	EN+20
$$NOW^XLFDT	ERR+3
$$STRIP^XLFSTR	BGL+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+43
Function Call: WRITE	Prompt: ! Line Location: REPORT+21
Function Call: WRITE	Prompt: ! Line Location: REPORT+22
Function Call: WRITE	Prompt: ! Line Location: REPORT+35
Function Call: WRITE	Prompt: ! Line Location: REPORT+36
Function Call: WRITE	Prompt: " and " Line Location: SHOWCRIT+5
Function Call: WRITE	Prompt: @IOF Line Location: RHDR+2
Function Call: WRITE	Prompt: !,RPTREQ,?69,"page ",PAGE Line Location: RHDR+3
Function Call: WRITE	Prompt: ! Line Location: RHDR+4
Function Call: WRITE	Prompt: ! Line Location: RHDR+6
Function Call: WRITE	Prompt: ! Line Location: RHDR+8
Function Call: WRITE	Prompt: ! Line Location: RHDR+10
Function Call: WRITE	Prompt: ! Line Location: RHDR+12
Function Call: WRITE	Prompt: !! Line Location: RHDR+14
Function Call: WRITE	Prompt: !! Line Location: RHDR+16
Function Call: WRITE	Prompt: "PATIENT NAME",?26,"BIRTH DATE",?38,"MOTHERS MAIDEN",?54,"CUR. COMMUNITY",?69,"LOC",?73,"HRN" Line Location: RHDR+17
Function Call: WRITE	Prompt: !,"============",?26,"==========",?38,"==============",?54,"==============",?69,"===",?73,"======" Line Location: RHDR+18
Function Call: WRITE	Prompt: !,$C(9) Line Location: BGL+0
Function Call: READ	Timeout: .1 Variable: HSTEXT Line Location: BGL+6

Used in RPC

RPC Name	Call Tags
AGG DUP PAT REPORT	EN

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	EN+45
^AUPNPAT - [#9000001]	MAIN+7, MAIN+20, REPORT+16, REPORT+27, REPORT+30, REPORT+32
^AUTTLOC - [#9999999.06]	REPORT+29, ACTFAC+2
^DD("DD"	MAIN+3, REPORT+13, ERR+3
^DPT - [#2]	MAIN+11, MAIN+16, MAIN+18, MAIN+22, REPORT+10, REPORT+12, REPORT+15
^TMP("AGG"	MAIN+2!, MAIN+24, MAIN+25, REPORT+6, REPORT+8, REPORT+9
^TMP("AGGRPTDP"	EN+22
^VA(200 - [#200]	EN+44

Label References

Name	Line Occurrences
$$ACTFAC	REPORT+28
BGL	EN+52
DONE	EN+26, EN+35, BGL+3, BGL+4, BGL+12, BGL+13
HDR	EN+25
MAIN	EN+51
REPORT	MAIN+26
RHDR	REPORT+4
SHOWCRIT	EN+50

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MAIN+1~, MAIN+3
AGGI	EN+16~, EN+24, EN+36, EN+37, EN+38, BGL+9, BGL+10, DONE+2, HDR+1, ERR+5
AGLINE	EN+17~
AGLINE("-"	EN+49*
AGLINE("EQ"	EN+48*
ALLLOC	EN+17~, EN+39, EN+40
>> BMXSEC	ERR+4*
CNT	EN+18~, EN+29, EN+30, EN+31, EN+32, EN+33, EN+34, EN+35
COM	MAIN+1~, MAIN+5, MAIN+20, MAIN+23
COUNT	EXIT+1!
CRITERIA	EN+17~, EN+28, EN+30, EN+31, EN+32, EN+33, EN+34, EN+50, EN+51, MAIN~ , MAIN+10, MAIN+15, MAIN+17, MAIN+19, MAIN+21, MAIN+26, REPORT~, REPORT+4, SHOWCRIT~, SHOWCRIT+4 , RHDR~
CRITSTR	EN+18~, SHOWCRIT+2, SHOWCRIT+7, RHDR+9
CRITSTRE	EN+17~
CURCOM	EN+17~, REPORT+16, REPORT+19, REPORT+25
DATA	EN~, EN+22*, EN+23, EN+36, EN+38, BGL+9, BGL+10, DONE+2, HDR+1, ERR+5
DECEASE	EN+17~, MAIN+8, MAIN+9, REPORT+11, REPORT+25
DOB	MAIN+1~, MAIN+5, MAIN+16, MAIN+23
DT	EN+20, ACTFAC+4
DUZ	EN+44
EFFDATE	EXIT+1!
EMPLECNT	EXIT+1!
EMPLEE	EXIT+1!
EMPLEENM	EXIT+1!
EMPLEREC	EXIT+1!
EMPLRBEG	EXIT+1!
EMPLRCNT	EXIT+1!
EMPLREND	EXIT+1!
EMPLRNM	EXIT+2!
EMPLRREC	EXIT+2!
EMPREC	EXIT+2!
ERRDTM	ERR+2~, ERR+3*, ERR+4
ESCAPE	REPORT+1~, REPORT+3*, REPORT+6, REPORT+8
FAC	ACTFAC~, ACTFAC+2
FIRSTINI	MAIN+1~, MAIN+13*, MAIN+14
FUNNYSUB	EN+18~, MAIN+23, MAIN+24, MAIN+25, REPORT+5, REPORT+6*, REPORT+8, REPORT+9
HRN	REPORT+1~, REPORT+32*, REPORT+34
HRNFAC	REPORT+1~, REPORT+26, REPORT+27, REPORT+28, REPORT+29, REPORT+30, REPORT+32
HSFN	EN+16~
HSPATH	EN+16~
HSTEXT	EN+16~, BGL+6, BGL+7, BGL+8*, BGL+9
I	EN+16~
INACTDT	ACTFAC+1~, ACTFAC+2*, ACTFAC+3, ACTFAC+4
INACTIVE	REPORT+1~, REPORT+30*, REPORT+31, REPORT+34
INCACTDE	EN+17~, EN+39, EN+41, MAIN+9, REPORT+31
IO	EN+42, BGL, BGL+6
IOF	EN+43, RHDR+2
IOM	EN+16~, RHDR+1*
IOSL	EN+16~
IOST	EN+16~
LASTINI	MAIN+1~, MAIN+5, MAIN+14, MAIN+23
LASTNAME	MAIN+1~, MAIN+12*, MAIN+14
LN1	REPORT+1~, REPORT+8*
LN2	REPORT+1~, REPORT+27*, REPORT+33
MAIDEN	EN+18~, MAIN+5, MAIN+22, MAIN+23, REPORT+15, REPORT+18, REPORT+20*, REPORT+25
N	EN+16~
NAME	MAIN+1~, MAIN+11*, MAIN+12, MAIN+13
PAGE	EN+18~, REPORT+2, RHDR+1, RHDR+3
PATDOB	REPORT+1~, REPORT+12, REPORT+13, REPORT+14*, REPORT+25
PATIEN	EN+18~, MAIN+6, MAIN+7, MAIN+8, MAIN+11, MAIN+16, MAIN+18, MAIN+20, MAIN+22, MAIN+24 , REPORT+7, REPORT+8, REPORT+10, REPORT+11, REPORT+12, REPORT+15, REPORT+16, REPORT+27, REPORT+30, REPORT+32
PATNAME	REPORT+1~, REPORT+10, REPORT+17, REPORT+25
PIECE	SHOWCRIT+1~, SHOWCRIT+4*
PSEUDO	REPORT+1~, REPORT+29*, REPORT+34
QALL	EN~, EN+40
QCOM	EN~, EN+33
QDOB	EN~, EN+31
QIN	EN~, EN+41
QM	EN~, EN+34
QNAM	EN~, EN+30
QSSN	EN~, EN+32
ROUTINE	EN+47*, EN+57!
RPTDATE	EN+18~, MAIN+4*, RHDR+15
RPTREQ	EN+18~, EN+44*, RHDR+3
SEL	SHOWCRIT+1~, SHOWCRIT+4*
SSN	MAIN+1~, MAIN+5, MAIN+18, MAIN+23
U	EN+31, EN+32, EN+33, EN+34, EN+44, MAIN+11, MAIN+16, MAIN+18, MAIN+20, MAIN+22 , MAIN+23, REPORT+10, REPORT+12, REPORT+15, REPORT+16, REPORT+29, REPORT+30, REPORT+32, ACTFAC+2, SHOWCRIT+4
UCI	EN+18~, EN+46*, RHDR+11
UID	EN+16~, EN+21*, EN+22, EN+26, BGL+4, BGL+13
X	EN+16~
Y	EN+16~, EN+46, MAIN+3, MAIN+4, REPORT+13, ERR+2~, ERR+3*
>> ZTSK	EN+21

Marked Items

Customize PDF page

Package: Patient Registration GUI

Routine: AGGRPTDP

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Used in RPC

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	EN+47
$T(CRITTXT+SEL	SHOWCRIT+7