MAGDSTA3 ;WOIFO/PMK - Study Tracker - Query/Retrieve user patient lookup ; Jun 01, 2020@12:10:06
Source file <MAGDSTA3.m>
| 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) ;  | 
 
  | 
| 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  | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| 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 | 
| FileNo | Call Tags | 
|---|---|
| ^DPT - [#2] | FIND^DIC |