Routine: IVMLDEM9

Information

IVMLDEM9 ;ALB/BRM/PHH/LBD/JAM - IVM ADDRESS UPDATES PENDING REVIEW RPT ;4/18/12 4:43pm

Name	Comments	DBIA/ICR reference
EN2	;entry point for IVM ADDR UPDT PENDING REVIEW menu option
LOOP(DTPARAM,FILDAT)	;main loop
AUTOLOAD(DFN,IVMDA2,IVMDA1)	;auto-upload records that not been reviewed ; this tag is called from ^IVMLDEMC
REJTADD	;Reject the address
PRINT	;report output
DISPLAY	;Display the report
HDR	;print header
EXIT
ADRDTCK(DFN,IVMDA2,IVMDA1)	;is the incoming address older than #2 address?
PHNDTCK(DFN,IVMDA2,IVMDA1)	;is the incoming phone # older than #2 phone #?
MEMBER()	;Return 0 if mail group has no local or remote member
EMAIL	;Set up parameters to email the report
QUE	;Que the task if user invokes option
TOTAL	;Display record total on the report
LNPLUS	;Increase line number for the email text

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"IVM ADDR UPDT REPORT does not have a member. Report not sent." Line Location: EN2+5
Function Call: WRITE	Prompt: !!,"The report will be sent to mail group IVM ADDR UPDT REPORT" Line Location: EN2+9
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+18
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+8