Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call