MAGDSTA3 ;WOIFO/PMK - Study Tracker - Query/Retrieve user patient lookup ; Jun 01, 2020@12:10:06
Source file <MAGDSTA3.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
|
| Routine Call |
|
| 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 |
| 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! |
| Name | Line Occurrences |
|---|---|
| SCREEN | PATLKUP+31 |
| >> | 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 |
