Routine: MAGDTRLU

Information

MAGDTRLU ;WOIFO/OHH/PMK - Report discrepancies between files #2006.5849 & #123 and correct them ; 10/11/2006 08:53

Name	Comments	DBIA/ICR reference
REPORT	; report problems with the Unread List
REPAIR	; repair problems with the Unread List
PASS(MODE)	; report/repair problems for LOCKED and UNREAD studies
SEARCH(STATUS,MODE)	; go through studies for each site, specialty and procedure
CHECK	;check Unread List entry against that in CPRS Consult Requst Tracking
W(PROMPT)	; output prompt

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: PASS+7
Function Call: WRITE	Prompt: !! Line Location: PASS+13
Function Call: WRITE	Prompt: !!,$$W("Acquisition Site:"),$$GET1^DIQ(4,ACQSITE,.01) Line Location: SEARCH+11
Function Call: WRITE	Prompt: !,$$W("Specialty:"),$$GET1^DIQ(2005.84,ISPECIDX,.01) Line Location: SEARCH+14
Function Call: WRITE	Prompt: !,$$W("Procedure:"),$$GET1^DIQ(2005.85,IPROCIDX,.01) Line Location: SEARCH+18
Function Call: WRITE	Prompt: !,$$W(""),"No inconsistencies were found.",! Line Location: SEARCH+22
Function Call: WRITE	Prompt: !,$$W($S(MODE="REPORT":"Problem:",1:"Repaired:")) Line Location: SEARCH+25
Function Call: WRITE	Prompt: "Number of consults that have ",I," status in CPRS: ",COUNT(I) Line Location: SEARCH+26
Function Call: WRITE	Prompt: ! Line Location: SEARCH+27
Function Call: WRITE	Prompt: !,$$W(""),"Consult # ",GMRCIEN," has the status of ",GMRCSTS," in CPRS" Line Location: CHECK+9
Function Call: WRITE	Prompt: !,$$W("Fix:"),"Consult # ",GMRCIEN," which has the status of ",GMRCSTS," in CPRS" Line Location: CHECK+12