Routine: AGED4A

Package	Total	Call Graph
IHS Patient Registration	17	(BLDAGCAT,LOADCAT,LOADICP)^AGCAT ^AGED3 EN^AGED4 EN^AGED42 EDITINS^AGED4A01 (ADDMSG,DISPINS,DISPLAYN,HEADING)^AGED4A1 EN^AGED6 EN^AGED62 ^AGEDBEA EN^AGEDGUAR EN^AGEDMCD EN^AGEDPRV EN^AGEDPRVB EN^AGEDTPL EN^AGEDWC ^AGINS ($$ISMINOR,$$NEEDTOSQ)^AGUTILS
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
IHS Patient Registration	6	AG5 AG7 AGED3 AGED4A1 AGED4B AGEDBEA
PCC New Encounter Form	1	VENPCCD1

Name	Comments	DBIA/ICR reference
DRAW	;EP
END
DRAW2	;EP
VAR2
CPROMPT	;EP - CALLED FROM AGED4A1
ADDINS	;EP
VAR	;PEP FOR PCC+
SPROMPT	;EP - ASK SEQUENCING QUESTIONS

Name	Field # of Occurrence
BLDAGCAT^AGCAT	SPROMPT+46
LOADCAT^AGCAT	VAR+7
LOADICP^AGCAT	VAR2+3, VAR2+25, SPROMPT+46
^AGED3	END+6
EN^AGED4	DRAW2+12, DRAW2+13, ADDINS+54, ADDINS+56
EN^AGED42	DRAW2+12, DRAW2+13, ADDINS+54, ADDINS+56
EDITINS^AGED4A01	DRAW+28
ADDMSG^AGED4A1	DRAW+1
DISPINS^AGED4A1	SPROMPT+7
DISPLAYN^AGED4A1	DRAW+20, DRAW2+5
HEADING^AGED4A1	SPROMPT+2, DRAW+3, DRAW2+2
EN^AGED6	DRAW2+14, ADDINS+55, ADDINS+57
EN^AGED62	DRAW2+14, ADDINS+55, ADDINS+57
^AGEDBEA	END+7
EN^AGEDGUAR	DRAW2+52, ADDINS+82
EN^AGEDMCD	DRAW2+19, ADDINS+63
EN^AGEDPRV	DRAW2+30, ADDINS+91
EN^AGEDPRVB	DRAW2+34, ADDINS+97
EN^AGEDTPL	DRAW2+39, ADDINS+69
EN^AGEDWC	DRAW2+44, ADDINS+75
^AGINS	VAR+5, VAR+6, VAR2+27, ADDINS+103
$$ISMINOR^AGUTILS	ADDINS+24
$$NEEDTOSQ^AGUTILS	CPROMPT+22, SPROMPT+14
^DIC	ADDINS+18
$$GET1^DIQ	ADDINS+58
^DIR	CPROMPT+15, SPROMPT+12, SPROMPT+21, SPROMPT+28, SPROMPT+41, ADDINS+38, ADDINS+51
$$UP^XLFSTR	CPROMPT+17, SPROMPT+13, SPROMPT+22, SPROMPT+32

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"Use only pages 1 through 10." Line Location: VAR2+14
Function Call: WRITE	Prompt: *7,!!,"Eligibility Status must be entered." Line Location: VAR2+24
Function Call: WRITE	Prompt: !,"This patient has NO insurers to sequence!" Line Location: CPROMPT+3
Function Call: WRITE	Prompt: !!,"THIS PATIENT HAS NOT BEEN SEQUENCED. YOUR SITE REQUIRES SEQUENCING!! PLEASE CHOOSE A CATEGORY" Line Location: CPROMPT+22
Function Call: WRITE	Prompt: !?16,"THIS PATIENT HAS NO INSURERS IN THIS CATEGORY." Line Location: SPROMPT+5
Function Call: WRITE	Prompt: !,"This patient has NO insurers to sequence!" Line Location: SPROMPT+8
Function Call: WRITE	Prompt: !,"CANNOT EXIT WITHOUT SEQUENCING! YOUR SITE REQUIRES SEQUENCING!!" Line Location: SPROMPT+14
Function Call: WRITE	Prompt: !?20,"* PATIENT HAS NO CATEGORIES SET UP *" Line Location: DRAW+14
Function Call: WRITE	Prompt: !!,"Must enter an existing insurer" Line Location: ADDINS+19
Function Call: WRITE	Prompt: !,"A MINOR CANNOT BE THE POLICY HOLDER FOR "_$G(INSNM) Line Location: ADDINS+32
Routine Call	DIC Line Location: ADDINS+18
Routine Call	DIR Line Location: CPROMPT+15 SPROMPT+12 SPROMPT+21 SPROMPT+28 SPROMPT+41 ADDINS+38 ADDINS+51

