Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: ANRVAM1

Package: Visual Impairment Service Team

Routine: ANRVAM1


Information

ANRVAM1 ;MUSK/GLD,MFW,HCIOFO/NDH - VIST AMIS CALC ; 11 Apr 89 / 9:20 AM

Source Information

Source file <ANRVAM1.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"I WILL PRINT THE AMIS REPORT FOR PERIOD SPECIFIED.",!!
  • Line Location: INTRO+0
Function Call: WRITE
  • Prompt: !!!,"Do you want to email the AMIS report to the program office?(Y/N)"
  • Line Location: ASKMAIL+1
Function Call: WRITE
  • Prompt: !,"Answer Y or N"
  • Line Location: ASKMAIL+4
Function Call: WRITE
  • Prompt: @IOF,!,?(IOM\2-($L(X)\2)),X
  • Line Location: BADDAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BADDAT+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: BADDAT+2
Function Call: WRITE
  • Prompt: $P(^DPT(X,0),U),?35,$P(^(0),U,9),!
  • Line Location: BADDAT+3
Info |  Source |  Entry Points |  Interaction Calls