DG53334B ;ALB/MRY - ALS EXTRACT; ; 11/16/00 10:38am
Source file <DG53334B.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INITMAIL(FLAG) | ;-- This function will initialize mail variables
|
|
LINECALC(DGFIELD,DGLINE) | ;
; return length that would be set |
|
FMAIL(DATA) | ;- This function will generate a summary mail message.
|
|
SETMAIL(DGTATION,DGDFN) | ;
|
|
SMAIL(DGLINE) | ;-- Send Mail Message containing records so far
|
|
SETLINE | ;set mailmsg from xtmp array
; $g will preserve piece position if field returned error |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | SETMAIL+7 |
^XMB(3.9 - [#3.9] | SETMAIL+7*, SETMAIL+15*, SETMAIL+22*, SETMAIL+25*, LINECALC+2, SETLINE+2*, SMAIL+4*, FMAIL+7*, FMAIL+8*, FMAIL+9* , FMAIL+10*, FMAIL+11*, FMAIL+15*, FMAIL+21*, FMAIL+24*, FMAIL+26*, FMAIL+30* |
^XTMP("DGALS" | SETMAIL+11, LINECALC+2, SETLINE+2, FMAIL+18 |
Name | Line Occurrences |
---|---|
$$LINECALC | SETMAIL+13 |
INITMAIL | SETMAIL+1 |
SETLINE | SETMAIL+18 |
SMAIL | FMAIL+16, FMAIL+22, FMAIL+34 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DATA | FMAIL~, FMAIL+4, FMAIL+14 |
DGDFN | SETMAIL~, SETMAIL+7, SETMAIL+11, LINECALC+2, SETLINE+2 |
DGFIELD | SETMAIL+10*, SETMAIL+11*, SETMAIL+13, LINECALC~, LINECALC+2, SETLINE+2 |
DGLINE | SETMAIL+1, SETMAIL+3*, SETMAIL+7, SETMAIL+8*, SETMAIL+13, SETMAIL+15, SETMAIL+16*, SETMAIL+22, SETMAIL+23*, SETMAIL+25 , LINECALC~, LINECALC+2, SETLINE+2, SMAIL~, SMAIL+4, FMAIL+13*, FMAIL+15, FMAIL+16, FMAIL+21, FMAIL+22 , FMAIL+24, FMAIL+25*, FMAIL+26, FMAIL+29*, FMAIL+30, FMAIL+33, FMAIL+34 |
>> DGPECE | SETMAIL+4*, SETMAIL+15, SETMAIL+17*, SETMAIL+19*, SETMAIL+22, SETLINE+2 |
>> DGSTART | FMAIL+9 |
DGTATION | SETMAIL~, SETMAIL+7 |
>> DGZ | FMAIL+18*, FMAIL+19, FMAIL+26, FMAIL+28*, FMAIL+30, FMAIL+33* |
DT | SMAIL+4 |
DUZ | INITMAIL+3, FMAIL+3 |
FLAG | INITMAIL~, INITMAIL+4 |
U | SMAIL+4 |
>> XMDUZ | INITMAIL+3*, FMAIL+3* |
>> XMSUB | INITMAIL+2*, FMAIL+2* |
>> XMY( | INITMAIL+3*, FMAIL+3* |
>> XMY("S.DG ALS | SERVER@MNTVBB.ISC-ALBANY.VA.GOV" , INITMAIL+5* |
>> XMY("YORTY.M_ROBERT@FORUM.VA.GOV" | INITMAIL+6*, FMAIL+4* |
>> XMZ | SETMAIL+7, SETMAIL+15, SETMAIL+22, SETMAIL+25, LINECALC+2, SETLINE+2, SMAIL+4, FMAIL+7, FMAIL+8, FMAIL+9 , FMAIL+10, FMAIL+11, FMAIL+15, FMAIL+21, FMAIL+24, FMAIL+26, FMAIL+30 |