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 |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGRPEIS1

Package: Registration

Routine: DGRPEIS1


Information

DGRPEIS1 ;ALB/MIR - CALLS TO ADD NEW PATIENT RELATIONS AND INCOME PERSONS ; 6/19/09 11:33am

Source Information

Source file <DGRPEIS1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 7 DD^%DT  ^DIC  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Registration 5 $$LYR^DGMTSCU1  $$NAME^DGMTU1  ($$CNTDEPS,RESET)^DGMTU11  GETIENS^DGMTU2  ACT^DGRPEIS2  

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: 5

Package Total Caller Graph
Registration 5 DGDEP  DGMTSCU  DGRP9  DGRPEIS  DGRPEIS3  

Entry Points

Name Comments DBIA/ICR reference
NEW ;check if data in FILE #408.12
NEWIP ;Add relation to #408.13 file
; In - DFN=IEN of File #2
; DGRP0ND=0 node of 408.13
; DGDEP=Optional count of children dependents associated with patient
NEWPR ;Add entry to file #408.12
DIC ;* GTS - DG*6.3*688 restructured the IF code and DIC("S") that follows
NEWPRQ
SETUP ; called from SPINACT / sets vars for ASOF tag
ASOF ;ask as of date
ASOFQ

External References

Name Field # of Occurrence
DD^%DT SETUP+7
$$LYR^DGMTSCU1 ASOF+4
$$NAME^DGMTU1 SETUP+1
$$CNTDEPS^DGMTU11 DIC+2
RESET^DGMTU11 DIC+29, ASOF+24
GETIENS^DGMTU2 NEW+8
ACT^DGRPEIS2 DIC+11
^DIC DIC+8, ASOF+23
FILE^DICN NEWIP+14, DIC+24, DIC+28
^DIE ASOF+23
^DIK DIC+14, DIC+19
$$GET1^DIQ DIC+16, DIC+17
^DIR DIC+20, ASOF+13, ASOF+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7," Required!!"
  • Line Location: DIC+8
Function Call: WRITE
  • Prompt: !?3,*7,"Effective date is prior to veteran's DOB (",$$GET1^DIQ(2,DFN,.03),")...deleted",!
  • Line Location: DIC+17
Function Call: WRITE
  • Prompt: Y
  • Line Location: SETUP+7
Routine Call
  • DIC
  • Line Location:
    • DIC+8
    • ASOF+23
Routine Call
  • DIE
  • Line Location:
    • ASOF+23
