Routine: AGEDPRVB

Package	Total	Call Graph
IHS Patient Registration	6	UPDATE1^AGED READ^AGED1 (EDITCHEK,FETCHERR)^AGEDERR $$FINDPVT^AGINSUPD ($$DTEST,PROGVIEW,VERIF)^AGUTILS $$S^AGVDF
VA Fileman	4	DD^%DT ^DIE $$GET1^DIQ ^DIR

Package	Total	Caller Graph
IHS Patient Registration	3	AG7 AGED4A AGED4A3

Name	Comments	DBIA/ICR reference
ERCOPAY	;ER CO-PAY
DRAW	;EP
DEDFAM	;DEDUCTIBLE FAMILY
END
HDR	;
DSCOINS	;DAY SURGERY CO-INSURANCE
DENCOINS	;DENTAL CO-INSURANCE
LSTREC(COVPTR,COVREC)	;FIND MOST RECENT RECORD
OPCOINS	;OUTPATIENT CO-INSURANCE
OPCOPAY	;OUTPATIENT CO-PAYMENT
1	;
DEDIND	;DEDUCTIBLE INDIVIDUAL
GETAW	;DISPLAY
EN(ID0,ID1,NEWENTRY,AGINSREC,AGINSPTR,POLHPTR,COVPTR)	;EP - CALLED BY AGED4A
VAR
DSCOPAY	;DAY SURGERY CO-PAYMENT
MHDED	;MENTAL HEALTH DEDUCTIBLE
IPCOINS	;INPATIENT CO-INSURANCE
DEDOOP	;DEDUCTIBLE OUT-OF-POCKET
IPCOPAY	;INPATIENT CO-PAYMENT

