Routine: AGMAN

Package	Total	Call Graph
IHS Patient Registration	3	(PTLK,READ,YN)^AG ^AG1 ADDNAM^AGNAMCHG
VA Fileman	3	^%DT NOW^%DTC ^DIE
IHS Patient	1	NAME^AUPNPED

Package

Total

Call Graph

IHS Patient Registration

(PTLK,READ,YN)^AG ^AG1 ADDNAM^AGNAMCHG

VA Fileman

^%DT NOW^%DTC ^DIE

IHS Patient

NAME^AUPNPED

Package	Total	Caller Graph
IHS Patient Registration	10	AG0 AGALPHA AGALPHA1 AGCHART AGDELPAT AGDOB AGKPAT AGNAMOPT AGRPTVET AGSCANP

Package

Total

Caller Graph

IHS Patient Registration

AG0 AGALPHA AGALPHA1 AGCHART AGDELPAT AGDOB AGKPAT AGNAMOPT
AGRPTVET AGSCANP

Entry Points

Name	Comments	DBIA/ICR reference
ZMFI	;EP called from the various page edits to tag AGPATCH with PG number
DEADY	;EP - Is PATIENT DECEASED (IN FILEMANAGER).
DELCHK	;Check for delete instruction in ^AGPATCH.
END	;
NAME	;EP - From option.
INITL	;EP - PATIENT Initials -LAST NAME:FIRST NAME (ONLY).
CHART	;EP - From option.
DEAD	;EP - Determine If a Patient is DECEASED.
CHART1	;EP - From ^AG0 (Add Chart # to Patient)
NAMEASK	;
NAME1
DCHK1	;>PICK OLD HRN

Name	Field # of Occurrence
^%DT	ZMFI+1
NOW^%DTC	NAMEASK+9, CHART1+4
PTLK^AG	NAME+1, CHART+2
READ^AG	NAMEASK+1, NAME1
YN^AG	NAME1
^AG1	CHART1+1
ADDNAM^AGNAMCHG	NAMEASK+10
NAME^AUPNPED	NAMEASK+6
^DIE	NAMEASK+16, NAME1+1, NAME1+2, CHART1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the NEW NAME: " Line Location: NAMEASK+1
Function Call: WRITE	Prompt: !!,*7,"CANNOT DELETE PATIENTS THROUGH THIS ROUTINE." Line Location: NAMEASK+1
Function Call: WRITE	Prompt: !!,"INCORRECT NAME FORMAT." Line Location: NAMEASK+7
Routine Call	DIE Line Location: NAMEASK+16 NAME1+1 NAME1+2 CHART1+2

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	NAME1+2, CHART1+5, CHART1+6, CHART1+7, CHART1+8, ZMFI+2, ZMFI+3, ZMFI+4*, DCHK1+1
^AGTXST - [#9009063]	DELCHK+2, DELCHK+3, DELCHK+4
^AUPNPAT - [#9000001]	NAME1+2, CHART1+2
^AUTTSITE(1	ZMFI+2, DELCHK+1
^DPT - [#2]	NAMEASK+8, NAMEASK+16, CHART1+8, DEAD+1, DEADY+1, INITL+1
^XTMP("AGHL7"	NAMEASK+18*
^XTMP("AGHL7AG"	NAMEASK+19, CHART1+3

Name	Line Occurrences
DCHK1	DELCHK+2, DELCHK+3
DELCHK	CHART1+5
END	NAMEASK+16, NAME1+3, CHART1+1, CHART1+5, CHART1+6, CHART1+7
INITL	CHART1+5, CHART1+8
NAME	NAME1
NAME1	NAME1
NAMEASK	NAMEASK+7

Name	Field # of Occurrence
^(	CHART1+7, DEAD+1, DEADY+1, DCHK1+1!
^(0	INITL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NAMEASK+9, CHART1+4
>> AG("CH"	CHART1+6, CHART1+7, CHART1+8
>> AG("DEAD"	DEAD+1!, DEADY+1!
>> AG("EDIT"	CHART1+1*
>> AG("INITL"	CHART1+8, INITL+1!*
>> AG("NAMFAIL"	NAMEASK+11
>> AG("NEWNAME"	NAMEASK+2!, NAMEASK+5*, NAMEASK+7!, NAMEASK+15
>> AG("NEWREG"	CHART1+5
>> AG("OCH"	CHART1+5, CHART1+6, CHART1+7, CHART1+8, DCHK1+1
>> AG("OLDNAME"	NAMEASK+8*, NAMEASK+16, NAME1, NAME1+1
AGDTS	NAMEASK+9, NAME1+2, CHART1+4, CHART1+5, CHART1+6, CHART1+7, CHART1+8, ZMFI+1*, ZMFI+2, ZMFI+3 , ZMFI+4, ZMFI+5!
>> AGPTPG	ZMFI+2
>> AGTDS	ZMFI+1
AGTX	DCHK1+2!
AGTXSITE	DELCHK+1*, DELCHK+2, DELCHK+3, DELCHK+4, DCHK1+2!
AGZDTS	DELCHK+2, DELCHK+3, DELCHK+4, DCHK1+1, DCHK1+2!
DA	NAMEASK+12!, NAMEASK+14, NAMEASK+18, NAMEASK+19, NAME1+1, NAME1+2, CHART1+2
>> DFN	NAME+2, NAMEASK+8, NAMEASK+14, NAMEASK+16, NAME1+1, NAME1+2, CHART+3, CHART1+2, CHART1+3, CHART1+5 , CHART1+6, CHART1+7, CHART1+8, ZMFI+2, ZMFI+3, ZMFI+4, DEAD+1, INITL+1, DCHK1+1
>> DFOUT	NAMEASK+3, CHART1+1
DIC	NAMEASK+12!
DIE	NAMEASK+12!, NAMEASK+13, NAME1+1, NAME1+2, CHART1+2
>> DLOUT	NAMEASK+3, NAME1
DOG	CHART+1!
>> DQOUT	NAMEASK+3, NAME1
DR	NAMEASK+12!, NAMEASK+15, NAME1+1, NAME1+2, CHART1+2
DR(2	NAME1+1*
>> DTOUT	NAMEASK+3, CHART1+1
>> DUOUT	NAMEASK+3, NAME1, CHART1+1
DUZ	NAME1+2, CHART1+2
DUZ(2	NAMEASK+18, NAMEASK+19, NAME1+2, CHART1+3, CHART1+5, CHART1+6, CHART1+7, CHART1+8, ZMFI+2, ZMFI+3 , ZMFI+4, DCHK1+1
U	NAMEASK+8, NAMEASK+16, NAME1+2, CHART1+2, CHART1+7, CHART1+8, DEAD+1, DEADY+1, INITL+1, DELCHK+1 , DELCHK+3, DELCHK+4, DCHK1+1
X	NAMEASK+4, NAMEASK+7, NAMEASK+12!, NAMEASK+16, ZMFI+1
Y	NAMEASK+1, NAMEASK+4, NAMEASK+5, NAMEASK+12!, NAME1, NAME1+1, ZMFI+1, DEADY+1

Customize PDF page

Package: IHS Patient Registration

Routine: AGMAN

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: