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
Print Page as PDF
Routine: MAGDSTQA

Package: Imaging

Routine: MAGDSTQA


Information

MAGDSTQA ;WOIFO/PMK - Study Tracker - Query/Retrieve user patient lookup ; Aug 30, 2020@17:57:08

Source Information

Source file <MAGDSTQA.m>

Entry Points

Name Comments DBIA/ICR reference
PATIENTA ; need just DFN for current patient, no previous PII
PATIENT(PATINFO,DFN) ; look up the patients
PATIENT1(PATINFO) ; lookup patient
PATIENT2(LISTMODE,INFO,DEFAULT) ; called to display a list of patients or a list of PII changes
; INFO can be either PATINFO or HISTINFO, same format
SINGLE(LISTMODE,INFO,I) ; single match
SINGLEA() ; automatic (batch) query retrieve
; check for radiology or consults
SINGLEQ() ; manual query retrieve
PATCHECK(DFN) ; check patient sensitivity
MULTIPLE(LISTMODE,INFO,DEFAULT) ; display information for multiple patients/pii changes
MULTI(DEFAULT) ; display one set of patients
PRINTHDR ; print column header
PRINTPAT(INFO,I,SENSITIVEOK) ; print patient information
SAVEINFO(INFO,DFN,NAME,DOB,PID,SEX,DOD,SENSITIVE,CHANGED,CHANGEDATE) ; save pii
; DFN^patient name^DOB^PID^SEX^DOD^Sensitive^Changed Field^Change date & time
; 1 2 3 4 5 6 7 8 9
GETINFO(INFO,I) ; retrieve pii
CHANGEDT(X) ; return change date in mm/dd/yy format
PATLKUP(OUTPUT,INPUT) ; patient lookup
; 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) ; 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(OUTPUT,DFN) ; 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)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The patient is currently defined as follows: "
  • Line Location: PATIENT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PATIENT+22
Function Call: WRITE
  • Prompt: !!,"Enter Patient: "
  • Line Location: PATIENT1+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PATIENT1+4
Function Call: WRITE
  • Prompt: !!,"Enter either the Patient Name (last,first), the Social Security Number,"
  • Line Location: PATIENT1+14
Function Call: WRITE
  • Prompt: !,"or the Quick PID (initial + last four). You may use ""@"" to remove it."
  • Line Location: PATIENT1+15
Function Call: WRITE
  • Prompt: " -- NO MATCH"
  • Line Location: PATIENT2+5
Function Call: WRITE
  • Prompt: " -- ",COUNT," MATCH"
  • Line Location: PATIENT2+6
Function Call: WRITE
  • Prompt: "ES"
  • Condition for execution: COUNT>1
  • Line Location: PATIENT2+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: SINGLE+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: SINGLE+7
Function Call: WRITE
  • Prompt: ?65,"*SENSITIVE*"
  • Line Location: SINGLE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PATCHECK+15
Function Call: WRITE
  • Prompt: !?(IOM-$L(SECINFO(I))/2),SECINFO(I)
  • Line Location: PATCHECK+17
Function Call: WRITE
  • Prompt: !!,"There are ",COUNT," matches"
  • Line Location: MULTIPLE+3
Function Call: WRITE
  • Prompt: !!,"There are changes in the patient identification"
  • Line Location: MULTIPLE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MULTI+5
Function Call: WRITE
  • Prompt: !!,"Enter 1-",K20," to select the ",PROMPT
  • Line Location: MULTI+8
Function Call: WRITE
  • Prompt: ", or <Enter> to see more ",PROMPT,"s"
  • Line Location: MULTI+9
Function Call: WRITE
  • Prompt: DEFAULT,"// "
  • Line Location: MULTI+10
Function Call: READ
  • Variable: I
  • Timeout: $G(DTIME,300)
  • Line Location: MULTI+11
Function Call: WRITE
  • Prompt: DEFAULT
  • Line Location: MULTI+12
Function Call: WRITE
  • Prompt: " ???"
  • Line Location: MULTI+16
Function Call: WRITE
  • Prompt: ?4,"Social Sec#",?16,"Sex",?21,"Patient's Name",?53,"Birth Date"
  • Line Location: PRINTHDR+1
Function Call: WRITE
  • Prompt: ?65,"Change Date"
  • Line Location: PRINTHDR+2
Function Call: WRITE
  • Prompt: !?4,"-----------",?16,"---",?21,"--------------",?53,"----------"
  • Line Location: PRINTHDR+3
Function Call: WRITE
  • Prompt: ?65,"---------------"
  • Line Location: PRINTHDR+4
Function Call: WRITE
  • Prompt: !,$J(I,2),")",?4,"*SENSITIVE*",?17,$E(SEX,1),?21,$E(NAME,1,30),?53,"*SENSITIVE*"
  • Line Location: PRINTPAT+5
Function Call: WRITE
  • Prompt: !,$J(I,2),")",?4,SSN,?17,$E(SEX,1),?21,$E(NAME,1,30),?53,DOB
  • Line Location: PRINTPAT+8
Function Call: WRITE
  • Prompt: ?65,CHANGED,?70,"- ",$$CHANGEDT(CHANGEDATE)
  • Line Location: PRINTPAT+12
Function Call: WRITE
  • Prompt: ?72,$$CHANGEDT(CHANGEDATE)
  • Line Location: PRINTPAT+14
Info |  Source |  Entry Points |  Interaction Calls