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

Package: Registration

Routine: DGRP2


Information

DGRP2 ;ALB/MRL,BRM - REGISTRATION SCREEN 2/CONTACT INFORMATION ;06 JUN 88@2300

Source Information

Source file <DGRP2.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 4 ($$DISP,$$POINT)^DG1010P0  ^DGRPP  H^DGRPU  (WW,WW1)^DGRPV  
VA Fileman 2 $$EXTERNAL^DILFD  GETS^DIQ  

Entry Points

Name Comments DBIA/ICR reference

External References

Name Field # of Occurrence
$$DISP^DG1010P0 DGRP2+6
$$POINT^DG1010P0 DGRP2+6
^DGRPP DGRP2+55
H^DGRPU DGRP2+2
WW^DGRPV DGRP2+4, DGRP2+13, DGRP2+15, DGRP2+54
WW1^DGRPV DGRP2+4
$$EXTERNAL^DILFD DGRP2+54
GETS^DIQ DGRP2+43

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Marital: "
  • Line Location: DGRP2+4
Function Call: WRITE
  • Prompt: " Sex: "
  • Line Location: DGRP2+5
Function Call: WRITE
  • Prompt: ?41,"POB: ",$E($S((DGNOCITY&DGUNK):"UNANSWERED",1:DGD_$S(($L(DGD)):", ",1:"")_DGD1),1,29)
  • Line Location: DGRP2+7
Function Call: WRITE
  • Prompt: !?4,"Religion: ",$S($D(^DIC(13,+$P(DGRPX,"^",8),0)):$P(^(0),"^",1),1:DGRPU),?41,"Father: ",$S($P(DGRP(.24),"^",1)]"":$E($P(DGRP(.24),"^",1),1,29),1:DGRPU)
  • Line Location: DGRP2+9
Function Call: WRITE
  • Prompt: !?9,"SCI: ",X
  • Line Location: DGRP2+10
Function Call: WRITE
  • Prompt: ?41,"Mother: ",$S($P(DGRP(.24),"^",2)]"":$E($P(DGRP(.24),"^",2),1,29),1:DGRPU)
  • Line Location: DGRP2+11
Function Call: WRITE
  • Prompt: !,?35,"Mom's Maiden: ",$S($P(DGRP(.24),"^",3)]"":$E($P(DGRP(.24),"^",3),1,29),1:DGRPU)
  • Line Location: DGRP2+12
Function Call: WRITE
  • Prompt: !?4,X,?28,X
  • Line Location: DGRP2+13
Function Call: WRITE
  • Prompt: ?28,$S($D(^DIC(4,+I1,0)):$P(^(0),"^",1),1:DGRPU)
  • Line Location: DGRP2+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP2+15
Function Call: WRITE
  • Prompt: " Ethnicity: "
  • Line Location: DGRP2+15
Function Call: WRITE
  • Prompt: "UNANSWERED"
  • Line Location: DGRP2+16
Function Call: WRITE
  • Prompt: !?15
  • Line Location: DGRP2+26
Function Call: WRITE
  • Prompt: X
  • Line Location: DGRP2+27
Function Call: WRITE
  • Prompt: !?9,"Race: "
  • Line Location: DGRP2+29
Function Call: WRITE
  • Prompt: "UNANSWERED"
  • Line Location: DGRP2+30
Function Call: WRITE
  • Prompt: !?15
  • Line Location: DGRP2+40
Function Call: WRITE
  • Prompt: X
  • Line Location: DGRP2+41
Function Call: WRITE
  • Prompt: !!
  • Line Location: DGRP2+44
Function Call: WRITE
  • Prompt: "<4> Date of Death Information"
  • Line Location: DGRP2+45
Function Call: WRITE
  • Prompt: !,?5,"Date of Death: ",$G(PDTHINFO(2,DFN_",",.351,"E"))
  • Line Location: DGRP2+46
Function Call: WRITE
  • Prompt: ?41,"Source of Notification: ",$G(PDTHINFO(2,DFN_",",.353,"E"))
  • Line Location: DGRP2+47
