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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGMTDD1

Package: Registration

Routine: DGMTDD1


Information

DGMTDD1 ;ALB/MIR,JAN,AEG,ERC,BAJ - DD calls from income screening files ; 12/8/06 3:35pm

Source Information

Source file <DGMTDD1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 GETS^DIQ  ^DIR  
Registration 1 $$CNTDEPS^DGMTU11  

Entry Points

Name Comments DBIA/ICR reference
SSNQ
WARN ; printed WARNING message to alert user that spouse/dependent SSN be
; that of a veteran in Patient/Income Person File.
SSN ; called from the input transform of the SSN field in file 408.13
SSDEP ; warning if spouse's/dependent's SSN is found in file 408.13 and
; name, sex, DOB don't match
PSEU ;create a Pseudo SSN using same algorithm as file 2 in PSEU^DGRPDD1
REL ; called from the input transform of the RELATIONSHIP field of file 408.12...sets DIC("S")
CON ;

External References

Name Field # of Occurrence
$$CNTDEPS^DGMTU11 REL+6
GETS^DIQ SSN+24
^DIR WARN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Response must be either nine numbers, be in the format nnn-nn-nnnn",!,"or include a ""P"" for a Pseudo SSN."
  • Line Location: SSN+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Invalid Pseudo SSN, type ""P"" for valid one."
  • Line Location: SSN+5
Function Call: WRITE
  • Prompt: !,*7,"The SSN must not begin with 9."
  • Line Location: SSN+9
Function Call: WRITE
  • Prompt: !,*7,"First three digits cannot be zeros."
  • Line Location: SSN+10
Function Call: WRITE
  • Prompt: !,*7,"Warning - ",X," belongs to patient ",PATNAME
  • Line Location: WARN+2
Routine Call
  • DIR
  • Line Location:
    • WARN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPR(408.13 - [#408.13] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPR(408.12 - [#408.12] REL+2
^DGPR(408.13 - [#408.13] SSDEP+2, SSDEP+4, PSEU+3
^DPT - [#2] SSN+29
^DPT("SSN" SSN+29

Label References

Name Line Occurrences
CON PSEU+9, PSEU+10, PSEU+11
PSEU SSN+4, SSN+5
SSDEP SSN+29, SSN+30
SSNQ SSN+4, SSN+6, SSDEP+2, SSDEP+3
WARN SSN+31, SSDEP+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SSN+1~, SSN+7*
ANS SSNQ!
ANS( SSN+22, SSN+25*, SSN+30, SSDEP+3, PSEU+2, PSEU+4*, PSEU+5, PSEU+6
>> DA SSN+24, SSN+25, PSEU+3, REL+2
DGN SSN+1~, SSN+29*, SSDEP+2*, SSDEP+4
DGNODE REL+1~, REL+2*, REL+4, REL+6
>> DGNODE0 PSEU+3*, PSEU+4
DGPAT SSN+1~, SSN+29*, SSN+30, SSN+31, SSDEP+2*, SSDEP+3
>> DGTYPE REL+7
DGX REL+1~, REL+2*, REL+3, REL+4*
>> DIC("S" REL+3*, REL+5*, REL+6*, REL+7*
DIR WARN+3!
DIR("A" WARN+3*
DIR("B" WARN+3*, WARN+4!, WARN+5!
DIR(0 WARN+3*
>> DOB PSEU+6*, PSEU+7*, PSEU+12
FLD SSN+23~, SSN+25*
KANS SSN+1~, SSN+26*, SSN+27*, SSNQ, PSEU+1*
L SSN+1~, SSN+4!, SSN+5!, SSN+9*, PSEU+12*
>> L1 PSEU+8*, PSEU+9*, PSEU+12
>> L2 PSEU+8*, PSEU+10*, PSEU+12
>> L3 PSEU+8*, PSEU+11*, PSEU+12
>> NAM PSEU+5*, PSEU+8*
PATNAME SSN+1~, SSN+31*, SSDEP+4*, WARN+2
PREVX SSN+1~, WARN+3*, WARN+4!
REC SSN+23~
REC( SSN+25
SEX REL+1~, REL+4*, REL+5
U PSEU+4, REL+6
X SSN+3!, SSN+4*, SSN+5!, SSN+6, SSN+7*, SSN+8!, SSN+9!, SSN+10!, SSN+29, SSDEP+2
, WARN+2, WARN+3, WARN+4*, WARN+5!
>> Y WARN+4
>> Z PSEU+9*, PSEU+10*, PSEU+11*, CON+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All