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

Package: Registration

Routine: DGRP1


Information

DGRP1 ;ALB/MRL,ERC,BAJ,PWC,JAM,JAM,ARF - DEMOGRAPHIC DATA ;19 Jul 2017 3:02 PM

Source Information

Source file <DGRP1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
; JAM - Patch DG*5.3*941, Reformatting Registration screen 1. New field layout.
LANGUAGE ;Get language data *///*
L1
GETNCAL ;Get name component values
A2
GETSTAT(SSNV) ;get SSN VERIFIED STATUS DG*5.3*688 BAJ 11/22/2005
SSNREAS(DGREAS) ;get Pseuso SSN Reason - DG*5.3*653, ERC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Name: "
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: "DOB: ",Y
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: "SS: "
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: SSNV
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: "PSSN Reason: "
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: DGREAS
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: " Remarks: ",$S($P(DGRPX,"^",10)]"":$E($P(DGRPX,"^",10),1,65),1:"NO REMARKS ENTERED FOR THIS PATIENT")
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: " Cell Phone: "
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: ?19,$P(DGRP(.13),U,4)
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: ?19,"UNANSWERED"
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: ?47,"Pager #: ",?56,$P(DGRP(.13),U,5)
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: ?56,$P(DGRP(.13),U,5)
  • Line Location: EN+40
Function Call: WRITE
  • Prompt: ?56,"UNANSWERED"
  • Line Location: EN+41
Function Call: WRITE
  • Prompt: !," Email Address: "
  • Line Location: EN+44
Function Call: WRITE
  • Prompt: ?19,$P(DGRP(.13),U,3)
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: ?19,"UNANSWERED"
  • Line Location: EN+46
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: " Pref Lang: ",$E($S(DGRP(2)="":"UNANSWERED",1:DGRP(2)),1,34)," Date/Time: ",$S(DGRP(1)="":"UNANSWERED",1:DGRP(1))
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+7
Function Call: WRITE
  • Prompt: !," [MAILING ADDRESS LAST CHANGED:] "_$$FMTE^XLFDT(ADDRDTTM,"5D")
  • Line Location: L1+16
Function Call: WRITE
  • Prompt: !," [INSURANCE:] ",$P(DGDATA("IBBAPI","INSUR",DGI,1),U,2)
  • Line Location: L1+22
Function Call: WRITE
  • Prompt: " EFFECTIVE DATE: ",$$FMTE^XLFDT(DGDATA("IBBAPI","INSUR",DGI,10),"5D")," EXPIRATION DATE: ",$$FMTE^XLFDT(DGDATA("IBBAPI","INSUR",DGI,11),"5D")
  • Line Location: L1+23
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+25
Function Call: WRITE
  • Prompt: ?37,"Birth Sex: "
  • Line Location: A2+19
Function Call: WRITE
  • Prompt: ?56,"MBI: "
  • Line Location: A2+20
Function Call: WRITE
  • Prompt: ?37
  • Line Location: A2+21
Function Call: WRITE
  • Prompt: " Alias: "
  • Line Location: A2+21
Function Call: WRITE
  • Prompt: ?47,$G(DGALIAS(DGI-1))
  • Line Location: A2+22
Function Call: WRITE
  • Prompt: !?3,"Self-Identified Gender Identity: "
  • Line Location: A2+25
Function Call: WRITE
  • Prompt: Z
  • Line Location: A2+28

FileMan Files Accessed Via FileMan Db Call

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