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

Package: Enrollment Application System

Routine: EASMT65


Information

EASMT65 ; ALB/SCK - MEANS TEST LETTER PRINT FOR USER ENROLLEE STATUS ; 25-JUL-2007

Source Information

Source file <EASMT65.m>

Entry Points

Name Comments DBIA/ICR reference
QUE ;
EN ;
GETSITE() ; Select User Enrollee Site
LTRS() ; Select letter group to print
BUILD(UES,LTRGRP) ; Build list of letters to print
UESITE(UES,DFN) ; Determine UE Status
; Input
; UES - Selected User Enrollee Site
; DFN - Patient DFN
;
; Returns a '1' if UE Status is 'Diff. Site' and USER ENROLLEE SITE, Field #.3618, File #2
; matches the UE Site passed in. otherwise returns a '0'
;
LGROUP(IEN,LTRGRP) ; Check whether the letter group has a pending letter or not.
; Input - Ien in 713.2
; - LTRGRP - Letter group selected: 60/30/0/All
;
; Output - Returns a '1' it there is a pending letter for that letter group and
; a '0' if there is not. Format is: 60-Day~30-Day~0-Day~All
;
PRINT(LTRGRP) ; Print Letter
FINAL(UES,LTRGRP) ; Final wrap up
ERRPT(UES,LTRGRP) ; send error report to MT letters mail group

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You have not been assigned the required key to use this option."
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,"Please contact IRM or the Means Test Coordinator at your site"
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !,"for assistance.",!!
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: !,"Job has been tasked: ",$G(ZTSK)
  • Line Location: QUE+15
Function Call: WRITE
  • Prompt: !,"This option will allow the override of the current filters on the User"
  • Line Location: GETSITE+3
Function Call: WRITE
  • Prompt: !,"Enrollee site. By selecting a site, letters for veterans that are"
  • Line Location: GETSITE+4
Function Call: WRITE
  • Prompt: !,"listed as a User Enrollee of that site can be printed."
  • Line Location: GETSITE+5
Function Call: WRITE
  • Prompt: !,"This option should be used with care!",!
  • Line Location: GETSITE+6
Function Call: WRITE
  • Prompt: !,"Collecting "_$S(LTRGRP=1:"60-Day",LTRGRP=2:"30-Day",LTRGRP=4:"0-Day",1:"All ")_" letters"
  • Line Location: BUILD+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^EAS(713.1 - [#713.1] GET1^DIQ
^EAS(713.2 - [#713.2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call