Routine: AGAGERP

Package	Total	Call Graph
IHS Patient Registration	3	RTRN^AG GETDATA^AGAGERP1 PRINT^AGAGERP2
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	DD^%DT $$GET1^DIQ ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
ASKVIS	; Prompts to get Visits within date range
ASKAGE	; Prompts to get Age Range
ASKALT	; Prompts to get Alt Resource
ASKINS	; Get Insurer Information
ASKDAT	; Prompts to get date type
ASKPOI	; Prompt for Elig date
EXCLIST	; List Exclusion Paramenters selected so far.
DEV	;
PLOOP	; For looping back to paremeter menu.
GO	; Proceed with processing
INTRO	; Introduction Screen
EXIT	; Clean up variables and exit
ASKPNT	; Get Patient Information for one patient
GETPARAM	; Main Report Driver
VAR
QUE	;QUE TO TASKMAN
ASKLOC	; Prompts to get location
ASKELI	; Prompts to get eligibility status

External References

Name	Field # of Occurrence
DD^%DT	ASKVIS+13, ASKVIS+21, ASKVIS+26, ASKPOI+19, ASKPOI+20
^%ZIS	DEV+2, DEV+3
HOME^%ZIS	DEV+4, DEV+8
^%ZISC	DEV+7
^%ZTLOAD	QUE+4
RTRN^AG	PLOOP+11, INTRO+3
GETDATA^AGAGERP1	GO+1
PRINT^AGAGERP2	GO+2
$$GET1^DIQ	ASKLOC+8, ASKPNT+9, ASKINS+8
^DIR	GETPARAM+14, ASKLOC+5, ASKALT+16, ASKDAT+7, ASKVIS+8, ASKVIS+17, ASKPOI+14, ASKAGE+10, ASKELI+9, ASKPNT+5 , ASKINS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," ============================================================================" Line Location: PLOOP+4
Function Call: WRITE	Prompt: !," An Alternate Resource of 'MEDICARE', 'MEDICAID', 'PRIVATE INSURANCE'," Line Location: PLOOP+5
Function Call: WRITE	Prompt: !," 'SPECIFIC INSURER', 'WORKMEN'S COMP', 'PRIVATE & WORKMEN'S COMP', or 'CHIP'" Line Location: PLOOP+6
Function Call: WRITE	Prompt: !," must be selected when entering a Point in Time date. Patients with eligibil-" Line Location: PLOOP+7
Function Call: WRITE	Prompt: !," ity up to 3 years before the date entered will be included in the selection" Line Location: PLOOP+8
Function Call: WRITE	Prompt: !," process." Line Location: PLOOP+9
Function Call: WRITE	Prompt: !," ============================================================================",! Line Location: PLOOP+10
Function Call: WRITE	Prompt: !!!," NOTE: To run this report you must select at least one parameter." Line Location: INTRO+1
Function Call: WRITE	Prompt: !," If no parameters are selected, you will return to the reports menu.",! Line Location: INTRO+2
Function Call: WRITE	Prompt: @IOF Line Location: GETPARAM+1
Function Call: WRITE	Prompt: !!! Line Location: EXCLIST+1
Function Call: WRITE	Prompt: " EXCLUSION PARAMETERS Currently in Effect for RESTRICTING the EXPORT to:" Line Location: EXCLIST+2
Function Call: WRITE	Prompt: !," =======================================================================" Line Location: EXCLIST+3
Function Call: WRITE	Prompt: !," - ",EXCLS Line Location: EXCLIST+6
Function Call: WRITE	Prompt: AGDOTLN,": ",$P($G(EXCL(EXCLS)),U,2) Line Location: EXCLIST+10
Function Call: WRITE	Prompt: " - ",$P($G(EXCL(EXCLS)),U,4) Line Location: EXCLIST+11
Function Call: WRITE	Prompt: " - ",$P($G(EXCL(EXCLS)),U,4) Line Location: EXCLIST+12
Function Call: WRITE	Prompt: !!," ============ Entry of VISIT DATE Range ===========",! Line Location: ASKVIS+4
Function Call: WRITE	Prompt: "// ",Y(0) Line Location: ASKVIS+11
Function Call: WRITE	Prompt: "// ",Y(0) Line Location: ASKVIS+20
Function Call: WRITE	Prompt: !!," To Date must be after From Date. Please try again." Line Location: ASKVIS+23
Function Call: WRITE	Prompt: !!," =========== Point in Time Date for Alternate Resource Eligibility:============" Line Location: ASKPOI+4
Function Call: WRITE	Prompt: !," An Alternate Resource of 'MEDICARE', 'MEDICAID', 'PRIVATE INSURANCE'," Line Location: ASKPOI+5
Function Call: WRITE	Prompt: !," 'SPECIFIC INSURER', 'WORKMEN'S COMP', 'PRIVATE & WORKMEN'S COMP', or 'CHIP'" Line Location: ASKPOI+6
Function Call: WRITE	Prompt: !," must be selected when entering a Point in Time date. Patients with eligibil-" Line Location: ASKPOI+7
Function Call: WRITE	Prompt: !," ity up to 3 years before the date entered will be included in the selection" Line Location: ASKPOI+8
Function Call: WRITE	Prompt: !," process." Line Location: ASKPOI+9
Function Call: WRITE	Prompt: !," ===============================================================================",! Line Location: ASKPOI+10
Function Call: WRITE	Prompt: "// ",Y(0) Line Location: ASKPOI+17
Function Call: WRITE	Prompt: !!?5,"Report Cancelled!" Line Location: QUE+5
Function Call: WRITE	Prompt: !!?5,"Task # ",ZTSK," queued.",! Line Location: QUE+6
Routine Call	%ZIS Line Location: DEV+4 DEV+8
Routine Call	DIR Line Location: GETPARAM+14 ASKLOC+5 ASKALT+16 ASKDAT+7 ASKVIS+8 ASKVIS+17 ASKPOI+14 ASKAGE+10 ASKELI+9 ASKPNT+5 ASKINS+5
Routine Call	%ZIS Line Location: DEV+2 DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^AUTNINS - [#9999999.18]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("AGAGERP"	VAR+1!, EXIT+2!

Label References

Name	Line Occurrences
@(	GETPARAM+18, ASKDAT+12
ASKINS	ASKALT+17
ASKPNT	ASKALT+18
ASKVIS	ASKVIS+25
EXCLIST	GETPARAM+2
EXIT	PLOOP+2, GO+3
GETPARAM	PLOOP+1, GETPARAM+20
GO	DEV+6
INTRO	VAR+5
PLOOP	PLOOP+3
QUE	DEV+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+1*
AGDOTLN	EXCLIST+4~, EXCLIST+8, EXCLIST+9, EXCLIST+10
AGDOTS	EXCLIST+4~, EXCLIST+7*, EXCLIST+9
AGINS	VAR~
AGLINE	VAR~
DIR	PLOOP+11!, GETPARAM+4!, GETPARAM+14!, ASKLOC+1!, ASKLOC+5!, ASKALT+2!, ASKALT+16!, ASKDAT+2!, ASKDAT+7!, ASKVIS+1! , ASKVIS+8!, ASKVIS+17!, ASKPOI+1!, ASKPOI+14!, ASKAGE+1!, ASKAGE+10!, ASKELI+1!, ASKELI+9!, ASKPNT+1!, ASKPNT+5! , ASKINS+1!, EXIT+1!
DIR("A"	GETPARAM+5, ASKLOC+3, ASKALT+3, ASKDAT+3, ASKVIS+5, ASKVIS+14, ASKPOI+11, ASKAGE+2, ASKELI+2, ASKPNT+3 , ASKINS+3*
DIR("B"	ASKLOC+4, ASKALT+4, ASKVIS+6, ASKVIS+15, ASKPOI+12, ASKAGE+3, ASKELI+3, ASKPNT+4, ASKINS+4*
DIR("L"	GETPARAM+7, GETPARAM+8, GETPARAM+9, GETPARAM+10, GETPARAM+11, GETPARAM+12, GETPARAM+13, ASKALT+6, ASKALT+7, ASKALT+8 , ASKALT+9, ASKALT+10, ASKALT+11, ASKALT+12, ASKALT+13, ASKALT+14, ASKALT+15, ASKDAT+5, ASKDAT+6, ASKAGE+5 , ASKAGE+6, ASKAGE+7, ASKAGE+8, ASKAGE+9, ASKELI+5, ASKELI+6, ASKELI+7, ASKELI+8
DIR(0	GETPARAM+6, ASKLOC+2, ASKALT+5, ASKDAT+4, ASKVIS+7, ASKVIS+16, ASKPOI+13, ASKAGE+4, ASKELI+4, ASKPNT+2 , ASKINS+2*
EXCL	VAR~, PLOOP+2, GETPARAM+2, GETPARAM+16!, EXIT+1!
EXCL(	EXCLIST+5, EXCLIST+10, EXCLIST+11, EXCLIST+12
EXCL("Age Ran	ge" , ASKAGE+3, ASKAGE+11!, ASKAGE+13*
EXCL("Alterna	te Resource" , PLOOP+3, ASKALT+4, ASKALT+17, ASKALT+19!, ASKALT+21, ASKPNT+6!, ASKPNT+7!, ASKINS+6!, ASKINS+7!
EXCL("Elig Da	te Range" , PLOOP+3, ASKVIS+2!, ASKPOI+12, ASKPOI+15!, ASKPOI+21*
EXCL("Eligibi	lity Status" , ASKELI+3, ASKELI+10!, ASKELI+12*
EXCL("Location"	ASKLOC+4, ASKLOC+6!, ASKLOC+8*
EXCL("Specifi	c Insurer" , ASKINS+4, ASKINS+7!, ASKINS+8, c Patient" , ASKPNT+4, ASKPNT+7!, ASKPNT+10
EXCL("Visit D	ate Range" , ASKVIS+6, ASKVIS+9!, ASKVIS+15, ASKVIS+18!, ASKVIS+24!, ASKVIS+27*, ASKPOI+2!
EXCLS	VAR~, EXCLIST+4~, EXCLIST+5*, EXCLIST+6, EXCLIST+7, EXCLIST+10, EXCLIST+11, EXCLIST+12
IO	DEV+5
IO("Q"	DEV+4, QUE+1!
IOF	GETPARAM+1
ION	DEV+3
IOP	DEV+3~*
PNAME	ASKPNT+8~, ASKPNT+9*, ASKPNT+10
>> POP	DEV+3
TAG	VAR~, GETPARAM+3~, GETPARAM+17, GETPARAM+18, GETPARAM+19!, ASKDAT+1~, ASKDAT+9, ASKDAT+10, ASKDAT+11, ASKDAT+12 , ASKDAT+13!, EXIT+1!
U	EXCLIST+10, EXCLIST+11, EXCLIST+12, ASKLOC+4, ASKLOC+8, ASKALT+21, ASKVIS+27, ASKPOI+21, ASKELI+12, ASKPNT+4 , ASKPNT+10, ASKINS+8
X	GETPARAM+3~, ASKLOC+6, ASKLOC+7, ASKALT+1~, ASKALT+17, ASKALT+18, ASKALT+19, ASKALT+20, ASKDAT+8, ASKVIS+9 , ASKVIS+10, ASKVIS+18, ASKVIS+19, ASKPOI+15, ASKPOI+16, ASKAGE+11, ASKAGE+12, ASKELI+10, ASKELI+11, ASKPNT+6 , ASKPNT+7, ASKINS+6, ASKINS+7, EXIT+1!
Y	GETPARAM+3~, GETPARAM+15, GETPARAM+16, ASKLOC+8, ASKALT+1~, ASKALT+21, ASKDAT+10, ASKDAT+11, ASKVIS+12, ASKVIS+13* , ASKVIS+21, ASKVIS+26, ASKPOI+18, ASKPOI+19, ASKPOI+20*, ASKAGE+13, ASKELI+12, ASKPNT+9, ASKPNT+10, ASKINS+8 , EXIT+1!
Y(0	GETPARAM+17, ASKALT+21, ASKDAT+9, ASKVIS+11, ASKVIS+20, ASKPOI+17, ASKAGE+13, ASKELI+12
Y1	ASKVIS+3~, ASKVIS+12, ASKVIS+13, ASKVIS+22, ASKVIS+27, ASKPOI+3~, ASKPOI+18, ASKPOI+19, ASKPOI+21
Y2	ASKVIS+3~, ASKVIS+13, ASKVIS+27, ASKPOI+3~, ASKPOI+18, ASKPOI+20, ASKPOI+21
Y3	ASKVIS+3~, ASKVIS+21, ASKVIS+22, ASKVIS+26, ASKVIS+27, ASKPOI+3~, ASKPOI+19, ASKPOI+21
Y4	ASKVIS+3~, ASKVIS+21, ASKVIS+26, ASKVIS+27, ASKPOI+3~, ASKPOI+20*, ASKPOI+21
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+2*
>> ZTSAVE("*"	QUE+3*
ZTSK	QUE+4!, QUE+5, QUE+6

Customize PDF page

Package: IHS Patient Registration

Routine: AGAGERP

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: