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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MAGDSTA3

Package: Imaging

Routine: MAGDSTA3


Information

MAGDSTA3 ;WOIFO/PMK - Study Tracker - Query/Retrieve user patient lookup ; Jun 01, 2020@12:10:06

Source Information

Source file <MAGDSTA3.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Imaging 2 ($$ANPREFIX,$$DASHES)^MAGDSTAB  SAVEINFO^MAGDSTQA  
Kernel 2 $$FMTE^XLFDT  $$HLNAME^XLFNAME  
Registration 2 $$EMPL^DGSEC4  DEM^VADPT  
VA FileMan 2 FIND^DIC  CLEAN^DILF  

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

Package Total Caller Graph
Imaging 9 MAG DICOM FORMAT PATIENT NAME  MAG DICOM GET ACN PREFIX  MAG DICOM GET PT ID DASHES  MAG DICOM GET PT SENSITIVITY  MAG DICOM PATIENT HISTORY  MAG DICOM PATIENT LOOKUP  MAGDSTQ0  MAGDSTQ7  
MAGDSTQA  

Entry Points

Name Comments DBIA/ICR reference
PATLKUP(OUTPUT,INPUT) ; RPC = MAG DICOM PATIENT LOOKUP
; patient lookup
; modified from FINDP^SCUTBK11 for SC PATIENT LOOKUP rpc
;
; INPUT = value to lookup
; Lookup uses multiple index lookup of File #2
;
; OUTPUT = data
; OUTPUT(0) = number of records
; for i=1:number of records returned:
; DFN^patient name^DOB^PID^SEX^DOD^Sensitive
; 1 2 3 4 5 6 7
;
; (DOD = Date of Death)
;
  • ICR #7504
    • Status: Active
    • Usage: Controlled Subscription
    SCREEN(SCREEN,DFN) ; RPC = MAG DICOM GET PT SENSITIVITY
    ; Screening logic sensitive patients
    ; Input : DFN - Pointer to PATIENT file (#2)
    ; Output : 0 - Don't apply screen
    ; 1 - Apply screen - sensitive patient
    ; 2 - Apply screen - employee
    ; Notes : Screen applied if patient is sensitive or an employee
    HISTLKUP(PII,DFN) ; RPC = MAG DICOM PATIENT HISTORY
    ; look up historical patient changes in the audit archive
    ; INPUT = value to lookup
    ; Lookup uses multiple index lookup of File #2
    ;
    ; OUTPUT = data
    ; OUTPUT(0) = number of records
    ; for i=1:number of records returned:
    ; DFN^Patient Name^DOB^PID^SEX^DOD^Sensitive^Changed Field^Change date & time
    ; 1 2 3 4 5 6 7 8 9
    ;
    ; (DOD = Date of Death; DOD and Sensitive are null)
    DCMNAME(OUT,DFN) ; RPC = MAG DICOM FORMAT PATIENT NAME
    ; get properly formatted DICOM patient name
    ; HL7: family ^ given ^ middle ^ suffix ^ prefix ^ degree
    ; DICOM: family ^ given ^ middle ^ prefix ^ suffix (4 & 5 swapped, no degree)
    ANPREFIX(OUT) ; RPC = MAG DICOM GET ACN PREFIX
    ; Get the value of the accession number prefix
    DASHES(OUT) ; RPC = MAG DICOM GET PT ID DASHES
    ; Get the value of the patient identifier dashes

    External References

    Name Field # of Occurrence
    $$EMPL^DGSEC4 SCREEN+12
    FIND^DIC PATLKUP+16
    CLEAN^DILF PATLKUP+17
    $$ANPREFIX^MAGDSTAB ANPREFIX+2
    $$DASHES^MAGDSTAB DASHES+2
    SAVEINFO^MAGDSTQA PATLKUP+32, HISTLKUP+28, HISTLKUP+45
    DEM^VADPT HISTLKUP+22
    $$FMTE^XLFDT HISTLKUP+25
    $$HLNAME^XLFNAME DCMNAME+8

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?10,"Old ",CHANGED," not matching: ",OLD," to ",@CHANGED
    • Line Location: HISTLKUP+43
    Routine Call
    • DIC
    • Line Location:
      • PATLKUP+16

    Used in RPC

    RPC Name Call Tags
    MAG DICOM GET PT SENSITIVITY SCREEN
    MAG DICOM PATIENT LOOKUP PATLKUP
    MAG DICOM PATIENT HISTORY HISTLKUP
    MAG DICOM FORMAT PATIENT NAME DCMNAME
    MAG DICOM GET PT ID DASHES DASHES
    MAG DICOM GET ACN PREFIX ANPREFIX

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] FIND^DIC

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGSL(38.1 - [#38.1] SCREEN+10
    ^DIA(2 HISTLKUP+31, HISTLKUP+32, HISTLKUP+34
    ^TMP("DILIST" PATLKUP+18, PATLKUP+21, PATLKUP+35!

    Label References

    Name Line Occurrences
    SCREEN PATLKUP+31

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> CHANGED HISTLKUP+35*, HISTLKUP+36*, HISTLKUP+37*, HISTLKUP+38*, HISTLKUP+43, HISTLKUP+44, HISTLKUP+45
    >> CHANGEDATE HISTLKUP+33*, HISTLKUP+45
    DASHSSN PATLKUP+20~, PATLKUP+27*, PATLKUP+29*, PATLKUP+30
    DATETIME HISTLKUP+14~
    DFN PATLKUP+20~, PATLKUP+24*, PATLKUP+31, PATLKUP+32, SCREEN~, SCREEN+10, SCREEN+12, HISTLKUP~, HISTLKUP+28, HISTLKUP+31
    , HISTLKUP+45, DCMNAME~, DCMNAME+6, DCMNAME+7, DCMNAME+9
    DG1 SCREEN+8~
    DGA1 SCREEN+8~
    DGNAME DCMNAME+4~, DCMNAME+8
    DGNAME("FIELD" DCMNAME+7*
    DGNAME("FILE" DCMNAME+7*
    DGNAME("IENS" DCMNAME+7*
    DGT SCREEN+8~
    DGTIME SCREEN+8~
    DGXFR0 SCREEN+8~
    DIAIEN HISTLKUP+15~, HISTLKUP+31*, HISTLKUP+32, HISTLKUP+34
    DICOMNAME DCMNAME+4~, DCMNAME+11*, DCMNAME+12*, DCMNAME+13*, DCMNAME+14
    >> DIERR PATLKUP+17
    DOB PATLKUP+20~, PATLKUP+25*, PATLKUP+32, HISTLKUP+13~, HISTLKUP+25*, HISTLKUP+26, HISTLKUP+28, HISTLKUP+45
    DOD PATLKUP+20~, PATLKUP+25*, PATLKUP+32
    FIELD HISTLKUP+17~
    FIELDNUMBER HISTLKUP+16~, HISTLKUP+33*, HISTLKUP+35, HISTLKUP+36, HISTLKUP+37, HISTLKUP+38
    HL7NAME DCMNAME+4~, DCMNAME+8*, DCMNAME+9, DCMNAME+11, DCMNAME+12, DCMNAME+13
    INPUT PATLKUP~, PATLKUP+16
    NAME PATLKUP+20~, PATLKUP+24*, PATLKUP+32, HISTLKUP+13~, HISTLKUP+23*, HISTLKUP+28, HISTLKUP+45
    NEW HISTLKUP+18~, HISTLKUP+34*, HISTLKUP+40*, HISTLKUP+44
    NODE PATLKUP+20~, PATLKUP+21*, PATLKUP+24, PATLKUP+25, PATLKUP+26, PATLKUP+28, HISTLKUP+26*
    OLD HISTLKUP+18~, HISTLKUP+34*, HISTLKUP+39*, HISTLKUP+43
    OUT DCMNAME~, DCMNAME+5!, DCMNAME+6*, DCMNAME+9*, DCMNAME+14*, ANPREFIX~, ANPREFIX+2*, DASHES~, DASHES+2*
    OUTPUT PATLKUP~, PATLKUP+15!, PATLKUP+32
    OUTPUT(0 PATLKUP+34*
    PID PATLKUP+20~, PATLKUP+30*, PATLKUP+32
    PII HISTLKUP~, HISTLKUP+20!, HISTLKUP+28, HISTLKUP+45
    PII(0 HISTLKUP+20*
    PRILONGID PATLKUP+20~, PATLKUP+28*, PATLKUP+29*, PATLKUP+30
    SC PATLKUP+19~*, PATLKUP+21
    SCOUNT PATLKUP+18~*, PATLKUP+19, PATLKUP+34
    SCREEN SCREEN~, SCREEN+10*, SCREEN+12*, SCREEN+14*
    SENSITIVE PATLKUP+20~, PATLKUP+31, PATLKUP+32
    SEX PATLKUP+20~, PATLKUP+26*, PATLKUP+32, HISTLKUP+13~, HISTLKUP+27*, HISTLKUP+28, HISTLKUP+45
    SSN PATLKUP+20~, PATLKUP+26*, PATLKUP+27, PATLKUP+29, HISTLKUP+13~, HISTLKUP+24*, HISTLKUP+28, HISTLKUP+45
    VA HISTLKUP+13~
    VADM HISTLKUP+13~
    VADM(1 HISTLKUP+23
    VADM(2 HISTLKUP+24
    VADM(3 HISTLKUP+25
    VADM(5 HISTLKUP+27
    VAERR HISTLKUP+13~
    X HISTLKUP+13~, HISTLKUP+32*, HISTLKUP+33
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All