Routine: AG0

Call Graph Total: 19

Package	Total	Call Graph
IHS Patient Registration	12	(PTLK,READ,YN)^AG ^AG2 C1^AGACT (,CALCELIG)^AGBIC2 ^AGBIC2P ^AGED1 (ETHNIC,NIH,RACE,THI)^AGED10B (ACK,NPP,RHI)^AGED11A (DFN,Z1)^AGKPAT CHART1^AGMAN $$AGE^AGUTILS ^AGVAR
VA Fileman	3	NOW^%DTC ^DIC ^DIR
IHS Patient	1	(RESET,SET)^AUPNLKZ
Immunization Tracking	1	AUTOADD^BIPATE
Kernel	1	EN^XQOR
Patient Registration MPI	1	(CREATMSG,NOTIF)^AGMPIHLO

Package

Total

Call Graph

(PTLK,READ,YN)^AG ^AG2 C1^AGACT (,CALCELIG)^AGBIC2 ^AGBIC2P ^AGED1 (ETHNIC,NIH,RACE,THI)^AGED10B (ACK,NPP,RHI)^AGED11A
(DFN,Z1)^AGKPAT CHART1^AGMAN $$AGE^AGUTILS ^AGVAR

VA Fileman

NOW^%DTC ^DIC ^DIR

IHS Patient

(RESET,SET)^AUPNLKZ

Immunization Tracking

AUTOADD^BIPATE

Kernel

EN^XQOR

Patient Registration MPI

(CREATMSG,NOTIF)^AGMPIHLO

Package	Total	Caller Graph
IHS Patient Registration	4	AG2 AGBIC2 AGBIC2P AGED13
Emergency Room	2	AMER AMERVSIT
Contract Health Management Information System	1	ACHSDA
Scheduling	1	SD IHS REGMENU

Package

Total

Caller Graph

IHS Patient Registration

AG2 AGBIC2 AGBIC2P AGED13

Emergency Room

AMER AMERVSIT

Contract Health Management Information System

ACHSDA

Scheduling

SD IHS REGMENU

Name	Comments	DBIA/ICR reference
END	;
R1	;
R2	;
K	;EP
ETHNIC	;ENTER ETHNICITY
DOG	;PEP - From Other Systems.
L11	;EP
RACE	; ENTER RACE, NUMBER IN HOUSEHOLD, TOTAL HOUSEHOLD INCOME
NPPLOOP	;
L0	;
L1	;EP
VAR	;
L0D	;
L0C	;
L0A	;

External References

