EASEC100 ;ALB/BRM,LBD - Print 1010EC LTC Enrollment form ; 3/1/02 8:22am
Source file <EASEC100.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETDATA(EASDFN,EAINFO) | ;get veterans LTC data to be printed
|
|
| DATA1(EASDFN,EAINFO,EASROOT) | ;data for section 1
|
|
| DATA2(EASDFN,EASROOT) | ;data for section 2
|
|
| INSDAT(EASINS,CNT) | ;obtain insurance information from the insurance file (#36)
|
|
| DATA3(EASDFN,EAINFO,EASROOT,DGINC) | ;data for section 3
|
|
| DATA4(EASDFN,EASROOT,DGINC) | ;data for section 4 and the first part of 5
|
|
| DATA5(EASDFN,EASROOT,DGINC) | ;data for section 5 (the rest of it)
|
|
| DATA6(EASDFN,EASROOT,DGINC) | ;
|
|
| DATA8(EASROOT,EAINFO) | ;get the word processing field for section 8
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DIC(36 - [#36] | GETS^DIQ |
| ^DGMT(408.21 - [#408.21] | GETS^DIQ |
| ^DGMT(408.22 - [#408.22] | GET1^DIQ |
| ^DGMT(408.31 - [#408.31] | GET1^DIQ |
