Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 7 ^%DT  EN^DDIOL  CLRMSG^DDS  IX^DIC  DO^DIC1  (FILE,YN)^DICN  ^DIE  
Registration 5 REC^DGSEC  $$UCASE^DPTLK1  ^DPTLK3  $$SEARCH^DPTLK7  $$CONF1^DPTNAME  
Kernel 1 $$FORMAT^XLFNAME7  
Master Patient Index VistA 1 PATIENT^MPIFXMLP  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DPTLK  DPTLK7  

Entry Points

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

External References

Name Field # of Occurrence
^%DT HLPID+1
EN^DDIOL P1+4, CHKIT+7
CLRMSG^DDS DPTLK2+3, ASKADD
REC^DGSEC ASKID+9
IX^DIC P1+1
DO^DIC1 P1+2
FILE^DICN DPTLK2+22
YN^DICN ASKADD+2
^DIE DPTLK2+28, DPTLK2+36
$$UCASE^DPTLK1 P1
^DPTLK3 DPTLK2+17
$$SEARCH^DPTLK7 DPTLK2+14
$$CONF1^DPTNAME ASKADD+3
PATIENT^MPIFXMLP DPTLK2+12
$$FORMAT^XLFNAME7 DPTLK2+6

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
Routine Call
  • DDS
  • Line Location:
    • DPTLK2+3
    • ASKADD
Routine Call
  • DIC
  • Line Location:
    • P1+1
