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

Package: Registration

Routine: DGRP2


Information

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

Source Information

Source file <DGRP2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 4 ($$DISP,$$POINT)^DG1010P0  ^DGRPP  H^DGRPU  (WW,WW1)^DGRPV  
VA FileMan 3 NOW^%DTC  $$EXTERNAL^DILFD  GETS^DIQ  
Kernel 1 $$FMDIFF^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
NEWB ;-- check patient DOB, if DOB<365 days, set marital status to "never married"

External References

Name Field # of Occurrence
NOW^%DTC NEWB+3
$$DISP^DG1010P0 DGRP2+11
$$POINT^DG1010P0 DGRP2+11
^DGRPP DGRP2+79
H^DGRPU DGRP2+4
WW^DGRPV DGRP2+9, DGRP2+19, DGRP2+21, DGRP2+60, DGRP2+65
WW1^DGRPV DGRP2+9
$$EXTERNAL^DILFD DGRP2+60
GETS^DIQ DGRP2+49, DGRP2+67
$$FMDIFF^XLFDT NEWB+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Marital: "
  • Line Location: DGRP2+9
Function Call: WRITE
  • Prompt: " Sex: "
  • Line Location: DGRP2+10
Function Call: WRITE
  • Prompt: ?41,"POB: ",$E($S((DGNOCITY&DGUNK):"UNANSWERED",1:DGD_$S(($L(DGD)):", ",1:"")_DGD1),1,29)
  • Line Location: DGRP2+12
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+14
Function Call: WRITE
  • Prompt: !?9,"SCI: ",X
  • Line Location: DGRP2+15
Function Call: WRITE
  • Prompt: ?41,"Mother: ",$S($P(DGRP(.24),"^",2)]"":$E($P(DGRP(.24),"^",2),1,29),1:DGRPU)
  • Line Location: DGRP2+16
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+17
Function Call: WRITE
  • Prompt: !?4,X,?28,X
  • Line Location: DGRP2+18
Function Call: WRITE
  • Prompt: !?4,X,?28,X
  • Line Location: DGRP2+19
Function Call: WRITE
  • Prompt: ?28,$S($D(^DIC(4,+I1,0)):$P(^(0),"^",1),1:DGRPU)
  • Line Location: DGRP2+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP2+21
Function Call: WRITE
  • Prompt: " Ethnicity: "
  • Line Location: DGRP2+21
Function Call: WRITE
  • Prompt: "UNANSWERED"
  • Line Location: DGRP2+22
Function Call: WRITE
  • Prompt: !?15
  • Line Location: DGRP2+32
Function Call: WRITE
  • Prompt: X
  • Line Location: DGRP2+33
Function Call: WRITE
  • Prompt: !?9,"Race: "
  • Line Location: DGRP2+35
Function Call: WRITE
  • Prompt: "UNANSWERED"
  • Line Location: DGRP2+36
Function Call: WRITE
  • Prompt: !?15
  • Line Location: DGRP2+46
Function Call: WRITE
  • Prompt: X
  • Line Location: DGRP2+47
Function Call: WRITE
  • Prompt: !!
  • Line Location: DGRP2+50
Function Call: WRITE
  • Prompt: "<4> Date of Death Information"
  • Line Location: DGRP2+51
Function Call: WRITE
  • Prompt: !,?5,"Date of Death: ",$G(PDTHINFO(2,DFN_",",.351,"E"))
  • Line Location: DGRP2+52
Function Call: WRITE
  • Prompt: ?41,"Source of Notification: ",$G(PDTHINFO(2,DFN_",",.353,"E"))
  • Line Location: DGRP2+53
Function Call: WRITE
  • Prompt: !,?5,"Updated Date/Time: ",$G(PDTHINFO(2,DFN_",",.354,"E"))
  • Line Location: DGRP2+54
Function Call: WRITE
  • Prompt: ?41,"Last Edited By: ",$G(PDTHINFO(2,DFN_",",.355,"E")),!
  • Line Location: DGRP2+55
Function Call: WRITE
  • Prompt: " Emergency Response: "_$$EXTERNAL^DILFD(2,.181,,DGEMRES)
  • Line Location: DGRP2+60
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP2+63
Function Call: WRITE
  • Prompt: ?10,"Indian: "
  • Line Location: DGRP2+64
