DGPTR0 ;MJK/JS/ADL/TJ,HIOFO/FT - PTF TRANSMISSION ;4/21/15 11:28am
Source file <DGPTR0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 101 | ; -- setup 101 transmission
; control data and name |
|
| P401 | ; -- setup 401P transaction
|
|
| 401 | ; -- setup 401 transactions
|
|
| SUR | ;
|
|
| 501 | ||
| ENTER | ||
| ENTER0 | ||
| SAVE | ;save segment to MailMan message and ^TMP("AEDIT",$J), if data is valid
|
|
| Q | ||
| DGNAM | ||
| PTFNMFT(DG10) | ;this function will format the name of the patient for
; transmission of the 101 record to Austin. In addition, this ; function will be used by OPC so that the format will be consistent ; for OPC and PTF. ; INPUT : DG10 - .01 field from the patient record. ; OUTPUT: name in the format proper format. ; A = <12 - characters of last name padded with blanks> ; B = <1 - first initial of fist name> ; C = <1 - first initial of middle name> ; returns :ABC <14 - characters> |
| FileNo | Call Tags |
|---|---|
| ^HL(779.004 - [#779.004] | GET1^DIQ |
