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,ARF - 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+38, EC+39
$$FORIEN^DGADDUTL EC+36, EC+37
$$GET^DGENCDA CATDIS+4
$$SSNNM^DGRPU HDR+10
$$GET1^DIQ EC+34, EC+35, EC+45, EC+48, EC+55, EC+58, HDR+8
^DIR OKLINE+7
^DIWP HDR+21
KVAR^VADPT EC+68
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: !?6,"E-Cont.: ",DGEC1(9)
  • Line Location: EC+10
Function Call: WRITE
  • Prompt: ?46,"E2-Cont.: ",DGEC2(9)
  • Line Location: EC+11
Function Call: WRITE
  • Prompt: "Relation Note: ",DGEC1(12)
  • Line Location: EC+19
Function Call: WRITE
  • Prompt: ?41,"Relation Note: ",DGEC2(12)
  • Line Location: EC+20
Function Call: WRITE
  • Prompt: !?14,DGEC1(1)
  • Line Location: EC+23
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+24
Function Call: WRITE
  • Prompt: ?50,DGEC2(1)
  • Line Location: EC+25
Function Call: WRITE
  • Prompt: !?14,DGEC1(2)
  • Line Location: EC+26
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+27
Function Call: WRITE
  • Prompt: ?50,DGEC2(2)
  • Line Location: EC+28
Function Call: WRITE
  • Prompt: !?14,DGEC1(3)
  • Line Location: EC+29
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+30
Function Call: WRITE
  • Prompt: ?50,DGEC2(3)
  • Line Location: EC+31
Function Call: WRITE
  • Prompt: !?14,DGEC1(4)
  • Line Location: EC+42
Function Call: WRITE
  • Prompt: ", "_$$GET1^DIQ(5,+DGEC1(5),1)
  • Line Location: EC+45
Function Call: WRITE
  • Prompt: " ",$P(DGEC1(11),"^",2)
  • Line Location: EC+46
Function Call: WRITE
  • Prompt: " "_$$GET1^DIQ(2,DFN_",",.3307)_" "_$$GET1^DIQ(2,DFN_",",.3308)
  • Line Location: EC+48
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+51
Function Call: WRITE
  • Prompt: ?50,DGEC2(4)
  • Line Location: EC+52
Function Call: WRITE
  • Prompt: ", "_$$GET1^DIQ(5,+DGEC2(5),1)
  • Line Location: EC+55
Function Call: WRITE
  • Prompt: " ",$P(DGEC2(11),"^",2)
  • Line Location: EC+56
Function Call: WRITE
  • Prompt: " "_$$GET1^DIQ(2,DFN_",",.331013)_" "_$$GET1^DIQ(2,DFN_",",.331014)
  • Line Location: EC+58
Function Call: WRITE
  • Prompt: !?14,$E(DGCNTRY1,1,30)
  • Line Location: EC+60
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+61
Function Call: WRITE
  • Prompt: ?50,$E(DGCNTRY2,1,30)
  • Line Location: EC+62
Function Call: WRITE
  • Prompt: !,?7,"Phone: ",$S(DGEC1(8)]"":DGEC1(8),1:"UNSPECIFIED")
  • Line Location: EC+64
Function Call: WRITE
  • Prompt: ?43,"Phone: ",$S(DGEC2(8)]"":DGEC2(8),1:"UNSPECIFIED")
  • Line Location: EC+65
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+66
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+67
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+66, EC+67
^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+34, EC+35, EC+48, EC+58, EC+66, EC+67, 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+34*, EC+36, EC+38*, EC+60, EC+61
DGCNTRY2 EC+3~, EC+35*, EC+37, EC+39*, EC+62
DGDOB HDR+4~, HDR+15*, HDR+16*, HDR+18
DGEC1 EC+1~
DGEC1(1 EC+23, EC+24
DGEC1(10 EC+15, EC+16, EC+19
DGEC1(11 EC+46
DGEC1(12 EC+15, EC+18, EC+19
DGEC1(2 EC+26, EC+27
DGEC1(3 EC+29, EC+30
DGEC1(4 EC+41, EC+42, EC+51
DGEC1(5 EC+45
DGEC1(8 EC+64
DGEC1(9 EC+7, EC+10
DGEC2 EC+1~
DGEC2(1 EC+24, EC+25
DGEC2(10 EC+15, EC+17, EC+20
DGEC2(11 EC+56
DGEC2(12 EC+15, EC+18, EC+20
DGEC2(2 EC+27, EC+28
DGEC2(3 EC+30, EC+31
DGEC2(4 EC+50, EC+52
DGEC2(5 EC+55
DGEC2(8 EC+65
DGEC2(9 EC+11, EC+65, EC+67
DGEPI HDR+4~, HDR+14*, HDR+18
DGFOR1 EC+3~, EC+36*, EC+44, EC+47
DGFOR2 EC+3~, EC+37*, EC+54, EC+57
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 HDR, HDR+19
IOP HDR*!
IOST OKLINE+6
U EC+66, EC+67
>> 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