ANRVAM1 ;MUSK/GLD,MFW,HCIOFO/NDH - VIST AMIS CALC ; 11 Apr 89 / 9:20 AM
Source file <ANRVAM1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INTRO | ||
BDATE | ||
EDATE | ||
ASKMAIL | ; Check to see if user wants to email this report
|
|
DEVICE | ||
DQ | ||
LOOP2 | ||
CALC | ;
|
|
CALC2 | ||
CALC3 | ||
CALC4 | ||
CALC5 | ||
CALC6 | ||
CALC16 | ||
CLOSE | ; Check if user wanted to send mail to DC
; and complete report. |
|
CLEAN | ; Clean
|
|
BADDAT | ;
|
|
SEND(ANQMAIL,ANQSUBJ) | ; Send mail from ^TMP("ANRV","EMAIL",$J)
; Send mail to defined recipient(s) in ANQMAIL |
|
SENDCONF(ANQMAIL,ANQSUBJ,ANRVIMN) | ; Send Confirmation to User
|
|
BUILD | ; Build AMIS Report to ^TMP("ANRV","EMAIL",$J) to send as email
; Build the Excel portion of the email |
|
GETADDR() | ; Get addresses for AMIS report from VIST Site Parameters
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|