LRJSMLA1 ;ALB/PO,GTS Lab Hospital Location Update Notification ;02/19/2010 12:01:53
Source file <LRJSMLA1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(405.4 - [#405.4] | SRTCHG+64, SRTCHG+65 |
| ^DIC(42 - [#42] | WLTOHL+2 |
| ^SC - [#44] | HLTOWL+2 |
| Name | Line Occurrences |
|---|---|
| $$GFLDS | GRPTLST+1, GMONLST+1 |
| $$GIOP | GAUDATA+25 |
| $$GMONLST | EXTRACT+23 |
| $$WLTOHL | SRTCHG+56, SRTCHG+66, SRTCHG+71 |
| EXTRACT | SRTCHG+32, SRTCHG+33, SRTCHG+34 |
| GAUDATA | EXTRACT+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | GIOP+10~, GIOP+12* |
| BEDNODE | KEEPBED~, KEEPBED+15, KEEPBED+18, KEEPBED+20 |
| BY | GAUDATA+16~, GAUDATA+20* |
| D0 | GAUDATA+16~ |
| DEVICE | GIOP~, GIOP+11, GIOP+15*, GIOP+18*, GIOP+21 |
| DIA | GAUDATA+16~ |
| DIC | GAUDATA+16~, GAUDATA+19* |
| DILOCKTM | GAUDATA+16~ |
| DISYS | GAUDATA+16~ |
| DTR | SRTCHG+22~, SRTCHG+78*, SRTCHG+79*, SRTCHG+80 |
| FILENUM | SRTCHG+22~, SRTCHG+45*, SRTCHG+51, SRTCHG+55, SRTCHG+59, EXTRACT~, EXTRACT+18, EXTRACT+23, EXTRACT+35, GAUDATA~ , GAUDATA+19, GRPTLST~, GRPTLST+1, GMONLST~, GMONLST+1, GFLDS~, GFLDS+9 |
| FLDS | GAUDATA+16~, GAUDATA+23*, GFLDS+1~, GFLDS+6*, GFLDS+9*, GFLDS+10 |
| FR | GAUDATA+16~, GAUDATA+21* |
| HLIEN | SRTCHG+22~, SRTCHG+52*, SRTCHG+53, SRTCHG+56*, SRTCHG+57, SRTCHG+66*, SRTCHG+67, SRTCHG+71*, SRTCHG+72, SRTCHG+76* , SRTCHG+77*, SRTCHG+79, SRTCHG+80, HLTOWL~, HLTOWL+2 |
| I | GFLDS+1~, GFLDS+7* |
| IO | GIOP+10~ |
| IO("Q" | GIOP+18 |
| IOP | GAUDATA+16~, GAUDATA+25*, GAUDATA+26*, GIOP+10~, GIOP+11* |
| LIST | GFLDS+1~, GFLDS+6*, GFLDS+7, GFLDS+8*, GFLDS+9* |
| LRAFLDS | AUDSET+4~, AUDSET+5*, AUDSET+6, AUDSET+7 |
| LRAUD | EXTRACT~, EXTRACT+14*, EXTRACT+15, EXTRACT+35 |
| LRCHAR | SRTCHG+23~, SRTCHG+26*, SRTCHG+39, EXTRACT+12~, EXTRACT+13*, KEEPBED+11~, KEEPBED+14*, KEEPBED+16, CLNUP+8~, CLNUP+11* , CLNUP+13 |
| LRCNT | SRTCHG+23~, SRTCHG+26*, SRTCHG+37*, SRTCHG+38, SRTCHG+40* |
| LRD0 | SRTCHG+22~, SRTCHG+49*, SRTCHG+53, SRTCHG+57, SRTCHG+67, SRTCHG+72, EXTRACT+12~, EXTRACT+20*, EXTRACT+21*, EXTRACT+23 , EXTRACT+24, EXTRACT+26, EXTRACT+27, EXTRACT+28, EXTRACT+29, EXTRACT+30, EXTRACT+31, EXTRACT+32, EXTRACT+33, EXTRACT+34 , EXTRACT+35 |
| LRDATA | EXTRACT+12~, EXTRACT+15*, EXTRACT+16, EXTRACT+18, EXTRACT+21, EXTRACT+23, EXTRACT+24, EXTRACT+26, EXTRACT+27, EXTRACT+28 , EXTRACT+29, EXTRACT+30, EXTRACT+31, EXTRACT+32, EXTRACT+33, EXTRACT+34, EXTRACT+36, GAUDATA~ |
| LRDEV | GAUDATA+16~, GAUDATA+25* |
| LRDT | SRTCHG+22~, SRTCHG+47*, SRTCHG+53, SRTCHG+57, SRTCHG+67, SRTCHG+72, EXTRACT+12~, EXTRACT+24*, EXTRACT+25, EXTRACT+35 , GAUDATA+17~, KEEPBED+11~, KEEPBED+12*, KEEPBED+15*, KEEPBED+18, KEEPBED+20, CLNUP+8~, CLNUP+10*, CLNUP+12*, CLNUP+15 , CLNUP+17, CLNUP+19, CLNUP+21, CLNUP+22, CLNUP+23 |
| LRENTNM | EXTRACT+12~, EXTRACT+26*, EXTRACT+35 |
| LRFLDNM | EXTRACT+12~, EXTRACT+27*, GAUDATA+17~, CLNUP+8~, CLNUP+18*, CLNUP+19*, CLNUP+20, CLNUP+21, CLNUP+22, CLNUP+23 , CLNUP+34*, CLNUP+35*, CLNUP+36, CLNUP+39 |
| LRFLNUM | SRTCHG+22~, SRTCHG+48*, SRTCHG+53, SRTCHG+57, SRTCHG+62, SRTCHG+67, SRTCHG+69, SRTCHG+72, EXTRACT+12~, EXTRACT+28* , EXTRACT+35, GAUDATA+17~ |
| LRFR | SRTCHG~, SRTCHG+32, SRTCHG+33, SRTCHG+34, EXTRACT~, EXTRACT+18, EXTRACT+25, GAUDATA~, GAUDATA+21 |
| LRI | AUDSET+4~, AUDSET+5* |
| LRIEN | SRTCHG+22~, SRTCHG+46*, SRTCHG+52, SRTCHG+56, SRTCHG+57, SRTCHG+60, SRTCHG+67, SRTCHG+70, SRTCHG+72, EXTRACT+12~ , EXTRACT+29*, EXTRACT+35, GAUDATA+17~, KEEPBED+11~, KEEPBED+19*, KEEPBED+20*, KEEPBED+21 |
| LRNEW | EXTRACT+12~, EXTRACT+30*, EXTRACT+35, GAUDATA+17~ |
| LRNEWIEN | EXTRACT+12~, EXTRACT+31*, EXTRACT+35 |
| LROLD | EXTRACT+12~, EXTRACT+32*, EXTRACT+35, GAUDATA+17~ |
| LROLDIEN | EXTRACT+12~, EXTRACT+33*, EXTRACT+35 |
| LRPROC | SRTCHG+23~, SRTCHG+43*, SRTCHG+44 |
| LRTO | SRTCHG~, SRTCHG+34, SRTCHG+79, SRTCHG+80, EXTRACT~, EXTRACT+18, EXTRACT+25, GAUDATA~, GAUDATA+22 |
| LRUSER | EXTRACT+12~, EXTRACT+34*, EXTRACT+35, GAUDATA+17~ |
| LRX | GAUDATA+17~ |
| NODE | SRTCHG+22~, SRTCHG+29*, SRTCHG+32, SRTCHG+33, SRTCHG+34, SRTCHG+36*, SRTCHG+43, SRTCHG+45, SRTCHG+46, SRTCHG+47 , SRTCHG+48, SRTCHG+49, SRTCHG+53, SRTCHG+57, SRTCHG+67, SRTCHG+72, CLNUP~ |
| NODE( | CLNUP+12, CLNUP+15, CLNUP+17, CLNUP+19, CLNUP+22, CLNUP+39! |
| NOFFSET | SRTCHG+22~, SRTCHG+28*, SRTCHG+36, SRTCHG+45, SRTCHG+46, SRTCHG+47, SRTCHG+48, SRTCHG+49 |
| OUTNODE | SRTCHG+22~, SRTCHG+27*, SRTCHG+28, SRTCHG+29, SRTCHG+73 |
| PIECE | GRPTLST~, GRPTLST+1, GMONLST~, GMONLST+1, GFLDS~, GFLDS+4*, GFLDS+9 |
| POP | GIOP+10~, GIOP+14 |
| REVNODE | SRTCHG~, SRTCHG+24, SRTCHG+27, SRTCHG+53, SRTCHG+57, SRTCHG+67, SRTCHG+72, SRTCHG+77, SRTCHG+79, SRTCHG+80 |
| RMBDARY | CLNUP+8~ |
| RMBDARY( | CLNUP+21*, CLNUP+22*, CLNUP+23*, CLNUP+31, CLNUP+33, CLNUP+35, CLNUP+36, CLNUP+39 |
| RMBDIEN | KEEPBED~, KEEPBED+21, CLNUP+8~, CLNUP+16*, CLNUP+17*, CLNUP+19, CLNUP+21, CLNUP+22, CLNUP+23, CLNUP+32* , CLNUP+33*, CLNUP+35, CLNUP+36, CLNUP+39 |
| RMBDXST | KEEPBED+11~, KEEPBED+13*, KEEPBED+15, KEEPBED+18, KEEPBED+20, KEEPBED+21*, KEEPBED+22 |
| RMD0 | SRTCHG+22~, SRTCHG+60*, SRTCHG+64, SRTCHG+65 |
| RMD1 | SRTCHG+22~, SRTCHG+63*, SRTCHG+64*, SRTCHG+65 |
| RTN | GFLDS+1~, GFLDS+3*, GFLDS+5* |
| TAG | GFLDS+1~, GFLDS+2* |
| TAGRTN | GFLDS~, GFLDS+2, GFLDS+3 |
| TO | GAUDATA+16~, GAUDATA+22* |
| U | GAUDATA+18 |
| WLIEN | SRTCHG+22~, SRTCHG+65*, SRTCHG+66, SRTCHG+67, SRTCHG+70*, SRTCHG+71, SRTCHG+72, WLTOHL~, WLTOHL+2, KEEPBED+11~ , KEEPBED+17*, KEEPBED+18*, KEEPBED+20, CLNUP+8~, CLNUP+14*, CLNUP+15*, CLNUP+17, CLNUP+19, CLNUP+21, CLNUP+22 , CLNUP+23, CLNUP+30*, CLNUP+31*, CLNUP+33, CLNUP+35, CLNUP+36, CLNUP+39 |
| X1 | GAUDATA+16~ |
| Name | Field # of Occurrence |
|---|---|
| $T( | GFLDS+5 |
| $T(@TAG+I^@RTN | GFLDS+8 |
| $T(AFLDS+LRI | AUDSET+5 |
