DGPTR4 ;ALB/JDS/MJK/MTC/ADL/TJ/BOK,HIOFO/FT - PTF TRANSMISSION ;5/11/15 4:52pm
Source file <DGPTR4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 701 | ; -- setup 701 transaction
|
|
| J | ||
| 702 | ;
|
|
| ENTER | ||
| ENTER0 | ||
| SAVE | ;validate data and save to MailMan message & ^TMP("AEDIT",$J)
|
|
| Q | ;
|
|
| SAVE70X | ;pad with spaces, set 383rd character & save to MailMan message.
|
|
| CDR | ||
| ADDQUES | ;-- additional PTF questions load records for trans 501/701
|
|
| RTEN(X) | ; This function will round X to the nearest multiple of ten.
; 0-4 ->DOWN; 5-9->UP |
|
| ETHNIC | ;-- Ethnicity (use first active value)
|
|
| RACE | ;-- Race (use first 6 active values)
|