Routine Call
  • DIE
  • Line Location:
    • DPTLK2+28
    • DPTLK2+36

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DEL+2
^DD(2 DPTLK2+31, DPTLK2+33, CHKID1, HLPID, HLPID+1, DEL+1
^DG(391 - [#391] CHKIT+5, CHKIT+6
^DIC - [#1] DEL+3
^DIC(2 DPTLK2+5
^DPT - [#2] P1+4
^DPT(0 ASKADD+1

Label References

Name Line Occurrences
ASKADD DPTLK2+17, ASKADD+2
ASKID CHKID1, ASKID+10, ASKID+12, ASKID+14, SKIP, SKIP+3
CHKID DPTLK2+17
CHKID1 CHKID+1
CHKIT SKIP+1
HLPID ASKID+12, ASKID+14, SKIP+3
P1 SKIP, HLPID+3, P1+2
Q DPTLK2+4, DPTLK2+5, DPTLK2+8, DPTLK2+12, DPTLK2+17
SKIP ASKID+13

Naked Globals

Name Field # of Occurrence
^( HLPID, DEL+2
^("LAYGO" DPTLK2+5
^(0 HLPID, CHKIT+6
^(3 HLPID
^(4 HLPID+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASKADD+2*, ASKADD+3
>> %DT HLPID+1*
A DEL+1~, DEL+2*, DEL+3
>> D P1+1*
DA DPTLK2+26!, DPTLK2+27*, DPTLK2+36*!, DEL+3
DD DPTLK2+19!
>> DDS DPTLK2+3, ASKADD
>> DDSHBX DPTLK2+3, ASKADD
>> DDXY DPTLK2+3, ASKADD
DFN Q!, CHKID!
DG20NAME DPTLK2+6~*
DGCOL DPTLK2+2~*, DPTLK2+10*, DPTLK2+17, DPTLK2+21, DPTLK2+30, CHKID
DGCOL("DR" DPTLK2+10*, DPTLK2+21
DGNEWPT ASKID+7~, ASKID+8*
DGREC ASKID~
DGSAVDFN DPTLK2+13~, DPTLK2+14*, DPTLK2+15
>> DGSEARCH DPTLK2+14
DGVV DPTLK2+2~, CHKIT+2*, CHKIT+5*, CHKIT+6*, CHKIT+7
>> DIC P1+1*, P1+2*
>> DIC("DR" DPTLK2+10, DPTLK2+17, DPTLK2+20*, DPTLK2+21*, DPTLK2+22!, DPTLK2+30
>> DIC("S" P1+1, P1+2*
>> DIC("W" P1+1, P1+2*
>> DIC(0 DPTLK2+4, DPTLK2+5, DPTLK2+8, DPTLK2+17, DPTLK2+30, P1+1*, P1+2*
DIE DPTLK2+26!, DPTLK2+27*, DPTLK2+36*!
DIE("NO^" DPTLK2+19, DPTLK2+24*, DPTLK2+36*
>> DLAYGO DPTLK2+5
DO DPTLK2+19!
>> DPT("DR" DPTLK2+20, DPTLK2+21, DPTLK2+22, Q!, CHKID1*, SKIP*, SKIP+1*, SKIP+2*
>> DPT("NO^" DPTLK2+19*, DPTLK2+24
DPTCT DPTLK2+2~, CHKID+1*
>> DPTDFN DPTLK2+4*, DPTLK2+5*, DPTLK2+8*, DPTLK2+15*, DPTLK2+16*, DPTLK2+17, DPTLK2+18, DPTLK2+24*, DPTLK2+36, ASKADD+2*
, ASKADD+3*, CHKID*, CHKID+1, CHKID1*, P1+2*
DPTDIC P1+1*, P1+2!
DPTDIC("S" P1+1*, P1+2
DPTDIC("W" P1+1*, P1+2
DPTDIC(0 P1+1*, P1+2
DPTGID DPTLK2+32, Q!, CHKID*, CHKID+1, ASKID+6*
DPTID DPTLK2+31*, DPTLK2+32, DPTLK2+33, DPTLK2+35, Q!, CHKID+1*, CHKID1, ASKID+4, ASKID+12, ASKID+13
, SKIP, SKIP+1, SKIP+2, HLPID, HLPID+1, P1, P1+4
DPTID0 Q!, CHKID1*, ASKID, ASKID+15, SKIP, SKIP+2, SKIP+3, HLPID+1, HLPID+2, HLPID+3
, P1+1
DPTIDS Q!
DPTIDS( SKIP*, SKIP+1*, SKIP+2*
DPTIDS(1901 CHKIT+7
DPTIDS(391 CHKIT+2
DPTLID DPTLK2+17!, DPTLK2+34*, DPTLK2+36, Q!
DPTLIDR DPTLK2+2~, DPTLK2+35*, DPTLK2+36
DPTSET ASKID+15*, SKIP!, SKIP+1!, SKIP+2!
DPTX DPTLK2+6*, DPTLK2+7*, DPTLK2+8, DPTLK2+14, DPTLK2+19!, ASKADD+1, ASKADD+3, ASKID, P1+4, CHKIT+7
>> DPTXX DPTLK2+14
DPTZNV DPTLK2+19~
DR DPTLK2+26!, DPTLK2+27*, DPTLK2+28!, DPTLK2+36*!
DTIME ASKID
>> DTOUT DPTLK2+16, DPTLK2+18, ASKID, ASKID+1*, ASKID+3
>> DUOUT DPTLK2+16*, DPTLK2+18*, ASKID, ASKID+2*, ASKID+3
DUZ(0 DPTLK2+4, DPTLK2+5
>> DX DPTLK2+3*, ASKADD*
>> DY DPTLK2+3*, ASKADD*
ERR DEL+1~*, DEL+3*, DEL+4
G DEL+1~, DEL+3*
I DPTLK2+5*, ASKID+15*, HLPID*, HLPID+2*, DEL+1~*, DEL+2, DEL+3
J DEL+1~*, DEL+2
>> K DEL+2*
Q DEL+1~*, DEL+3
U DPTLK2+10, DPTLK2+32, ASKADD+1, CHKID+1, ASKID, ASKID+1, ASKID+15, SKIP, SKIP+2, SKIP+3
, HLPID+1, HLPID+2, HLPID+3, P1+4, DEL+2, DEL+3
X DPTLK2+19*, CHKID1, ASKID*!, ASKID+2, ASKID+3, ASKID+6, ASKID+10, ASKID+12, ASKID+13, ASKID+14
, ASKID+15!*, SKIP, SKIP+1, SKIP+2, SKIP+3, HLPID, HLPID+1*, P1*, P1+2*, P1+4*!
, CHKIT+1, CHKIT+7!
>> XQY0 DPTLK2+10, DPTLK2+12
>> Y DPTLK2+23, DPTLK2+24, DPTLK2+27, ASKADD+1*, ASKID+15*, SKIP, HLPID+2*, P1+2, P1+4

Marked Items

Name Field # of Occurrence
$T(PATIENT^MPIFXMLP DPTLK2+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All