Routine Call
  • DIR
  • Line Location:
    • DIC+20
    • ASOF+13
    • ASOF+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DG(408.11 - [#408.11] Classic Fileman Calls
^DGPR(408.12 - [#408.12] Classic Fileman Calls
^DGPR(408.13 - [#408.13] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.22 - [#408.22] NEW+7, NEW+8
^DGPR(408.12 - [#408.12] NEW+5, NEW+6, SETUP+2, ASOF+3
^DPT - [#2] NEW+6

Label References

Name Line Occurrences
DIC DIC+8
NEWPR NEW+6
NEWPRQ DIC+9, DIC+11, DIC+16

Naked Globals

Name Field # of Occurrence
^( SETUP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACT SETUP+2*, SETUP+3, SETUP+4, SETUP+6, ASOF+6
CNT NEWIP+8~*, NEWIP+10*, NEWIP+12*
D0 DIC+25~
DA NEWIP+14*, DIC+13, DIC+18, DIC+25~, NEWPRQ!, ASOF+23*, ASOFQ!
DA(1 DIC+26*, ASOF+23*
DD NEWIP+14!, DIC+24!, DIC+25~
>> DFN NEW+5, NEW+6, NEW+7, NEW+8, NEWIP+15, DIC+2, DIC+16, DIC+17, DIC+29, ASOF+24
DGACT DIC+16, DIC+27, NEWPRQ!
>> DGDEP NEWIP+6*
DGDEPCNT DIC+1~, DIC+2*
>> DGFL NEW+5*, DIC+9*, DIC+11, ASOF+14*
>> DGIPI NEWIP+14*, NEWIP+15
>> DGIRI NEW+7*, NEW+8
>> DGMTDT NEW+4, NEWPR+5, ASOF+2
>> DGPRI NEW+5*, NEW+6, NEW+8, DIC+24*, DIC+26, DIC+30
DGRP0ND NEW+3~, NEW+6*, NEWIP+7, NEWIP+10, NEWIP+12, NEWIP+14, NEWIP+15*, DIC+3, DIC+8, DIC+10*
, DIC+21, DIC+22, DIC+24
>> DGRP1ND NEWIP+13
DGRPDOB NEW+3~, NEW+6*, NEWIP+5~, NEWIP+7*, NEWPR+6, NEWPRQ!
DGSEX NEWIP+5~, NEWIP+7*, NEWPRQ!
DGTSTDT NEW+4~*, NEW+8, NEWPR+5~*, NEWPR+6, ASOF+2~*, ASOF+4
DGXDT ASOF+1~, ASOF+15*, ASOF+23
DIC NEWIP+14*, DIC+4*, DIC+24*, DIC+25~, DIC+26*, NEWPRQ!, ASOF+23*, ASOFQ!
DIC("A" DIC+6*
DIC("DR" NEWIP+10*, NEWIP+12*, NEWIP+13*, DIC+21*, DIC+23*, DIC+27*
DIC("S" DIC+7*
DIC(0 NEWIP+14*, DIC+5*, DIC+24*, DIC+26*, ASOF+23*
DIE ASOF+23*, ASOFQ!
DIK NEWIP+14*, DIC+13, DIC+18, DIC+24*, NEWPRQ!
DINUM NEWIP+5!, NEWPR+4!
DIR DIC+20~!, ASOF+6!, ASOF+13!, ASOF+17~, ASOFQ!
DIR("?" ASOF+7*, ASOF+8*, ASOF+9*, ASOF+10*, ASOF+11*, ASOF+12*
DIR("A" DIC+20*, ASOF+6*, ASOF+21*
DIR("B" ASOF+21*
DIR(0 DIC+20*, ASOF+6*, ASOF+21*
DIROUT ASOF+17~
DIRUT NEWPRQ!, ASOF+17~, ASOFQ!
DLAYGO NEWIP+14*!, DIC+24*!, DIC+25~, DIC+27*, ASOF+23*, ASOFQ!
DO NEWIP+14!, DIC+24!
DOB NEWPR+4~, NEWPR+6*
DR ASOF+23*, ASOFQ!
DT NEW+4, NEWPR+5, ASOF+2
DTOUT DIC+8, DIC+9!, NEWPRQ!, ASOF+14, ASOF+17~, ASOFQ!
DUOUT NEWPRQ!, ASOF+14, ASOF+17~, ASOFQ!
FNAME SETUP+1~*, ASOF+6
I NEWIP+5~, NEWIP+8~, NEWIP+9*, NEWIP+10, NEWIP+11*, NEWIP+12, NEWIP+13*
>> IEN SETUP+8*, ASOF+3, ASOF+23
LYR ASOF+1~, ASOF+4*, ASOF+6, ASOF+9, ASOF+12, ASOF+16, ASOF+19
SPOUSE NEWIP+15, ASOF+1~, ASOF+3*, ASOF+10, ASOF+12
U NEWIP+10, NEWIP+12, NEWIP+13, DIC+21, DIC+22, SETUP+4
VAR DIC+22~*
X NEWIP+5~, NEWIP+14*, NEWPR+4~, DIC+24*, DIC+25~, DIC+27*, NEWPRQ!, SETUP+1, SETUP+2, SETUP+8
, ASOF+23*, ASOFQ!
Y NEWIP+14, NEWIP+15*, DIC+8, DIC+10, DIC+24, DIC+30*, NEWPRQ!, SETUP+6*, SETUP+7, ASOF+15
, ASOF+16, ASOF+23, ASOFQ!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All