Routine: AGED7B

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

Name	Comments	DBIA/ICR reference
ERCOPAY	;ER CO-PAY
DRAW	;EP
EN	;
END
HDR	;
DSCOINS	;DAY SURGERY CO-INSURANCE
DENCOINS	;DENTAL CO-INSURANCE
DEDFAM	;DEDUCTIBLE FAMILY
OPCOINS	;OUTPATIENT CO-INSURANCE
OPCOPAY	;OUTPATIENT CO-PAYMENT
1	;
DEDIND	;DEDUCTIBLE INDIVIDUAL
GETAW	;DISPLAY
LSTREC(COVPTR,COVREC)	;FIND MOST RECENT RECORD
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+12, GETAW+14
UPDATE1^AGED	VAR+23
READ^AGED1	VAR+11
EDITCHEK^AGEDERR	GETAW+47
FETCHERR^AGEDERR	GETAW+45
$$FINDPVT^AGINSUPD	VAR+22
$$DTEST^AGUTILS	HDR+19
PROGVIEW^AGUTILS	HDR+11
VERIF^AGUTILS	GETAW+48
$$S^AGVDF	HDR+8
^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+9, GETAW+39
^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+8
Function Call: WRITE	Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR") Line Location: HDR+12
Function Call: WRITE	Prompt: ?31,"PRIVATE INSURANCE B" Line Location: HDR+13
Function Call: WRITE	Prompt: ?80-$L($P(^DIC(4,DUZ(2),0),U)),$P(^DIC(4,DUZ(2),0),U) Line Location: HDR+14
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+17
Function Call: WRITE	Prompt: !,$E(AGPAT,1,23) Line Location: HDR+18
Function Call: WRITE	Prompt: ?23,$$DTEST^AGUTILS(DFN) Line Location: HDR+19
Function Call: WRITE	Prompt: ?42,"HRN#:",AGCHRT Line Location: HDR+20
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+23
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+24
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+3
Function Call: WRITE	Prompt: ?50,"Network Provider : ",$$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+9
Function Call: WRITE	Prompt: ! Line Location: GETAW+10
Function Call: WRITE	Prompt: ?0,"EFF: ",Y Line Location: GETAW+12
Function Call: WRITE	Prompt: ?20,"EXP: ",Y Line Location: GETAW+14
Function Call: WRITE	Prompt: !!,"-OUTPATIENT",$E(AGLINE("-"),1,69) Line Location: GETAW+15
Function Call: WRITE	Prompt: !,"-DAY SURGERY (ASC)",$E(AGLINE("-"),1,62) Line Location: GETAW+21
Function Call: WRITE	Prompt: !,"-INPATIENT",$E(AGLINE("-"),1,70) Line Location: GETAW+22
Function Call: WRITE	Prompt: !,"-DENTAL",$E(AGLINE("-"),1,72) Line Location: GETAW+23
Function Call: WRITE	Prompt: !,"-MENTAL HEALTH",$E(AGLINE("-"),1,66) Line Location: GETAW+24
Function Call: WRITE	Prompt: !,"-DEDUCTIBLE",$E(AGLINE("-"),1,69) Line Location: GETAW+25
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+39
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+43
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+4, HDR+22
^AUTNINS - [#9999999.18]	GETAW+6
^AUTTPIC - [#9999999.65]	GETAW+7, GETAW+11, GETAW+12, GETAW+13, GETAW+14, LSTREC+1, LSTREC+3
^DD(	GETAW+38
^DIC(4 - [#4]	HDR+14
^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+4
VAR	VAR+14, VAR+16, VAR+18, VAR+25

Name	Field # of Occurrence
^(0	HDR+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AG	END!, GETAW+17*, GETAW+21, GETAW+22, GETAW+23, GETAW+24, GETAW+25, GETAW+38
AG("AUPN"	HDR+3, HDR+4
AG("C"	VAR+20, GETAW+16!, GETAW+37*, GETAW+42
AG("COVDT"	LSTREC+1*, LSTREC+2, LSTREC+3
AG("ED"	VAR+13
AG("EDIT"	HDR+26!
AG("ERR"	VAR+14
AG("N"	VAR+10, VAR+16, VAR+18, VAR+20, GETAW+42*
AG("PG"	HDR+9*, GETAW+45
AG("PLANEXP"	VAR+16, GETAW+14*
AG("SEL"	VAR+20*
>> AGCHRT	HDR+2*, HDR+20
>> AGELSTS	HDR+22*, HDR+23
AGI	VAR+20*, VAR+24!
>> AGINSREC	EN+2, GETAW+1, GETAW+2, GETAW+5
>> AGLINE("-"	HDR+5, HDR+15, GETAW+15, GETAW+21, GETAW+22, GETAW+23, GETAW+24, GETAW+25, GETAW+43
>> AGLINE("EQ"	VAR+3, HDR+6, HDR+16, HDR+17, HDR+24
>> AGLINE("PGLN"	HDR+7*
>> AGOPT("ESCAPE"	VAR+12
>> AGPAT	HDR+1*, HDR+18
AGSCRN	END!, GETAW+17, GETAW+19*, GETAW+20, GETAW+26, GETAW+27, GETAW+28, GETAW+29, GETAW+30, GETAW+31 , GETAW+32, GETAW+33, GETAW+34, GETAW+35, GETAW+36
>> AGSEENLY	VAR+1, VAR+2, END+4, HDR+12
>> AGSELECT	EN+2, VAR+22, GETAW+46
>> AGXTERN	VAR+13, END+2
AGY	VAR+19*, VAR+20, VAR+24!
>> CAPDENT	GETAW+30*, GETAW+38
>> CAPTION	GETAW+26*, GETAW+38
COVPTR	GETAW+2*, GETAW+3, GETAW+4, GETAW+7, GETAW+11, GETAW+12, GETAW+13, GETAW+14, GETAW+40, 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+4, GETAW+11, GETAW+12, GETAW+18, GETAW+40, 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+8, GETAW+9, GETAW+18, GETAW+39, GETAW+40, GETAW+41
DA	END!, HDR+25, 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	VAR+23, HDR+1, HDR+2, HDR+4, HDR+19, HDR+22, HDR+25, GETAW+46
>> DFOUT	VAR+15
DIC	END!, GETAW+8, GETAW+9, GETAW+27, GETAW+38, GETAW+39, 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
>> DIROUT	END+3
>> 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+8, GETAW+9, GETAW+28, GETAW+38, GETAW+39, 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, END+5
DUZ	HDR+11
DUZ(2	VAR+23, HDR+2, HDR+14, GETAW+46
>> EXECUTE	GETAW+33*, GETAW+41
INSPTR	EN+1~, GETAW+5*, GETAW+6, GETAW+8
>> ITEMNUM	GETAW+31*, GETAW+37
MYERRS	GETAW+44!, GETAW+45, GETAW+47
MYVARS	GETAW+44!, GETAW+47
MYVARS("DFN"	GETAW+46*
MYVARS("FINDCALL"	GETAW+46*
MYVARS("SELECTION"	GETAW+46*
MYVARS("SITE"	GETAW+46*
>> NEWLINE	GETAW+29*, GETAW+38
>> NOPVTB	VAR+4, GETAW+3*
POLHPTR	EN+1~, GETAW+1*
>> POSTEXEC	GETAW+36*
>> PRECAPEX	GETAW+35*
>> PREEXEC	GETAW+34*, GETAW+39, GETAW+40
ROUTID	END+1!, HDR+10*
>> TAGCALL	GETAW+32*, GETAW+37
U	HDR+1, HDR+2, HDR+14, HDR+22, GETAW+1, GETAW+2, GETAW+5, GETAW+6, GETAW+7, GETAW+11 , GETAW+12, GETAW+13, GETAW+14, GETAW+26, GETAW+27, GETAW+28, GETAW+29, GETAW+30, GETAW+31, GETAW+32 , GETAW+38
>> Y	VAR+12, VAR+14, VAR+16, VAR+18, VAR+19, GETAW+12, GETAW+14

Customize PDF page

Package: IHS Patient Registration

Routine: AGED7B

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	HDR+10
$T(@1+AG	GETAW+19