LRJSML8 ;ALB/GTS - Lab Vista Hospital Location Utilities;04/23/2012 09:05
Source file <LRJSML8.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LISTHLMM(LRHLARY) | ; Store Hospital Locations in display array
; INPUT - ; LRHLARY - Array of raw extract data |
|
| CRTRPTAR(LRHLARY,LRFROM,LRTO,LROUTPT,LRMMARY) | ; Store Hospital Locations in display array
; INPUT - ; LRHLARY - Raw extract data Array ; LRFROM - Report Start date ; LRTO - Report End date ; LROUTPT - "DISPLAY" - Listman; "MAIL" - mail message ; LRMMARY - Mail msg output array |
|
| XSET(LRINIT,LRFROM,LRTO) | ;Set report description (first line listed)
|
|
| GETDATE(LRFROM,LRTO) | ;Return Report dates from ^TMP("LRJ SYS MAP HL MANAGER",$JOB)
|
|
| SNDMSG(LRMSUBJ,XQSND,LRMSGARY,LRTASK) | ;Send HL changes to requestor
|
|
| SNDEXT(LRMSUBJ,XQSND,LREXTARY) | ;Send HL changes Extract to requester
|
|
| OUTLKARY(LRHLARY,LRHLOTLK,LRMSUBJ,LRRT) | ;Create attachmts array
|
|
| UUBEGFN(LRFILENM) | ; Construct uuencode "begin" coding
; Call with LRFILENM = name of uuencoded file attachmt ; ; Returns LRX = string with "begin..."_file name |
|
| ENCODE(LRSTR,LRDTANOD,LRHLOTLK) | ;Encode a string, keep remainder for next line
|
