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 - PATIENT INQUIRY (NEW) ; 8/15/08 11:35am

Source Information

Source file <DGRPD1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 ^%ZIS  $$FMTE^XLFDT  
Registration 2 $$GET^DGENCDA  (KVAR,OAD)^VADPT  
VA Fileman 2 $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGRPD  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS HDR
$$GET^DGENCDA CATDIS+4
$$GET1^DIQ EC+25, EC+31
^DIR OKLINE+7
KVAR^VADPT EC+38
OAD^VADPT EC+3, EC+4
$$FMTE^XLFDT CATDIS+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Emergency Contact Information:"
  • Line Location: EC+6
Function Call: WRITE
  • Prompt: !?5,"E-Cont.: ",DGEC1(9)
  • Line Location: EC+8
Function Call: WRITE
  • Prompt: ?40,"E2-Cont.: ",DGEC2(9)
  • Line Location: EC+9
Function Call: WRITE
  • Prompt: !,"Relationship: ",DGEC1(10)
  • Line Location: EC+10
Function Call: WRITE
  • Prompt: ?36,"Relationship: ",DGEC2(10)
  • Line Location: EC+11
Function Call: WRITE
  • Prompt: !?14,DGEC1(1)
  • Line Location: EC+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+14
Function Call: WRITE
  • Prompt: ?50,DGEC2(1)
  • Line Location: EC+15
Function Call: WRITE
  • Prompt: !?14,DGEC1(2)
  • Line Location: EC+16
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+17
Function Call: WRITE
  • Prompt: ?50,DGEC2(2)
  • Line Location: EC+18
Function Call: WRITE
  • Prompt: !?14,DGEC1(3)
  • Line Location: EC+19
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+20
Function Call: WRITE
  • Prompt: ?50,DGEC2(3)
  • Line Location: EC+21
Function Call: WRITE
  • Prompt: !?14,DGEC1(4)
  • Line Location: EC+24
Function Call: WRITE
  • Prompt: ", "_$$GET1^DIQ(5,+DGEC1(5),1)
  • Line Location: EC+25
Function Call: WRITE
  • Prompt: " ",$P(DGEC1(11),"^",2)
  • Line Location: EC+26
Function Call: WRITE
  • Prompt: !
  • Line Location: EC+29
Function Call: WRITE
  • Prompt: ?50,DGEC2(4)
  • Line Location: EC+30
Function Call: WRITE
  • Prompt: ", "_$$GET1^DIQ(5,+DGEC2(5),1)
  • Line Location: EC+31
Function Call: WRITE
  • Prompt: " ",$P(DGEC2(11),"^",2)
  • Line Location: EC+32
Function Call: WRITE
  • Prompt: !,?7,"Phone: ",$S(DGEC1(8)]"":DGEC1(8),1:"UNSPECIFIED")
  • Line Location: EC+34
Function Call: WRITE
  • Prompt: ?43,"Phone: ",$S(DGEC2(8)]"":DGEC2(8),1:"UNSPECIFIED")
  • Line Location: EC+35
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+36
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+37
Function Call: WRITE
  • Prompt: @IOF,!,$P(VADM(1),"^",1),?40,$P(VADM(2),"^",2),?65,$P(VADM(3),"^",2)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,X,!?15,"COORDINATING MASTER OF RECORD: ",DGCMOR,!
  • Line Location: HDR+2
Routine Call
  • DIR
  • Line Location:
    • OKLINE+7
Routine Call
  • %ZIS
  • Line Location:
    • HDR

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EC+36, EC+37

Label References

Name Line Occurrences
HDR OKLINE+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN EC+2, EC+36, EC+37, CATDIS+3, CATDIS+4
DGCDIS CATDIS+2~, CATDIS+4
DGCDIS("REVDTE" CATDIS+5, CATDIS+6
>> DGCMOR HDR+2
DGEC1 EC+1~
DGEC1(1 EC+13, EC+14
DGEC1(10 EC+10
DGEC1(11 EC+26
DGEC1(2 EC+16, EC+17
DGEC1(3 EC+19, EC+20
DGEC1(4 EC+23, EC+24, EC+29
DGEC1(5 EC+25
DGEC1(8 EC+34
DGEC1(9 EC+5, EC+8
DGEC2 EC+1~
DGEC2(1 EC+14, EC+15
DGEC2(10 EC+11
DGEC2(11 EC+32
DGEC2(2 EC+17, EC+18
DGEC2(3 EC+20, EC+21
DGEC2(4 EC+28, EC+30
DGEC2(5 EC+31
DGEC2(8 EC+35
DGEC2(9 EC+9, EC+11, EC+35, EC+37
DGLINE OKLINE~, OKLINE+6, OKLINE+7*, OKLINE+8
>> DGRPOUT OKLINE+7*
DIR OKLINE+7~
DIR(0 OKLINE+7*
IOF HDR, HDR+2
IOP HDR*!
IOST OKLINE+6
U EC+36, EC+37
>> VADM(1 HDR+2
>> VADM(2 HDR+2
>> VADM(3 HDR+2
>> VAOA("A" EC+3*, EC+4*
>> VAROOT EC+3*, EC+4*
X HDR+2*, 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