Function Call: WRITE
  • Prompt: !,?5,"Updated Date/Time: ",$G(PDTHINFO(2,DFN_",",.354,"E"))
  • Line Location: DGRP2+48
Function Call: WRITE
  • Prompt: ?41,"Last Edited By: ",$G(PDTHINFO(2,DFN_",",.355,"E")),!
  • Line Location: DGRP2+49
Function Call: WRITE
  • Prompt: " Emergency Response: "_$$EXTERNAL^DILFD(2,.181,,DGEMRES)
  • Line Location: DGRP2+54

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] EXTERNAL^DILFD,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(10 - [#10] DGRP2+35
^DIC(10.2 - [#10.2] DGRP2+21
^DIC(10.3 - [#10.3] DGRP2+23, DGRP2+37
^DIC(11 - [#11] DGRP2+4
^DIC(13 - [#13] DGRP2+9
^DIC(4 - [#4] DGRP2+14
^DPT - [#2] DGRP2+2, DGRP2+16, DGRP2+19, DGRP2+20, DGRP2+30, DGRP2+33, DGRP2+34, DGRP2+53

Naked Globals

Name Field # of Occurrence
^( DGRP2+2
^(0 DGRP2+4, DGRP2+9, DGRP2+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN DGRP2+2, DGRP2+16, DGRP2+19, DGRP2+20, DGRP2+30, DGRP2+33, DGRP2+34, DGRP2+43, DGRP2+46, DGRP2+47
, DGRP2+48, DGRP2+49, DGRP2+53
>> DGD DGRP2+6*, DGRP2+7
>> DGD1 DGRP2+6*, DGRP2+7
DGEMRES DGRP2+53~*, DGRP2+54
>> DGNOCITY DGRP2+6*, DGRP2+7
>> DGRP( DGRP2+2*, DGRP2+9, DGRP2+11, DGRP2+12, DGRP2+13
>> DGRP(0 DGRP2+3, DGRP2+6
>> DGRP(57 DGRP2+10
>> DGRPS DGRP2+2*
>> DGRPU DGRP2+4, DGRP2+9, DGRP2+10, DGRP2+11, DGRP2+12, DGRP2+14
>> DGRPW DGRP2+4*
>> DGRPX DGRP2+3*, DGRP2+4, DGRP2+9, DGRP2+13*, DGRP2+14
>> DGUNK DGRP2+6, DGRP2+7
ETHNIC DGRP2+17~, DGRP2+22*, DGRP2+24*, DGRP2+25*, DGRP2+26, DGRP2+27*, DGRP2+28
>> I DGRP2+2*, DGRP2+14*, DGRP2+18*, DGRP2+19*, DGRP2+20, DGRP2+32*, DGRP2+33*, DGRP2+34
>> I1 DGRP2+14*
IOM DGRP2+26, DGRP2+27, DGRP2+40, DGRP2+41
NODE DGRP2+17~, DGRP2+20*, DGRP2+21, DGRP2+23, DGRP2+31~, DGRP2+34*, DGRP2+35, DGRP2+37
NUM DGRP2+17~, DGRP2+19*, DGRP2+25, DGRP2+31~, DGRP2+33*, DGRP2+39
PDTHINFO DGRP2+50!
PDTHINFO(2 DGRP2+46, DGRP2+47, DGRP2+48, DGRP2+49
RACE DGRP2+31~, DGRP2+36*, DGRP2+38*, DGRP2+39*, DGRP2+40, DGRP2+41*, DGRP2+42
>> X DGRP2+10*, DGRP2+13*, DGRP2+21*, DGRP2+22, DGRP2+23*, DGRP2+24, DGRP2+27*, DGRP2+35*, DGRP2+36, DGRP2+37*
, DGRP2+38, DGRP2+41*
>> Z DGRP2+4*, DGRP2+13*, DGRP2+15*, DGRP2+54*
>> Z1 DGRP2+4*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All