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

Package: Registration

Routine: DPTLK7


Information

DPTLK7 ;OAK/ELZ,ARF - MAS PATIENT LOOKUP ENTERPRISE SEARCH ;15 May 2020 2:31 PM

Source Information

Source file <DPTLK7.m>

Entry Points

Name Comments DBIA/ICR reference
SEARCH(DGX,DGXOLD) ; do a search, pass in what the user entered
; DGX is what the user originally entered, name is assumed unless it
; is exactly 9 digits, DON'T pass by reference it may change
; Return: DFN (new or found locally), 0 if nothing found/added
YN ;Enterprise Search?
PROMPT
QUIT
MPIADD(DGMPIR) ; - call to add patient to the MPI and store ICN locally
; - web service call for adding and getting new ICN
NAME(DGX,DG20NAME,DGOUT) ;- ask for name components
START
AGAIN
ASK
ADDRESS(DGFLDS,DGOUT) ;- prompt for address
FLDS(DGFLDS,DGNAME,DGOUT) ;- prompt for the various FM fields
; Data returned in array
ASKREQID(DGNAME,DPTIDS) ;Use code from CHKID1^DPTLK2 to prompt for additional required identifiers
PSREASON(DGFLDS,DGOUT) ; - prompts (and requires) pseudo reason
PSAGAIN
FORMAT(DGR,DGN,DGF) ; - format data for MPI call
FORMATR(DGF,DGM,DG20NAME) ; - merge MPI and user input (MPI authorative)
ADD(DGF,DG20NAME) ; - stuff in patient
; Pass in the fields to set in the DGF array.
; Alaso Name components in DG20NAME array. Returns new DFN
ADDREQ(DGFLDS) ; - determine if enough address data entered
; returns OK to proceed (1) or not (0)
PSEUDO(NAM,DOB) ; - return pseudo ssn
BULL(SAVY) ; - send bulletin that new patient added

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Do you want to do an Enterprise Search"
  • Line Location: YN+1
Function Call: WRITE
  • Prompt: !,"You must enter Yes or No."
  • Line Location: YN+2
Function Call: WRITE
  • Prompt: !,"You must enter an actual SSN, a COMPLETE Address or Phone to search.",!
  • Line Location: PROMPT+9
Function Call: WRITE
  • Prompt: !!,"Searching the MVI..."
  • Line Location: PROMPT+14
Function Call: WRITE
  • Prompt: !,$S(DGMPIR("count")>10:DGMPIR("count"),1:"Too many")," records found, you need to provide more specific criteria.",!
  • Line Location: PROMPT+21
Function Call: WRITE
  • Prompt: !,"No records found on the MVI.",!
  • Line Location: PROMPT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+61
Function Call: WRITE
  • Prompt: !,"Adding site correlation to MVI "
  • Line Location: PROMPT+65
Function Call: WRITE
  • Prompt: "."
  • Line Location: PROMPT+69
Function Call: WRITE
  • Prompt: "."
  • Line Location: PROMPT+72
Function Call: WRITE
  • Prompt: !,"Enrollment/Eligibility Query processing "
  • Line Location: PROMPT+73
Function Call: WRITE
  • Prompt: "."
  • Line Location: PROMPT+77
Function Call: WRITE
  • Prompt: !,"Query to ES timed out, proceeding with registration."
  • Line Location: PROMPT+79
Function Call: WRITE
  • Prompt: !,"The data will be uploaded when received."
  • Line Location: PROMPT+80
Function Call: WRITE
  • Prompt: !!
  • Line Location: PROMPT+81
Function Call: WRITE
  • Prompt: !,"The search returned one or more patients above the Auto-Link threshold,"
  • Line Location: PROMPT+85
Function Call: WRITE
  • Prompt: !,"none of them selected. Security key required to add without selection."
  • Line Location: PROMPT+86
Function Call: WRITE
  • Prompt: !,"Adding patient to the MVI..."
  • Line Location: MPIADD+6
Function Call: WRITE
  • Prompt: !,"Unable to add to MVI!",!,$G(DGMPIICN("ERRTXT")),!
  • Line Location: MPIADD+12
Function Call: WRITE
  • Prompt: !,"Patient name components--"
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !,$C(7),"Family name cannot be deleted!"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !,"Invalid values to use, full name must be at least 3 characters!",$C(7)
  • Line Location: ASK+18
Function Call: WRITE
  • Prompt: !,"Patient address--"
  • Line Location: ADDRESS+14
Function Call: WRITE
  • Prompt: !,"Patient identifiers--"
  • Line Location: FLDS+15
Function Call: WRITE
  • Prompt: *7,"??",!!,"Choose from:"
  • Line Location: PSAGAIN+2
Function Call: WRITE
  • Prompt: !,$P($P(DPTSET,";",P),":"),?10,$P($P(DPTSET,";",P),":",2)
  • Line Location: PSAGAIN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PSAGAIN+4
Function Call: WRITE
  • Prompt: *7," SSN Already used by patient '",$P(^(0),"^"),"'."
  • Line Location: ADD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
5.01 FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call