IVMLDEM9 ;ALB/BRM/PHH/LBD/JAM - IVM ADDRESS UPDATES PENDING REVIEW RPT ;4/18/12 4:43pm
Source file <IVMLDEM9.m>
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
|
|
;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
|
|
;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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^XMB(3.8 - [#3.8] | FIND1^DIC |
3.812 | LIST^DIC |
301.511 | GET1^DIQ |