EASMT65 ; ALB/SCK - MEANS TEST LETTER PRINT FOR USER ENROLLEE STATUS ; 25-JUL-2007
Source file <EASMT65.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |