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,PWC,JAM,JAM,ARF - DEMOGRAPHIC DATA ;19 Jul 2017 3:02 PM

Source Information

Source file <DGRP1.m>

Call Graph

Call Graph

Call Graph Total: 7

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

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

Package Total Caller Graph
Registration 2 DGDEP  DGRP  

Entry Points

Name Comments DBIA/ICR reference
EN ;
; JAM - Patch DG*5.3*941, Reformatting Registration screen 1. New field layout.
LANGUAGE ;Get language data *///*
L1
GETNCAL ;Get name component values
A2
GETSTAT(SSNV) ;get SSN VERIFIED STATUS DG*5.3*688 BAJ 11/22/2005
SSNREAS(DGREAS) ;get Pseuso SSN Reason - DG*5.3*653, ERC

External References

Name Field # of Occurrence
^DGRPP L1+26
H^DGRPU EN+4
WW^DGRPV EN+5, EN+9, EN+11, EN+27, EN+29, L1A2+21
WW1^DGRPV EN+9, EN+11, EN+13, EN+14, EN+16, EN+22, A2+19, A2+20
$$EXTERNAL^DILFD A2+27
GETS^DIQ GETNCAL+4
$$INSUR^IBBAPI L1+21
$$FMTE^XLFDT L1+10, L1+12, L1+16, L1+17, L1+19, L1+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Name: "
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: "DOB: ",Y
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: "SS: "
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: SSNV
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: "PSSN Reason: "
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: DGREAS
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+27
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+27
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: " Cell Phone: "
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: ?19,$P(DGRP(.13),U,4)
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: ?19,"UNANSWERED"
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: ?47,"Pager #: ",?56,$P(DGRP(.13),U,5)
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: ?56,$P(DGRP(.13),U,5)
  • Line Location: EN+40
Function Call: WRITE
  • Prompt: ?56,"UNANSWERED"
  • Line Location: EN+41
Function Call: WRITE
  • Prompt: !," Email Address: "
  • Line Location: EN+44
Function Call: WRITE
  • Prompt: ?19,$P(DGRP(.13),U,3)
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: ?19,"UNANSWERED"
  • Line Location: EN+46
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: " Pref Lang: ",$E($S(DGRP(2)="":"UNANSWERED",1:DGRP(2)),1,34)," Date/Time: ",$S(DGRP(1)="":"UNANSWERED",1:DGRP(1))
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+7
Function Call: WRITE
  • Prompt: !," [MAILING ADDRESS LAST CHANGED:] "_$$FMTE^XLFDT(ADDRDTTM,"5D")
  • Line Location: L1+16
Function Call: WRITE
  • Prompt: !," [INSURANCE:] ",$P(DGDATA("IBBAPI","INSUR",DGI,1),U,2)
  • Line Location: L1+22
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: L1+23
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+25
Function Call: WRITE
  • Prompt: ?37,"Birth Sex: "
  • Line Location: A2+19
Function Call: WRITE
  • Prompt: ?56,"MBI: "
  • Line Location: A2+20
Function Call: WRITE
  • Prompt: ?37
  • Line Location: A2+21
Function Call: WRITE
  • Prompt: " Alias: "
  • Line Location: A2+21
Function Call: WRITE
  • Prompt: ?47,$G(DGALIAS(DGI-1))
  • Line Location: A2+22
Function Call: WRITE
  • Prompt: !?3,"Self-Identified Gender Identity: "
  • Line Location: A2+25
