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

Package: Registration

Routine: DGRP2


Information

DGRP2 ;ALB/MRL,BRM,ARF,JAM,ARF - REGISTRATION SCREEN 2/CONTACT INFORMATION ;06 JUN 88@2300

Source Information

Source file <DGRP2.m>

Entry Points

Name Comments DBIA/ICR reference
NEWB ;-- check patient DOB, if DOB<365 days, set marital status to "never married"

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Marital: "
  • Line Location: DGRP2+9
Function Call: WRITE
  • Prompt: " Sex: "
  • Line Location: DGRP2+10
Function Call: WRITE
  • Prompt: ?41,"POB: ",$E($S((DGNOCITY&DGUNK):"UNANSWERED",1:DGD_$S(($L(DGD)):", ",1:"")_DGD1),1,29)
  • Line Location: DGRP2+12
Function Call: WRITE
  • Prompt: !?4,"Religion: ",$S($D(^DIC(13,+$P(DGRPX,"^",8),0)):$P(^(0),"^",1),1:DGRPU),?41,"Father: ",$S($P(DGRP(.24),"^",1)]"":$E($P(DGRP(.24),"^",1),1,29),1:DGRPU)
  • Line Location: DGRP2+14
Function Call: WRITE
  • Prompt: !?9,"SCI: ",X
  • Line Location: DGRP2+15
Function Call: WRITE
  • Prompt: ?41,"Mother: ",$S($P(DGRP(.24),"^",2)]"":$E($P(DGRP(.24),"^",2),1,29),1:DGRPU)
  • Line Location: DGRP2+16
Function Call: WRITE
  • Prompt: !,?35,"Mom's Maiden: ",$S($P(DGRP(.24),"^",3)]"":$E($P(DGRP(.24),"^",3),1,29),1:DGRPU)
  • Line Location: DGRP2+17
Function Call: WRITE
  • Prompt: !?4,X,?28,X
  • Line Location: DGRP2+18
Function Call: WRITE
  • Prompt: !?4,X,?28,X
  • Line Location: DGRP2+19
Function Call: WRITE
  • Prompt: ?28,$S($D(^DIC(4,+I1,0)):$P(^(0),"^",1),1:DGRPU)
  • Line Location: DGRP2+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP2+21
Function Call: WRITE
  • Prompt: " Ethnicity: "
  • Line Location: DGRP2+21
Function Call: WRITE
  • Prompt: "UNANSWERED"
  • Line Location: DGRP2+22
Function Call: WRITE
  • Prompt: !?15
  • Line Location: DGRP2+32
Function Call: WRITE
  • Prompt: X
  • Line Location: DGRP2+33
Function Call: WRITE
  • Prompt: !?9,"Race: "
  • Line Location: DGRP2+35
Function Call: WRITE
  • Prompt: "UNANSWERED"
  • Line Location: DGRP2+36
Function Call: WRITE
  • Prompt: !?15
  • Line Location: DGRP2+46
Function Call: WRITE
  • Prompt: X
  • Line Location: DGRP2+47
Function Call: WRITE
  • Prompt: !!
  • Line Location: DGRP2+50
Function Call: WRITE
  • Prompt: "<4> Date of Death Information"
  • Line Location: DGRP2+51
Function Call: WRITE
  • Prompt: !,?5,"Date of Death: ",$G(PDTHINFO(2,DFN_",",.351,"E"))
  • Line Location: DGRP2+52
Function Call: WRITE
  • Prompt: ?41,"Source of Notification: ",$G(PDTHINFO(2,DFN_",",.353,"E"))
  • Line Location: DGRP2+53
Function Call: WRITE
  • Prompt: !,?5,"Updated Date/Time: ",$G(PDTHINFO(2,DFN_",",.354,"E"))
  • Line Location: DGRP2+54
Function Call: WRITE
  • Prompt: ?41,"Last Edited By: ",$G(PDTHINFO(2,DFN_",",.355,"E")),!
  • Line Location: DGRP2+55
Function Call: WRITE
  • Prompt: " Emergency Response: "_$$EXTERNAL^DILFD(2,.181,,DGEMRES)
  • Line Location: DGRP2+60
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP2+63
Function Call: WRITE
  • Prompt: ?10,"Indian: "
  • Line Location: DGRP2+64
Function Call: WRITE
  • Prompt: ?2," AI/AN Verified: "
  • Line Location: DGRP2+65
Function Call: WRITE
  • Prompt: "UNANSWERED"
  • Line Location: DGRP2+72
Function Call: WRITE
  • Prompt: DGIND1
  • Line Location: DGRP2+73
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRP2+78

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] EXTERNAL^DILFD,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call