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

Package: Registration

Routine: DGRPD1


Information

DGRPD1 ;BPFO/JRC,BAJ,DJE,ARF,JAM - PATIENT INQUIRY (NEW) ;Sep 28, 2017 5:35PM

Source Information

Source file <DGRPD1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Registration 4 ($$CNTRYI,$$FORIEN)^DGADDUTL  $$GET^DGENCDA  $$SSNNM^DGRPU  (KVAR,OAD)^VADPT  
VA FileMan 3 $$GET1^DIQ  ^DIR  ^DIWP  
Kernel 2 ^%ZIS  $$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: 1

Package Total Caller Graph
Registration 1 DGRPD  

Entry Points

Name Comments DBIA/ICR reference
EC ;display emergency contact information
CATDIS ;
HDR
OKLINE(DGLINE) ;DOES PAUSE/HEADER IF $Y EXCEEDS DGLINE

External References

Name Field # of Occurrence
^%ZIS HDR
$$CNTRYI^DGADDUTL EC+30, EC+31
$$FORIEN^DGADDUTL EC+28, EC+29
$$GET^DGENCDA CATDIS+4
$$SSNNM^DGRPU HDR+10
$$GET1^DIQ EC+26, EC+27, EC+37, EC+40, EC+47, EC+50, HDR+8
^DIR OKLINE+7
^DIWP HDR+21
KVAR^VADPT EC+60
OAD^VADPT EC+5, EC+6
$$FMTE^XLFDT CATDIS+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Emergency Contact Information:"
  • Line Location: EC+8
Function Call: WRITE
  • Prompt: !?5,"E-Cont.: ",DGEC1(9)
  • Line Location: EC+10
Function Call: WRITE
  • Prompt: ?40,"E2-Cont.: ",DGEC2(9)
  • Line Location: EC+11
Function Call: WRITE
  • Prompt: !,"Relationship: ",DGEC1(10)
  • Line Location: EC+12
Function Call: WRITE
  • Prompt: ?36,"Relationship: ",DGEC2(10)
  • Line Location: EC+13
Function Call: WRITE
  • Prompt: !?14,DGEC1(1)
  • Line Location: EC+15
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+16
Function Call: WRITE
  • Prompt: ?50,DGEC2(1)
  • Line Location: EC+17
Function Call: WRITE
  • Prompt: !?14,DGEC1(2)
  • Line Location: EC+18
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+19
Function Call: WRITE
  • Prompt: ?50,DGEC2(2)
  • Line Location: EC+20
Function Call: WRITE
  • Prompt: !?14,DGEC1(3)
  • Line Location: EC+21
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+22
Function Call: WRITE
  • Prompt: ?50,DGEC2(3)
  • Line Location: EC+23
Function Call: WRITE
  • Prompt: !?14,DGEC1(4)
  • Line Location: EC+34
Function Call: WRITE
  • Prompt: ", "_$$GET1^DIQ(5,+DGEC1(5),1)
  • Line Location: EC+37
Function Call: WRITE
  • Prompt: " ",$P(DGEC1(11),"^",2)
  • Line Location: EC+38
Function Call: WRITE
  • Prompt: " "_$$GET1^DIQ(2,DFN_",",.3307)_" "_$$GET1^DIQ(2,DFN_",",.3308)
  • Line Location: EC+40
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+43
Function Call: WRITE
  • Prompt: ?50,DGEC2(4)
  • Line Location: EC+44
Function Call: WRITE
  • Prompt: ", "_$$GET1^DIQ(5,+DGEC2(5),1)
  • Line Location: EC+47
Function Call: WRITE
  • Prompt: " ",$P(DGEC2(11),"^",2)
  • Line Location: EC+48
Function Call: WRITE
  • Prompt: " "_$$GET1^DIQ(2,DFN_",",.331013)_" "_$$GET1^DIQ(2,DFN_",",.331014)
  • Line Location: EC+50
Function Call: WRITE
  • Prompt: !?14,$E(DGCNTRY1,1,30)
  • Line Location: EC+52
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+53
Function Call: WRITE
  • Prompt: ?50,$E(DGCNTRY2,1,30)
  • Line Location: EC+54
