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

Package: Registration

Routine: DPTLK2


Information

DPTLK2 ;ALB/RMO,ERC - MAS Patient Look-up Add New Patient ;13 Feb 2020 3:00 PM

Source Information

Source file <DPTLK2.m>

Entry Points

Name Comments DBIA/ICR reference
Q
ASKADD
CHKID
CHKID1
ASKID
SKIP
HLPID
P1
CHKIT ; do input transform for .301
DEL ;Delete logic

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"...adding new patient"
  • Line Location: DPTLK2+17
Function Call: WRITE
  • Prompt: ?24,"...new patient added",!?3
  • Line Location: DPTLK2+23
Function Call: WRITE
  • Prompt: !!?3,"Please enter the following additional information:",!?3
  • Line Location: DPTLK2+36
Function Call: WRITE
  • Prompt: !?6,"Enter 'YES' to add a new applicant, or 'NO' not to."
  • Line Location: ASKADD+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKID+0
Function Call: WRITE
  • Prompt: !?3,"PATIENT ",$P(DPTID0,U),": "
  • Line Location: ASKID+0
Function Call: WRITE
  • Prompt: !?6,*7,"<'",DPTX,"'> NOT ADDED"
  • Line Location: ASKID+0
Function Call: WRITE
  • Prompt: !?6,*7,"Sorry, '^' not allowed!"
  • Condition for execution: $E(X)["^"
  • Line Location: ASKID+10
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: ASKID+10
Function Call: WRITE
  • Prompt: !?5,^(0)
  • Line Location: HLPID+0
Function Call: WRITE
  • Prompt: !?5,"..."
  • Line Location: HLPID+0
Function Call: WRITE
  • Prompt: !?7,"CHOOSE FROM: "
  • Line Location: HLPID+2
Function Call: WRITE
  • Prompt: !?7,$P(Y,":",1),?15," ",$P(Y,":",2)
  • Line Location: HLPID+2
Function Call: WRITE
  • Prompt: !?6,*7,"<'",DPTX,"'> NOT ADDED"
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: !?6,*7,"<'",DPTX,"'> NOT ADDED"
  • Line Location: CHKIT+7
Function Call: WRITE
  • Prompt: !,"Entry in "_$P($G(^DIC(I,0)),U)_" ("_I_") refers to this patient"
  • Line Location: DEL+3

FileMan Files Accessed Via FileMan Db Call

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