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

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

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

FileMan Files Accessed Via FileMan Db Call

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