LRJSMLA ;ALB/PO,GTS Lab Hospital Location Update Notification ;02/24/2010 11:45:51
Source file <LRJSMLA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLDREC(LRFR,LRTO,LRES,LRTYPE) | ; -- output the HLCMS updates
; Input: ; LRFR - start time to report the raw data for. ; LRTO - end to report the raw data. ; LRES - Root for array that defines result data ; LRTYPE - report type ; 1: do not report records that that have changed ; but returned back to its original values (Default) ; 2: report all reocrds ; Output: ; @OUT@(seguence number) - array containing the results ; |
|
| BLDRAW(LRFR,LRTO,OUT) | ; -- build raw data for given time interval into @OUT array
; Input: ; LRFR - start date/time for raw data report ; LRTO - end date/time for raw data report ; OUT - Name of array holding raw data ; Output: ; @OUT@ - array in the following format. ; @OUT@(sort order, HL ien, 0, "CURRENT" or "PREVIOUS" or "NEW") = CURRENT or PREVIOUS or NEW HL field values ; @OUT@(sort order, HL ien,"AAAROOM", room value,-.235681, "CURRENT" or "PREVIOUS" or "NEW")=CURRENT or PREVIOUS or NEW room field values ; @OUT@(sort order, HL ien,"AAAROOM", room value, bed value, "CURRENT" or "PREVIOUS" or "NEW")=CURRENT or PREVIOUS or NEW bed field values ; e.g. ; ; @OUT@("SORT2RAW",432,0,"CURRENT")="CURRENT^LOCATION^432^ZZW 100Ar^WARD^ALABAMA^TROY^^^OSTOVARI,PARVIZ^3081208.165853" ; @OUT@("SORT2RAW",432,0,"PREVIOUS")="PREVIOUS^LOCATION^432^ZZW 100A^^ALBANY AREA^DEVVLD^^" ; @OUT@("SORT2RAW",432,"AAAROOM",1001,-.235681,"CURRENT")="CURRENT^ROOM^432^ZZW 100Ar^WARD^ALABAMA^TROY^^" ; @OUT@("SORT2RAW",432,"AAAROOM",1001,-.235681,"PREVIOUS")="PREVIOUS^ROOM^432^ZZW 100A^^ALBANY AREA^DEVVLD^1001^" ; @OUT@("SORT2RAW",432,"AAAROOM",1001,"AB","ACUR")="CURRENT^BED^432^ZZW 100Ar^WARD^ALABAMA^TROY^1001^" ; @OUT@("SORT2RAW",432,"AAAROOM",1001,"AB","APREV")="PREVIOUS^BED^432^ZZW100A^^ALBANY AREA^DEVVLD^1001^AB" |
|
| BLDHLREC(RES) | ; return the record from RES array.
; Input: ; RES - new/current or previous results from audit file and file 44 ; Output: ; Return the record |
|
| ROLLUP(HLIEN,CUR,NARR,TO) | ; roll back the CUR HL values from current time back to "TO" time
; Input: ; HLIEN - HL ien. ; NARR - array containing the audit file data for given HL ; CUR - array containing HL data. ; TO - End Date for extract ; Output: ; CUR - array containing HL data. |
|
| GHL(HLIEN,CUR) | ; get the fields that are to be reported for given HL into CUR array
; Input: ; HLIEN - Hosp Loc ien. ; Output: ; CUR - array containing hosiptal location data. |
|
| CURRMBED(LRARRY,RBIEN) | ; Find value of Room-Bed after last change before End-Date
|
|
| RBIENCK(LRLSTDT,LRWLN,LRARRY) | ; Check for correct Room-Bed IEN
|
