Routine: PXQPPUTIL

Information

PXQPPUTIL ;SLS/PKR - Utility for primary provider repair. ;08/14/2020

Name	Comments	DBIA/ICR reference
ASKCONTINUE()	;Ask the user if they want to continue.
DISCLAIMER	;Display the disclaimer.
DISPIMPTEXT(VISITIEN)	;
FINDEXAM(VISITIEN)	;Try to link the Visit to the Radiology Exam.
GETDATE(DEFAULT,PROMPT,MINDATE)	;Ask the user for a date.
OPENENCOUNTER(VISITIEN)	;Open the encounter in List Manger so the primary
PPREPAIR	;Find and repair encounters that do not have a primary provider.
LAB(VISITIEN,NPRIM,PRIMARY,PROVIDERLIST,CONTINUE)	;Handle Lab
RAD(VISITIEN,NPRIM,PRIMARY,PROVIDERLIST,RADPROXY,CONTINUE)	;Handle Radiology
RADPRIM(VISITIEN,PROVIDERLIST,PRIMARY)	;Set a primary provider for
RADPROXYPP(VISITIEN,CONTINUE)	;Radiology encounter has the proxy as the primary
SETONEPRIME(PROVIDERLIST)	;There is only one provider for the encounter

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"=============== NOTE ===============" Line Location: DISCLAIMER+1
Function Call: WRITE	Prompt: !,"This utility searches for Lab and Radiology Encounters in the specified" Line Location: DISCLAIMER+2
Function Call: WRITE	Prompt: !,"date range. Those that do not have a primary provider will be processed." Line Location: DISCLAIMER+3
Function Call: WRITE	Prompt: !,"====================================" Line Location: DISCLAIMER+4
Function Call: WRITE	Prompt: ! Line Location: DISCLAIMER+5
Function Call: WRITE	Prompt: !,"No Radiology exam can be found for Visit IEN ",VISITIEN,"." Line Location: DISPIMPTEXT+6
Function Call: WRITE	Prompt: !,"Therefore, no Impresion Text can be displayed." Line Location: DISPIMPTEXT+7
Function Call: WRITE	Prompt: !,"No Radiology Reports were found for this encounter, cannot display the Impression Text." Line Location: DISPIMPTEXT+24
Function Call: WRITE	Prompt: IORESET Line Location: DISPIMPTEXT+42
Function Call: WRITE	Prompt: !,"Set the date range for searching for encounters." Line Location: PPREPAIR+13