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 |