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 |