Name	Field # of Occurrence
DD^%DT	GETAW+15, GETAW+16
UPDATE1^AGED	VAR+23
READ^AGED1	VAR+11
EDITCHEK^AGEDERR	GETAW+49
FETCHERR^AGEDERR	GETAW+47
$$FINDPVT^AGINSUPD	VAR+22
$$DTEST^AGUTILS	HDR+18
PROGVIEW^AGUTILS	HDR+10
VERIF^AGUTILS	GETAW+50
$$S^AGVDF	HDR+7
^DIE	OPCOPAY+6, OPCOINS+6, ERCOPAY+6, DSCOPAY+6, DSCOINS+6, IPCOPAY+6, IPCOINS+6, DENCOINS+6, MHDED+6, DEDFAM+6 , DEDIND+6, DEDOOP+6
$$GET1^DIQ	GETAW+13, GETAW+41
^DIR	VAR+1, VAR+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+3
Function Call: WRITE	Prompt: !!,"This plan has expired. You may not edit it." Line Location: VAR+17
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: VAR+18
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),! Line Location: HDR+7
Function Call: WRITE	Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR") Line Location: HDR+11
Function Call: WRITE	Prompt: ?31,"PRIVATE INSURANCE B" Line Location: HDR+12
Function Call: WRITE	Prompt: ?80-$L($P($G(^DIC(4,DUZ(2),0)),U)),$P($G(^DIC(4,DUZ(2),0)),U) Line Location: HDR+13
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+16
Function Call: WRITE	Prompt: !,$E(AGPAT,1,23) Line Location: HDR+17
Function Call: WRITE	Prompt: ?23,$$DTEST^AGUTILS(ID0) Line Location: HDR+18
Function Call: WRITE	Prompt: ?42,"HRN#:",$G(AGCHRT) Line Location: HDR+19
Function Call: WRITE	Prompt: ?56,"(",$S(AGELSTS="C":"CHS & DIRECT",AGELSTS="I":"INELIGIBLE",AGELSTS="D":"DIRECT ONLY",AGELSTS="P":"PENDING VERIFICATION",1:"NONE"),")" Line Location: HDR+22
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+23
Function Call: WRITE	Prompt: !!,"NO COVERAGE TYPE FOUND FOR THIS PATIENT!",!,"COVERAGE TYPE CAN BE ADDED FOR A PATIENT ON THE FIRST PRIVATE INSURANCE PAGE",!,"Edit Item 11 and edit the Coverage field" Line Location: GETAW+4
Function Call: WRITE	Prompt: ?50,"Network Provider : ",$$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+13
Function Call: WRITE	Prompt: ! Line Location: GETAW+14
Function Call: WRITE	Prompt: ?0,"EFF: ",Y Line Location: GETAW+15
Function Call: WRITE	Prompt: ?20,"EXP: ",Y Line Location: GETAW+16
Function Call: WRITE	Prompt: !!,"-OUTPATIENT",$E(AGLINE("-"),1,69) Line Location: GETAW+17
Function Call: WRITE	Prompt: !,"-DAY SURGERY (ASC)",$E(AGLINE("-"),1,62) Line Location: GETAW+23
Function Call: WRITE	Prompt: !,"-INPATIENT",$E(AGLINE("-"),1,70) Line Location: GETAW+24
Function Call: WRITE	Prompt: !,"-DENTAL",$E(AGLINE("-"),1,72) Line Location: GETAW+25
Function Call: WRITE	Prompt: !,"-MENTAL HEALTH",$E(AGLINE("-"),1,66) Line Location: GETAW+26
Function Call: WRITE	Prompt: !,"-DEDUCTIBLE",$E(AGLINE("-"),1,69) Line Location: GETAW+27
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+41
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+45
Routine Call	DIE Line Location: OPCOPAY+6 OPCOINS+6 ERCOPAY+6 DSCOPAY+6 DSCOINS+6 IPCOPAY+6 IPCOINS+6 DENCOINS+6 MHDED+6 DEDFAM+6 DEDIND+6 DEDOOP+6
Routine Call	DIR Line Location: VAR+1 VAR+8

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	HDR+2, HDR+3, HDR+21
^AUTNINS - [#9999999.18]	GETAW+10
^AUTTPIC - [#9999999.65]	GETAW+7, GETAW+11, GETAW+15, GETAW+16, LSTREC+1, LSTREC+3
^DD(	GETAW+40
^DIC(4 - [#4]	HDR+13
^DPT - [#2]	HDR+1

Name	Line Occurrences
@(	VAR+13, VAR+20
DRAW	VAR
END	VAR+12, VAR+14
GETAW	DRAW+2
HDR	DRAW+1
LSTREC	GETAW+5
VAR	VAR+14, VAR+16, VAR+18, VAR+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AG	END!, GETAW+19*, GETAW+23, GETAW+24, GETAW+25, GETAW+26, GETAW+27, GETAW+40
AG("AUPN"	HDR+3*
AG("C"	VAR+20, GETAW+18!, GETAW+39*, GETAW+44
AG("COVDT"	LSTREC+1*, LSTREC+2, LSTREC+3
AG("ED"	VAR+13
AG("EDIT"	HDR+24!
AG("ERR"	VAR+14
AG("N"	VAR+10, VAR+16, VAR+18, VAR+20, GETAW+44*
AG("PG"	EN+1, HDR+8, GETAW+47
AG("PLANEXP"	VAR+16, GETAW+16*
AG("SEL"	VAR+20*
>> AGCHRT	HDR+2*, HDR+19
>> AGELSTS	HDR+21*, HDR+22
AGI	VAR+20*, VAR+24!
AGINSPTR	EN~, GETAW+3*, GETAW+10, GETAW+12
AGINSREC	EN~, EN+2, GETAW+1, GETAW+2, GETAW+3
>> AGLINE("-"	HDR+4, HDR+14, GETAW+17, GETAW+23, GETAW+24, GETAW+25, GETAW+26, GETAW+27, GETAW+45
>> AGLINE("EQ"	VAR+3, HDR+5, HDR+15, HDR+16, HDR+23
>> AGLINE("PGLN"	HDR+6*
>> AGOPT("ESCAPE"	VAR+12
>> AGPAT	HDR+1*, HDR+17
AGSCRN	END!, GETAW+19, GETAW+21*, GETAW+22, GETAW+28, GETAW+29, GETAW+30, GETAW+31, GETAW+32, GETAW+33 , GETAW+34, GETAW+35, GETAW+36, GETAW+37, GETAW+38
>> AGSEENLY	VAR+1, VAR+2, HDR+11
>> AGSELECT	EN+2, VAR+22, GETAW+48
>> AGXTERN	VAR+13
AGY	VAR+19*, VAR+20, VAR+24!
>> CAPDENT	GETAW+32*, GETAW+40
>> CAPTION	GETAW+28*, GETAW+40
COVPTR	EN~, GETAW+2*, GETAW+4, GETAW+5, GETAW+7, GETAW+11, GETAW+15, GETAW+16, GETAW+42, OPCOPAY+3 , OPCOINS+3, ERCOPAY+3, DSCOPAY+3, DSCOINS+3, IPCOPAY+3, IPCOINS+3, DENCOINS+3, MHDED+3, DEDFAM+3, DEDIND+3 , DEDOOP+3, LSTREC~, LSTREC+1, LSTREC+3
COVREC	END!, GETAW+5, GETAW+6, GETAW+15, GETAW+20, GETAW+42, OPCOPAY+2, OPCOINS+2, ERCOPAY+2, DSCOPAY+2 , DSCOINS+2, IPCOPAY+2, IPCOINS+2, DENCOINS+2, MHDED+2, DEDFAM+2, DEDIND+2, DEDOOP+2, LSTREC~, LSTREC+3*
>> D0	GETAW+12, GETAW+13, GETAW+20, GETAW+41, GETAW+42, GETAW+43
DA	END!, OPCOPAY+1!, OPCOPAY+2, OPCOPAY+7!, OPCOINS+1!, OPCOINS+2, OPCOINS+7!, ERCOPAY+1!, ERCOPAY+2, ERCOPAY+7! , DSCOPAY+1!, DSCOPAY+2, DSCOPAY+7!, DSCOINS+1!, DSCOINS+2, DSCOINS+7!, IPCOPAY+1!, IPCOPAY+2, IPCOPAY+7!, IPCOINS+1! , IPCOINS+2, IPCOINS+7!, DENCOINS+1!, DENCOINS+2, DENCOINS+7!, MHDED+1!, MHDED+2, MHDED+7!, DEDFAM+1!, DEDFAM+2 , DEDFAM+7!, DEDIND+1!, DEDIND+2, DEDIND+7!, DEDOOP+1!, DEDOOP+2, DEDOOP+7!
DA(1	OPCOPAY+3, OPCOPAY+4, OPCOINS+3, OPCOINS+4, ERCOPAY+3, ERCOPAY+4, DSCOPAY+3, DSCOPAY+4, DSCOINS+3, DSCOINS+4 , IPCOPAY+3, IPCOPAY+4, IPCOINS+3, IPCOINS+4, DENCOINS+3, DENCOINS+4, MHDED+3, MHDED+4, DEDFAM+3, DEDFAM+4 , DEDIND+3, DEDIND+4, DEDOOP+3, DEDOOP+4
DD	OPCOPAY+1!, OPCOINS+1!, ERCOPAY+1!, DSCOPAY+1!, DSCOINS+1!, IPCOPAY+1!, IPCOINS+1!, DENCOINS+1!, MHDED+1!, DEDFAM+1! , DEDIND+1!, DEDOOP+1!
>> DFN	GETAW+48
>> DFOUT	VAR+15
DIC	END!, GETAW+12, GETAW+13, GETAW+29, GETAW+40, GETAW+41, OPCOPAY+1!, OPCOPAY+7!, OPCOINS+1!, OPCOINS+7! , ERCOPAY+1!, ERCOPAY+7!, DSCOPAY+1!, DSCOPAY+7!, DSCOINS+1!, DSCOINS+7!, IPCOPAY+1!, IPCOPAY+7!, IPCOINS+1!, IPCOINS+7! , DENCOINS+1!, DENCOINS+7!, MHDED+1!, MHDED+7!, DEDFAM+1!, DEDFAM+7!, DEDIND+1!, DEDIND+7!, DEDOOP+1!, DEDOOP+7!
DIE	OPCOPAY+1!, OPCOPAY+4, OPCOPAY+7!, OPCOINS+1!, OPCOINS+4, OPCOINS+7!, ERCOPAY+1!, ERCOPAY+4, ERCOPAY+7!, DSCOPAY+1! , DSCOPAY+4, DSCOPAY+7!, DSCOINS+1!, DSCOINS+4, DSCOINS+7!, IPCOPAY+1!, IPCOPAY+4, IPCOPAY+7!, IPCOINS+1!, IPCOINS+4* , IPCOINS+7!, DENCOINS+1!, DENCOINS+4, DENCOINS+7!, MHDED+1!, MHDED+4, MHDED+7!, DEDFAM+1!, DEDFAM+4, DEDFAM+7! , DEDIND+1!, DEDIND+4, DEDIND+7!, DEDOOP+1!, DEDOOP+4*, DEDOOP+7!
DIR	VAR+1!, VAR+5!, VAR+9!
DIR("A"	VAR+1, VAR+7, VAR+10*
DIR(0	VAR+1, VAR+6
>> DLOUT	VAR+14
DO	OPCOPAY+1!, OPCOINS+1!, ERCOPAY+1!, DSCOPAY+1!, DSCOINS+1!, IPCOPAY+1!, IPCOINS+1!, DENCOINS+1!, MHDED+1!, DEDFAM+1! , DEDIND+1!, DEDOOP+1!
>> DQOUT	VAR+18
DR	END!, GETAW+12, GETAW+13, GETAW+30, GETAW+40, GETAW+41, OPCOPAY+1!, OPCOPAY+5, OPCOPAY+7!, OPCOINS+1! , OPCOINS+5, OPCOINS+7!, ERCOPAY+1!, ERCOPAY+5, ERCOPAY+7!, DSCOPAY+1!, DSCOPAY+5, DSCOPAY+7!, DSCOINS+1!, DSCOINS+5* , DSCOINS+7!, IPCOPAY+1!, IPCOPAY+5, IPCOPAY+7!, IPCOINS+1!, IPCOINS+5, IPCOINS+7!, DENCOINS+1!, DENCOINS+5, DENCOINS+7! , MHDED+1!, MHDED+5, MHDED+7!, DEDFAM+1!, DEDFAM+5, DEDFAM+7!, DEDIND+1!, DEDIND+5, DEDIND+7!, DEDOOP+1! , DEDOOP+5*, DEDOOP+7!
DT	VAR+16
>> DTOUT	VAR+15
>> DUOUT	VAR+14
DUZ	HDR+10
DUZ(2	VAR+23, HDR+2, HDR+13, GETAW+48
>> EXECUTE	GETAW+35*, GETAW+43
ID0	EN~, VAR+23, HDR+1, HDR+2, HDR+3, HDR+18, HDR+21
ID1	EN~
>> ITEMNUM	GETAW+33*, GETAW+39
MYERRS	GETAW+46!, GETAW+47, GETAW+49
MYVARS	GETAW+46!, GETAW+49
MYVARS("DFN"	GETAW+48*
MYVARS("FINDCALL"	GETAW+48*
MYVARS("SELECTION"	GETAW+48*
MYVARS("SITE"	GETAW+48*
NEWENTRY	EN~
>> NEWLINE	GETAW+31*, GETAW+40
>> NOPVTB	VAR+4, GETAW+4, GETAW+8
POLHPTR	EN~, GETAW+1*
>> POSTEXEC	GETAW+38*
>> PRECAPEX	GETAW+37*
>> PREEXEC	GETAW+36*, GETAW+41, GETAW+42
ROUTID	END+1!, HDR+9*
>> TAGCALL	GETAW+34*, GETAW+39
U	HDR+1, HDR+2, HDR+13, HDR+21, GETAW+1, GETAW+2, GETAW+3, GETAW+7, GETAW+10, GETAW+11 , GETAW+15, GETAW+16, GETAW+28, GETAW+29, GETAW+30, GETAW+31, GETAW+32, GETAW+33, GETAW+34, GETAW+40
Y	VAR+12, VAR+14, VAR+16, VAR+18, VAR+19, GETAW+15!, GETAW+16!

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDPRVB

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	HDR+9
$T(@1+AG	GETAW+21