LRJSMLA1 ;ALB/PO,GTS Lab Hospital Location Update Notification ;02/19/2010 12:01:53
Source file <LRJSMLA1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SRTCHG(LRFR,LRTO,REVNODE) | ; sort and reverse the relation room-bed to hospital location
; Input: ; LRFR - start time to report the raw data ; LRTO - end time to report the raw data. ; Output: ; @REVNODE@- array in the following format. |
|
| EXTRACT(FILENUM,LRFR,LRTO,LRAUD) | ; extract data from audit file for given file and date/time interval
; Input: ; FILENUM - file number for which to get audit data ; LRFR - start time for which to get the audit data ; LRTO - end time for which to get the audit data ; Output: ; @LRAUD@ - array in the following format. ; ; @LRAUD@(FILENUM,LRIEN,LRDT,LRFLNUM,LRD0)=LRNEWIEN_"^"_LROLDIEN_"^"_LRNEW_"^"_LROLD_"^"_LRUSER_"^"_LRDT_"^"_LRENTNM ; @LRAUD@(file num, record ien, date time recorded, field number, audit file ien)= ; = new internal value ^ old internal value ^ new value ^ old value ^ user ^ data time recorded ^ entry name from audit file ; |
|
| GAUDATA(FILENUM,LRFR,LRTO,LRDATA) | ; -- Get audited data change for the given file changes
; Input: ; FILENUM - file number for which to get audit data ; LRFR - start time for which to get the audit data ( SEE NOTE) ; LRTO - end time for which to get the audit data (SEE NOTE ; Output: ; @LRDATA@ - array containing data to get from audit file ; ; NOTE: print template seems that returns all the data and ; does not screen against given date range (FR and TO) ; ; set up parameters to run the print template to a null device and store the ; results in @LRDATA array ; in case there is no null defined, print template with IOP of ";;99999" still ; will store the results in LRDATA ; |
|
| GIOP(DEVICE) | ; -- return the device if exists and it is not FORCED to queue, otherwise return ""
|
|
| WLTOHL(WLIEN) | ; -- get associated hospital location from ward location
|
|
| HLTOWL(HLIEN) | ; get associated ward location from hospital location
|
|
| KEEPBED(RMBDIEN,BEDNODE) | ;* Check for existence of Room-Bed when Ward is reactivated
|
|
| CLNUP(NODE) | ;* Check for date of RM-BD change against when it was added to Location
|
|
| GRPTLST(FILENUM,PIECE) | ; -- get the list of fields to be reported for given file Num
|
|
| GMONLST(FILENUM,PIECE) | ||
| RPTLST | ; -- list of files and fields to be reported
|
|
| MONLST | ; -- list of audited file numbers and fields to be monitored
|
|
| GFLDS(FILENUM,TAGRTN,PIECE) | ; search in the given tag for FileNum and get list of fields
|
|
| AUDSET | ; -- enable audit some fields for Hospital Location, Ward Location and Room-Bed
; This API not executed by Lab system. ; PURPOSE: Execute from programmer mode, IF Fileman Auditing required for HLCMS accidentally turned off. |
|
| AFLDS | ; --- file^fields for which to turn on the audit
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
