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

Package: Registration

Routine: DPTLK1


Information

DPTLK1 ;ALB/RMO,EG - MAS Patient Look-up Check Cross-References ; 08/15/2006

Source Information

Source file <DPTLK1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 3 CLRMSG^DDS  YN^DICN  $$GET1^DIQ  
Kernel 2 $$FMTE^XLFDT  $$FORMAT^XLFNAME7  
Registration 2 $$EMPL^DGSEC4  $$SEARCH^DPTLK7  
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: 27

Package Total Caller Graph
Registration 6 DGQPT  DGQPTQ6  DGRRLU  DPTLK  DPTLK2  DPTLK6  
Clinical Procedures 3 MDRPCOP1  MDRPCOR  MDRPCU  
Order Entry Results Reporting 3 ORQPT  ORQPTQ6  ORWPT  
Consult Request Tracking 2 GMRCCCRA  GMRCHL7H  
Emergency Department Integration Software 2 EDPFPTL  EDPRPT13  
Scheduling 2 SCUTBK11  SDECPTPL  
Automated Medical Information Exchange 1 DVBAB84  
Barcode Medication Administration 1 PSBMLLKU  
General Medical Record - Vitals 1 GMVRPCP  
Imaging 1 MAGGTPT1  
Inpatient Medications 1 PSJDPT  
Mental Health 1 YTQAPI11  
Text Integration Utility 1 TIUCCRHL  
VA Point of Service 1 VPSRPC5  
Visual Impairment Service Team 1 ANRVOA  

Entry Points

