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

Package: Enrollment Application System

Routine: EASMTL6A


Information

EASMTL6A ; MIN/TCM ALB/SCK/PHH,ERC - AUTOMATED MEANS TEST LETTER-PRINT LETTERS CONT ; 10/23/07 4:45pm

Source Information

Source file <EASMTL6A.m>

Entry Points

Name Comments DBIA/ICR reference
LETTER(EASN,TYPE) ;Print letter
; Input
; EASN - File #713.2 IEN
; TYPE - Letter type
GETPAT(DFN,EASDEM,EASADD) ; Get patient information
CHKADR(EASPTR) ; Check for valid address
DEFSIG ; Default closing and signature block

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LETTER+19
Function Call: WRITE
  • Prompt: !!?TAB+OFFSET,EASFAC(100)
  • Line Location: LETTER+21
Function Call: WRITE
  • Prompt: !!?TAB+OFFSET,"VA MEDICAL CENTER"
  • Line Location: LETTER+23
Function Call: WRITE
  • Prompt: ?(IOM-10),$E(EASDEM(1),1,1),EASDEM(2)
  • Line Location: LETTER+24
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASFAC(1.01)
  • Line Location: LETTER+26
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASFAC(1.02)
  • Line Location: LETTER+27
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASFAC(1.03)_" "_$P(EASFAC(.02),U,2)_" "_EASFAC(1.04)
  • Line Location: LETTER+28
Function Call: WRITE
  • Prompt: !!!?TAB+OFFSET,$$FMTE^XLFDT(DT,1)
  • Line Location: LETTER+29
Function Call: WRITE
  • Prompt: !!!!?TAB+OFFSET,$$NAMEFMT^XLFNAME(.EASNME,"G")
  • Line Location: LETTER+34
Function Call: WRITE
  • Prompt: !!!!?TAB+OFFSET,EASDEM(1)
  • Line Location: LETTER+36
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASADD(1)
  • Line Location: LETTER+42
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASADD(2)
  • Line Location: LETTER+44
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASADD(4)
  • Line Location: LETTER+47
Function Call: WRITE
  • Prompt: $S(EASADD(4)]"":",",1:"")_$$GET1^DIQ(5,$P(EASADD(5),U),1)
  • Line Location: LETTER+48
Function Call: WRITE
  • Prompt: " ",$P(EASADD(11),U,2)
  • Line Location: LETTER+49
Function Call: WRITE
  • Prompt: !
  • Line Location: LETTER+52
Function Call: WRITE
  • Prompt: ?TAB+OFFSET,EASADD(24)_" "_EASADD(4)_" "_EASADD(23)
  • Line Location: LETTER+53
Function Call: WRITE
  • Prompt: ?TAB+OFFSET,EASADD(4)_$S(EASADD(4):" "_EASADD(23),1:EASADD(23))
  • Line Location: LETTER+54
Function Call: WRITE
  • Prompt: !?TAB+OFFSET,EASCNTRY
  • Line Location: LETTER+59
Function Call: WRITE
  • Prompt: !!!!,?TAB,"MEANS TEST ANNIVERSARY DATE: ",$$FMTE^XLFDT($$ADDLEAP^EASMTUTL(EASANV))
  • Line Location: LETTER+62
Function Call: WRITE
  • Prompt: !!,?TAB,"Dear ",$S(EASX="M":"Mr. ",EASX="F":"Ms. ",1:"Mr./Ms. ")
  • Line Location: LETTER+66
Function Call: WRITE
  • Prompt: $S(DFN>0:$$NAMEFMT^XLFNAME(.EASNME,"O","M"),1:"TEST"),":"
  • Line Location: LETTER+67
Function Call: WRITE
  • Prompt: !
  • Line Location: LETTER+74
Function Call: WRITE
  • Prompt: !?TAB,$P(LINE,"|ANNVDT|",1),$$FMTE^XLFDT($$ADDLEAP^EASMTUTL(EASANV)),$P(LINE,"|ANNVDT|",2)
  • Line Location: LETTER+77
Function Call: WRITE
  • Prompt: !?TAB,LINE
  • Line Location: LETTER+78
Function Call: WRITE
  • Prompt: !?TAB,$P(LINE,"|FAC|",1),$S(EASFAC(100)]"":EASFAC(100),1:"VA Medical Center"),$P(LINE,"|FAC|",2)
  • Line Location: LETTER+87
Function Call: WRITE
  • Prompt: !?TAB,LINE
  • Line Location: LETTER+88
Function Call: WRITE
  • Prompt: !?TAB,^EAS(713.3,EASLIEN,2,EAFIEN,1,EALNE,0)
  • Line Location: LETTER+93
Function Call: WRITE
  • Prompt: !!?TAB,$S($G(TYPE)=1:"Enclosure",1:"")
  • Line Location: LETTER+95

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] EXTERNAL^DILFD
^DIC(5 - [#5] GET1^DIQ
^EAS(713 - [#713] 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