Routine: AGRPTPDP

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
IHS Patient Registration	2	$$CHKDEATH^AGEDERR (CENTER,WRAP)^AGUTILS
VA Fileman	2	NOW^%DTC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
SELCRIT(CRITERIA)	;EP
ACTFAC(FAC)	;EP - IS THE FACILITY ACTIVE?
EN	;EP
ASKACTDE	;EP
ASKAGAIN	;EP
ASKLOC	;EP
A1
A3
A2
REPORT(CRITERIA)	;EP
A4
CRITTXT	;;1:NAME^2:DOB^3:SSN^4:COM^5:MAIDEN
EXIT	;CLEANUP VARS
QUE	;EP
HDR(CRITERIA)	;EP - MAIN HEADER
ASKCRIT	;EP - ASK FOR CRITERIA
SHOWCRIT(CRITERIA)	;EP - DISPLAY CRITERIA SELECTED
ASKDEV	;EP
MAIN(CRITERIA)	;MAIN

External References

Name	Field # of Occurrence
NOW^%DTC	MAIN+2
^%ZIS	ASKDEV+2
^%ZISC	A4+8
^%ZTLOAD	QUE+10
$$CHKDEATH^AGEDERR	MAIN+7, REPORT+10
CENTER^AGUTILS	HDR+5, HDR+7, HDR+11, HDR+13, HDR+15
WRAP^AGUTILS	HDR+9
^DIR	EN+24, ASKAGAIN+13, A1+6, ASKLOC+6, ASKACTDE+6, REPORT+21, REPORT+35

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+1
Function Call: WRITE	Prompt: !,"This report is intended to help identify duplicate patient" Line Location: EN+8
Function Call: WRITE	Prompt: !,"records in the Registration system. The system can check" Line Location: EN+9
Function Call: WRITE	Prompt: !,"against the following fields:" Line Location: EN+10
Function Call: WRITE	Prompt: !! Line Location: EN+11
Function Call: WRITE	Prompt: !,"-Last Name and First initial of Patient" Line Location: EN+12
Function Call: WRITE	Prompt: !,"-Patient Date of Birth" Line Location: EN+13
Function Call: WRITE	Prompt: !,"-Social Security Number" Line Location: EN+14
Function Call: WRITE	Prompt: !,"-Current Community" Line Location: EN+15
Function Call: WRITE	Prompt: !,"-Mother's Maiden Name" Line Location: EN+16
Function Call: WRITE	Prompt: !! Line Location: EN+17
Function Call: WRITE	Prompt: !,"Choose at least two factors that you wish to check against for potential" Line Location: EN+18
Function Call: WRITE	Prompt: !,"duplicates. The system will also prompt to check over active" Line Location: EN+19
Function Call: WRITE	Prompt: !,"locations and inactive/deceased patients." Line Location: EN+20
Function Call: WRITE	Prompt: ! Line Location: EN+21
Function Call: WRITE	Prompt: @IOF Line Location: ASKCRIT+1
Function Call: WRITE	Prompt: !! Line Location: ASKCRIT+2
Function Call: WRITE	Prompt: !,"Please choose at least two criteria in which you want this report to run:" Line Location: ASKCRIT+3
Function Call: WRITE	Prompt: !,"CRITERIA ALREADY SELECTED" Line Location: ASKAGAIN+15
Function Call: WRITE	Prompt: !,"NOT ENOUGH CRITERIA SELECTED!" Line Location: ASKAGAIN+16
Function Call: WRITE	Prompt: ! Line Location: A1+1
Function Call: WRITE	Prompt: !,"DUPLICATE CHECK COMPLETE " Line Location: MAIN+25
Function Call: WRITE	Prompt: ! Line Location: REPORT+20
Function Call: WRITE	Prompt: ! Line Location: REPORT+21
Function Call: WRITE	Prompt: ! Line Location: REPORT+34
Function Call: WRITE	Prompt: ! Line Location: REPORT+35
Function Call: WRITE	Prompt: !!,"You have selected " Line Location: SHOWCRIT+2
Function Call: WRITE	Prompt: " and " Line Location: SHOWCRIT+4
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,RPTREQ,?69,"page ",PAGE Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+8
Function Call: WRITE	Prompt: ! Line Location: HDR+10
Function Call: WRITE	Prompt: ! Line Location: HDR+12
Function Call: WRITE	Prompt: !! Line Location: HDR+14
Function Call: WRITE	Prompt: !! Line Location: HDR+16
Function Call: WRITE	Prompt: "PATIENT NAME",?26,"BIRTH DATE",?38,"MOTHERS MAIDEN",?54,"CUR. COMMUNITY",?69,"LOC",?73,"HRN" Line Location: HDR+17
Function Call: WRITE	Prompt: !,"============",?26,"==========",?38,"==============",?54,"==============",?69,"===",?73,"======" Line Location: HDR+18
Routine Call	DIR Line Location: EN+24 ASKAGAIN+13 A1+6 ASKLOC+6 ASKACTDE+6 REPORT+21 REPORT+35
Routine Call	%ZIS Line Location: ASKDEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	EN+3
^AUPNPAT - [#9000001]	MAIN+6, MAIN+19, REPORT+15, REPORT+26, REPORT+29, REPORT+31
^AUTTLOC - [#9999999.06]	REPORT+28, ACTFAC+1
^DD("DD"	MAIN+2, REPORT+12
^DPT - [#2]	MAIN+10, MAIN+15, MAIN+17, MAIN+21, REPORT+9, REPORT+11, REPORT+14
^VA(200 - [#200]	EN+2
^XTMP(	MAIN+1!, MAIN+23, MAIN+24, REPORT+5, REPORT+7, REPORT+8

Label References

Name	Line Occurrences
$$ACTFAC	REPORT+27
A1	A2
A2	A3
A3	A4+1
ASKACTDE	A3
ASKAGAIN	ASKAGAIN+15, ASKAGAIN+16, ASKAGAIN+21
ASKCRIT	ASKAGAIN+17, ASKAGAIN+18
ASKDEV	A4
ASKLOC	A2
CRITTXT	ASKAGAIN+18
HDR	REPORT+3, REPORT+21, REPORT+22
MAIN	A4+4
QUE	A4+2
REPORT	MAIN+26
SELCRIT	ASKAGAIN+17, ASKAGAIN+18
SHOWCRIT	A1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MAIN+2
>> %ZIS	ASKDEV+1*
>> AGLINE("-"	EN+7*
>> AGLINE("EQ"	EN+6*
>> ALLLOC	ASKLOC+1, ASKLOC+7
>> COM	MAIN+4, MAIN+19, MAIN+22
COUNT	EXIT+1!
CRITERIA	ASKCRIT+4, ASKAGAIN+2, ASKAGAIN+4, ASKAGAIN+15, ASKAGAIN+16, ASKAGAIN+17, ASKAGAIN+18, ASKAGAIN+19, ASKAGAIN+20, SELCRIT~ , A1, A4+4, MAIN~, MAIN+9, MAIN+14, MAIN+16, MAIN+18, MAIN+20, MAIN+26, REPORT~ , REPORT+3, REPORT+21, REPORT+22, SHOWCRIT~, SHOWCRIT+3, HDR~
>> CRITSTR	SHOWCRIT+1, SHOWCRIT+4, SHOWCRIT+6*, HDR+9
>> CURCOM	REPORT+15, REPORT+18, REPORT+24
>> DECEASE	MAIN+7, MAIN+8, REPORT+10, REPORT+24
DIR	EN+22!, ASKAGAIN+1!, A1+2!, ASKLOC+2!, ASKACTDE+2!, REPORT+21!, REPORT+35!
DIR("A"	ASKAGAIN+2, ASKAGAIN+3, A1+3, ASKLOC+3, ASKACTDE+3*
DIR("B"	ASKAGAIN+4, A1+4, ASKLOC+4, ASKACTDE+4
DIR("L"	ASKAGAIN+6, ASKAGAIN+7, ASKAGAIN+8, ASKAGAIN+9, ASKAGAIN+10, ASKAGAIN+11, ASKAGAIN+12*
DIR(0	EN+23, ASKAGAIN+4, ASKAGAIN+5, A1+5, ASKLOC+5, ASKACTDE+5, REPORT+21, REPORT+35
DIROUT	ASKAGAIN+1!, ASKAGAIN+14
DIRUT	ASKAGAIN+1!
>> DOB	MAIN+4, MAIN+15, MAIN+22
DT	ACTFAC+3
DTOUT	ASKAGAIN+1!, ASKAGAIN+14
DUOUT	ASKAGAIN+1!, ASKAGAIN+14, A2, A3, REPORT+21
DUZ	EN+2
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!
>> ESCAPE	REPORT+2, REPORT+5, REPORT+7, REPORT+21
FAC	ACTFAC~, ACTFAC+1
>> FIRSTINI	MAIN+12*, MAIN+13
>> FUNNYSUB	MAIN+22, MAIN+23, MAIN+24, REPORT+4, REPORT+5*, REPORT+7, REPORT+8
>> HRN	REPORT+31*, REPORT+33
>> HRNFAC	REPORT+25, REPORT+26, REPORT+27, REPORT+28, REPORT+29, REPORT+31
>> INACTDT	ACTFAC+1*, ACTFAC+2, ACTFAC+3
>> INACTIVE	REPORT+29*, REPORT+30, REPORT+33
>> INCACTDE	ASKACTDE+1, ASKACTDE+7, MAIN+8, REPORT+30
IO	A4+3
IO("Q"	A4+2, QUE+1!
IO("S"	REPORT+21, REPORT+35
IOF	EN+1, ASKCRIT+1, HDR+2
IOSL	REPORT+21, REPORT+22
IOST	REPORT+21, REPORT+22, REPORT+35
>> LASTINI	MAIN+4, MAIN+13, MAIN+22
>> LASTNAME	MAIN+11*, MAIN+13
>> LN1	REPORT+7*
>> LN2	REPORT+26*, REPORT+32
>> MAIDEN	MAIN+4, MAIN+21, MAIN+22, REPORT+14, REPORT+17, REPORT+19*, REPORT+24
>> NAME	MAIN+10*, MAIN+11, MAIN+12
>> PAGE	REPORT+1, HDR+1, HDR+3
>> PATDOB	REPORT+11, REPORT+12, REPORT+13*, REPORT+24
>> PATIEN	MAIN+5, MAIN+6, MAIN+7, MAIN+10, MAIN+15, MAIN+17, MAIN+19, MAIN+21, MAIN+23, REPORT+6* , REPORT+7*, REPORT+9, REPORT+10, REPORT+11, REPORT+14, REPORT+15, REPORT+26, REPORT+29, REPORT+31
>> PATNAME	REPORT+9, REPORT+16, REPORT+24
>> PIECE	SHOWCRIT+3*, SHOWCRIT+4
>> POP	A4+1
>> PSEUDO	REPORT+28*, REPORT+33
>> ROUTINE	EN+5*, MAIN+1, MAIN+23, MAIN+24, REPORT+5, REPORT+7, REPORT+8
>> RPTDATE	MAIN+3*, HDR+15
>> RPTREQ	EN+2*, HDR+3
>> SEL	SHOWCRIT+3*
>> SSN	MAIN+4, MAIN+17, MAIN+22
U	EN+2, ASKAGAIN+16, ASKAGAIN+17, ASKAGAIN+20, MAIN+10, MAIN+15, MAIN+17, MAIN+19, MAIN+21, MAIN+22 , REPORT+9, REPORT+11, REPORT+14, REPORT+15, REPORT+28, REPORT+29, REPORT+31, ACTFAC+1, SHOWCRIT+3
>> UCI	EN+4*, HDR+11
>> Y	EN+4, ASKAGAIN+15, ASKAGAIN+16, ASKAGAIN+17, ASKAGAIN+19, ASKAGAIN+20, A1+7, ASKLOC+7, ASKACTDE+7, MAIN+2* , MAIN+3, REPORT+12*
>> Y(0	ASKAGAIN+15, ASKAGAIN+18, ASKAGAIN+19, ASKAGAIN+20
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+2*
>> ZTSAVE("ALLLOC"	QUE+4*
>> ZTSAVE("CRITERIA"	QUE+3*
>> ZTSAVE("CRITSTR"	QUE+8*
>> ZTSAVE("INCACTDE"	QUE+5*
>> ZTSAVE("ROUTINE"	QUE+6*
>> ZTSAVE("RPTREQ"	QUE+7*
>> ZTSAVE("UCI"	QUE+9*
>> ZTSK	QUE+10

Customize PDF page

Package: IHS Patient Registration

Routine: AGRPTPDP

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	EN+5
$T(CRITTXT	ASKAGAIN+18
$T(CRITTXT+SEL	SHOWCRIT+5, SHOWCRIT+6