Function Call: WRITE
  • Prompt: !,?7,"Phone: ",$S(DGEC1(8)]"":DGEC1(8),1:"UNSPECIFIED")
  • Line Location: EC+56
Function Call: WRITE
  • Prompt: ?43,"Phone: ",$S(DGEC2(8)]"":DGEC2(8),1:"UNSPECIFIED")
  • Line Location: EC+57
Function Call: WRITE
  • Prompt: !?2,"Work Phone: ",$S($P(^DPT(DFN,.33),U,11)]"":$P(^DPT(DFN,.33),U,11),1:"UNSPECIFIED")
  • Line Location: EC+58
Function Call: WRITE
  • Prompt: ?38,"Work Phone: ",$S($P(^DPT(DFN,.331),U,11)]"":$P(^DPT(DFN,.331),U,11),1:"UNSPECIFIED")
  • Line Location: EC+59
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,DGLINE
  • Line Location: HDR+23
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: HDR+24
Routine Call
  • %ZIS
  • Line Location:
    • HDR
Routine Call
  • DIR
  • Line Location:
    • OKLINE+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EC+58, EC+59
^UTILITY($J HDR+21!, HDR+22, HDR+23, HDR+25!

Label References

Name Line Occurrences
HDR OKLINE+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN EC+4, EC+26, EC+27, EC+40, EC+50, EC+58, EC+59, CATDIS+3, CATDIS+4, HDR+8
HDR+10
DGCDIS CATDIS+2~, CATDIS+4
DGCDIS("REVDTE" CATDIS+5, CATDIS+6
DGCNT HDR+4~, HDR+22*, HDR+23
DGCNTRY1 EC+3~, EC+26*, EC+28, EC+30*, EC+52, EC+53
DGCNTRY2 EC+3~, EC+27*, EC+29, EC+31*, EC+54
DGDOB HDR+4~, HDR+15*, HDR+16*, HDR+18
DGEC1 EC+1~
DGEC1(1 EC+15, EC+16
DGEC1(10 EC+12
DGEC1(11 EC+38
DGEC1(2 EC+18, EC+19
DGEC1(3 EC+21, EC+22
DGEC1(4 EC+33, EC+34, EC+43
DGEC1(5 EC+37
DGEC1(8 EC+56
DGEC1(9 EC+7, EC+10
DGEC2 EC+1~
DGEC2(1 EC+16, EC+17
DGEC2(10 EC+13
DGEC2(11 EC+48
DGEC2(2 EC+19, EC+20
DGEC2(3 EC+22, EC+23
DGEC2(4 EC+42, EC+44
DGEC2(5 EC+47
DGEC2(8 EC+57
DGEC2(9 EC+11, EC+13, EC+57, EC+59
DGEPI HDR+4~, HDR+14*, HDR+18
DGFOR1 EC+3~, EC+28*, EC+36, EC+39
DGFOR2 EC+3~, EC+29*, EC+46, EC+49
DGLINE HDR+4~, HDR+23*, OKLINE~, OKLINE+6, OKLINE+7*, OKLINE+8
DGLN HDR+4~, HDR+23*
DGNAME HDR+4~, HDR+11*, HDR+18
DGPRFNAM HDR+4~, HDR+8*, HDR+9*, HDR+18
>> DGRPOUT OKLINE+7*
DGSSN HDR+4~, HDR+13*, HDR+18
DGSSNNM HDR+4~, HDR+10*, HDR+11, HDR+12
DGSSNNM1 HDR+4~, HDR+12*, HDR+13, HDR+14
DIR OKLINE+7~
DIR(0 OKLINE+7*
DIWF HDR+4~, HDR+21*
DIWL HDR+4~, HDR+21*
DIWR HDR+4~, HDR+21*
IOF HDRHDR+19
IOP HDR*!
IOST OKLINE+6
U EC+58, EC+59
>> VADM(3 HDR+15
>> VAOA("A" EC+5*, EC+6*
>> VAROOT EC+5*, EC+6*
X HDR+4~, HDR+18*, HDR+24*, OKLINE+5~
Y OKLINE+5~, OKLINE+7
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 |  Local Variables  | All