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

Package: Registration

Routine: DGRP1


Information

DGRP1 ;ALB/MRL,ERC,BAJ - DEMOGRAPHIC DATA ; 8/15/08 11:30am

Source Information

Source file <DGRP1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 4 $$FORIEN^DGADDUTL  ^DGRPP  (A,H)^DGRPU  (WW,WW1)^DGRPV  
VA Fileman 2 $$EXTERNAL^DILFD  GETS^DIQ  
Integrated Billing 1 $$INSUR^IBBAPI  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGDEP  DGRP  

Entry Points

Name Comments DBIA/ICR reference
GETSTAT(SSNV) ;get SSN VERIFIED STATUS DG*5.3*688 BAJ 11/22/2005
GETNCAL ;Get name component values
EN ;
COUNTY(DGRP) ;retrieve and print County info if a US address
SSNREAS(DGREAS) ;get Pseuso SSN Reason - DG*5.3*653, ERC
A2

External References

Name Field # of Occurrence
$$FORIEN^DGADDUTL COUNTY+5, COUNTY+13
^DGRPP EN+50
A^DGRPU EN+20
H^DGRPU EN+1
WW^DGRPV EN+2, EN+6, EN+20, EN+21, EN+22, A2+19
WW1^DGRPV EN+6, EN+8, EN+9, EN+14, EN+22, EN+24, A2+17, A2+18
$$EXTERNAL^DILFD EN+31
GETS^DIQ GETNCAL+4
$$INSUR^IBBAPI EN+46
$$FMTE^XLFDT EN+38, EN+40, EN+42, EN+44, EN+48

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: " Name: "
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: "SS: "
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: SSNV
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: "DOB: ",Y
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: "PSSN Reason: "
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: DGREAS
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: " Remarks: ",$S($P(DGRPX,"^",10)]"":$E($P(DGRPX,"^",10),1,65),1:"NO REMARKS ENTERED FOR THIS PATIENT")
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: " Permanent Address: "
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: " Temporary Address: "
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !?9
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: $S($D(DGA(2)):DGA(2),1:"NO TEMPORARY ADDRESS")
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: DGA(I)
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !?3,"Office: ",$S($P(DGRP(.13),U,2)]"":$P(DGRP(.13),U,2),1:DGRPU),?42,"From/To: ",X
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !?1,"Bad Addr: ",$$EXTERNAL^DILFD(2,.121,"",$P(DGRP(.11),U,16))
  • Line Location: EN+31
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !," [INSURANCE:] ",$P(DGDATA("IBBAPI","INSUR",DGI,1),U,2)
  • Line Location: EN+47
Function Call: WRITE
  • Prompt: " EFFECTIVE DATE: ",$$FMTE^XLFDT(DGDATA("IBBAPI","INSUR",DGI,10),"5D")," EXPIRATION DATE: ",$$FMTE^XLFDT(DGDATA("IBBAPI","INSUR",DGI,11),"5D")
  • Line Location: EN+48
Function Call: WRITE
  • Prompt: ?43,"Sex: "
  • Line Location: A2+17
Function Call: WRITE
  • Prompt: ?56,"MBI: "
  • Line Location: A2+18
Function Call: WRITE
  • Prompt: ?37
  • Line Location: A2+19
Function Call: WRITE
  • Prompt: " Alias: "
  • Line Location: A2+19
Function Call: WRITE
  • Prompt: ?47,$G(DGALIAS(DGI-1))
  • Line Location: A2+20
Function Call: WRITE
  • Prompt: !?3,PLINE
  • Line Location: COUNTY+8
Function Call: WRITE
  • Prompt: ?43,PLINE
  • Line Location: COUNTY+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] EXTERNAL^DILFD