Function Call: WRITE
  • Prompt: Z
  • Line Location: A2+28

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+13, LANGUAGE+6
^DIA(2 L1+9, L1+11, L1+13, L1+18
^DPT - [#2] EN+4, LANGUAGE+2, LANGUAGE+4, LANGUAGE+5, L1+14, GETNCAL+3, A2A2+4, A2+20, GETSTAT+2

Label References

Name Line Occurrences
A2 A2+4
GETNCAL EN+26
GETSTAT EN+8
L1 LANGUAGE+3, LANGUAGE+4
SSNREAS EN+23

Naked Globals

Name Field # of Occurrence
^( EN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDRDTTM L1+8~, L1+14*, L1+16
>> DFN EN+4, LANGUAGE+2, LANGUAGE+4, LANGUAGE+5, L1+9, L1+11, L1+13, L1+14, L1+18, L1+21
GETNCAL+3, A2A2+4, A2+20, GETSTAT+2
DGA GETNCAL+1~, GETNCAL+6*, A2*, A2+1, A2+4
DGALIAS GETNCAL+1~
DGALIAS( GETNCAL+6, A2+2*, A2+3*, A2+5*, A2+9*, A2+10*, A2+11*, A2+22
DGCOMP GETNCAL+1~, GETNCAL+3*, GETNCAL+4, A2+16
DGCOMP(20 A2+16
>> DGDATA L1+21
>> DGDATA("IBBAPI" L1+21, L1+22, L1+23
DGI L1+21*, L1+22, L1+23, GETNCAL+1~, GETNCAL+6*, A2+1, A2+2, A2+3, A2+5, A2+9
A2+10, A2+11, A2+14*, A2+16, A2+19, A2+20, A2+21, A2+22
DGLANG0 LANGUAGE+1*, LANGUAGE+5*, LANGUAGE+8!
DGLANGDA LANGUAGE+4*, LANGUAGE+5, LANGUAGE+8!
DGLANGDT LANGUAGE+1*, LANGUAGE+2*, LANGUAGE+3, LANGUAGE+4, LANGUAGE+6*, LANGUAGE+7, LANGUAGE+8!
DGNC GETNCAL+1~, GETNCAL+2*, A2+16
DGPRFLAN LANGUAGE+1*, LANGUAGE+5*, LANGUAGE+7, LANGUAGE+8!
>> DGPRFLG L1+6
DGREAS EN+23~, EN+24, EN+25, SSNREAS~, SSNREAS+1*, SSNREAS+2, SSNREAS+3*
DGRP EN+3~
DGRP( EN+4*, EN+5, EN+11, EN+32, EN+33, EN+39, EN+45, EN+46, A2+27
DGRP("SSN" SSNREAS+1
DGRP(0 EN+9, EN+13, EN+16, EN+18, EN+27, A2+19
DGRP(1 LANGUAGE+1*, LANGUAGE+7*, L1+3
DGRP(2 LANGUAGE+1*, LANGUAGE+4*, LANGUAGE+7*, L1+3
>> DGRPCM EN+5*
>> DGRPS EN+4*
>> DGRPU A2+19, A2+20, A2+27
DGRPW EN+4*, EN+11*, EN+12*, EN+29*, L1*, GETNCAL+1~, A2+19*, A2+20*, A2+21*
>> DGRPX EN+27*
DGSPACE EN+19~, EN+20*, EN+22
DGX GETNCAL+1~, A2+4*, A2+5*, A2+6, A2+7*, A2+10
ES1 L1+8~, L1+18*, L1+19
I EN+4*, L1+8~, L1+9*, L1+11*, L1+13*, L1+18*
MIS1 L1+8~, L1+9*, L1+10
SA1 L1+8~, L1+11*, L1+12
SSNV EN+8~, EN+16, GETSTAT~, GETSTAT+3*
T GETSTAT+1~, GETSTAT+2*, GETSTAT+3
TP1 L1+8~, L1+13*, L1+17
U EN+18, EN+32, EN+33, EN+39, EN+45, EN+46, LANGUAGE+5, L1+9, L1+11, L1+13
L1+18, L1+22, A2+5, A2+16, A2+20, SSNREAS+1
X EN+16*, L1+8~, L1+9*, A2+19*, A2+20*, A2+27*
X1 L1+8~, L1+11*
X2 L1+8~, L1+13*
X3 L1+8~, L1+18*
>> Y EN+13*, LANGUAGE+5*, LANGUAGE+6*
>> Z EN+5*, EN+9*, EN+11*, EN+13*, EN+14*, EN+16*, EN+20, EN+21*, EN+27*, EN+29*
, L1*, A2+19*, A2+20*, A2+21*, A2+27*
>> Z1 EN+9*, EN+11*, EN+13*, EN+14*, EN+16*, EN+22*, A2+19*, A2+20*
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