Function Call: WRITE
  • Prompt: ?2," AI/AN Verified: "
  • Line Location: DGRP2+65
Function Call: WRITE
  • Prompt: "UNANSWERED"
  • Line Location: DGRP2+72
Function Call: WRITE
  • Prompt: DGIND1
  • Line Location: DGRP2+73
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP2+78

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+41
^DIC(10.2 - [#10.2] DGRP2+27
^DIC(10.3 - [#10.3] DGRP2+29, DGRP2+43
^DIC(11 - [#11] DGRP2+9
^DIC(13 - [#13] DGRP2+14
^DIC(4 - [#4] DGRP2+20
^DPT - [#2] DGRP2+4, DGRP2+22, DGRP2+25, DGRP2+26, DGRP2+36, DGRP2+39, DGRP2+40, DGRP2+59, NEWB+2, NEWB+5*

Label References

Name Line Occurrences
NEWB DGRP2+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN DGRP2+4, DGRP2+22, DGRP2+25, DGRP2+26, DGRP2+36, DGRP2+39, DGRP2+40, DGRP2+49, DGRP2+52, DGRP2+53
, DGRP2+54, DGRP2+55, DGRP2+59, DGRP2+67, DGRP2+68, DGRP2+69, DGRP2+70, DGRP2+71, NEWB+2, NEWB+5
>> DGD DGRP2+11*, DGRP2+12
>> DGD1 DGRP2+11*, DGRP2+12
DGEMRES DGRP2+59~*, DGRP2+60
DGIND1 DGRP2+66~, DGRP2+68*, DGRP2+72, DGRP2+73
DGIND2 DGRP2+66~, DGRP2+69*, DGRP2+74
DGIND3 DGRP2+66~, DGRP2+70*, DGRP2+76, DGRP2+77
DGIND4 DGRP2+66~, DGRP2+71*, DGRP2+77
DGINDARR DGRP2+66~
DGINDARR(2 DGRP2+68, DGRP2+69, DGRP2+70, DGRP2+71
>> DGNOCITY DGRP2+11*, DGRP2+12
>> DGRP( DGRP2+4*, DGRP2+14, DGRP2+16, DGRP2+17, DGRP2+19
>> DGRP(0 DGRP2+5, DGRP2+11
>> DGRP(57 DGRP2+15
>> DGRPS DGRP2+4*
>> DGRPU DGRP2+9, DGRP2+14, DGRP2+15, DGRP2+16, DGRP2+17, DGRP2+20
>> DGRPW DGRP2+9*
>> DGRPX DGRP2+5*, DGRP2+9, DGRP2+14, DGRP2+19*, DGRP2+20
>> DGUNK DGRP2+11, DGRP2+12
DOB NEWB+1~, NEWB+2*, NEWB+4
ETHNIC DGRP2+23~, DGRP2+28*, DGRP2+30*, DGRP2+31*, DGRP2+32, DGRP2+33*, DGRP2+34
>> I DGRP2+4*, DGRP2+20*, DGRP2+24*, DGRP2+25*, DGRP2+26, DGRP2+38*, DGRP2+39*, DGRP2+40
>> I1 DGRP2+20*
IOM DGRP2+32, DGRP2+33, DGRP2+46, DGRP2+47
NODE DGRP2+23~, DGRP2+26*, DGRP2+27, DGRP2+29, DGRP2+37~, DGRP2+40*, DGRP2+41, DGRP2+43
NOW NEWB+1~, NEWB+3*, NEWB+4
NUM DGRP2+23~, DGRP2+25*, DGRP2+31, DGRP2+37~, DGRP2+39*, DGRP2+45
PDTHINFO DGRP2+56!
PDTHINFO(2 DGRP2+52, DGRP2+53, DGRP2+54, DGRP2+55
RACE DGRP2+37~, DGRP2+42*, DGRP2+44*, DGRP2+45*, DGRP2+46, DGRP2+47*, DGRP2+48
>> X DGRP2+15*, DGRP2+19*, DGRP2+27*, DGRP2+28, DGRP2+29*, DGRP2+30, DGRP2+33*, DGRP2+41*, DGRP2+42, DGRP2+43*
, DGRP2+44, DGRP2+47*, NEWB+3
>> Z DGRP2+9*, DGRP2+19*, DGRP2+21*, DGRP2+60*, DGRP2+65*
>> Z1 DGRP2+9*
Info |  Source |  Call 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