Routine: EASEZI

Information

EASEZI ;ALB/jap - Database Inquiry & Record Finder for 1010EZ Processing ;10/12/00 13:08

Package	Total	Call Graph
VA FileMan	5	^%DT ^DIE ^DIK EN^DIQ1 ^DIR
Enrollment Application System	2	RESET^EASEZI1 ($$DATA712,$$KEY711)^EASEZU1
Kernel	2	$$FMTE^XLFDT SETUP^XQALERT
Master Patient Index VistA	2	$$GETICN^MPIF001 MPIQ^MPIFAPI
Registration	2	$$FINDCUR^DGENA GETPAT^DGRPTU
List Manager	1	(FULL,PAUSE)^VALM1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Enrollment Application System	6	EASEZC2 EASEZF1 EASEZI1 EASEZPV2 EASEZPVD EASEZU3

Entry Points

Name	Comments	DBIA/ICR reference
DFN(EASAPP,EASDFN)	;match or add 1010EZ applicant to Patient file #2
I201(EASDFN,EASARRAY)	;retrieve ien(s) in subfile #2.01
I202(EASDFN,EASARRAY)	;retrieve ien(s) in subfile #2.02
I206(EASDFN,EASARRAY)	;retrieve ien(s) in subfile #2.06
I2101(EASDFN,EASARRAY)	;retrieve ien to subfile #2.101
I2711(EASDFN,EASARRAY)	;retrieve ien to file #27.11
I408(EASDFN,EASAPP,EASARRAY)	;retrieve ien(s) to files #408.12,#408.13,#408.21,#408.22
I1275(IEN)	;get the active subrecord from subfile #408.1275

External References

Name	Field # of Occurrence
^%DT	I408+14
$$FINDCUR^DGENA	I2711+5
GETPAT^DGRPTU	DFN+42
^DIE	DFN+59
^DIK	I2101+21
EN^DIQ1	DFN+20, I408+19, I408+25
^DIR	DFN+45
RESET^EASEZI1	DFN+80
$$DATA712^EASEZU1	DFN+19
$$KEY711^EASEZU1	DFN+18
$$GETICN^MPIF001	I2101+12
MPIQ^MPIFAPI	DFN+68
FULL^VALM1	DFN+16
PAUSE^VALM1	DFN+78
$$FMTE^XLFDT	I408+14
SETUP^XQALERT	I2101+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DFN+16
Function Call: WRITE	Prompt: !,"Applicant Data",?24,"Application #: ",EASAPP,?48,"Received: ",RECD,! Line Location: DFN+26
Function Call: WRITE	Prompt: !,"Name: ",NAME Line Location: DFN+27
Function Call: WRITE	Prompt: !,"SSN: ",SSN,?24,"DOB: ",DOB,?48,"Sex: ",SEX Line Location: DFN+28
Function Call: WRITE	Prompt: !,"Veteran Type: ",VETTYPE Line Location: DFN+29
Function Call: WRITE	Prompt: !!,"Enter Applicant data as prompted --" Line Location: DFN+30
Function Call: WRITE	Prompt: !!?5,"If there are already one or more patients with the same name,",!?5,"re-enter the name in double quotes, for example, ""DOE,JOHN""." Line Location: DFN+50
Function Call: WRITE	Prompt: !!?3,"Sorry... cannot link to selected Patient." Line Location: DFN+75
Function Call: WRITE	Prompt: !?3,"Application #"_ALREADY_" is already linked to this Patient," Line Location: DFN+76
Function Call: WRITE	Prompt: !?3,"and is still in-process." Line Location: DFN+77
Function Call: WRITE	Prompt: !!,"No disposition for "_$P(^DPT(EASDFN,0),"^",1)_" ICN: "_EASICN Line Location: I2101+25
Function Call: WRITE	Prompt: !,"A blank 1010EZ may print. Please re-register the patient and reprint the 1010EZ." Line Location: I2101+26
Routine Call	DIE Line Location: DFN+59
Routine Call	DIR Line Location: DFN+45

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	DFN+65
^DGMT(408.21 - [#408.21]	I408+23
^DGMT(408.22 - [#408.22]	I408+29
^DGPR(408.12 - [#408.12]	I408+18, I1275+7, I1275+8
^DPT - [#2]	DFN+63, I201+6, I202+6, I206+6, I2101+7, I2101+9, I2101+15, I2101+25
^DPT("ADA"	I2101+22
^EAS(712 - [#712]	DFN+15, DFN+71, DFN+72, DFN+73, I408+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	I408+14*
>> %F	I408+14*
ACCEPT	DFN+11~
ACT	I1275+4~, I1275+8*, I1275+9
ALREADY	DFN+12~, DFN+71*, DFN+72, DFN+73, DFN+76
APPTVER	DFN+12~, DFN+17*
ARR	I2101+5~, I2101+20!, I2101+30
ARR(	I2101+9*, I2101+31
ARR(999999999	I2101+31
ARRAY	DFN+11~
ARRAY(712	DFN+21, DFN+22, DFN+23, DFN+24, DFN+25
B	I1275+4~, I1275+7*, I1275+8, I1275+9
CLSDATE	DFN+73*, DFN+74, DFN+78!
CUR	I2711+4~, I2711+5*, I2711+6
CURINCYR	I408+10~, I408+14*, I408+28
DA	DFN+12~, DFN+20, DFN+58, I2101+20!, I2101+21!, I408+10~, I408+19, I408+25*
DA(1	I2101+20!, I2101+21*
DEP	I408+10~, I408+17, I408+21
DFN	DFN+11~, DFN+42, DFN+43, DFN+44, DFN+48!, DFN+49, DFN+51, DFN+58, DFN+63, DFN+68 , DFN+71
DGNEWPF	DFN+11~, DFN+42, DFN+44, DFN+54
DGRPTOUT	DFN+11~
DIC	DFN+12~, DFN+20, I408+10~, I408+19, I408+25*
DIE	DFN+12~, DFN+58*
DIK	I2101+20!, I2101+21*!
DIQ	DFN+12~, DFN+20, I408+10~, I408+19, I408+25*
DIQ(0	DFN+20, I408+19, I408+25*
DIR	DFN+36~, DFN+41!
DIR("?"	DFN+38*
DIR("A"	DFN+39*
DIR("B"	DFN+40*
DIR(0	DFN+37*
DIRUT	DFN+36~, DFN+46
DOB	DFN+11~, DFN+23*, DFN+28
DR	DFN+12~, DFN+20, DFN+58, I408+10~, I408+19, I408+25
DT	I408+13
DUZ	I2101+13
EAS	I408+10~, I408+17!
EAS(	I408+20, I408+26
EASANS	DFN+35~, DFN+41, DFN+42, DFN+43, DFN+47
EASAPP	DFN~, DFN+13, DFN+15, DFN+19, DFN+20, DFN+21, DFN+22, DFN+23, DFN+24, DFN+25 , DFN+26, I408~, I408+13
EASARRAY	I201~, I202~, I206~, I2101~, I2711~, I408~
EASARRAY(	I201+6, I202+6, I206+6*
EASARRAY(1	I2101+29, I2101+32, I2711+6*
EASARRAY(408	I408+22, I408+30
EASDFN	DFN~, DFN+15*, I201~, I201+6, I202~, I202+6, I206~, I206+6, I2101~, I2101+7 , I2101+9, I2101+12, I2101+15, I2101+21, I2101+22, I2101+25, I2101+32, I2711~, I2711+5, I408~ , I408+12, I408+18
EASDT	I2101+20!, I2101+22*
>> EASEZNEW	DFN+17*
EASICN	I2101+5~, I2101+12*, I2101+15, I2101+25
EASNODE	I2101+20!, I2101+22*
EASQUIT	I2101+5~, I2101+6, I2101+7, I2101+19
ELIGVER	DFN+12~, DFN+17*
EZDATA	DFN+11~
FILDATE	DFN+72*, DFN+74, DFN+78!
FILE	DFN+12~
FLD	DFN+12~
I13	I408+10~, I408+20*, I408+22
IEN	I201+5~, I201+6, I202+5~, I202+6, I206+5~, I206+6, I2101+5~, I2101+7, I2101+9, I2101+21 , I2101+31*, I2101+32, I1275~, I1275+5, I1275+7, I1275+8
INCYR	I408+10~, I408+26*, I408+28
IO("Q"	I2101+24
IOF	DFN+16
IX	I408+10~, I408+18*, I408+19, I408+20, I408+22, I408+23, I408+27
JX	I408+10~, I408+23*, I408+24, I408+25, I408+26, I408+29, I408+30
KEY	DFN+11~, DFN+18*, DFN+19
KEYIEN	DFN+11~
KX	I408+10~, I408+29*, I408+30
LAST	I2101+5~, I2101+31*
MPIFRTN	DFN+67!, DFN+69!
MPIQRYNM	DFN+69!
N	DFN+12~, I201+5~, I201+6, I202+5~, I202+6, I206+5~, I206+6, I2101+5~, I2101+7
NAME	DFN+11~, DFN+21*, DFN+27
NEW	DFN+12~, DFN+53, DFN+55, DFN+61, DFN+63*
OUT	DFN+12~, DFN+71, DFN+74, DFN+79
PT	I408+10~, I408+26*, I408+27
>> RDATE	I2101+9*, I2101+10
RECD	DFN+11~, DFN+24*, DFN+26
REL	I408+10~, I408+20*, I408+21
REM	DFN+12~, DFN+57, DFN+62, DFN+63
SEX	DFN+11~, DFN+19*, DFN+28
SSN	DFN+11~, DFN+22*, DFN+28
SUB1	I408+10~, I408+21*, I408+22, I408+30
SUB2	I408+10~, I408+21*, I408+22, I408+30
SUBFILE	DFN+12~
SUBIEN	I1275+4~, I1275+6, I1275+9, I1275+10
SVCVER	DFN+12~, DFN+17*
TSSN	DFN+12~
U	DFN+15, DFN+19, DFN+63, DFN+72, DFN+73, I2101+9, I408+13, I408+22, I408+30, I1275+8
VETTYPE	DFN+12~, DFN+25*, DFN+29
X	DFN+12~, DFN+65, I408+10~, I408+14
XQA	I2101+11!
XQA(	I2101+13*
XQAID	I2101+11!, I2101+14*
XQAMSG	I2101+11!, I2101+15*
Y	DFN+35~, I408+10~, I408+13*, I408+14
Y(0	DFN+47, DFN+48

Customize PDF page

Package: Enrollment Application System