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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPR5HQ1

Package: Prosthetics

Routine: RMPR5HQ1


Information

RMPR5HQ1 ;HCIOFO/RVD - USAGE REPORT FOR HQ ; 04 AUG 00

Source Information

Source file <RMPR5HQ1.m>

Entry Points

Name Comments DBIA/ICR reference
TASK ;task the option to create a mail message to PSAS HQ.
PROC ;process the PIP reports and e-mail to NPPD DATABASE
SEND(RMQMAIL,RMQSUBJ) ; Send mail from ^TMP($J,"RMPR5A")
; Send mail to defined recipient(s) in RMQMAIL
SENDCONF(RMQSUBJ,RMBDT,RMEDT) ; Send Confirmation to User
NOADDR() ;print a No Address message in the screen.
GETADDR() ;get PSAS HQ e-mail address from #669.9
ADDHQ ;update HQ MAIL ADDRESS & VISN in file 669.9
CLEAN ; Clean

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No HQ mail address is defined in your PROSTHETICS SITE"
  • Line Location: NOADDR+1
Function Call: WRITE
  • Prompt: !," PARAMETERS file for the PIP report. The PIP report"
  • Line Location: NOADDR+2
Function Call: WRITE
  • Prompt: !," will not be run. Please contact your system administrator"
  • Line Location: NOADDR+3
Function Call: WRITE
  • Prompt: !," or enter a NOIS in Forum for the NVS Team.",!!
  • Line Location: NOADDR+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(669.9 - [#669.9] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call