Routine: AGEDIT

Package	Total	Call Graph
IHS Patient Registration	7	PTLK^AG ^AGBADATA ^AGDATCK ^AGED1 ($$PATREFBC,EDITCHEK,FETCHERR)^AGEDERR $$DECEASED^AGEDERR2 $$AGE^AGUTILS
Immunization Tracking	1	AUTOADD^BIPATE
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
DATCK	;
EDCHEK	;EP
ELIG	;
CONT	;
PATLK	;EP -
L1	;
DFN	;Pre-determined patient (DFN) defined.
SSNCK	;
PATNLK	;PEP -- entry point for packages that already have patient name
CLASS	;
BICELIG	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"Patient's record is being used, Try again soon" Line Location: PATNLK+5
Function Call: WRITE	Prompt: !,"Patient's DPT record already in use! Try again later!" Line Location: PATNLK+6
Function Call: WRITE	Prompt: !!,*7,"There are patients on file with TEMPORARY CHART NUMBERS.",!! Line Location: PATNLK+12
Function Call: WRITE	Prompt: "Please print the list of these patients and supply the missing data.",!! Line Location: PATNLK+13
Function Call: WRITE	Prompt: !?5,"**** WARNING: SSN MISSING (" Line Location: SSNCK+2
Function Call: WRITE	Prompt: $S($P($G(^AUPNPAT(DFN,0)),U,24)=1:"Not Available",$P(^(0),U,24)=2:"Patient Refused",$P(^(0),U,24)=3:"Patient will Submit",1:"Reason for no SSN not yet entered") Line Location: SSNCK+3
Function Call: WRITE	Prompt: ") *****",!! Line Location: SSNCK+4
Function Call: WRITE	Prompt: !!,*7,"Patient has been designated ""INELIGIBLE"".",!! Line Location: ELIG+4
Function Call: WRITE	Prompt: !!,*7,"Patient has been designated:",! Line Location: BICELIG+2
Function Call: WRITE	Prompt: $P(^AUTTBICE($P(^AUPNPAT(DFN,11),U,24),0),U),!! Line Location: BICELIG+3
Function Call: WRITE	Prompt: "Patient is classified as: ",$P(^(0),U),!! Line Location: CLASS+1
Function Call: WRITE	Prompt: !!,"PATIENT HAS AN OPEN BENEFITS CASE" Line Location: EDCHEK+5
Function Call: WRITE	Prompt: ! Line Location: EDCHEK+6
Routine Call	DIR Line Location: CLASS+1 EDCHEK+10

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PATNLK+4, SSNCK+3, ELIG+3, BICELIG+1, BICELIG+3, CLASS+1, L1+4, L1+7, L1+9, L1+15
^AUPNPAT("D"	PATNLK+11, SSNCK+5
^AUTTBEN - [#9999999.25]	CLASS+1
^AUTTBICE - [#9999999.48]	BICELIG+3
^DPT - [#2]	SSNCK+1, L1+5, L1+6

Name	Field # of Occurrence
^(0	SSNCK+3, CLASS+1, L1+9
^(11	ELIG+3, BICELIG+1, CLASS+1, L1+4

Name	Field # of Occurrence
>> AG("AUPN"	L1+8, L1+9
>> AG("DTOT"	DATCK+2
>> AG("ELIG"	ELIG+1!, ELIG+5, BICELIG+4, CLASS+1, CLASS+2!
>> AG("PG"	PATLK+1, PATNLK+1, EDCHEK+2
>> AG("SVELIG"	L1+3, L1+4
>> AGCHRT	L1+7*
>> AGERR	PATNLK+8
>> AGLINE("-"	L1+10*
>> AGLINE("EQ"	L1+11*
>> AGOPT(14	ELIG+2, L1+2
>> AGPAT	L1+6*
>> AGPATDFN	PATNLK+3*, PATNLK+8
AGSELECT	L1+18!
>> AGXTERN	PATNLK+11, SSNCK+5, DATCK+2, L1+5, L1+12, L1+13
>> AUPNPAT	PATNLK+10*
DFN	PATNLK+2, PATNLK+3, PATNLK+4, PATNLK+10, SSNCK+1, SSNCK+3, DATCK+2!, ELIG+3, BICELIG+1, BICELIG+3 , CLASS+1, L1+1, L1+4, L1+5!, L1+6, L1+7, L1+9, L1+15, EDCHEK+3, EDCHEK+5
DFOUT	DATCK+2, L1+17!
DIR	CLASS+1!, EDCHEK+7!
DIR("A"	CLASS+1, EDCHEK+8
DIR(0	CLASS+1, EDCHEK+9
DTOUT	DATCK+2, L1+17!
DUOUT	DATCK+2, L1+17!
DUZ(2	PATNLK+8, L1+7, EDCHEK+3
MYERRS	EDCHEK+1!, EDCHEK+2, EDCHEK+4
MYVARS	EDCHEK+1!, EDCHEK+4
MYVARS("DFN"	EDCHEK+3*
MYVARS("FINDCALL"	EDCHEK+3*
MYVARS("SITE"	EDCHEK+3*
U	SSNCK+1, SSNCK+3, ELIG+3, BICELIG+1, BICELIG+3, CLASS+1, L1+4, L1+6, L1+7