Routine: AGED11B

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC ^DIE ^DIK ^DIR

Package	Total	Caller Graph
IHS Patient Registration	1	AGED11A

Entry Points

Name	Comments	DBIA/ICR reference
DATES	;
FINDRHI	;EP - FIND THE PATIENT'S LAST RHI ENTRY AND DISPLAY ON SCREEN
PDATE	;ENTER/EDIT PENDING DATE
ADDRHI	;EP - ADD AN RHI RECORD
EDITRHI	;EP - EDIT AN RHI RECORD
RDATE	;ENTER/EDIT REVOKED DATE
SETARRAY	;LOAD ARRAY WITH PATIENT'S RHI RECORDS
ADATE	;ENTER/EDIT APPROVED DATE
RHICHK	;EP - CHECK FOR EXISTANCE OF RHI RECORD
EDATE	;ENTER/EDIT ENTERED IN ERROR DATE
NDATE	;ENTER/EDIT NOT APPROVED DATE

External References

Name	Field # of Occurrence
NOW^%DTC	ADATE+1, NDATE+1, PDATE+1, RDATE+1, EDATE+1, ADDRHI+14
^DIC	ADDRHI+9
^DIE	ADATE+3, NDATE+3, PDATE+3, RDATE+3, EDATE+3, ADDRHI+16, ADDRHI+19, ADDRHI+21, EDITRHI+12, EDITRHI+17
^DIK	ADDRHI+17
^DIR	SETARRAY+34

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Restricted Health Information on file" Line Location: SETARRAY+2
Function Call: WRITE	Prompt: !!,"Restricted Health Information on File" Line Location: SETARRAY+3
Function Call: WRITE	Prompt: !!,?2,"#",?5,"Patient",?28,"Current",?41,"Status" Line Location: SETARRAY+4
Function Call: WRITE	Prompt: !,?5,"Name",?28,"Status",?41,"Entered on" Line Location: SETARRAY+5
Function Call: WRITE	Prompt: ! Line Location: SETARRAY+6
Function Call: WRITE	Prompt: !,RHIRHI,! Line Location: SETARRAY+29
Function Call: WRITE	Prompt: !,"You must enter a number from 1 - ",AG("SELH") Line Location: SETARRAY+37
Function Call: WRITE	Prompt: "APPROVED" Line Location: FINDRHI+2
Function Call: WRITE	Prompt: AG("STATUS") Line Location: FINDRHI+8
Routine Call	DIE Line Location: ADATE+3 NDATE+3 PDATE+3 RDATE+3 EDATE+3 ADDRHI+16 ADDRHI+19 ADDRHI+21 EDITRHI+12 EDITRHI+17
Routine Call	DIC Line Location: ADDRHI+9
Routine Call	DIR Line Location: SETARRAY+34

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNRHI - [#9000039]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNRHI - [#9000039]	SETARRAY+9, SETARRAY+15, SETARRAY+16, SETARRAY+17, DATES+1, DATES+2, DATES+3, DATES+4, DATES+5, FINDRHI+6 , ADDRHI+17, ADDRHI+21, EDITRHI+11
^AUPNRHI("B"	SETARRAY+2, SETARRAY+8, FINDRHI+4, RHICHK+2
^DPT - [#2]	SETARRAY+11

Label References

Name	Line Occurrences
ADATE	DATES+1
ADDRHI	EDITRHI+4
DATES	ADDRHI+20, EDITRHI+14
EDATE	DATES+5
NDATE	DATES+2
PDATE	DATES+3
RDATE	DATES+4
SETARRAY	SETARRAY+37, EDITRHI+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ADATE+1, NDATE+1, PDATE+1, RDATE+1, EDATE+1, ADDRHI+14
>> AG("RHICHK"	RHICHK+1!, RHICHK+2*
>> AG("RHINUM"	FINDRHI+3!, FINDRHI+4*, FINDRHI+5, FINDRHI+6
>> AG("RHISEL"	SETARRAY+1!, SETARRAY+34, SETARRAY+36, SETARRAY+37, SETARRAY+38, ADDRHI+6, ADDRHI+7, ADDRHI+8, ADDRHI+22!, EDITRHI+4 , EDITRHI+7, EDITRHI+18!
>> AG("RHISTAT"	FINDRHI+1!, FINDRHI+6*, FINDRHI+7
>> AG("SELH"	SETARRAY+1!, SETARRAY+30*, SETARRAY+32, SETARRAY+37
>> AG("STAMP"	ADATE+1, NDATE+1, PDATE+1, RDATE+1, EDATE+1, ADDRHI+2!, ADDRHI+14
>> AG("STAT"	EDITRHI+11*
>> AG("STATUS"	FINDRHI+7*, FINDRHI+8
AGRHI1	SETARRAY+1!, ADDRHI+22!, EDITRHI+18!
AGRHI1(	SETARRAY+19*, SETARRAY+21, SETARRAY+23
AGRHI2	SETARRAY+1!, ADDRHI+22!, EDITRHI+18!
AGRHI2(	SETARRAY+23*, SETARRAY+24, SETARRAY+25, SETARRAY+26, SETARRAY+27, SETARRAY+38
AGSEL	SETARRAY+7, SETARRAY+22, SETARRAY+23, SETARRAY+24, SETARRAY+25, SETARRAY+26, SETARRAY+27, SETARRAY+28, SETARRAY+30, SETARRAY+39!
DA	DATES+1, DATES+2, DATES+3, DATES+4, DATES+5, ADDRHI+1~, ADDRHI+12!, ADDRHI+13, ADDRHI+17, ADDRHI+21 , EDITRHI+7, EDITRHI+11
>> DFN	SETARRAY+2, SETARRAY+8, FINDRHI+4, RHICHK+2, ADDRHI+6, ADDRHI+8
DFOUT	SETARRAY+31!
DIC	ADDRHI+1~, ADDRHI+3, ADDRHI+11, ADDRHI+12!, EDITRHI+6, EDITRHI+9
DIC(0	ADDRHI+5, EDITRHI+2, EDITRHI+8*
DIE	ADDRHI+1~, ADDRHI+11, EDITRHI+1~, EDITRHI+9
>> DIK	ADDRHI+17*
DIR	SETARRAY+31!, SETARRAY+34!
DIR("A"	SETARRAY+32*
DIR(0	SETARRAY+33*
DIROUT	SETARRAY+31!, SETARRAY+35
DLAYGO	ADDRHI+1~, ADDRHI+4*
DLOUT	SETARRAY+31!
DR	ADATE+2, NDATE+2, PDATE+2, RDATE+2, EDATE+2, ADDRHI+1~, ADDRHI+12!, ADDRHI+15, ADDRHI+18, ADDRHI+21 , EDITRHI+1~, EDITRHI+10, EDITRHI+16
DTOUT	SETARRAY+31!, SETARRAY+35, ADDRHI+10, EDITRHI+5, EDITRHI+13
DUOUT	SETARRAY+31!, SETARRAY+35, ADDRHI+10, EDITRHI+5, EDITRHI+13
>> ENTDAT	SETARRAY+20, SETARRAY+21, SETARRAY+23
REC	EDITRHI+1~
RHIDA	SETARRAY+14*, SETARRAY+15, SETARRAY+16, SETARRAY+17, SETARRAY+39!
RHIENT	SETARRAY+15, SETARRAY+16, SETARRAY+17, SETARRAY+18, SETARRAY+19, SETARRAY+26*, SETARRAY+28, SETARRAY+39!
>> RHIFLAG	FINDRHI+2
RHINO	SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+15, SETARRAY+16, SETARRAY+17, SETARRAY+19, SETARRAY+39!
RHIPAT	SETARRAY+11, SETARRAY+19, SETARRAY+24, SETARRAY+28, SETARRAY+39!
RHIPTIEN	SETARRAY+10*, SETARRAY+11, SETARRAY+39!
RHIREC	SETARRAY+9*, SETARRAY+10, SETARRAY+12, SETARRAY+13, SETARRAY+39!
RHIRHI	SETARRAY+12, SETARRAY+19, SETARRAY+27, SETARRAY+29, SETARRAY+39!
RHISTAT	SETARRAY+13, SETARRAY+14, SETARRAY+18, SETARRAY+19, SETARRAY+25*, SETARRAY+28, SETARRAY+39!
U	SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+13, SETARRAY+15, SETARRAY+16, SETARRAY+17, SETARRAY+24, SETARRAY+25, SETARRAY+26 , SETARRAY+27, SETARRAY+38, DATES+1, DATES+2, DATES+3, DATES+4, DATES+5, FINDRHI+6, ADDRHI+17, EDITRHI+11
X	ADDRHI+6, ADDRHI+8, ADDRHI+12!, EDITRHI+1~
Y	SETARRAY+34, ADATE+3, NDATE+3, PDATE+3, RDATE+3, EDATE+3, ADDRHI+1~, ADDRHI+10, ADDRHI+13, EDITRHI+1~ , EDITRHI+12, EDITRHI+15

Customize PDF page

Package: IHS Patient Registration

Routine: AGED11B

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: