Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: EASEZI

Package: Enrollment Application System

Routine: EASEZI


Information

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

Source Information

Source file <EASEZI.m>

Call Graph

Call Graph

Call Graph Total: 14

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All