FileNo	Call Tags
^AUTNINS - [#9999999.18]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNICP("C"	VAR+7
^AUPNMCR - [#9000003]	ADDINS+54, ADDINS+56
^AUPNPAT - [#9000001]	VAR2+12, VAR2+24
^AUPNPRVT - [#9000006]	ADDINS+95
^AUPNRRE - [#9000005]	ADDINS+55, ADDINS+57
^AUTNINS - [#9999999.18]	DRAW2+34, ADDINS+27, ADDINS+28, ADDINS+43
^DD("DD"	SPROMPT+30

Name	Line Occurrences
@(	VAR2+25
ADDINS	DRAW+26, ADDINS+45
CPROMPT	CPROMPT+22
DRAW	VAR2+1, DRAW+26, DRAW+28, DRAW+29
DRAW2	VAR2+4
END	VAR2+6, VAR2+26
SPROMPT	SPROMPT+14, SPROMPT+23, SPROMPT+24, SPROMPT+33, SPROMPT+35, SPROMPT+45
VAR	VAR2+26
VAR2	VAR2+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDCHK	DRAW+1, ADDINS+2!
AG	END!
AG("ED"	VAR2+13, VAR2+14!, VAR2+15, VAR2+16, VAR2+17, VAR2+18, VAR2+19, VAR2+20, VAR2+21, VAR2+22* , VAR2+23*, VAR2+25, DRAW+4!, DRAW2+3!
AG("ERR"	VAR2+14*, VAR2+26, DRAW+4!, DRAW2+3!
AG("PG"	VAR2, SPROMPT+1, DRAW+2, DRAW2+1
AGA	END!
AGADDINS	END!, DRAW+24*
AGANS	VAR2*, VAR2+6, VAR2+7, VAR2+8, VAR2+9, VAR2+10, VAR2+12, VAR2+13, VAR2+24, END! , SPROMPT+9, DRAW+24, DRAW+26, DRAW+28, DRAW+29!, DRAW2+6, DRAW2+8, DRAW2+9, ADDINS+1~
AGB	END!
AGCAT	VAR+1!, VAR2+3, END+3!
AGCAT(	SPROMPT+5
AGDT	END!
>> AGELDT	ADDINS+54, ADDINS+55, ADDINS+56, ADDINS+57
>> AGELP("INS"	ADDINS+20*, ADDINS+27, ADDINS+28, ADDINS+31, ADDINS+43, ADDINS+56, ADDINS+57, ADDINS+58, ADDINS+69, ADDINS+89
>> AGELPTR	DRAW2+10*
AGINS	VAR+1!, VAR2+27!, END+3!, CPROMPT+3, SPROMPT+8, ADDINS+102!
>> AGINSNN(	DRAW2+8, DRAW2+9
AGINSPTR	END!, DRAW2+25, DRAW2+30, DRAW2+34, ADDINS+89, ADDINS+91, ADDINS+97
AGINSREC	END!, DRAW2+8, DRAW2+9, DRAW2+10, DRAW2+12, DRAW2+13, DRAW2+14, DRAW2+16, DRAW2+17, DRAW2+19 , DRAW2+22, DRAW2+23, DRAW2+25, DRAW2+26, DRAW2+27, DRAW2+28, DRAW2+34, DRAW2+36, DRAW2+37, DRAW2+39 , DRAW2+41, DRAW2+42, DRAW2+46, DRAW2+49, DRAW2+50, DRAW2+52
>> AGKIDS	ADDINS+58*, ADDINS+97
AGMAX	SPROMPT+10!
AGMCDREC	END!
AGMEANT	ADDINS+1~, ADDINS+52*, ADDINS+54, ADDINS+55
AGMIN	SPROMPT+10!
AGNEWINS	VAR+1!, ADDINS+2!, ADDINS+42*
>> AGOPT("ESCAPE"	DRAW2+12, DRAW2+13, DRAW2+14, DRAW2+31, ADDINS+94
>> AGPHFLAG	VAR+6
AGSCRN	END!
>> AGSEENLY	VAR2+1, VAR2+4, END+2
AGSEL	END!
AGSELECT	DRAW2+28, DRAW2+30, DRAW2+31!, ADDINS+68, ADDINS+69, ADDINS+70!, ADDINS+76!, ADDINS+93!
AGSEQ	SPROMPT+10!
AGTOUT	VAR+1!, VAR2+5, END!
AGTST	SPROMPT+10!
>> AGTYPE	DRAW2+10, DRAW2+12, DRAW2+13, DRAW2+14, DRAW2+15, DRAW2+21, DRAW2+35, DRAW2+40, DRAW2+45, ADDINS+43 , ADDINS+45, ADDINS+54, ADDINS+55, ADDINS+56, ADDINS+57, ADDINS+58*, ADDINS+59, ADDINS+64, ADDINS+71, ADDINS+77
>> AGXTERN	VAR2+25, END+4
CATHD	VAR+1!, END!, CPROMPT+18*, SPROMPT+16!
CATPTR	VAR+1!, VAR+3, END!, CPROMPT+17, CPROMPT+18, CPROMPT+19, SPROMPT+4, SPROMPT+5, SPROMPT+16
CNT	END!
COV	END!
COVPTR	END!, DRAW2+27*, DRAW2+30, DRAW2+34, ADDINS+91, ADDINS+97
CPTR	END+1!
DA	END!, DRAW+2, DRAW2+1
DASHSEQ	SPROMPT+10!
>> DFN	VAR+7, VAR2+12, VAR2+24, CPROMPT+22, SPROMPT+14, DRAW+2, DRAW2+1, DRAW2+12, DRAW2+13, DRAW2+14 , ADDINS+24, ADDINS+54, ADDINS+55, ADDINS+56, ADDINS+57, ADDINS+87
DFOUT	VAR2+7*, VAR2+11, END!, CPROMPT+2!, SPROMPT+3!, SPROMPT+18!, SPROMPT+25!, DRAW+4!, DRAW2+3!
DIC	END!, ADDINS+1~, ADDINS+3*, ADDINS+19!, ADDINS+21!, ADDINS+46!
DIC("S"	ADDINS+16*
DIC(0	ADDINS+15*
DIE	END!, ADDINS+46!
DIR	CPROMPT+2!, SPROMPT+3!, SPROMPT+10!, SPROMPT+18!, SPROMPT+25!, SPROMPT+37!, SPROMPT+44!, DRAW+4!, DRAW2+3!, ADDINS+34! , ADDINS+46!
DIR("A"	SPROMPT+19, SPROMPT+26, SPROMPT+39, ADDINS+36, ADDINS+48*
DIR("B"	SPROMPT+40, ADDINS+37, ADDINS+49*
DIR(0	CPROMPT+5, SPROMPT+11, SPROMPT+20, SPROMPT+27, SPROMPT+38, ADDINS+35, ADDINS+50*
DIROUT	END+5, CPROMPT+2!, SPROMPT+3!, SPROMPT+18!, SPROMPT+25!, DRAW+4!, DRAW2+3!, ADDINS+45
DIRUT	CPROMPT+22, SPROMPT+3!, SPROMPT+14, SPROMPT+16, SPROMPT+18!, SPROMPT+23, SPROMPT+25!, SPROMPT+33, DRAW+5!
DLOUT	VAR2+2!, VAR2+8*, VAR2+26, END!, CPROMPT+2!, SPROMPT+3!, SPROMPT+18!, SPROMPT+25!, DRAW+4!, DRAW2+3!
DQOUT	VAR2+10*, END!, DRAW+4!, DRAW2+3!
DR	END!, ADDINS+46!
DT	SPROMPT+35
DTOUT	VAR2+5, VAR2+11, END!, CPROMPT+2!, CPROMPT+15, SPROMPT+3!, SPROMPT+16, SPROMPT+18!, SPROMPT+25!, DRAW+4! , DRAW2+3!, ADDINS+45
DUOUT	VAR2+9*, VAR2+26, END+6, CPROMPT+2!, CPROMPT+15, SPROMPT+3!, SPROMPT+16, SPROMPT+18!, SPROMPT+25!, DRAW+4! , DRAW+26!, DRAW+28!, DRAW2+3!, ADDINS+45
DUZ(2	CPROMPT+22, SPROMPT+14
EFF	END+1!
END	END+1!
ESEQEFDT	SPROMPT+31*, SPROMPT+36, SPROMPT+43!
>> ID0	ADDINS+87*, ADDINS+91, ADDINS+95, ADDINS+97
>> ID1	ADDINS+91, ADDINS+92, ADDINS+97
INS	END+1!
INSNM	ADDINS+25~, ADDINS+27*, ADDINS+29, ADDINS+36
INSPTR	END+1!
INSTYP	ADDINS+25~, ADDINS+28*, ADDINS+30
>> ISACTIVE	DRAW2+10*
>> MAX	SPROMPT+11
MCDREC	END!
NEWENTRY	DRAW2+18, DRAW2+19, DRAW2+38, DRAW2+39, DRAW2+43, DRAW2+44, DRAW2+51, DRAW2+52, DRAW2+53!, ADDINS+62* , ADDINS+63, ADDINS+67, ADDINS+69, ADDINS+70!, ADDINS+74, ADDINS+75, ADDINS+76!, ADDINS+81*, ADDINS+82, ADDINS+83! , ADDINS+93!
NOADD	ADDINS+23~, ADDINS+24!, ADDINS+26, ADDINS+29, ADDINS+30, ADDINS+31, ADDINS+33, ADDINS+39*, ADDINS+40!
PARDFN	DRAW2+16, DRAW2+19, DRAW2+22, DRAW2+30, DRAW2+34, DRAW2+36, DRAW2+39, DRAW2+41, DRAW2+44, DRAW2+46* , DRAW2+52, DRAW2+53!, ADDINS+60, ADDINS+63, ADDINS+65, ADDINS+69, ADDINS+70!, ADDINS+72, ADDINS+75, ADDINS+76! , ADDINS+78, ADDINS+82, ADDINS+83!, ADDINS+93!
PARDT	DRAW2+17, DRAW2+19, DRAW2+37, DRAW2+39, DRAW2+42, DRAW2+44, DRAW2+49, DRAW2+52, DRAW2+53!, ADDINS+61* , ADDINS+63, ADDINS+66, ADDINS+69, ADDINS+70!, ADDINS+73, ADDINS+75, ADDINS+76!, ADDINS+79*, ADDINS+82, ADDINS+83!
PARFIL	DRAW2+50, DRAW2+52, DRAW2+53!, ADDINS+80, ADDINS+82, ADDINS+83!, ADDINS+93!
PARINS	ADDINS+93!
>> PARREC	DRAW2+23*, DRAW2+30, DRAW2+34
PH	END+1!
PHPTR	END+1!
>> POLHPTR	DRAW2+26, DRAW2+30, DRAW2+34, ADDINS+90, ADDINS+91, ADDINS+97
POLNUM	END+1!
PRSEQ	SPROMPT+3!, SPROMPT+10!, SPROMPT+17*, SPROMPT+19
RECNO	END+1!
RECORD	END+1!
RECPTR	END!
ROUTID	VAR2, END+1!, SPROMPT+1, DRAW+2, DRAW2+1
SEL	END!
SEQEFDT	END+1!, SPROMPT+29*, SPROMPT+45
SEQFLG	END+1!
>> SHOWINAC	VAR+4*
SQDT	END+1!
ST	END!
STPTR	END!
U	VAR2+9, VAR2+10, VAR2+12, VAR2+24, SPROMPT+9, DRAW2+6, DRAW2+10, DRAW2+13, DRAW2+14, DRAW2+16 , DRAW2+17, DRAW2+22, DRAW2+23, DRAW2+25, DRAW2+26, DRAW2+27, DRAW2+34, DRAW2+36, DRAW2+37, DRAW2+41 , DRAW2+42, DRAW2+46, DRAW2+49, DRAW2+50, ADDINS+27, ADDINS+28, ADDINS+43
>> X	CPROMPT+17, SPROMPT+13, SPROMPT+22, SPROMPT+32
Y	VAR2+9, VAR2+10, END!, CPROMPT+16, CPROMPT+17, SPROMPT+3!, SPROMPT+13, SPROMPT+17, SPROMPT+22, SPROMPT+24 , SPROMPT+29, SPROMPT+31, SPROMPT+32, SPROMPT+35, DRAW2+12, DRAW2+13, DRAW2+14, DRAW2+31, ADDINS+19, ADDINS+20 , ADDINS+39, ADDINS+52, ADDINS+94

Customize PDF page

Package: IHS Patient Registration

Routine: AGED4A

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items