^VA(20 - [#20] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+9, EN+29
^DIA(2 EN+37, EN+39, EN+41, EN+43
^DIC(5 - [#5] COUNTY+6, COUNTY+14
^DPT - [#2] EN+1, GETNCAL+3, A2, A2+4, A2+18, GETSTAT+2

Label References

Name Line Occurrences
A2 A2+4
COUNTY EN+27
GETNCAL EN+19
GETSTAT EN+5
SSNREAS EN+16

Naked Globals

Name Field # of Occurrence
^( EN+1
^(0 COUNTY+6, COUNTY+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNODE COUNTY+1~, COUNTY+11*, COUNTY+14
CNTRY COUNTY+1~
>> DFN EN+1, EN+37, EN+39, EN+41, EN+43, EN+46, GETNCAL+3, A2, A2+4, A2+18
, GETSTAT+2
DGA GETNCAL+1~, GETNCAL+6*, A2*, A2+1, A2+4
DGA( EN+26
DGA(1 EN+24
DGA(2 EN+24
>> DGA1 EN+20*
>> DGA2 EN+20*
>> DGAD EN+20*
DGALIAS GETNCAL+1~
DGALIAS( GETNCAL+6, A2+2*, A2+3*, A2+5*, A2+9*, A2+10*, A2+11*, A2+20
DGCC COUNTY+1~, COUNTY+3*, COUNTY+6*, COUNTY+7, COUNTY+9*, COUNTY+14*, COUNTY+15
DGCOMP GETNCAL+1~, GETNCAL+3*, GETNCAL+4, A2+15
DGCOMP(20 A2+15
>> DGDATA EN+46
>> DGDATA("IBBAPI" EN+46, EN+47, EN+48
DGI EN+46*, EN+47, EN+48, GETNCAL+1~, GETNCAL+6*, A2+1, A2+2, A2+3, A2+5, A2+9
, A2+10, A2+11, A2+14*, A2+15, A2+17, A2+18, A2+19, A2+20
DGNC GETNCAL+1~, GETNCAL+2*, A2+15
>> DGPRFLG EN+34
DGREAS EN+16~, EN+17, EN+18, SSNREAS~, SSNREAS+1*, SSNREAS+2, SSNREAS+3*
DGRP EN+27, COUNTY~
DGRP( EN+1*, EN+2, EN+20, EN+28, EN+29, EN+30, EN+31, COUNTY+5, COUNTY+6, COUNTY+13
, COUNTY+14
DGRP("SSN" SSNREAS+1
DGRP(0 EN+6, EN+8, EN+9, EN+11, EN+15, EN+20, A2+17
>> DGRPCM EN+2*
>> DGRPS EN+1*
>> DGRPU EN+28, EN+29, EN+30, A2+17, A2+18, COUNTY+6, COUNTY+14
DGRPW EN+1*, EN+22*, GETNCAL+1~, A2+17*, A2+18*, A2+19*
>> DGRPX EN+20*
DGSPACE EN+12~, EN+13*, EN+14
DGX GETNCAL+1~, A2+4*, A2+5*, A2+6, A2+7*, A2+10
ES1 EN+36~, EN+43*, EN+44
FILE COUNTY+1~
FNODE COUNTY+1~, COUNTY+3*, COUNTY+5, COUNTY+6, COUNTY+11*, COUNTY+13
FPCE COUNTY+1~, COUNTY+3*, COUNTY+5, COUNTY+11*, COUNTY+13
I EN+1*, EN+26*, EN+36~, EN+37*, EN+39*, EN+41*, EN+43*
>> I1 EN+26*
IEN COUNTY+1~, COUNTY+5*, COUNTY+13*
MIS1 EN+36~, EN+37*, EN+38
PLINE COUNTY+1~, COUNTY+7*, COUNTY+8, COUNTY+15*, COUNTY+16
SA1 EN+36~, EN+39*, EN+40
SSNV EN+5~, EN+8, GETSTAT~, GETSTAT+3*
T GETSTAT+1~, GETSTAT+2*, GETSTAT+3
TP1 EN+36~, EN+41*, EN+42
U EN+11, EN+15, EN+28, EN+29, EN+30, EN+31, EN+37, EN+39, EN+41, EN+43
, EN+47, A2+5, A2+15, A2+18, SSNREAS+1, COUNTY+5, COUNTY+6, COUNTY+13, COUNTY+14
X EN+8*, EN+29*, EN+30, EN+36~, EN+37*, A2+17*, A2+18*
X1 EN+36~, EN+39*
X2 EN+36~, EN+41*
X3 EN+36~, EN+43*
>> Y EN+9*, EN+13, EN+29*
>> Z EN+2*, EN+6*, EN+8*, EN+9*, EN+20*, EN+21*, EN+22*, EN+24*, A2+17*, A2+18*
, A2+19*
>> Z1 EN+6*, EN+8*, EN+9*, EN+14*, EN+21*, EN+24*, A2+17*, A2+18*
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