DGPTRI2 ;ALB/JDS/MJK/MTC/ADL/TJ/BOK,ISF/GJW,HIOFO/FT - PTF TRANSMISSION ;4/20/15 9:18am
Source file <DGPTRI2.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| 501 | ; -- setup 501 transactions
 ; DG*636  | 
|
| MOV | ; build movement record
 | 
|
| 535 | ; -- do 535's
 | 
|
| PROC | ; -- setup 601 transactions
 | 
|
| 601 | ||
| 701 | ; -- setup 701 transaction
 | 
|
| ENTER | ||
| ENTER0 | ||
| SAVE | ;save segment to MailMan message and ^TMP("AEDIT",$J), if data is valid
 | 
|
| Q | ||
| FILL | ;fill out segment with spaces
 | 
|
| CDR | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^DGPT - [#45] | GET1^DIQ |