DGPTRI0 ;MJK/JS/ADL/TJ,ISF/GJW,HIOFO/FT - PTF TRANSMISSION ;4/9/15 2:57pm
Source file <DGPTRI0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 101 | ; -- setup 101 transmission
; control data and name |
|
| 401 | ; -- setup 401 transactions (402 and 403 are no longer used. All surgeries are 401 segments.)
|
|
| SUR | ;
|
|
| 501 | ||
| FORMAT | ;format value
|
|
| FORMAT0 | ;format value with zeros
|
|
| ENTER | ||
| ENTER0 | ||
| SAVE | ;
|
|
| 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 |
