Routine: AGEDMCD

Package	Total	Call Graph
IHS Patient Registration	6	UPDATE1^AGED READ^AGED1 (EDITCHEK,FETCHERR)^AGEDERR (GETDATES,HDR)^AGEDMCD1 ($$20,$$30,$$31)^AGEROVR ($$UPDTSEL,$$USED,VERIF)^AGUTILS
VA Fileman	5	^DIC ^DIE ^DIK $$GET1^DIQ ^DIR

Package	Total	Caller Graph
IHS Patient Registration	3	AG5 AGED4A AGED4A01

Entry Points

Name	Comments	DBIA/ICR reference
RATECD	;RATE CODE
CONT	;
PCP	;PRIM CARE PROV
MEDSTATE	;MCD ST EDIT FOR NEW ENTRY
GETAW	;DISP
MSG	;DISP IF NEW ENTRY
END
NEWENTRY	;NEW ENTRY
GRPNAME	;GRP NAME
EFFDT	;ELIG DTS AND COV TYPE
COVTYPE	;
AEFFDT	;ADD EFF DT
1	;
MEDDOB	;MCD DOB
DRAW	;EP
CLEANZER(WD0)	;EP - CLEAN ZERO NODE WITH NO DTS
ENDDATE	;
OVERLAP(WD0,WD1)	;EP - DETERMINE OVERLAPPING ELIG RANGES
GOODDT(AD0,AD1)	;EP -
CCONFILE	;CC ON FILE
MEDNUM	;MCD #
EN(WD0,WD1,NEWENTRY,AGSELECT,AGOPTION)	;EP
VAR
MEDNAME	;MCD NAME
CLEAN(WD0)	;IF NO ELIG DTS, CLEAN EMPTY RECORD.
PLANNM	;PLAN NAME

External References

