Routine: AGED11A

Package	Total	Call Graph
IHS Patient Registration	10	CHKRHI^AG (,UPDATE1)^AGED READ^AGED1 ^AGED10A ^AGED11 (ADDRHI,EDITRHI,FINDRHI,RHICHK)^AGED11B (EDITCHEK,FETCHERR)^AGEDERR ($$RQAOB,$$RQROI)^AGEDERR4 LDOC^AGLDOC VERIF^AGUTILS
VA Fileman	7	NOW^%DTC (,LIST)^DIC FILE^DICN ^DIE $$FMTE^DILIBF EN^DIQ1 ^DIR

Package	Total	Caller Graph
IHS Patient Registration	3	AG0 AGED10A AGED11

Entry Points

Name	Comments	DBIA/ICR reference
ACK	;EP - ACKNOWLEDGEMENT AND REASON
LDOC	;ASK ADD OR EDIT LEGAL DOCS ENTRY
DC
CHSTAT	;STATUS OF MEDICAL RECORD
EMOD	;LOOKUP FOR ELIGIBILITY MODIFIER FIELD
ADDMOD	;ADD A NEW MODIFIER TO AUPNPAT FIELD 3401
ROI	;RELEASE OF INFORMATION
AOB	;ASSIGNMENT OF BENEFITS
ADVDIRED	;ADD/EDIT AN ADVANCE DIRECTIVE
1	;
DRAW	;EP
EDADVDIR	;EDIT EXISTING ADVANCE DIRECTIVE
C	;EP - Edit multiple fields on a Reg edit page.
ADADVDIR	;ADD ADVANCE DIRECTIVE
END
CC	;S AG("C")="EMOD,CHSTAT,PRIVA,LDOC,ADVDIRED,ROI,AOB,NPP,ACK,RHI"
CHKMOD	;CHECK MOD FOR "MOVED OUT OF CHSDA" OR "DOUBTFUL CASES" TO
PRIVA	;PRIVACY ACT
VAR
MD	;
MCRMSG	;IMPORTANT MESSAGE FORM MEDICARE DATE
NPPCHK	;LOOK FOR EXISTANCE OF AUPNNPP RECORD
RHI	;EP - RESTRICTED HEALTH INFORMATION
EDITMOD	;
NPP	;EP - WAS NPP RECEIVED
ADVDIR(DAX)	;DISP ADVANCE DIRECTIVE

External References

