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 |  Used in RPC |  Global Variables Directly Accessed |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DPTLK6

Package: Registration

Routine: DPTLK6


Information

DPTLK6 ;BAY/JAT,EG - Patient lookup RPCs for patient safety issue ; 11 Aug 2005 8:33 AM

Source Information

Source file <DPTLK6.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 3 ($$CMTS,$$MFLG)^DGMTU  ($$DOB,$$SSN,DOB)^DPTLK1  $$BS5^DPTLK5  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Barcode Medication Administration 1 PSBRPC  
General Medical Record - Vitals 1 GMVRPCP  
IHS Electronic Health Record 1 BEHOPTCX  

Entry Points

Name Comments DBIA/ICR reference
GUIMTD(GUIDATA,DFN,DUZ2) ; RPC checks if Means Test is required for this
; patient and if 'Means Test Required' message is to be
; displayed for the Division user is in
; returns 1 or 0 in 1st string (or -1 if bad parameters)
; if 1, returns text to be displayed in 2nd and 3rd string (if any)
; return type: array
; parameters: ien of Patient file, Institution file pointer for user
; (optional)
  • ICR #3593
    • Status: Active
    • Usage: Supported
    GUIMT(GUIDATA,DFN) ; RPC checks if Means Test is required for this patient
    ; returns 1 or 0 (or -1 if bad DFN)
    ; return type: single value
    ; parameter: ien of Patient file
    GUIBS5A(GUIDATA,DFN) ; RPC checks if other patients on "BS5" xref
    ; with same last name
    ; returns 1 or 0 in 1st string (or -1 if bad DFN or no zero node)
    ; if 1 returns array nodes where
    ; text is preceeded by 0 (0^<text>)
    ; and patient data is preceeded by 1 (1^DFN^patient name^DOB^SSN)
    ; return type: global array
    ; parameter: ien of Patient file
  • ICR #3593
    • Status: Active
    • Usage: Supported
    GUIBS5(GUIDATA,DFN) ; RPC checks if other patients on "BS5" xref
    ; with same last name
    ; returns: 1 or 0 (or -1 if bad dfn or no zero node)
    ; if 1, returns text to be displayed
    ; return type: array
    ; parameter: ien of Patient file
    GUIDMT(GUIDATA,DUZ2) ; RPC checks if the 'Display Means Test Required'
    ; message is to be displayed for the Division user is in
    ; returns 1 or 0 in 1st string (or -1 if bad DUZ(2))
    ; if 1, returns text to be displayed in 2nd and 3rd string (if any)
    ; return type: array
    ; parameter: Institution file pointer for user (optional)

    External References

    Name Field # of Occurrence
    $$CMTS^DGMTU GUIMT+8, GUIMTD+16
    $$MFLG^DGMTU GUIMTD+18
    $$DOB^DPTLK1 GUIBS5A+27
    $$SSN^DPTLK1 GUIBS5A+27
    DOB^DPTLK1 GUIBS5A+27
    $$BS5^DPTLK5 GUIBS5+9, GUIBS5A+11

    Used in RPC

    RPC Name Call Tags
    DG CHK PAT/DIV MEANS TEST GUIMTD
    DG CHK BS5 XREF Y/N GUIBS5
    DG CHK BS5 XREF ARRAY GUIBS5A
    DG CHK MEANS TEST DIV DISPLAY GUIDMT
    DG CHK PAT MEANS TEST REQUIRED GUIMT

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(40.8 - [#40.8] GUIDMT+10, GUIDMT+13, GUIMTD+12, GUIMTD+19
    ^DPT - [#2] GUIBS5+8, GUIBS5+12, GUIBS5A+10, GUIBS5A+15, GUIBS5A+24
    ^DPT("BS5" GUIBS5A+23
    ^TMP("DPTLK6" GUIBS5A+12!, GUIBS5A+13*, GUIBS5A+19*, GUIBS5A+20*, GUIBS5A+30*, GUIBS5A+32*, GUIBS5A+33, GUIBS5A+34!

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DFN GUIBS5~, GUIBS5+7, GUIBS5+8, GUIBS5+9, GUIBS5+12, GUIBS5A~, GUIBS5A+9, GUIBS5A+10, GUIBS5A+11, GUIBS5A+15
    , GUIMT~, GUIMT+5, GUIMT+8, GUIMTD~, GUIMTD+10, GUIMTD+16
    DGMTLST GUIMT+6~, GUIMT+8*, GUIMT+9, GUIMTD+14~, GUIMTD+16*, GUIMTD+18
    DGREQF GUIMT+6~, GUIMTD+14~
    DPT0 GUIBS5+11~, GUIBS5+12*, GUIBS5+13, GUIBS5+14, GUIBS5A+14~, GUIBS5A+15*, GUIBS5A+16, GUIBS5A+18, GUIBS5A+24*, GUIBS5A+26
    , GUIBS5A+28
    DPTBS5 GUIBS5A+14~, GUIBS5A+17*, GUIBS5A+23
    DPTCNT GUIBS5A+14~, GUIBS5A+21*, GUIBS5A+29*, GUIBS5A+30, GUIBS5A+31*, GUIBS5A+32
    DPTDIV GUIDMT+9~*, GUIDMT+10*, GUIDMT+11, GUIDMT+13, GUIMTD+11~*, GUIMTD+12*, GUIMTD+13, GUIMTD+19
    DPTDIVMT GUIDMT+9~, GUIDMT+13*, GUIDMT+14, GUIMTD+11~, GUIMTD+19*, GUIMTD+20
    DPTDOB GUIBS5A+14~, GUIBS5A+27*, GUIBS5A+28*, GUIBS5A+30
    DPTIEN GUIBS5A+14~, GUIBS5A+22*, GUIBS5A+23*, GUIBS5A+24, GUIBS5A+27, GUIBS5A+30
    DPTLAST GUIBS5A+14~, GUIBS5A+18*, GUIBS5A+19, GUIBS5A+25
    DPTNME GUIBS5+11~, GUIBS5+13*, GUIBS5+15, GUIBS5A+14~, GUIBS5A+16*, GUIBS5A+17, GUIBS5A+24*, GUIBS5A+25, GUIBS5A+26*, GUIBS5A+30
    DPTSSN GUIBS5+11~, GUIBS5+14*, GUIBS5+16, GUIBS5A+14~, GUIBS5A+16*, GUIBS5A+17, GUIBS5A+20
    DPTSSN1 GUIBS5A+14~, GUIBS5A+27*, GUIBS5A+28*, GUIBS5A+30
    DUZ(2 GUIDMT+7, GUIMTD+9
    DUZ2 GUIDMT~, GUIDMT+7*, GUIDMT+8, GUIDMT+10, GUIMTD~, GUIMTD+9*, GUIMTD+10, GUIMTD+12
    GUIDATA GUIBS5~, GUIBS5+6!, GUIBS5A~, GUIBS5A+8!, GUIBS5A+33*, GUIDMT~, GUIDMT+6!, GUIMT~, GUIMT+4!, GUIMT+5*
    , GUIMT+7*, GUIMT+10*, GUIMTD~, GUIMTD+8!
    GUIDATA(1 GUIBS5+7*, GUIBS5+8*, GUIBS5+9*, GUIBS5+10*, GUIBS5A+9*, GUIBS5A+10*, GUIBS5A+11*, GUIDMT+8*, GUIDMT+11*, GUIDMT+12*
    , GUIDMT+14*, GUIMTD+10*, GUIMTD+13*, GUIMTD+15*, GUIMTD+20*
    GUIDATA(2 GUIBS5+15*, GUIDMT+14*, GUIMTD+20*
    GUIDATA(3 GUIBS5+16*, GUIDMT+14*, GUIMTD+20*
    GUIDATA(4 GUIBS5+17*
    U GUIBS5+13, GUIBS5+14, GUIBS5A+16, GUIBS5A+18, GUIBS5A+24, GUIBS5A+26, GUIBS5A+28, GUIBS5A+30, GUIDMT+14, GUIMT+9
    , GUIMTD+20
    Y GUIMT+6~, GUIMTD+14~

    Marked Items

    Name Field # of Occurrence
    $T(DOB^DPTLK1 GUIBS5A+27
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Local Variables |  Marked Items |  All