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 - 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+8
$$POINT^DG1010P0 DGRP2+8
^DGRPP DGRP2+58
H^DGRPU DGRP2+4
WW^DGRPV DGRP2+6, DGRP2+16, DGRP2+18, DGRP2+57
WW1^DGRPV DGRP2+6
$$EXTERNAL^DILFD DGRP2+57
GETS^DIQ DGRP2+46
$$FMDIFF^XLFDT NEWB+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Marital: "
  • Line Location: DGRP2+6
Function Call: WRITE
  • Prompt: " Sex: "
  • Line Location: DGRP2+7
Function Call: WRITE
  • Prompt: ?41,"POB: ",$E($S((DGNOCITY&DGUNK):"UNANSWERED",1:DGD_$S(($L(DGD)):", ",1:"")_DGD1),1,29)
  • Line Location: DGRP2+9
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+11
Function Call: WRITE
  • Prompt: !?9,"SCI: ",X
  • Line Location: DGRP2+12
Function Call: WRITE
  • Prompt: ?41,"Mother: ",$S($P(DGRP(.24),"^",2)]"":$E($P(DGRP(.24),"^",2),1,29),1:DGRPU)
  • Line Location: DGRP2+13
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+14
Function Call: WRITE
  • Prompt: !?4,X,?28,X
  • Line Location: DGRP2+15
Function Call: WRITE
  • Prompt: !?4,X,?28,X
  • Line Location: DGRP2+16
Function Call: WRITE
  • Prompt: ?28,$S($D(^DIC(4,+I1,0)):$P(^(0),"^",1),1:DGRPU)
  • Line Location: DGRP2+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP2+18
Function Call: WRITE
  • Prompt: " Ethnicity: "
  • Line Location: DGRP2+18
Function Call: WRITE
  • Prompt: "UNANSWERED"
  • Line Location: DGRP2+19
Function Call: WRITE
  • Prompt: !?15
  • Line Location: DGRP2+29
Function Call: WRITE
  • Prompt: X
  • Line Location: DGRP2+30
Function Call: WRITE
  • Prompt: !?9,"Race: "
  • Line Location: DGRP2+32
Function Call: WRITE
  • Prompt: "UNANSWERED"
  • Line Location: DGRP2+33
Function Call: WRITE
  • Prompt: !?15
  • Line Location: DGRP2+43
Function Call: WRITE
  • Prompt: X
  • Line Location: DGRP2+44
Function Call: WRITE
  • Prompt: !!
  • Line Location: DGRP2+47
Function Call: WRITE
  • Prompt: "<4> Date of Death Information"
  • Line Location: DGRP2+48
Function Call: WRITE
  • Prompt: !,?5,"Date of Death: ",$G(PDTHINFO(2,DFN_",",.351,"E"))
  • Line Location: DGRP2+49
Function Call: WRITE
  • Prompt: ?41,"Source of Notification: ",$G(PDTHINFO(2,DFN_",",.353,"E"))
  • Line Location: DGRP2+50
Function Call: WRITE
  • Prompt: !,?5,"Updated Date/Time: ",$G(PDTHINFO(2,DFN_",",.354,"E"))
  • Line Location: DGRP2+51
Function Call: WRITE
  • Prompt: ?41,"Last Edited By: ",$G(PDTHINFO(2,DFN_",",.355,"E")),!
  • Line Location: DGRP2+52
Function Call: WRITE
  • Prompt: " Emergency Response: "_$$EXTERNAL^DILFD(2,.181,,DGEMRES)
  • Line Location: DGRP2+57

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+38
^DIC(10.2 - [#10.2] DGRP2+24
^DIC(10.3 - [#10.3] DGRP2+26, DGRP2+40
^DIC(11 - [#11] DGRP2+6
^DIC(13 - [#13] DGRP2+11
^DIC(4 - [#4] DGRP2+17
^DPT - [#2] DGRP2+4, DGRP2+19, DGRP2+22, DGRP2+23, DGRP2+33, DGRP2+36, DGRP2+37, DGRP2+56, NEWB+2, NEWB+5*

Label References

Name Line Occurrences
NEWB DGRP2+3

Naked Globals

Name Field # of Occurrence
^( DGRP2+4
^(0 DGRP2+6, DGRP2+11, DGRP2+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN DGRP2+4, DGRP2+19, DGRP2+22, DGRP2+23, DGRP2+33, DGRP2+36, DGRP2+37, DGRP2+46, DGRP2+49, DGRP2+50
DGRP2+51, DGRP2+52, DGRP2+56, NEWB+2, NEWB+5
>> DGD DGRP2+8*, DGRP2+9
>> DGD1 DGRP2+8*, DGRP2+9
DGEMRES DGRP2+56~*, DGRP2+57
>> DGNOCITY DGRP2+8*, DGRP2+9
>> DGRP( DGRP2+4*, DGRP2+11, DGRP2+13, DGRP2+14, DGRP2+16
>> DGRP(0 DGRP2+5, DGRP2+8
>> DGRP(57 DGRP2+12
>> DGRPS DGRP2+4*
>> DGRPU DGRP2+6, DGRP2+11, DGRP2+12, DGRP2+13, DGRP2+14, DGRP2+17
>> DGRPW DGRP2+6*
>> DGRPX DGRP2+5*, DGRP2+6, DGRP2+11, DGRP2+16*, DGRP2+17
>> DGUNK DGRP2+8, DGRP2+9
DOB NEWB+1~, NEWB+2*, NEWB+4
ETHNIC DGRP2+20~, DGRP2+25*, DGRP2+27*, DGRP2+28*, DGRP2+29, DGRP2+30*, DGRP2+31
>> I DGRP2+4*, DGRP2+17*, DGRP2+21*, DGRP2+22*, DGRP2+23, DGRP2+35*, DGRP2+36*, DGRP2+37
>> I1 DGRP2+17*
IOM DGRP2+29, DGRP2+30, DGRP2+43, DGRP2+44
NODE DGRP2+20~, DGRP2+23*, DGRP2+24, DGRP2+26, DGRP2+34~, DGRP2+37*, DGRP2+38, DGRP2+40
NOW NEWB+1~, NEWB+3*, NEWB+4
NUM DGRP2+20~, DGRP2+22*, DGRP2+28, DGRP2+34~, DGRP2+36*, DGRP2+42
PDTHINFO DGRP2+53!
PDTHINFO(2 DGRP2+49, DGRP2+50, DGRP2+51, DGRP2+52
RACE DGRP2+34~, DGRP2+39*, DGRP2+41*, DGRP2+42*, DGRP2+43, DGRP2+44*, DGRP2+45
>> X DGRP2+12*, DGRP2+16*, DGRP2+24*, DGRP2+25, DGRP2+26*, DGRP2+27, DGRP2+30*, DGRP2+38*, DGRP2+39, DGRP2+40*
DGRP2+41, DGRP2+44*, NEWB+3
>> Z DGRP2+6*, DGRP2+16*, DGRP2+18*, DGRP2+57*
>> Z1 DGRP2+6*
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