©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
HDISDSR1 ;BPFO/DTG - HDI MAILMAN SERVER COLLECT SDO DATA; Apr 07, 2018@12:42
Source file <HDISDSR1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIT | ; initialize vars and file
|
|
| MAILSEND(HDISUBJ) | ; Send extract back to requestor.
|
|
| ENCODE(HDISTR) | ; Encode a string, keep remainder for next line
; Call with ORSTR by reference, Remainder returned in LRSTR |
|
| UUEN(STR) | ; Uuencode string passed in.
|
|
| UUBEGFN(HDFILENM) | ; Construct uuencode "begin" coding
; Call with HDFILENM = name of uuencoded file attachment ; ; Returns HDIX = string with "begin..."_file name |
|
| SETDATA | ; Set data into report structure
|
|
| CLEAN | ; clean up
|
|
| DISER | ; display return error type
|
|
| DISTXT | ; error text
|
| FileNo | Call Tags |
|---|---|
| ^XMB(1 - [#4.3] | GET1^DIQ |