Routine: EASPFSS

Package	Total	Call Graph
Health Level Seven	3	GENACK^HLMA1 $$GET^HLOPRS ($$NEXTSEG,$$STARTMSG)^HLPRS
Enrollment Application System	1	$$COPAY^EASECCAL
Master Patient Index VistA	1	($$GETDFN,GETDFN)^MPIF001
VA FileMan	1	FILE^DICN
VDEF	1	$$QUEUE^VDEFQM

Entry Points

Name	Comments	DBIA/ICR reference
MSG	; receives HL7 message from COTS product	ICR #4479 Status: Active Usage: Private
MSGQ	;
FILE(DFN,EASDT,EASLOS,EASDAT)	; creates a new entry in 714.5 and returns ien
PATIENT(EASICN,EASDFN,EASSSN,EASVACLM,EASALIAS)	; this function will receive ; several patient data elements and validate them. Assuming the data ; meets expected requirements, the function will return the patient's ; DFN. The requirement is ICN is a must, the patient must also match ; at least 2 other data elements.
PATQ	;
DFN(EASICN)	; returns dfn for icn ia #2701
HL7DATA	; hl7 data mapping ; format: description ; EAS Variable ^ segment ^ seq ^ comp ^ subcomp ^ ; extract code

FileNo	Call Tags
^EASPFS(714.5 - [#714.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PATIENT+10, PATIENT+11, PATIENT+12

Name	Field # of Occurrence
DFN	MSG+15, MSG+21, FILE~, FILE+3, PATIENT+6~, PATIENT+8, PATIENT+9, PATIENT+10, PATIENT+11, PATIENT+12 , PATIENT+13, PATQ+1, DFN+1~, DFN+2, DFN+3
DIC	FILE+2~, FILE+3*
DIC("DR"	FILE+4, FILE+5
DIC(0	FILE+3*
DO	FILE+2~
EASALIAS	MSG+1~, MSG+15, PATIENT~, PATIENT+12
EASCODE	MSG+1~, MSG+11*, MSG+12
EASD	MSG+1~, MSG+8*, MSG+9, MSG+10, MSG+11, MSG+12
EASDAT	FILE~, FILE+5
EASDFN	MSG+1~, MSG+15, PATIENT~, PATIENT+9
EASDT	MSG+1~, MSG+21, FILE~
EASHEAD	MSG+1~, MSG+4
EASICN	MSG+1~, MSG+15, PATIENT~, PATIENT+8, DFN~, DFN+2
EASLOS	MSG+1~, MSG+21, FILE~
EASMATCH	PATIENT+6~, PATIENT+7, PATIENT+9, PATIENT+10, PATIENT+11, PATIENT+12*, PATIENT+13
EASMSG	MSG+1~, MSG+4, MSG+7
EASRESLT	MSG+1~, MSGQ+2
EASSSN	MSG+1~, MSG+15, PATIENT~, PATIENT+10
EASSTAT	MSG+1~, MSG+4*, MSG+5
EAST	MSG+1~, MSG+8*
EASVACLM	MSG+1~, MSG+15, PATIENT~, PATIENT+11
EASX	MSG+1~, MSG+21, MSG+23, PATIENT+6~, PATIENT+7, PATIENT+12
>> HL("EID"	MSGQ+2
>> HL("EIDS"	MSGQ+2
>> HL("FS"	MSGQ+1
>> HL("MID"	MSGQ+1
>> HLA("HLA"	MSGQ+1*
>> HLERR	MSG+5, MSG+15, MSG+21, MSG+23, MSGQ+1
>> HLMTIENS	MSG+4, MSGQ+2
SEG	MSG+1~, MSG+7, MSG+10
SEG("SEGMENT	TYPE" , MSG+9
X	MSG+12, FILE+2~, FILE+3
Y	FILE+2~, FILE+7

Name	Field # of Occurrence
$T(GETDFN^MPIF001	DFN+2
$T(HL7DATA+EAST	MSG+8