Name	Field # of Occurrence
NOW^%DTC	L1+22
PTLK^AG	R2+5
READ^AG	L0C+1, L0C+2
YN^AG	L0C+3
^AG2	L1+27
C1^AGACT	L0C+3
^AGBIC2	L1+28
CALCELIG^AGBIC2	L0+14
^AGBIC2P	L1+29
^AGED1	L0+25
ETHNIC^AGED10B	ETHNIC+1
NIH^AGED10B	RACE+3
RACE^AGED10B	RACE+1
THI^AGED10B	RACE+4
ACK^AGED11A	NPPLOOP+2
NPP^AGED11A	NPPLOOP+1
RHI^AGED11A	NPPLOOP+3
DFN^AGKPAT	K+3
Z1^AGKPAT	K+2
CHART1^AGMAN	L0A+10
CREATMSG^AGMPIHLO	RACE+18
NOTIF^AGMPIHLO	RACE+20
$$AGE^AGUTILS	RACE+26
^AGVAR	DOG+1
RESET^AUPNLKZ	R2+7, L1+13
SET^AUPNLKZ	R2+4, L1+11
AUTOADD^BIPATE	RACE+26
^DIC	L1+12
^DIR	L0+11, L0+21, L0A+6
EN^XQOR	RACE+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You must first SCAN FOR SIMILAR NAMES or CHART NUMBERS NOW..." Line Location: R2+1
Function Call: WRITE	Prompt: !!,"This patient is already registered at this facility!" Line Location: L0+7
Function Call: WRITE	Prompt: !,"This patient's eligibility is ",$P(AG("NARR1"),":",2) Line Location: L0+15
Function Call: WRITE	Prompt: !!,"This patient is already registered at this facility but is inactive!" Line Location: L0C+1
Function Call: WRITE	Prompt: !,"Refer to Medical Records for Reactivation" Line Location: L0C+1
Function Call: WRITE	Prompt: !!,"""",$P(^DPT(DFN,0),U),""" is filed as """,$S($P(^AUPNPAT(DFN,41,DUZ(2),0),U,5)="D":"DELETED",1:"INACTIVE"),""".",!!,"Do you wish to RE-ACTIVATE this patient's file? (Y/N) NO// " Line Location: L0C+2
Function Call: WRITE	Prompt: !,"Enter the NEW PATIENT'S FULL NAME....." Line Location: L1+1
Function Call: WRITE	Prompt: !," (EXAMPLE: MORGAN,JAMES PAUL,JR (no space after commas))" Line Location: L1+2
Function Call: WRITE	Prompt: !!,"Entering NEW Patient for ",$P(^DIC(4,DUZ(2),0),U),!! Line Location: L1+3
Function Call: WRITE	Prompt: !! Line Location: L1+5
Function Call: WRITE	Prompt: !,"Patient's record already in use! Try again later!" Line Location: L1+20
Function Call: WRITE	Prompt: !,"Patient's record already in use! Try again later!" Line Location: L1+21
Function Call: WRITE	Prompt: !!!,"This concludes the NEW PATIENT ENTRY PROCESS for this patient." Line Location: RACE+8
Function Call: WRITE	Prompt: !!,*7,"The '",$P(^DPT(DFN,0),U),"' file is deleted." Line Location: K+1
Routine Call	DIC Line Location: L1+12
Routine Call	DIR Line Location: L0+11 L0+21 L0A+6

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	RACE+17
^AGPATCH(	L1+24*
^AUPNPAT - [#9000001]	L0+4, L0+5, L0+13, L0C+2, L1+20, L1+25*, RACE+6
^DIC(4 - [#4]	L0A+4, L1+3
^DPT - [#2]	L0+19, L0A+4, L0C+2, L1+4, L11+1, K+1
^XTMP("AGHL7"	RACE+29*
^XTMP("AGHL7AG"	RACE+30*

Name	Line Occurrences
END	L0+23, L0A+9, L0C+3, L1+15, K+4
K	END+1
L0	R1+1, L0+26
L0A	L0+4, L0A+13
L0C	L0+5, L0C+3
L0D	L0+24
L1	L0+2, L1+16
R2	L0A+8
VAR	L0+6, L0+22, L0A+12, L0C+1, L0C+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	L1+23
AG	VAR+2!, L0+1!, END+2!
AG("EDIT"	L0C+3*, L0D+1!, L1+26!, END+1
AG("NARR1"	L0+15
AG("NEWREG"	L0A+7*
AG("NPPADD"	L11+2*
AGDOG	AG0+3!, DOG+2*, VAR+1, L0+6, L0C+1
AGDTS	L1+23*, L1+24, END+2!
>> AGERR	RACE+26
>> AGOPT(14	L0+13, L1+27, L1+28, L1+29
>> AGOPT(22	RACE+2
>> AGPAT	L11+1*
>> AGPATDFN	R2+6, L0+3, L1+18*, RACE+26
>> AGPTPG	L0A+11*
AGT	END+2!
DFN	VAR+2!, R1+1, R2+6, L0+2, L0+3, L0+4, L0+5, L0+13, L0+19, L0A+4 , L0C+2, L0D+1!, L1+4, L1+17*, L1+18, L1+20, L1+24, L1+25, L11+1, RACE+6 , RACE+18, RACE+20, RACE+21, RACE+29, RACE+30, K+1
>> DFOUT	L0C+3
DIADD	L1+9*, L1+14!
DIC	R2+2!, L1+7, L1+14!, RACE+16~, RACE+21
DIC("A"	L1+6*
DIC("W"	R2+3*
DIC(0	L1+8*
DIR	L0+8!, L0+12!, L0+16!, L0A+1!
DIR("A"	L0+19, L0A+4
DIR("B"	L0+18, L0A+3
DIR("T"	L0+10, L0+20, L0A+5*
DIR(0	L0+9, L0+17, L0A+2*
DLAYGO	L1+10*, L1+14!
>> DLOUT	L0C+3
DOG	AG0+3!, DOG+2
DTIME	L0+10, L0+20, L0A+5
>> DTOUT	L0+23, L0A+9, L0C+3, L1+15
>> DUOUT	L0C+3, L1+15
DUZ	L1+25
DUZ(2	L0+4, L0+5, L0A+4, L0C+2, L1+3, L1+24, RACE+26, RACE+29, RACE+30
INDA	RACE+16~, RACE+21*
IOF	VAR+1
SUCCESS	RACE+16~, RACE+18, RACE+20
U	L0+5, L0+13, L0+19, L0A+4, L0C+2, L1+3, L1+4, L1+25, L11+1, K+1
X	L1+15, RACE+16~, RACE+17, RACE+21
>> Y	L0+22, L0+23, L0+24, L0+25, L0A+8, L0A+9, L0A+10, L0A+12, L0C+3, L1+16 , L1+17

Customize PDF page

Package: IHS Patient Registration

Routine: AG0

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: