Routine: AGRHI1

Package	Total	Call Graph
Kernel	2	$$NOW^XLFDT $$RJ^XLFSTR
VA Fileman	2	DD^%DT ^DIR
IHS Patient Registration	1	^AGDBQUE

Entry Points

Name	Comments	DBIA/ICR reference
ENDDT	;PROMPT FOR ENDING DATE OF ENTRY
EN	;EP
HDR	;PRINT THE PAGE HEADER
PROCESS	;PROCESS LOOP FOR REPORT RECORDS
EXIT	;
PRINT	;DO HEADER AND DETAIL PRINTING HERE
BEGDT	;PROMPT FOR BEGINNING DATE OF ENTRY
HD	;

External References

Name	Field # of Occurrence
DD^%DT	BEGDT+7, ENDDT+6
^AGDBQUE	EN+8
^DIR	BEGDT+5, ENDDT+4, HD+3
$$NOW^XLFDT	HDR+5
$$RJ^XLFSTR	PRINT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,?19,"* RESTRICTED HEALTH INFORMATION REPORT *" Line Location: HDR+3
Function Call: WRITE	Prompt: ?70,"Page ",AG("PAGE") Line Location: HDR+4
Function Call: WRITE	Prompt: !,?(80-$L(AG("DSPDAT"))/2),AG("DSPDAT") Line Location: HDR+8
Function Call: WRITE	Prompt: !!,"BEGINNING ENTRY DATE: ",AG("BEGDT") Line Location: HDR+9
Function Call: WRITE	Prompt: !,"ENDING ENTRY DATE: ",AG("ENDDT") Line Location: HDR+10
Function Call: WRITE	Prompt: !!,"PERSON",?18,"DATE OF" Line Location: HDR+11
Function Call: WRITE	Prompt: !,"ENTERING",?19,"ENTRY",?30,"MR#",?38,"STATUS",?46,"REQUEST INFO" Line Location: HDR+12
Function Call: WRITE	Prompt: !,"--------",?18,"-----",?30,"---",?38,"------",?46,"------------",! Line Location: HDR+13
Function Call: WRITE	Prompt: !,USERNAM,?18,EDATE,?30,$$RJ^XLFSTR(MR,6),?40,STATUS Line Location: PRINT+12
Function Call: WRITE	Prompt: ?46,AG("K"),! Line Location: PRINT+15
Function Call: WRITE	Prompt: !!,CNT," Records found from ",AG("BEGDT")," TO ",AG("ENDDT") Line Location: PRINT+16
Function Call: WRITE	Prompt: ! Line Location: HD+2
Routine Call	DIR Line Location: BEGDT+5 ENDDT+4 HD+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROCESS+11
^AUPNRHI - [#9000039]	PROCESS+9, PROCESS+14
^AUPNRHI("G"	PROCESS+3, PROCESS+6, PROCESS+8
^VA(200 - [#200]	PRINT+6
^XTMP("AGRHI"	PROCESS+15*, PRINT+3, PRINT+4, PRINT+5, EXIT+1!

Label References

Name	Line Occurrences
BEGDT	EN+2
HD	PRINT+11
HDR	PRINT+1, HD+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AG("BEGDT"	BEGDT+7*, HDR+9, PRINT+16
>> AG("DSPDAT"	HDR+6, HDR+7, HDR+8
>> AG("ENDDT"	ENDDT+6*, HDR+10, PRINT+16
>> AG("F1"	EN+1!, PRINT+3, PRINT+4, PRINT+11, HD+4*
>> AG("K"	PRINT+15*
>> AG("PAGE"	BEGDT+1, HDR+2, HDR+4
>> AG("RHIDT"	HDR+5*, HDR+6
>> AG("Y"	PRINT+14*, PRINT+15
>> AGQ("NS"	EN+7*
>> AGQ("RC"	EN+4*
>> AGQ("RP"	EN+5*
>> AGQ("RX"	EN+6*
BDT	BEGDT+7*, PROCESS+4, PROCESS+16!
>> CNT	PRINT+2, PRINT+13, PRINT+16
DFN	PROCESS+10*, PROCESS+11, PROCESS+16!
DIR	BEGDT+2!, ENDDT+1!, HD+3!
DIR("A"	BEGDT+4, ENDDT+3
DIR(0	BEGDT+3, ENDDT+2, HD+3*
>> DIROUT	HD+4
>> DTOUT	EN+3, BEGDT+6, ENDDT+5, HD+4
>> DUOUT	EN+3, BEGDT+6, ENDDT+5, HD+4
DUZ(2	PROCESS+11
>> EDATE	PRINT+7*, PRINT+12
EDT	ENDDT+6*, PROCESS+4, PROCESS+16!
ENTDAT	PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+6, PROCESS+8, PROCESS+15, PROCESS+16!, PRINT+2, PRINT+3, PRINT+4 , PRINT+5, PRINT+7
IO("Q"	HD+1
IO("S"	HD+1
IOF	HDR+1
IOSL	PRINT+11, HD+2
IOST	HD+1
MR	PROCESS+11, PROCESS+15, PROCESS+16!, PRINT+8, PRINT+12
RECORD	PROCESS+9*, PROCESS+10, PROCESS+12, PROCESS+16!
RHI	PROCESS+12, PROCESS+15, PROCESS+16!, PRINT+10, PRINT+14, PRINT+15*
RHIREC	PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+14, PROCESS+16!, PRINT+2, PRINT+5, PRINT+8, PRINT+9, PRINT+10
RHISTAT	PROCESS+5, PROCESS+6, PROCESS+8, PROCESS+13, PROCESS+15, PROCESS+16!
>> STATUS	PRINT+9*, PRINT+12
STREC	PROCESS+13*, PROCESS+14, PROCESS+16!
U	PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+14, PROCESS+15, PRINT+6, PRINT+8, PRINT+9, PRINT+10
USER	PROCESS+14, PROCESS+15, PROCESS+16!, PRINT+2, PRINT+4*, PRINT+5, PRINT+6
>> USERNAM	PRINT+6*, PRINT+12
X	BEGDT+2!, BEGDT+7, ENDDT+1!, ENDDT+6
Y	BEGDT+2!, BEGDT+7, ENDDT+1!, ENDDT+6

Customize PDF page

Package: IHS Patient Registration

Routine: AGRHI1

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: