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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  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 Total: 4

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  $$FORMAT^XLFNAME7  
Registration 1 $$EMPL^DGSEC4  
VA Fileman 1 CLRMSG^DDS  

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Registration 7 DGPWBD  DGQPT  DGQPTQ6  DGRRLU  DPTLK  DPTLK2  DPTLK6  
Order Entry Results Reporting 3 ORQPT  ORQPTQ6  ORWPT  
Barcode Medication Administration 1 PSBMLLKU  
Care Management 1 ORRCLPT  
General Medical Record - Vitals 1 GMVRPCP  
IHS Electronic Health Record 1 BEHOPTPL  
IHS Patient 1 AUPNLKID  
Inpatient Medications 1 PSJDPT  
Scheduling 1 SCUTBK11  

Entry Points

Name Comments DBIA/ICR reference
PRTDPT
CV1(DPTVAL) ;Look for input value matches
SET
SETDPT
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
    CHKVAL
    Q
    UCASE(DGX) ;Uppercase lookup value
    SCREEN(DFN) ;Screening logic for SSN & DOB
    CHKIFN
    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
    LIST(DPTX,DPTLMAX,DPTLARR) ;Silent lookup list
  • ICR #4138
    • Status: Withdrawn
    • Usage: Controlled Subscription
    FIND ;Cross reference patient lookup
    LOOK(DPTVAL) ;Look for x-ref matches

    External References

    Name Field # of Occurrence
    CLRMSG^DDS PRTDPT
    $$EMPL^DGSEC4 SCREEN+12
    $$FMTE^XLFDT DOB+16
    $$FORMAT^XLFNAME7 FIND+15, FIND+17, SET+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: DPTP1
    • Line Location: PRTDPT+10
    Function Call: WRITE
    • Prompt: "ENTER '^' TO STOP, OR "
    • Line Location: PRTDPT+12
    Function Call: READ
    • Timeout: DTIME
    • Variable: X
    • Line Location: PRTDPT+13
    Function Call: WRITE
    • Prompt: "CHOOSE ",DPTBEG,"-",DPTNUM,": "
    • Line Location: PRTDPT+13
    Routine Call
    • DDS
    • Line Location:
      • PRTDPT

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("RM" PRTDPT
    ^DGSL(38.1 - [#38.1] SCREEN+10
    ^DISV( LIST+23
    ^DPT - [#2] LOOK+2, LOOK+3, CHKVAL+11, CHKVAL+12, CV1+1, CHKIFN, SETDPT, SETDPT+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 SET, SETDPT+17
    SET SET+16
    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
    B DOB+9~, DOB+13*, DOB+16, DOB+17
    DDCOMA FIND+4~, FIND+7*, SET+6*, SETDPT+4
    >> DDS PRTDPT, PRTDPT+3, PRTDPT+11, PRTDPT+12, PRTDPT+13
    >> DDSHBX PRTDPT
    >> DDXY PRTDPT, PRTDPT+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*, SET+16*, SET+17
    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 SET, SET+4, SET+16, SET+17, 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, LOOK+2, CV1+1, CHKIFN, PRTDPT+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!, CHKIFN, PRTDPT+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, CHKIFN, SETDPT+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, CHKIFN, SETDPT, SETDPT+6, SETDPT+7
    DPTREFS FIND+8!*, FIND+9*, FIND+11*, FIND+13, SET+9*, SET+12*, SET+13, Q!
    DPTS LIST+19~
    DPTS( CHKIFN!, SETDPT, SETDPT+6*, PRTDPT+16
    DPTSEED CHKVAL+1~*, CV1+1
    >> DPTSEL SET, PRTDPT+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
    , CHKVAL, CHKVAL+1, CHKVAL+2, CHKVAL+3*, CHKVAL+5, CHKVAL+6*, CHKVAL+7, CHKVAL+8*, CHKVAL+10, CHKVAL+11
    , CHKVAL+12*, CHKVAL+13, CV1~, CV1+1*, CHKIFN, SETDPT+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, SET+17*, SETDPT+3, PRTDPT+14, PRTDPT+16*, LIST~, LIST+22
    , LIST+23, LIST+24
    DPTXOLD FIND+4~, FIND+6*, FIND+7*, SET+1, SET+2, SET+17, Q+1!, PRTDPT+14, PRTDPT+17*
    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~
    Y CHKIFN*, SETDPT, SETDPT+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
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All