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: HBHCRP29

Package: Hospital Based Home Care

Routine: HBHCRP29


Information

HBHCRP29 ; LR VAMC(IRMS)/MJT-HBHC Medical Foster Home (MFH) license expiration e-mail reminder or report; e-mail due in 3 months, report due in 6 months, based on month only ; Jan 2008

Source Information

Source file <HBHCRP29.m>

Entry Points

Name Comments DBIA/ICR reference
DQ ; De-queue
LOOP ; Loop thru HBHC Medical Foster Home file: ^HBHC(633.2; License = Y & Expiration Date in 3 months for e-mail, 6 months for report; based on month only
; DATE3L^HBHCUTL3 & DATE6L^HBHCUTL3 calls return HBHCDATE
EXIT ; Exit module
SET ; Set ^TMP node for valid record
PRTLOOP ; Print loop
LHDR ; Write License header
BLANK ; Set blank line
MAIL ; Write mail message
COUNT ; Update count variable
SEND ; Send Mail
PRINT ; Print report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,HBHCTXT
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,HBHCMFHN,?40,$P(^TMP("HBHC",$J,HBHCMFHN,HBHCI),U)
  • Line Location: PRINT+2
Info |  Source |  Entry Points |  Interaction Calls