Name	Field # of Occurrence
NOW^%DTC	NPP+12
CHKRHI^AG	DRAW+1
^AGED	DRAW+4
UPDATE1^AGED	C+2
READ^AGED1	VAR+9
^AGED10A	END+5
^AGED11	VAR+13
ADDRHI^AGED11B	RHI+3
EDITRHI^AGED11B	RHI+2
FINDRHI^AGED11B	DRAW+83
RHICHK^AGED11B	RHI+1
EDITCHEK^AGEDERR	DRAW+89
FETCHERR^AGEDERR	DRAW+87
$$RQAOB^AGEDERR4	AOB+10, AOB+21
$$RQROI^AGEDERR4	ROI+9
LDOC^AGLDOC	LDOC+1
VERIF^AGUTILS	DRAW+91
^DIC	ADDMOD+7, EDITMOD+5, AOB+6, AOB+37, NPP+7, ADADVDIR+6
LIST^DIC	ADVDIR+3
FILE^DICN	ADDMOD+21
^DIE	EDITMOD+10, MD+5, DC+4, CHSTAT+6, PRIVA+5, MCRMSG+8, ROI+6, AOB+17, NPP+14, ACK+8 , ACK+12, ACK+15, EDADVDIR+8
$$FMTE^DILIBF	AOB+5
EN^DIQ1	DRAW+26, DRAW+53
^DIR	EMOD+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!" Line Location: VAR+10
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: VAR+14
Function Call: WRITE	Prompt: !! Line Location: VAR+15
Function Call: WRITE	Prompt: !,"THIS PATIENT HAS NO MEDICARE COVERAGE" Line Location: MCRMSG+1
Function Call: WRITE	Prompt: "?? Required" Line Location: ROI+9
Function Call: WRITE	Prompt: "?? Required" Line Location: AOB+10
Function Call: WRITE	Prompt: !,"This is a mandatory HIPAA related field and must be answered." Line Location: NPP+15
Function Call: WRITE	Prompt: !,"Please answer question # 8 first." Line Location: ACK+3
Function Call: WRITE	Prompt: !,"This is another mandatory HIPAA related field and must be answered." Line Location: ACK+9
Function Call: WRITE	Prompt: ADVDIR("DILIST","ID",ADVLAST,.02) Line Location: ADVDIR+7
Function Call: WRITE	Prompt: ?40,"DATE: ",ADVDIR("DILIST",1,ADVLAST) Line Location: ADVDIR+8
Function Call: WRITE	Prompt: !?3,"REASON: ",ADVDIR("DILIST","ID",ADVLAST,.04) Line Location: ADVDIR+9
Function Call: WRITE	Prompt: !?3,"TYPE:",ADVDIR("DILIST","ID",ADVLAST,.03) Line Location: ADVDIR+10
Function Call: WRITE	Prompt: @AGNEWLN,AG,".",?$P(AGSCRN,U,2),$P(AGSCRN,U)," : " Line Location: DRAW+11
Function Call: WRITE	Prompt: ?$P(AGSCRN,U,2),AG,".",$P(AGSCRN,U)," : " Line Location: DRAW+12
Function Call: WRITE	Prompt: $E(AG("AOB"),4,5)_"/"_$E(AG("AOB"),6,7)_"/"_($E(AG("AOB"),1,3)+1700) Line Location: DRAW+23
Function Call: WRITE	Prompt: $G(AGRES(DIC,DA,DR,"E")) Line Location: DRAW+28
Function Call: WRITE	Prompt: !,AG,".",?2,"REASON FOR "_$S(AGELSTS="C":"CHS & DIRECT",AGELSTS="I":"INELIGIBLE",AGELSTS="D":"DIRECT ONLY",AGELSTS="P":"PENDING",1:"NONE")_" : " Line Location: DRAW+31
Function Call: WRITE	Prompt: ?29,$E(MOD,1,45) Line Location: DRAW+41
Function Call: WRITE	Prompt: ?51,"DATE MOVED : ",Y Line Location: DRAW+42
Function Call: WRITE	Prompt: ?63,"# VISITS : ",NUMCASES Line Location: DRAW+43
Function Call: WRITE	Prompt: ! Line Location: DRAW+45
Function Call: WRITE	Prompt: $G(AGRES(9000001.41,DA,DR,"E")) Line Location: DRAW+55
Function Call: WRITE	Prompt: DOC Line Location: DRAW+64
Function Call: WRITE	Prompt: $E(AG("ROI"),4,5)_"/"_$E(AG("ROI"),6,7)_"/"_($E(AG("ROI"),1,3)+1700) Line Location: DRAW+70
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: DRAW+71
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: DRAW+72
Function Call: WRITE	Prompt: ?63,"DATE:",Y Line Location: DRAW+78
Function Call: WRITE	Prompt: !,?5,"REASON: ",$P($G(^AUPNNPP(DFN,0)),U,5) Line Location: DRAW+81
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: DRAW+85
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: DRAW+90
Routine Call	DIC Line Location: ADVDIR+3
Routine Call	DIE Line Location: EDITMOD+10 MD+5 DC+4 CHSTAT+6 PRIVA+5 MCRMSG+8 ROI+6 AOB+17 NPP+14 ACK+8 ACK+12 ACK+15 EDADVDIR+8
Routine Call	DIC Line Location: ADDMOD+7 EDITMOD+5 AOB+6 AOB+37 NPP+7 ADADVDIR+6
Routine Call	DIR Line Location: EMOD+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNMCR - [#9000003]	Classic Fileman Calls
^AUPNELM - [#9000030]	Classic Fileman Calls
^AUPNNPP - [#9000038]	Classic Fileman Calls
^AUPNADVD - [#9000040]	Classic Fileman Calls
9000040.11	LIST^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNELM - [#9000030]	EDITMOD+12, DRAW+34, DRAW+63
^AUPNMCR - [#9000003]	MCRMSG+1, MCRMSG+2
^AUPNNPP - [#9000038]	NPP+15, ACK+9, ACK+10, ACK+13, DRAW+74, DRAW+75, DRAW+80, DRAW+81
^AUPNNPP("B"	NPPCHK+2
^AUPNPAT - [#9000001]	EMOD+4, EMOD+10, MD+1, MD+6, MD+8!, DC, DC+5, DC+7*, ROI+9, AOB+5 , AOB+10, AOB+21, AOB+28, AOB+31, DRAW+22, DRAW+33, DRAW+36, DRAW+40, DRAW+45, DRAW+69
^AUPNPLDC - [#9000034]	DRAW+61
^AUPNPLDC("C"	DRAW+60
^DD(9000001	ADDMOD+19
^UTILITY("DIQ1"	DRAW+5!

Label References

Name	Line Occurrences
@(	VAR+13, C+1
ACK	ACK+9
ADADVDIR	ADVDIRED+2
ADDMOD	EMOD+9
ADVDIR	DRAW+66
AOB	AOB+10, AOB+21
CHKMOD	ADDMOD+23, EDITMOD+13
DC	DC+5
DRAW	VAR, ACK+3
EDADVDIR	ADVDIRED+1, ADADVDIR+8
EDITMOD	EMOD+10
EMOD	EMOD+8
END	VAR+13
MD	MD+6
NPP	NPP+15
NPPCHK	ACK+1
ROI	ROI+9
VAR	VAR+10, VAR+13, VAR+14, C+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NPP+12
ADVDIR	ADVDIR+12!
ADVDIR("DILIST"	ADVDIR+5, ADVDIR+6, ADVDIR+7, ADVDIR+8, ADVDIR+9, ADVDIR+10, ADVDIR+11
ADVDIRER	ADVDIR+4!
>> ADVLAST	ADVDIR+6*, ADVDIR+7, ADVDIR+8, ADVDIR+9, ADVDIR+10, ADVDIR+11
AG	END!, DRAW+6*, DRAW+10, DRAW+11, DRAW+12, DRAW+14, DRAW+21, DRAW+30, DRAW+31, DRAW+46 , DRAW+50, DRAW+58, DRAW+66, DRAW+68, DRAW+72, DRAW+74, DRAW+80, DRAW+83, DRAW+84
AG("ADVDIR"	ADVDIR+1!, ADVDIR+11*, ADVDIRED+1
AG("AOB"	DRAW+22*, DRAW+23
AG("C"	CC+1*, C+1
AG("ED"	VAR+13
AG("ERR"	VAR+13
AG("N"	VAR+8, VAR+14, C+1, DRAW+84*
AG("NPPADD"	ACK+2
AG("NPPCHK"	ACK+2, ACK+3, ACK+16!, NPPCHK+1!, NPPCHK+2*
AG("PG"	DRAW+2*, DRAW+87
AG("RHICHK"	RHI+2, RHI+3
AG("ROI"	DRAW+69*, DRAW+70
AG("SEL"	C+1*
AG("STAMP"	NPP+2!, NPP+12*
AGAOB	AOB+25~
>> AGELSTS	DRAW+31
AGI	C+1*, C+2!
>> AGLINE("-"	DRAW+72, DRAW+90
>> AGLINE("EQ"	DRAW+85
>> AGNEWLN	DRAW+9*, DRAW+11
>> AGOPT("ESCAPE"	VAR+10, VAR+11
>> AGOPT(25	AOB+24
AGRES	DRAW+24!, DRAW+29!, DRAW+51!, DRAW+56!
AGRES(	DRAW+28, DRAW+55
AGSCRN	END!, DRAW+6, DRAW+7*, DRAW+8, DRAW+9, DRAW+11, DRAW+12, DRAW+16, DRAW+17
>> AGSEENLY	VAR+1, END+4
>> AGXTERN	VAR+13, END+2
AGY	C+1*, C+2!
AOB	AOB+25~, AOB+31*, AOB+36
CNT	END!, DRAW+32, DRAW+44, DRAW+45
>> D1	DRAW+32, DRAW+33, DRAW+34, DRAW+59, DRAW+60, DRAW+61
DA	END!, EMOD+1~, ADDMOD+11~, EDITMOD+8, MD+3, DC+2, CHSTAT+1~, CHSTAT+3, PRIVA+1~, PRIVA+4* , MCRMSG+3~, MCRMSG+7, ROI+1~, ROI+5, AOB+15, AOB+25~, NPP+1~, NPP+10!, NPP+11, NPP+15 , ACK+4~, ACK+6, ACK+9, ADADVDIR+1~, EDADVDIR+1~, EDADVDIR+2, DRAW+15, DRAW+28, DRAW+48, DRAW+55
DA(1	ADDMOD+16, ADDMOD+17, EDITMOD+3, EDITMOD+4, CHSTAT+2, CHSTAT+4, AOB+3, AOB+4, AOB+33, DRAW+47 , DRAW+49
DAX	ADVDIR~, ADVDIR+2*, ADVDIR+3
DD	ADDMOD+11~, ADDMOD+12!
DEF	AOB+1~, AOB+5*
>> DFN	C+2, EMOD+4, EMOD+10, ADDMOD+16, EDITMOD+3, MD+1, MD+3, MD+6, MD+8, DC , DC+2, DC+5, DC+7, CHSTAT+2, PRIVA+4, MCRMSG+1, MCRMSG+2, MCRMSG+7, ROI+5, ROI+9 , AOB+3, AOB+5, AOB+10, AOB+21, AOB+28, AOB+31, AOB+33, AOB+34, NPP+6, ACK+2 , ACK+3, ACK+6, ACK+10, ACK+13, NPPCHK+2, ADADVDIR+5, EDADVDIR+2, DRAW+15, DRAW+22, DRAW+33 , DRAW+36, DRAW+40, DRAW+45, DRAW+47, DRAW+60, DRAW+66, DRAW+69, DRAW+74, DRAW+75, DRAW+80 , DRAW+81, DRAW+88
DFOUT	VAR+12, END!
DIC	END!, EMOD+1~, ADDMOD+2~, ADDMOD+3, ADDMOD+11~, ADDMOD+17, EDITMOD+4, EDITMOD+7, CHSTAT+1~, PRIVA+1~ , MCRMSG+3~, ROI+1~, AOB+4, AOB+14, AOB+25~, AOB+34, NPP+1~, NPP+3, NPP+9, NPP+10! , ACK+4~, ADADVDIR+1~, ADADVDIR+2, EDADVDIR+1~, EDADVDIR+3, DRAW+16, DRAW+18, DRAW+25, DRAW+27, DRAW+28 , DRAW+49, DRAW+52, DRAW+54
DIC("A"	ADDMOD+5*
DIC("B"	AOB+5*
DIC("P"	ADDMOD+19*
DIC("S"	ADDMOD+6*
DIC(0	ADDMOD+4, ADDMOD+18, EDITMOD+2, AOB+2, AOB+35, NPP+4, ADADVDIR+3*
DIE	END!, EDITMOD+1~, EDITMOD+7, MD+2, DC+1, CHSTAT+1~, CHSTAT+4, PRIVA+1~, PRIVA+2, MCRMSG+3~ , MCRMSG+4, ROI+1~, ROI+2, AOB+1~, AOB+14, NPP+1~, NPP+9, ACK+4~, ACK+5, ADADVDIR+1~ , EDADVDIR+1~, EDADVDIR+3*
DINUM	ADDMOD+15*, ADDMOD+22!
>> DIQ	DRAW+26, DRAW+53
>> DIQ(0	DRAW+26, DRAW+53
DIR	VAR+2!, EMOD+1~, ADDMOD+1~, EDITMOD+1~, AOB+1~
DIR("?"	VAR+3, VAR+4, VAR+5, VAR+6, VAR+7*
DIR("A"	VAR+8, EMOD+4, EMOD+5*
DIR(0	EMOD+3*
>> DIROUT	END+3
DLAYGO	ADDMOD+11~, ADDMOD+20, NPP+1~, NPP+5, ADADVDIR+4*
>> DLOUT	VAR+13
DO	ADDMOD+11~, ADDMOD+12!
DOC	DRAW+59!, DRAW+63*, DRAW+64
DOCPTR	DRAW+59!, DRAW+62*, DRAW+63
DOCSTR	DRAW+59!, DRAW+61*, DRAW+62
DQOUT	VAR+14, END!
DR	END!, EDITMOD+1~, EDITMOD+9, MD+4, DC+3, CHSTAT+1~, CHSTAT+5, PRIVA+1~, PRIVA+3, MCRMSG+3~ , MCRMSG+5, ROI+1~, ROI+3, AOB+1~, AOB+16, NPP+1~, NPP+10!, NPP+13, ACK+4~, ACK+7 , ACK+11, ACK+14, ADADVDIR+1~, EDADVDIR+1~, EDADVDIR+4, DRAW+17, DRAW+18, DRAW+28, DRAW+50*, DRAW+55
DR(1	MCRMSG+6, ROI+4
DR(2	MCRMSG+6, ROI+4, EDADVDIR+7*
DTOUT	VAR+12, END!, EMOD+2!, EMOD+7, ADDMOD+8, EDITMOD+6, AOB+7, NPP+8
DUOUT	VAR+13, EMOD+2!, ADDMOD+8, EDITMOD+6, AOB+7, NPP+8
DUZ(2	C+2, CHSTAT+3, ROI+9, AOB+10, AOB+21, DRAW+48, DRAW+88
ELIG	ADDMOD+2~, ADDMOD+10, ADDMOD+13, ADDMOD+15, EDITMOD+12
ERROR	AOB+25~
MOD	END!, DRAW+32, DRAW+34, DRAW+35, DRAW+39, DRAW+41, DRAW+42, DRAW+43
MOVDT	END!, DRAW+32, DRAW+36, DRAW+37, DRAW+38
MYERRS	DRAW+86!, DRAW+87, DRAW+89
MYERRS("C"	VAR+10
MYVARS	DRAW+86!, DRAW+89
MYVARS("DFN"	DRAW+88*
MYVARS("FINDCALL"	DRAW+88*
MYVARS("SITE"	DRAW+88*
>> NPPDT	DRAW+75*, DRAW+76, DRAW+77
NUMCASES	END!, DRAW+32, DRAW+40, DRAW+43
REC	ADDMOD+14, EDITMOD+1~, EDITMOD+5, EDITMOD+8, EDITMOD+12, MD+1, DC, AOB+1~, AOB+6*, AOB+15
ROI	AOB+25~, AOB+28*
ROUTID	END+1!, DRAW+3*
TEMPDIC	DRAW+25, DRAW+27, DRAW+29!, DRAW+52, DRAW+54, DRAW+56!
U	ADDMOD+13, ADDMOD+19, EDITMOD+12, MD+6, DC+5, DC+7, NPP+15, ACK+9, ACK+10, ACK+13 , ADVDIR+5, ADVDIR+6, DRAW+9, DRAW+11, DRAW+12, DRAW+16, DRAW+17, DRAW+34, DRAW+36, DRAW+40 , DRAW+45, DRAW+62, DRAW+63, DRAW+75, DRAW+80, DRAW+81
X	EMOD+1~, ADDMOD+1~, ADDMOD+2~, ADDMOD+11~, ADDMOD+13, ADDMOD+14, EDITMOD+1~, AOB+1~, AOB+25~, AOB+36 , NPP+6, NPP+10!, ADADVDIR+5
Y	VAR+10, VAR+11, VAR+13, VAR+14, C+1, END!, EMOD+1~, EMOD+7, EMOD+8, EMOD+9 , EMOD+10, ADDMOD+1~, ADDMOD+2~, ADDMOD+9, ADDMOD+10, ADDMOD+11~, EDITMOD+1~, EDITMOD+5, EDITMOD+6, EDITMOD+11 , ROI+9, AOB+1~, AOB+6, AOB+12, AOB+18, AOB+25~, NPP+8, NPP+11, ADADVDIR+7, DRAW+37* , DRAW+38, DRAW+42, DRAW+77, DRAW+78

Customize PDF page

Package: IHS Patient Registration

Routine: AGED11A

Information

Source Information

Call Graph

Call Graph Total: 17

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+3
$T(@1+AG	DRAW+7