Routine: DGREGARP

Information

DGREGARP ;ALB/DW,ERC - Address audit reports ; 8/1/08 1:21pm

Name	Comments	DBIA/ICR reference
EN(TYPE)	;Entry point
MEMBER()	;Return 0 if mail group has no local or remote member
QUE	;Que the task if user invokes option
PRESORT	;Sort for the report
PRINT	;Create the email message.
REPORT	;Create the address change report body
GEN(DGNAME,DGSSN,DGDFN)	;General information for each patient
OLD(DGNAME,DGSSN,DGDFN)	;Get address as of 24 hours ago, assuming audits are on for all
DISP(DGA)	;
NEW(DGNAME,DGSSN,DGDFN)	;Get current address
PRSCPT(DGDFN)	;Display if the patient has active prescription
EXIT
CHKPAR	;Check if audit is on for the fields
RANGE(RESULT)	;Get the range of the reports
SORT(RANGE,TYPE)	;Build the temp global to display
SCRN(TYPE,DGIEN)	;Screen Audit file to find address changes.
BUILD(TYPE,DGIEN)	;Build temp global
LNPLUS	;Increase line number for the email text
HEADER	;Report header
TOTAL	;Get the total of the patients
EMAIL(TYPE)	;Email the report to mailgroup.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DG DAILY ADDRESS CHANGE does not have a member. Report not sent." Line Location: EN+7
Function Call: WRITE	Prompt: !!,"The report will be sent to mail group DG DAILY ADDRESS CHANGE." Line Location: EN+13
Function Call: WRITE	Prompt: !! Line Location: EN+15
Function Call: WRITE	Prompt: ! Line Location: QUE+2
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED AS TASK#"_ZTSK,1:"REQUEST CANCELLED!") Line Location: QUE+9