Name	Field # of Occurrence
UPDATE1^AGED	CONT+5, GETAW+52
READ^AGED1	VAR+22
EDITCHEK^AGEDERR	GETAW+56
FETCHERR^AGEDERR	GETAW+54
GETDATES^AGEDMCD1	GETAW+47
HDR^AGEDMCD1	DRAW+4
$$20^AGEROVR	PLANNM+6
$$30^AGEROVR	COVTYPE+7
$$31^AGEROVR	RATECD+7
$$UPDTSEL^AGUTILS	EN+15, CONT+4
$$USED^AGUTILS	EFFDT+6
VERIF^AGUTILS	GETAW+58
^DIC	NEWENTRY+9, AEFFDT+10
^DIE	CONT+10, NEWENTRY+25, MEDSTATE+6, EFFDT+23, ENDDATE+6, COVTYPE+11, OVERLAP+28, MEDNUM+6, MEDNAME+6, MEDDOB+6 , PCP+5, GRPNAME+5, PLANNM+10, RATECD+11, CCONFILE+8, CCONFILE+14, CCONFILE+20
^DIK	CLEANZER+2
$$GET1^DIQ	GETAW+31, GETAW+33, GETAW+35, GETAW+41, NEWENTRY+22
^DIR	VAR+6, GETAW+59, EFFDT+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Entry could not be created." Line Location: EN+6
Function Call: WRITE	Prompt: !,"New entry not made" Line Location: EN+8
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+2
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE EDIT AND FIX BEFORE EXITING!!" Line Location: VAR+8
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!" Line Location: VAR+24
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: VAR+28
Function Call: WRITE	Prompt: @NEWLINE Line Location: GETAW+20
Function Call: WRITE	Prompt: ITEMNUM Line Location: GETAW+21
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+31
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+33
Function Call: WRITE	Prompt: ?21,"("_$$GET1^DIQ(DIC,D0,DR)_")" Line Location: GETAW+41
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+49
Function Call: WRITE	Prompt: !,"STATE FIELD MUST BE POPULATED" Line Location: GETAW+51
Function Call: WRITE	Prompt: !,"STATE NOT ENTERED, THIS RECORD WILL BE DELETED" Line Location: GETAW+51
Function Call: WRITE	Prompt: !,"STATE NOT ENTERED, THIS RECORD WILL BE DELETED" Line Location: GETAW+52
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+57
Function Call: WRITE	Prompt: !,"You have entered a new record for "_$P($G(^DPT(DFN,0)),U)_" in the MEDICAID file." Line Location: MSG+1
Function Call: WRITE	Prompt: !! Line Location: NEWENTRY+1
Function Call: WRITE	Prompt: ! Line Location: RATECD+1
Function Call: WRITE	Prompt: ! Line Location: CCONFILE+1
Function Call: WRITE	Prompt: !,"CANNOT HAVE AN ENDING DATE WITHOUT A BEGINNING DATE! TRY AGAIN" Line Location: GOODDT+4
Function Call: WRITE	Prompt: !,"ENDING DATE IS LESS THAN THE EFFECTIVE DATE! TRY AGAIN" Line Location: GOODDT+5
Function Call: WRITE	Prompt: !,"EFFECTIVE DATE IS GREATER THAN THE ENDING DATE! TRY AGAIN" Line Location: GOODDT+6
Routine Call	DIE Line Location: CONT+10 NEWENTRY+25 MEDSTATE+6 EFFDT+23 ENDDATE+6 COVTYPE+11 OVERLAP+28 MEDNUM+6 MEDNAME+6 MEDDOB+6 PCP+5 GRPNAME+5 PLANNM+10 RATECD+11 CCONFILE+8 CCONFILE+14 CCONFILE+20
Routine Call	DIC Line Location: NEWENTRY+9 AEFFDT+10
Routine Call	DIR Line Location: VAR+6 GETAW+59 EFFDT+15

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AUPNMCD - [#9000004]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC - [#9009061]	EN+12
^AUPNMCD - [#9000004]	VAR+7, VAR+12, VAR+14, AEFFDT+4*, OVERLAP+3, OVERLAP+4, OVERLAP+9, OVERLAP+11, OVERLAP+13, MEDNAME+5 , MEDDOB+5, CCONFILE+9, CCONFILE+15, GOODDT+2, GOODDT+3
^AUTNINS("B"	NEWENTRY+18
^DD(	GETAW+23, GETAW+24
^DD("DD"	MEDDOB+5
^DPT - [#2]	MSG+1, MEDNAME+5, MEDDOB+5

Label References

Name	Line Occurrences
$$GOODDT	EFFDT+27, ENDDATE+9
@(	CONT+2
AEFFDT	EN+8, VAR+11, EFFDT+2, OVERLAP+22
CCONFILE	EN+12
CLEAN	VAR+7, VAR+14
CLEANZER	EN+8, CLEAN+1
CONT	VAR+23
DRAW	EN+6, VAR
EFFDT	VAR+13, EFFDT+27
END	EN+6, EN+8, VAR+7, VAR+14, VAR+26
ENDDATE	AEFFDT+13, ENDDATE+9
GETAW	DRAW+5
GRPNAME	EN+12
MEDDOB	EN+11
MEDNAME	EN+10
MEDNUM	EN+9
MEDSTATE	EN+7, GETAW+52
MSG	EN+7
NEWENTRY	EN+6
OVERLAP	COVTYPE+13
PCP	EN+12
PLANNM	EN+12
RATECD	EN+12
VAR	VAR+8, VAR+11, VAR+12, VAR+24, VAR+26, VAR+28, CONT+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD0	GOODDT~
AD1	GOODDT~
ADA	END!
>> ADDCHK	NEWENTRY+12*
ADFN	END+1!
ADT	END!
AG	END!, GETAW+3*, GETAW+36
AG("C"	CONT+2, GETAW+1!, GETAW+18*, GETAW+48
AG("ERR"	VAR+26
AG("N"	VAR+21, VAR+28, CONT+2, GETAW+48*
AG("PG"	EN+1, DRAW+1, GETAW+54
AG("SEL"	CONT+2*
AGDOB	MEDDOB+5~*, MEDDOB+7!
>> AGELP("INS"	EN+15, NEWENTRY+18*, COVTYPE+7, PLANNM+6, RATECD+7
AGERRSOL	END+1!
AGI	CONT+2*, CONT+11!
>> AGINS	EN+15, CONT+4
>> AGLINE("-"	GETAW+49, GETAW+57
>> AGLINE("EQ"	VAR+2
>> AGOPT("ESCAPE"	VAR+8, VAR+9, VAR+24, VAR+25
AGOPTION	EN~, EN+12
AGSCRN	END!, GETAW+3, GETAW+4*, GETAW+5, GETAW+7, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12 , GETAW+13, GETAW+14, GETAW+15, GETAW+16, GETAW+17
>> AGSEENLY	VAR+1, GETAW+52, GETAW+59
AGSELECT	EN~, EN+15, CONT+4, GETAW+55, EFFDT+6, COVTYPE+7, PLANNM+6, RATECD+7
AGSEX	NEWENTRY+21~, NEWENTRY+22*
AGY	CONT+1*, CONT+2, CONT+11!
>> AUPNPAT	GETAW+55
BDT	GOODDT+1~, GOODDT+2*, GOODDT+4, GOODDT+5, GOODDT+6
>> CANCELED	EFFDT+7, EFFDT+16*
>> CAPDENT	GETAW+11*, GETAW+23, GETAW+24
>> CAPTION	GETAW+7*, GETAW+23, GETAW+24
>> COMPIEN	EN+13, EN+15, EN+17, CONT+4
D0	GETAW+28, GETAW+30, GETAW+31, GETAW+33, GETAW+35, GETAW+37~, GETAW+39, GETAW+41, GETAW+42, GETAW+45*
DA	CONT+6~, CONT+8, CLEANZER+1!, CLEANZER+2, END!, NEWENTRY+3!, NEWENTRY+16, MEDSTATE+2, AEFFDT+14!, EFFDT+1! , EFFDT+11!, EFFDT+18, EFFDT+25, ENDDATE+2, COVTYPE+2, OVERLAP+23, MEDNUM+1!, MEDNUM+2, MEDNUM+7!, MEDNAME+1! , MEDNAME+2, MEDNAME+7!, MEDDOB+1!, MEDDOB+2, MEDDOB+7!, PCP+1!, PCP+2, PCP+6!, GRPNAME+1!, GRPNAME+2* , GRPNAME+6!, PLANNM+1!, PLANNM+2, PLANNM+11!, RATECD+2!, RATECD+3, RATECD+12!, CCONFILE+2!, CCONFILE+3, CCONFILE+10! , CCONFILE+11, CCONFILE+16!, CCONFILE+17*, CCONFILE+22!
DA(1	AEFFDT+5, AEFFDT+6, EFFDT+19, EFFDT+20, ENDDATE+3, ENDDATE+4, COVTYPE+3, COVTYPE+4, OVERLAP+24*, OVERLAP+25
DATESORT	END+1!
DD	NEWENTRY+3!, MEDNUM+1!, MEDNAME+1!, MEDDOB+1!, PCP+1!, GRPNAME+1!, PLANNM+1!, RATECD+2!, CCONFILE+2!
DEFEDDT	EN+2!, END+1!, AEFFDT+3
>> DFN	CONT+5, GETAW+52, GETAW+55, MSG+1, NEWENTRY+6, NEWENTRY+7, NEWENTRY+10*, NEWENTRY+22, EFFDT+6, MEDNAME+5 , MEDDOB+5
DFOUT	VAR+27, END!
DIC	END!, GETAW+8, GETAW+23, GETAW+24, GETAW+29, GETAW+31, GETAW+33, GETAW+35, GETAW+38, GETAW+41 , GETAW+44, NEWENTRY+3!, NEWENTRY+4, NEWENTRY+15, MEDSTATE+1!, MEDSTATE+7!, AEFFDT+1!, AEFFDT+6, AEFFDT+14!, EFFDT+1! , EFFDT+11!, EFFDT+24!, ENDDATE+1!, ENDDATE+7!, COVTYPE+1!, COVTYPE+12!, OVERLAP+21!, OVERLAP+29!, MEDNUM+1!, MEDNUM+7! , MEDNAME+1!, MEDNAME+7!, MEDDOB+1!, MEDDOB+7!, PCP+1!, PCP+6!, GRPNAME+1!, GRPNAME+6!, PLANNM+1!, PLANNM+11! , RATECD+2!, RATECD+12!, CCONFILE+2!, CCONFILE+10!, CCONFILE+16!, CCONFILE+22!
DIC("A"	AEFFDT+9*
DIC("B"	AEFFDT+2, AEFFDT+3
DIC("S"	NEWENTRY+8*
DIC(0	NEWENTRY+5, AEFFDT+8
DIE	CONT+6~, CONT+7, GETAW+37~, NEWENTRY+3!, NEWENTRY+15, MEDSTATE+1!, MEDSTATE+3, MEDSTATE+7!, AEFFDT+1!, AEFFDT+14! , EFFDT+1!, EFFDT+11!, EFFDT+20, EFFDT+24!, ENDDATE+1!, ENDDATE+4, ENDDATE+7!, COVTYPE+1!, COVTYPE+4, COVTYPE+12! , OVERLAP+21!, OVERLAP+25, OVERLAP+29!, MEDNUM+1!, MEDNUM+3, MEDNUM+7!, MEDNAME+1!, MEDNAME+3, MEDNAME+7!, MEDDOB+1! , MEDDOB+3, MEDDOB+7!, PCP+1!, PCP+3, PCP+6!, GRPNAME+1!, GRPNAME+3, GRPNAME+6!, PLANNM+1!, PLANNM+3* , PLANNM+11!, RATECD+2!, RATECD+4, RATECD+12!, CCONFILE+2!, CCONFILE+4, CCONFILE+10!, CCONFILE+12, CCONFILE+16!, CCONFILE+18 , CCONFILE+22!
DIE("NO^"	MEDSTATE+5, COVTYPE+9, MEDNUM+5, PLANNM+8, RATECD+9, CCONFILE+13
DIK	CLEANZER+1!, CLEANZER+2*
DIR	VAR+3!, VAR+15!, NEWENTRY+3!, EFFDT+11!
DIR("?"	VAR+16, VAR+17, VAR+18, VAR+19, VAR+20*
DIR("A"	VAR+4, VAR+21, GETAW+59, EFFDT+14
DIR("B"	EFFDT+13*
DIR(0	VAR+5, GETAW+59, EFFDT+12*
>> DIROUT	VAR+10
>> DLAYGO	AEFFDT+7*
DLOUT	VAR+26, END!
DO	NEWENTRY+3!, MEDNUM+1!, MEDNAME+1!, MEDDOB+1!, PCP+1!, GRPNAME+1!, PLANNM+1!, RATECD+2!, CCONFILE+2!
DQOUT	VAR+28, END!
DR	CONT+6~, CONT+9, END!, GETAW+9, GETAW+23, GETAW+24, GETAW+31, GETAW+33, GETAW+35, GETAW+37~ , GETAW+40, GETAW+41, NEWENTRY+3!, NEWENTRY+19, NEWENTRY+23, MEDSTATE+1!, MEDSTATE+4, MEDSTATE+7!, AEFFDT+1!, AEFFDT+14! , EFFDT+1!, EFFDT+11!, EFFDT+21, EFFDT+24!, ENDDATE+1!, ENDDATE+5, ENDDATE+7!, COVTYPE+1!, COVTYPE+8, COVTYPE+10 , COVTYPE+12!, OVERLAP+21!, OVERLAP+26, OVERLAP+29!, MEDNUM+1!, MEDNUM+4, MEDNUM+7!, MEDNAME+1!, MEDNAME+4, MEDNAME+5 , MEDNAME+7!, MEDDOB+1!, MEDDOB+4, MEDDOB+5, MEDDOB+7!, PCP+1!, PCP+4, PCP+6!, GRPNAME+1!, GRPNAME+4 , GRPNAME+6!, PLANNM+1!, PLANNM+7, PLANNM+9, PLANNM+11!, RATECD+2!, RATECD+8, RATECD+10, RATECD+12!, CCONFILE+2! , CCONFILE+7, CCONFILE+10!, CCONFILE+13, CCONFILE+16!, CCONFILE+19*, CCONFILE+22!
DR(2	EFFDT+22, OVERLAP+27
>> DT1	OVERLAP+6, OVERLAP+8, OVERLAP+9*, OVERLAP+10, OVERLAP+11, OVERLAP+13, OVERLAP+16
>> DT2	OVERLAP+13, OVERLAP+14, OVERLAP+15, OVERLAP+16
DTOUT	VAR+10, VAR+27, END!
>> DUOUT	VAR+10, VAR+26
DUZ(2	EN+12, CONT+5, GETAW+52, GETAW+55
EDT	GOODDT+1~, GOODDT+3*, GOODDT+4, GOODDT+5, GOODDT+6
>> EXECUTE	GETAW+14*, GETAW+33, GETAW+42
>> EXIT	EN+3, EN+4, EN+5, EN+6, EN+8, GETAW+3
IN3PB	EFFDT+5!, EFFDT+6*, EFFDT+7
>> ITEMNUM	GETAW+12*, GETAW+18, GETAW+21, GETAW+22
MYERRS	END+1!, GETAW+53!, GETAW+54, GETAW+56
MYERRS("C"	VAR+8, VAR+24
MYVARS	END+1!, GETAW+53!, GETAW+56
MYVARS("DFN"	GETAW+55*
MYVARS("FINDCALL"	GETAW+55*
MYVARS("SELECTION"	GETAW+55*
MYVARS("SITE"	GETAW+55*
NEWENTRY	EN~, EN+4, EN+16, GETAW+27, GETAW+52, GETAW+56, NEWENTRY+14, MEDNAME+5, MEDDOB+5
>> NEWLINE	GETAW+10*, GETAW+20
>> OPENEND	OVERLAP+7*
>> OVERLAP	OVERLAP+5, OVERLAP+9, OVERLAP+15, OVERLAP+16*, OVERLAP+17
>> POSTEXEC	GETAW+17*, GETAW+43
>> PRECAPEX	GETAW+16*, GETAW+23, GETAW+24
>> PREEXEC	GETAW+15*, GETAW+31, GETAW+33
REC	END+1!
>> ROUTID	DRAW+2*
>> STATEVAL	GETAW+35*, GETAW+52
>> TAGCALL	GETAW+13*, GETAW+18
>> TDT1	OVERLAP+2*, OVERLAP+10, OVERLAP+15, OVERLAP+16
>> TDT2	OVERLAP+3*
TEMPDFN	NEWENTRY+2~, NEWENTRY+7*, NEWENTRY+10
>> TTYP	OVERLAP+4*, OVERLAP+12
>> TYP	OVERLAP+11*, OVERLAP+12
U	EN+12, CONT+4, GETAW+7, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+23 , GETAW+24, MSG+1, AEFFDT+13, EFFDT+6, COVTYPE+7, OVERLAP+3, OVERLAP+4, OVERLAP+11, OVERLAP+13, MEDNAME+5 , MEDDOB+5, PLANNM+6, RATECD+7, CCONFILE+9, CCONFILE+15, GOODDT+2, GOODDT+3
WD0	EN~, EN+8, EN+13, EN+17, VAR+7, VAR+12, VAR+14, CONT+8, CLEAN~, CLEAN+1 , CLEANZER~, CLEANZER+2, GETAW+28, GETAW+39, GETAW+47, NEWENTRY+13*, NEWENTRY+16, MEDSTATE+2, AEFFDT+4, AEFFDT+5 , EFFDT+6, EFFDT+19, EFFDT+27, ENDDATE+3, ENDDATE+9, COVTYPE+3, COVTYPE+13, OVERLAP~, OVERLAP+3, OVERLAP+4 , OVERLAP+9, OVERLAP+11, OVERLAP+13, OVERLAP+24, MEDNUM+2, MEDNAME+2, MEDNAME+5, MEDDOB+2, MEDDOB+5, PCP+2 , GRPNAME+2, PLANNM+2, RATECD+3, CCONFILE+3, CCONFILE+9, CCONFILE+11, CCONFILE+15, CCONFILE+17, GOODDT+2, GOODDT+3
WD1	EN~, EN+13, EN+17, GETAW+45, AEFFDT+2, AEFFDT+12*, EFFDT+2, EFFDT+6, EFFDT+18, EFFDT+27 , ENDDATE+2, ENDDATE+9, COVTYPE+2, COVTYPE+13, OVERLAP~, OVERLAP+2, OVERLAP+3, OVERLAP+4, OVERLAP+22, OVERLAP+23 , GOODDT+2, GOODDT+3
WDA	END!
WDFN	END+1!
WDT	END!
>> X	GETAW+52, NEWENTRY+6*
Y	EN+6, EN+8, VAR+7, VAR+8, VAR+9, VAR+11, VAR+12, VAR+23, VAR+24, VAR+25 , VAR+26, VAR+28, CONT+1, END!, NEWENTRY+11, NEWENTRY+13, AEFFDT+11, AEFFDT+12, AEFFDT+13, EFFDT+16 , MEDDOB+5~*

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDMCD

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	DRAW+2
$T(@1+AG	GETAW+4