Routine: AGFLDREQ

Information

AGFLDREQ ; IHS/SD/TPF - DEVELOPER TOOL TO ADD REQUIRED FIELDS TO THE REQUIRED FIELD MULTIPLE IN THE REGISTRATION PARAMETER FILE

Source Information

Source file <AGFLDREQ.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA Fileman	3	^DIC (FIELD,FILE)^DID ^DIE

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
IHS Patient Registration	6	AG3A AGAPIPAT AGED2 AGED6 AGEDGUAR AGEDTPL

Entry Points

Name	Comments	DBIA/ICR reference
EDIT	;EP - CALLED FROM INPUT TEMPLATE 'AGFAC' TO EDIT SITE SPECIFIC REQUIRED FIELDS
ISREQ(FILENUM,FIELDNUM)	;EP - USE TO VERIFY A SITE SPECIFIC MANDATORY FIELD IS SET FOR REQUIRED
SUBFILES(TOPFILE,X,Y)	;GO THROUGH THE NEXT LEVEL OF SUB FILES AND FIND
ALTREQ(FILENUM,FIELDNM)	;EP - ALTERNATE CHECK FOR SITE SPECIFIC MANDATORY FIELDS (HANDLES MULTIPLE SUBFIELDS)
RESTRICT(IEN)	;EP - RESTRICT FILE CHOICE TO PATIENT REG FILES OR
GETFIELD(A,B,X)	;EP - CALLED FROM INPUT TRANSFORM OF FIELD 9009061.1101 'REQUIRED FIELD NAME' SUB-FIELD

External References

Name	Field # of Occurrence
^DIC	GETFIELD+7, SUBFILES+8
FIELD^DID	ISREQ+3
FILE^DID	EDIT+13
^DIE	EDIT+29, EDIT+37, EDIT+46

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Mandatory Fields (site specific) edit:" Line Location: EDIT+8
Routine Call	DIE Line Location: EDIT+29 EDIT+37 EDIT+46
Routine Call	DIC Line Location: GETFIELD+7 SUBFILES+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AGFAC - [#9009061]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC - [#9009061]	GETFIELD+3, ISREQ+6, ISREQ+8, ISREQ+10, EDIT+10, EDIT+12, EDIT+17, EDIT+18, ALTREQ+4, ALTREQ+5 , ALTREQ+6
^DD(	SUBFILES+4

Label References

Name	Line Occurrences
SUBFILES	GETFIELD+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EDIT+6~
A	GETFIELD~, GETFIELD+3
B	GETFIELD~, GETFIELD+3
D	EDIT+6~
D0	EDIT+6~
DA	EDIT+4, EDIT+6~, EDIT+20!, EDIT+21, EDIT+33!, EDIT+34, EDIT+38!, EDIT+42!, EDIT+43*, EDIT+47!
DA(1	EDIT+23*, EDIT+24
DA(2	EDIT+22*, EDIT+24
DC	EDIT+6~
DE	EDIT+6~
DG	EDIT+6~
DH	EDIT+6~
DI	EDIT+6~
DIA	EDIT+6~
DIC	GETFIELD+1~, GETFIELD+4, SUBFILES+2~, SUBFILES+5, EDIT+6~, EDIT+20!
DIC(0	GETFIELD+5, SUBFILES+6
DIE	GETFIELD+1~, SUBFILES+2~, EDIT+6~, EDIT+20!, EDIT+24, EDIT+33!, EDIT+35, EDIT+38!, EDIT+42!, EDIT+44* , EDIT+47!
DIE("NO^"	EDIT+28*
DIEDA	EDIT+6~
DIEL	EDIT+6~
DIETMP	EDIT+6~
DIFLD	EDIT+6~
DIIENS	EDIT+6~
DILK	EDIT+6~
DIP	EDIT+6~
DISYS	EDIT+6~
DK	EDIT+6~
DL	EDIT+6~
DM	EDIT+6~
DO	GETFIELD+1~, SUBFILES+2~, EDIT+6~
DP	EDIT+6~
DQ	EDIT+6~
DR	EDIT+6~, EDIT+20!, EDIT+25, EDIT+33!, EDIT+36, EDIT+38!, EDIT+42!, EDIT+45*, EDIT+47!
DR(2	EDIT+26*
DR(3	EDIT+27*
DSC	EDIT+6~
DU	EDIT+6~
DUZ(2	ISREQ+6, ISREQ+8, ISREQ+10, ALTREQ+4, ALTREQ+5, ALTREQ+6
DV	EDIT+6~
DW	EDIT+6~
DXS	EDIT+6~
ERROR	ISREQ+1!, ISREQ+4, EDIT+7!, EDIT+14
FACIEN	EDIT+3~, EDIT+4*, EDIT+10, EDIT+12, EDIT+17, EDIT+18, EDIT+22, EDIT+34, EDIT+43
FDIEN	ALTREQ+3~, ALTREQ+5*, ALTREQ+6
FIELDIEN	ISREQ+2~, ISREQ+8, ISREQ+9, ISREQ+10, EDIT+18, EDIT+21
>> FIELDNAM	ISREQ+5, ISREQ+8, EDIT+16, EDIT+17*, EDIT+18, EDIT+19, EDIT+32, EDIT+41
FIELDNM	ALTREQ~, ALTREQ+5
FIELDNUM	ISREQ~, ISREQ+3, EDIT+3~
FILEIEN	ISREQ+2~, ISREQ+6, ISREQ+7, ISREQ+8, ISREQ+10, EDIT+3~, EDIT+11, EDIT+12*, EDIT+17, EDIT+18 , EDIT+23
FILENUM	ISREQ~, ISREQ+3, ISREQ+6, EDIT+3~, EDIT+9, EDIT+10, EDIT+12, EDIT+13, EDIT+32, EDIT+41 , ALTREQ~, ALTREQ+4
FLIEN	ALTREQ+3~, ALTREQ+4*, ALTREQ+5, ALTREQ+6
IEN	RESTRICT~
L	EDIT+6~
RETURN	ISREQ+1!, EDIT+7!
RETURN("LABEL"	ISREQ+5
RETURN("NAME"	EDIT+15
>> SUBFILE	SUBFILES+3, SUBFILES+4, SUBFILES+5
TOPFILE	GETFIELD+3*, GETFIELD+4, GETFIELD+8, SUBFILES~, SUBFILES+3, SUBFILES+4
U	GETFIELD+3, GETFIELD+10, ISREQ+10, ALTREQ+6
X	GETFIELD~, GETFIELD+8, GETFIELD+9!, GETFIELD+10*, SUBFILES~, EDIT+6~
Y	GETFIELD+1~, GETFIELD+8, GETFIELD+9, GETFIELD+10, SUBFILES~, SUBFILES+4, EDIT+6~, EDIT+10, EDIT+12, EDIT+17

Customize PDF page

Package: IHS Patient Registration

Routine: AGFLDREQ

Call Graph Total: 3

Caller Graph Total: 6