Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
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
SSNQ
PSEU ;create a Pseudo SSN using same algorithm as file 2 in PSEU^DGRPDD1
CON ;
WARN ; printed WARNING message to alert user that spouse/dependent SSN be
; that of a veteran in Patient/Income Person File.
REL ; called from the input transform of the RELATIONSHIP field of file 408.12...sets DIC("S")

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPR(408.13 - [#408.13] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call