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: DGRP3

Package: Registration

Routine: DGRP3


Information

DGRP3 ;ALB/MRL,JAM,ARF - REGISTRATION SCREEN 3/CONTACT INFORMATION ;06 JUN 88@2300

Source Information

Source file <DGRP3.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 3 ^DGRPP  (AL,H)^DGRPU  (WW,WW1)^DGRPV  
VA FileMan 3 FILE^DIE  $$GET1^DIQ  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
Q
SET
AW ;W !?4,"Relation: ",$E($P(X,"^",2),1,25),?43,"Relation: ",$E($P(X1,"^",2),1,25) F I=0:0 S I=$O(DGA(I)) Q:'I S Z=$E(DGA(I),1,27) S:(I#2) Z=" "_Z W:(I#2)!($X>50) ! W:(I#2) Z I '(I#2) W ?53,Z
; DG*5.3*997;jam; address fields have been expanded 10 chars - move the address lines output over 10 spaces to accommodate this
; DG*5.3*1067;arf; adding Type to Relation field and shifted left and alignged colons for Work Phone and Phone numbers
DR300(DGEC,DGTYPEFN,DGNOTEFN) ;DG*5.3*1067 - EMERGENCY CONTACT SCREEN <3> - Relation Type and Relation Note prompts processing
; Inputs:
; DGEC - Type of Contact ("K","K2","E","E2" or "D")
; DGTYPEFN - Contact's RELATION TYPE field number
; DGNOTEFN - Contact's RELATIONSHIP TO PATIENT field number (referred to as Relation Note)
RELTYPE ; Prompt for RELATION TYPE
RELNOTE ; Tag for re-prompting

External References

Name Field # of Occurrence
^DGRPP Q+1
AL^DGRPU DGRP3+8, DGRP3+12, DGRP3+18
H^DGRPU DGRP3+6
WW^DGRPV DGRP3+10, DGRP3+15, DGRP3+18
WW1^DGRPV DGRP3+10, DGRP3+15
FILE^DIE RELTYPE+7, RELTYPE+19, RELNOTE+9
$$GET1^DIQ DGRP3+19, AW+8, AW+12, AW+13, DR300+15, RELTYPE+9, RELTYPE+13, RELTYPE+25
^DIR RELTYPE+1, RELNOTE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " NOK: "
  • Line Location: DGRP3+10
Function Call: WRITE
  • Prompt: " NOK-2: ",$E($P(X1,"^",1),1,25)
  • Line Location: DGRP3+10
Function Call: WRITE
  • Prompt: " E-Cont.: "
  • Line Location: DGRP3+15
Function Call: WRITE
  • Prompt: " E2-Cont.: ",$E($P(X1,"^",1),1,25)
  • Line Location: DGRP3+15
Function Call: WRITE
  • Prompt: " Designee: ",$E($P(X,"^",1),1,25),?39,"Relation Type: "
  • Line Location: DGRP3+18
Function Call: WRITE
  • Prompt: !,Z
  • Line Location: DGRP3+21
Function Call: WRITE
  • Prompt: !?8,"Phone: ",$P(X,"^",3),?42,"Work Phone: ",$P(X,"^",4)
  • Line Location: DGRP3+25
Function Call: WRITE
  • Prompt: ?53,Z
  • Line Location: AW+0
Function Call: WRITE
  • Prompt: ?43,Z
  • Line Location: AW+3
Function Call: WRITE
  • Prompt: !,"Relation Type: "
  • Line Location: AW+6
Function Call: WRITE
  • Prompt: $E($$GET1^DIQ(12.11,$P(X,U,5),.02),1,25)
  • Line Location: AW+8
Function Call: WRITE
  • Prompt: "UNANSWERED"
  • Line Location: AW+10
Function Call: WRITE
  • Prompt: ?39,"Relation Type: "
  • Line Location: AW+11
Function Call: WRITE
  • Prompt: $E($$GET1^DIQ(12.11,$P(X1,U,5),.02),1,25)
  • Line Location: AW+13
Function Call: WRITE
  • Prompt: "UNANSWERED"
  • Line Location: AW+15
Function Call: WRITE
  • Prompt: !,"Relation Note: ",$E($P(X,"^",2),1,25)
  • Line Location: AW+18
Function Call: WRITE
  • Prompt: !
  • Line Location: AW+19
Function Call: WRITE
  • Prompt: ?38," Relation Note: ",$E($P(X1,"^",2),1,25)
  • Line Location: AW+20
Function Call: WRITE
  • Prompt: ?43,Z
  • Line Location: AW+22
Function Call: WRITE
  • Prompt: !?8,"Phone: ",$P(X,"^",3),?47,"Phone: ",$P(X1,"^",3)
  • Line Location: AW+23
Function Call: WRITE
  • Prompt: !?3,"Work Phone: ",$P(X,"^",4),?42,"Work Phone: ",$P(X1,"^",4)
  • Line Location: AW+24
Function Call: WRITE
  • Prompt: !,"This is a required field."
  • Line Location: RELTYPE+5
Function Call: WRITE
  • Prompt: !,"**The "_DGEC_"-RELATION NOTE field is changed from "_DGNOTEVAL_" to "_DGTYPENEWNM_"**"
  • Line Location: RELTYPE+21
Function Call: WRITE
  • Prompt: !,"The field may not be deleted."
  • Line Location: RELNOTE+5
Routine Call
  • DIE
  • Line Location:
    • RELTYPE+7
    • RELTYPE+19
    • RELNOTE+9
Routine Call
  • DIR
  • Line Location:
    • RELTYPE+1
    • RELNOTE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(12.11 - [#12.11] GET1^DIQ
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DGRP3+6

Label References

Name Line Occurrences
AW DGRP3+10, DGRP3+15
RELNOTE RELNOTE+5
RELTYPE RELTYPE+5
SET DGRP3+9, DGRP3+13, DGRP3+18

Naked Globals

Name Field # of Occurrence
^( DGRP3+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DR300+13~, DR300+18*, RELTYPE+24*
>> DFN DGRP3+6, DR300+15, DR300+18, RELTYPE+6, RELTYPE+9, RELTYPE+13, RELTYPE+18, RELTYPE+24, RELTYPE+25, RELNOTE+8
DGA DGRP3+18!, AW+25!
DGA( DGRP3+23, AW+22
>> DGA1 DGRP3+8*, DGRP3+12*, DGRP3+18*
>> DGA2 DGRP3+8*, DGRP3+12*, DGRP3+18*
>> DGAD DGRP3+8*, DGRP3+12*, DGRP3+18*
DGEC DR300~, DR300+18, RELTYPE+21, RELTYPE+24
DGERR DR300+13~
DGFDA DR300+13~, RELTYPE+17!, RELNOTE+7!
DGFDA(2 RELTYPE+6*, RELTYPE+18*, RELNOTE+8*
DGNOTEFN DR300~, RELTYPE+13, RELTYPE+18, RELTYPE+24, RELTYPE+25, RELNOTE+8
DGNOTEVAL DR300+13~, RELTYPE+13*, RELTYPE+15, RELTYPE+21
>> DGRP( DGRP3+6*, DGRP3+8, DGRP3+12, DGRP3+18, DGRP3+19, SET+1
DGRPI DGRP3+9*, DGRP3+13*, DGRP3+18*, Q!, SET+1
DGRPI1 DGRP3+9*, DGRP3+13*, DGRP3+18*, Q!, SET+2
>> DGRPS DGRP3+6*
>> DGRPU SET
>> DGRPW DGRP3+6*, DGRP3+10*, DGRP3+12*, DGRP3+15*, DGRP3+18*
DGRPX SET*, SET+1*, SET+2, SET+3!
DGRPX1 SET+1*, SET+3!
>> DGTMOT RELTYPE+4*, RELNOTE+4*
DGTYPEFN DR300~, DR300+15, DR300+18, RELTYPE+6, RELTYPE+9
DGTYPENAME DR300+13~, DR300+15*, DR300+17, RELTYPE+11
DGTYPENEWNM DR300+13~, RELTYPE+9*, RELTYPE+11, RELTYPE+15, RELTYPE+18, RELTYPE+21
DIR DR300+13~, RELTYPE+23!
DIR("A" DR300+18*, RELTYPE+24*
DIR("B" DR300+17*, RELTYPE+25*
DIR(0 DR300+18*, RELTYPE+24*
DTOUT DR300+13~, RELTYPE+4, RELNOTE+4
DUOUT DR300+13~, RELTYPE+3, RELNOTE+3
>> I DGRP3+6*, DGRP3+23*, AW+22*
U AW+7, AW+8, AW+13
X DGRP3+10, DGRP3+15, DGRP3+18, DGRP3+23, DGRP3+25, AW+7, AW+8, AW+17, AW+18, AW+19
AW+23, AW+24, DR300+13~, RELNOTE+5
>> X1 DGRP3+10, DGRP3+15, AW+12, AW+13, AW+19, AW+20, AW+23, AW+24
Y DR300+13~, RELTYPE+5, RELTYPE+6, RELNOTE+6, RELNOTE+8
>> Z DGRP3+10*, DGRP3+15*, DGRP3+18*, DGRP3+23*, AW+22*
>> Z1 DGRP3+10*, DGRP3+15*
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