Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Enrollment Application System 4 UPDSTAT^EASMTL6  ($$CHKADR,LETTER)^EASMTL6A  ($$DECEASED,$$FUTMT,CLRFLG)^EASMTUTL  $$UESTAT^EASUER  
Kernel 2 ^%ZISC  EN^XUTMDEVQ  
VA FileMan 2 $$GET1^DIQ  ^DIR  
MailMan 1 ^XMD  
Registration 1 PID^VADPT6  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Enrollment Application System 1 EAS MT UES OVERRIDE  

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

External References

Name Field # of Occurrence
^%ZISC EN+14
$$GET1^DIQ BUILD+6, BUILD+7, BUILD+11, BUILD+14, BUILD+17, BUILD+19, BUILD+21, UESITE+11, FINAL+7, ERRPT+15
^DIR GETSITE+10, LTRS+12
UPDSTAT^EASMTL6 PRINT+14, PRINT+19
$$CHKADR^EASMTL6A BUILD+18
LETTER^EASMTL6A PRINT+12, PRINT+17
$$DECEASED^EASMTUTL BUILD+12
$$FUTMT^EASMTUTL BUILD+15
CLRFLG^EASMTUTL BUILD+10, BUILD+13, BUILD+16
$$UESTAT^EASUER UESITE+10
PID^VADPT6 ERRPT+9
^XMD FINAL+20, ERRPT+24
EN^XUTMDEVQ QUE+14

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
Routine Call
  • DIR
  • Line Location:
    • GETSITE+10
    • LTRS+12

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EAS(713.1 - [#713.1] BUILD+9
^EAS(713.2 - [#713.2] BUILD+5, LGROUP+9, LGROUP+10, LGROUP+11
^TMP("EASUE" EN+6!, EN+13!, BUILD+11*, BUILD+14*, BUILD+17*, BUILD+19*, BUILD+21*, PRINT+4, PRINT+6, PRINT+7
, PRINT+8, FINAL+3, ERRPT+4, ERRPT+5, ERRPT+6, ERRPT+7
^XUSEC("EAS MT UES OVERRIDE" QUE+3

Label References

Name Line Occurrences
$$GETSITE QUE+9
$$LGROUP BUILD+20
$$LTRS QUE+10
$$UESITE BUILD+8
BUILD EN+9
ERRPT FINAL+3
FINAL EN+11
PRINT EN+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABRT BUILD+1~
DFN BUILD+1~, BUILD+7*, BUILD+8, BUILD+11, BUILD+14, BUILD+17, BUILD+19, BUILD+21, UESITE~, UESITE+10
, UESITE+11, PRINT+1~, PRINT+5!, PRINT+7*, ERRPT+1~, ERRPT+6*
DIR GETSITE+1~, GETSITE+10!, LTRS+1~, LTRS+12!
DIR("?" LTRS+8*, LTRS+9*, LTRS+10*, LTRS+11*
DIR("A" GETSITE+9*
DIR("L" LTRS+4*, LTRS+5*, LTRS+6*, LTRS+7*
DIR(0 GETSITE+8*, LTRS+3*
DIRUT GETSITE+1~, GETSITE+12, LTRS+1~, LTRS+13
DTOUT GETSITE+1~, LTRS+1~
DUOUT GETSITE+1~, LTRS+1~
DUZ QUE+3
EATYP PRINT+1~
EAX EN+1~, EN+7*, BUILD+1~, BUILD+6*, BUILD+7, BUILD+9, BUILD+18, PRINT+1~, PRINT+10*, PRINT+11
, PRINT+12, PRINT+13, PRINT+14
ERROR ERRPT+1~, ERRPT+7*, ERRPT+11
IEN BUILD+1~, BUILD+4*, BUILD+5*, BUILD+6, BUILD+10, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+15
, BUILD+16, BUILD+17, BUILD+19, BUILD+20, BUILD+21, LGROUP~, LGROUP+9, LGROUP+10, LGROUP+11, PRINT+1~
, PRINT+5!, PRINT+6*, PRINT+12, PRINT+14, PRINT+17, PRINT+19, ERRPT+1~, ERRPT+5*
IOF QUE+8
LINE ERRPT+1~, ERRPT+8*, ERRPT+9*, ERRPT+10, ERRPT+11*, ERRPT+12
LINECNT FINAL+1~, ERRPT+1~, ERRPT+3*, ERRPT+12*
LTRCNT EN+1~, PRINT+3*
LTRCNT( EN+7*, PRINT+13*, PRINT+18*
LTRCNT(1 FINAL+10, FINAL+13
LTRCNT(2 FINAL+11, FINAL+13
LTRCNT(4 FINAL+12, FINAL+13
LTRGRP QUE+1~, QUE+10*, EN+4, EN+9, EN+10, EN+11, BUILD~, BUILD+3, BUILD+20, LGROUP~
, LGROUP+16, PRINT~, PRINT+9, PRINT+16, PRINT+17, PRINT+18, PRINT+19, FINAL~, FINAL+3, FINAL+8
, ERRPT~, ERRPT+17
MSG FINAL+1~, ERRPT+1~
MSG( ERRPT+12*
MSG(1 FINAL+5*, ERRPT+14*
MSG(10 FINAL+8*, ERRPT+17*
MSG(15 FINAL+9*
MSG(2 FINAL+6*, ERRPT+15*
MSG(20 FINAL+10*
MSG(22 FINAL+11*
MSG(24 FINAL+12*
MSG(26 FINAL+14*
MSG(30 ERRPT+18*
MSG(4 ERRPT+16*
MSG(5 FINAL+7*
NAME PRINT+1~, PRINT+3*, PRINT+4*, PRINT+6, PRINT+7, PRINT+8, ERRPT+1~, ERRPT+3*, ERRPT+4*, ERRPT+5
, ERRPT+6, ERRPT+7, ERRPT+8
NODE4 LGROUP+7~, LGROUP+10*, LGROUP+14
NODE6 LGROUP+7~, LGROUP+9*, LGROUP+13
NODEZ LGROUP+7~, LGROUP+11*, LGROUP+15
PFLAGS BUILD+1~, BUILD+20*, BUILD+21, PRINT+1~, PRINT+5!, PRINT+8*, PRINT+11, PRINT+16
RETZTSK QUE+1~, QUE+12*
RSLT GETSITE+1~, GETSITE+11*, GETSITE+12*, GETSITE+13, UESITE+8~, UESITE+11*, UESITE+12, LGROUP+7~, LGROUP+13*, LGROUP+14*
, LGROUP+15*, LGROUP+16*, LGROUP+18
SPACE ERRPT+1~, ERRPT+10*, ERRPT+11
TOT FINAL+1~, FINAL+13*, FINAL+14
U LGROUP+13, LGROUP+14, LGROUP+15, PRINT+6, PRINT+7, PRINT+8, ERRPT+5, ERRPT+6, ERRPT+7
UES QUE+1~, QUE+9*, EN+3, EN+9, EN+11, BUILD~, BUILD+8, UESITE~, UESITE+11, FINAL~
, FINAL+3, FINAL+7, ERRPT~, ERRPT+15
VA ERRPT+1~, ERRPT+9!
VA("BID" ERRPT+9
X GETSITE+1~, LTRS+1~
XMDUZ FINAL+1~, FINAL+19*, ERRPT+1~, ERRPT+23*
XMSUB FINAL+1~, FINAL+16*, ERRPT+1~, ERRPT+20*
XMTEXT FINAL+1~, FINAL+17*, ERRPT+1~, ERRPT+21*
XMY FINAL+1~, ERRPT+1~
XMY("G.EAS MT LETTERS" , FINAL+18*, ERRPT+22*
Y GETSITE+1~, GETSITE+11, LTRS+1~, LTRS+13*, LTRS+14*, LTRS+15
>> ZTQUEUED BUILD+3
ZTSAVE QUE+1~, QUE+14
ZTSAVE("LTRGRP" QUE+13*
ZTSAVE("UES" QUE+13*
ZTSK QUE+1~, QUE+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All