Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | 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>

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

    Interaction Calls

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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All