Name Comments DBIA/ICR reference
FIND ;Cross reference patient lookup
SET
YN
Q
LOOK(DPTVAL) ;Look for x-ref matches
CHKVAL
CV1(DPTVAL) ;Look for input value matches
CHKIFN
SETDPT
PRTDPT
LIST(DPTX,DPTLMAX,DPTLARR) ;Silent lookup list
  • ICR #4138
    • Status: Withdrawn
    • Usage: Controlled Subscription
    UCASE(DGX) ;Uppercase lookup value
    SSN(DFN) ;do not show ssn identifier for patient
    ; input DFN = ien in file #2 [required]
    ; output SSN = nnnnnnnnn
  • ICR #3267
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #5839
    • Status: Withdrawn
    • Usage: Controlled Subscription
    DOB(DFN,DGYR) ;do not show dob identifier for patient
    ; input DFN = ien in file #2 [required]
    ; DGYR = 0/1 [optional]
    ; where 0 returns 4-digit year (default)
    ; 1 returns 2-digit year
    ; 2 returns File manager date
    ; output DOB = mm/dd/yyyy (default)
    ; = mm/dd/yy, if DGYR=1
    ; = yyymmdd, if DGYR=2
  • ICR #3266
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #5839
    • Status: Withdrawn
    • Usage: Controlled Subscription
  • ICR #5839
    • Status: Withdrawn
    • Usage: Controlled Subscription
    SCREEN(DFN) ;Screening logic for SSN & DOB

    External References

    Name Field # of Occurrence
    CLRMSG^DDS PRTDPT
    $$EMPL^DGSEC4 SCREEN+12
    YN^DICN YN+3
    $$GET1^DIQ YN+2
    $$SEARCH^DPTLK7 YN+4
    PATIENT^MPIFXMLP YN
    $$FMTE^XLFDT YN+2, DOB+16
    $$FORMAT^XLFNAME7 FIND+15, FIND+17, SET+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Found: ",$P(^DPT(DPTDFN,0),"^")," ",$$FMTE^XLFDT($P(^DPT(DPTDFN,0),"^",3),"2D")," ",$P(^DPT(DPTDFN,0),"^",9)," ",$$GET1^DIQ(2,DPTDFN_",",.301)," ",$$GET1^DIQ(2,DPTDFN_",",391)
    • Line Location: YN+2
    Function Call: WRITE
    • Prompt: !," Ok"
    • Line Location: YN+3
    Function Call: WRITE
    • Prompt: DPTP1
    • Line Location: PRTDPT+10
    Function Call: WRITE
    • Prompt: "ENTER '^' TO STOP, OR "
    • Line Location: PRTDPT+12
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: PRTDPT+13
    Function Call: WRITE
    • Prompt: "CHOOSE ",DPTBEG,"-",DPTNUM,": "
    • Line Location: PRTDPT+13
    Routine Call
    • DDS
    • Line Location:
      • PRTDPT

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("RM" PRTDPT
    ^DGSL(38.1 - [#38.1] SCREEN+10
    ^DISV( LIST+23
    ^DPT - [#2] YN+2, YN+5, LOOK+2, LOOK+3, CHKVAL+11, CHKVAL+12, CV1+1, CHKIFNSETDPTSETDPT+2
    SETDPT+6, SETDPT+7, PRTDPT+11, LIST+24, LIST+25, SSN+8, DOB+13
    ^TMP("DPTLK" Q+1!, SETDPT+5!, SETDPT+8, SETDPT+9*

    Label References

    Name Line Occurrences
    $$DOB SETDPT+15
    $$SCREEN SSN+7, DOB+12
    $$SSN SETDPT+15
    $$UCASE FIND+6
    CHKIFN LOOK+2, CHKVAL+3, CHKVAL+7, CHKVAL+8, CV1+1
    CHKVAL LOOK+3
    CV1 CHKVAL+7, CHKVAL+8, CHKVAL+10, CHKVAL+13
    FIND LIST+27
    LOOK FIND+16, FIND+17, SET+15
    PRTDPT SETSETDPT+17
    Q YN+7
    SET YN+9
    SETDPT CHKIFN, LIST+25

    Naked Globals

    Name Field # of Occurrence
    ^("^DPT(" LIST+23

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % YN+1~, YN+4, YN+6
    %Y YN+1~
    B DOB+9~, DOB+13*, DOB+16, DOB+17
    DDCOMA FIND+4~, FIND+7*, SET+6*, SETDPT+4
    >> DDS PRTDPTPRTDPT+3, PRTDPT+11, PRTDPT+12, PRTDPT+13
    >> DDSHBX PRTDPT
    >> DDXY PRTDPTPRTDPT+11
    DFN SSN~, SSN+5*, SSN+6, SSN+7, SSN+8, DOB~, DOB+10*, DOB+11, DOB+12, DOB+13
    , SCREEN~, SCREEN+10, SCREEN+12
    DG1 SCREEN+6~
    DGA1 SCREEN+6~
    DGI UCASE+3~, UCASE+4*
    DGLASTLK FIND+4~, FIND+5*, SET+4, SET+8*, YN+9*, YN+10
    DGT SCREEN+6~
    DGTIME SCREEN+6~
    DGX UCASE~, UCASE+3*, UCASE+6*, UCASE+7
    DGXFR0 SCREEN+6~
    DGY UCASE+3~, UCASE+4*, UCASE+5*, UCASE+6
    DGYR DOB~, DOB+10*, DOB+14, DOB+15
    DGZ UCASE+3~*, UCASE+4
    DIC LIST+19~
    DIC("S" SETDPT+4
    DIC(0 FIND+8, SET, LOOK+3, SETDPT+17, LIST+20*
    >> DO("SCR" SETDPT+4
    DOB DOB+9~, DOB+10*, DOB+12*, DOB+16*, DOB+17*, DOB+18
    >> DPT("NOPRT^" SET*!, PRTDPT+12
    DPTBEG FIND+12*, Q!, CHKIFN*, PRTDPT+13
    DPTCNT SETSET+4, YNYN+4*, YN+9, YN+10, SETDPT+5, SETDPT+9*, SETDPT+11, SETDPT+12
    SETDPT+15, SETDPT+17, PRTDPT+2, LIST+19~, LIST+20*, LIST+22, LIST+25*, LIST+28
    DPTDFN FIND+12*, FIND+13, SET*, SET+1, SET+2, SET+13, YN*, YN+2, YN+4*, YN+5
    YN+7*, LOOK+2, CV1+1, CHKIFNPRTDPT+16*, PRTDPT+17, LIST+19~
    DPTIFN Q!, CHKIFN*, PRTDPT+2*, PRTDPT+11
    DPTIFNS Q!, LIST+19~
    DPTIFNS( SET, CHKIFN!, SETDPT+9*, SETDPT+15, PRTDPT+2, PRTDPT+4, PRTDPT+5, PRTDPT+16
    >> DPTIX FIND+9
    DPTLARR SETDPT+10, SETDPT+12, SETDPT+15, LIST~
    DPTLMAX SETDPT+11, LIST~, LIST+20*, LIST+28
    DPTLP FIND+13*, SET+13*, Q!
    DPTLP1 Q!, CV1+1*
    >> DPTNOFZY FIND+15, FIND+17, SET+4
    DPTNUM FIND+12*, SET, Q!, CHKIFNPRTDPT+2*, PRTDPT+4, PRTDPT+5, PRTDPT+6, PRTDPT+13
    DPTNVAL SETDPT+3~, SETDPT+7*, SETDPT+8, SETDPT+9
    DPTOUT FIND+4~, FIND+12*, FIND+13, SET+13, Q+1!, LOOK+2, CHKIFNSETDPT+13*, PRTDPT+2, PRTDPT+14*
    PRTDPT+15*
    DPTOVAL FIND+4~, Q+1!, CHKVAL*, SETDPT+3~*, SETDPT+4, SETDPT+6, PRTDPT+14
    DPTP1 PRTDPT+1~, PRTDPT+5*, PRTDPT+10
    DPTP2 PRTDPT+1~, PRTDPT+4*, PRTDPT+8, PRTDPT+10
    >> DPTPSREF FIND+11, SET+12
    DPTREF FIND+13*, FIND+15, FIND+17, SET+13*, Q!, LOOK+2, LOOK+3, CHKVAL+2, CHKVAL+5, CHKVAL+11
    CHKVAL+12, CV1+1, CHKIFNSETDPTSETDPT+6, SETDPT+7
    DPTREFS FIND+8!*, FIND+9*, FIND+11*, FIND+13, SET+9*, SET+12*, SET+13, Q!
    DPTS LIST+19~
    DPTS( YN+5*, CHKIFN!, SETDPTSETDPT+6*, PRTDPT+16
    DPTSEED CHKVAL+1~*, CV1+1
    >> DPTSEL SETPRTDPT+13*, PRTDPT+14*, PRTDPT+16, PRTDPT+17
    DPTSZ CHKIFN, LIST+19~, LIST+20*
    DPTVAL FIND+14*, FIND+15*, FIND+16, FIND+17*, SET+14*, SET+15, Q!, LOOK~, LOOK+2, LOOK+3
    CHKVALCHKVAL+1, CHKVAL+2, CHKVAL+3*, CHKVAL+5, CHKVAL+6*, CHKVAL+7, CHKVAL+8*, CHKVAL+10, CHKVAL+11
    CHKVAL+12*, CHKVAL+13, CV1~, CV1+1*, CHKIFNSETDPT+6, SETDPT+7, PRTDPT+14
    DPTX FIND+6*, FIND+7*, FIND+8, FIND+9, FIND+14, FIND+17, SET*, SET+1*, SET+2*, SET+4
    SET+5*, SET+6, SET+7*, SET+14, YN*, YN+4, YN+10*, SETDPT+3, PRTDPT+14, PRTDPT+16*
    , LIST~, LIST+22, LIST+23, LIST+24
    DPTXOLD FIND+4~, FIND+6*, FIND+7*, SET+1, SET+2, YN+10, Q+1!, PRTDPT+14, PRTDPT+17*
    >> DPTXX YN+4
    DTIME PRTDPT+13
    >> DTOUT PRTDPT+13, PRTDPT+14*
    >> DUOUT PRTDPT+13, PRTDPT+15*
    DUZ LIST+23
    >> DX PRTDPT*, PRTDPT+11*
    >> DY PRTDPT*, PRTDPT+11*
    >> I CHKIFN*
    >> J CHKIFN*
    SSN SSN+4~, SSN+5*, SSN+7*, SSN+8*, SSN+11*, SSN+13
    U SETDPT+6, SETDPT+7, SETDPT+9, SETDPT+15, PRTDPT+4, PRTDPT+5, SSN+8, DOB+13
    X SETDPT+4*, PRTDPT*, PRTDPT+13*, PRTDPT+15, LIST+19~
    >> XQY0 YN
    Y CHKIFN*, SETDPTSETDPT+2, SETDPT+6, SETDPT+7, SETDPT+8, SETDPT+9, SETDPT+15, PRTDPT+11*, LIST+19~
    , LIST+23*, LIST+24*, LIST+25
    YEAR DOB+9~, DOB+15*, DOB+16

    Marked Items

    Name Field # of Occurrence
    $T(PATIENT^MPIFXMLP YN
    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