LRERT ;DALOI/JDB - STS TEAM UTILITIES ;06/10/09 14:44
Source file <LRERT.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 |
|---|---|---|
| BLDERTX(LRFILE,LRFIEN,LRDELIM,LRERT,LRTYPE,LRFLAGS) | ;
; Constructs a string or array used for the ERT data extract ; FileMan safe ; Called by NOTIFY^LRSCTX1 ; Inputs ; LRFILE: File # ; LRFIEN: Entry's IEN ; LRDELIM: Delimiter to use <dflt=|> ; LRERT:<byref> See Outputs ; LRTYPE: Return the string or the array elements ; : 1=String 2=Array <dflt=2> ; : Return data can be big so need to limit in order ; : to watch symbol table use. ; LRFLAGS: Controls behavior of the API ; : S=Populate SCT text with text from Lexicon ; Outputs ; The ERT extract string. ; The ERT array: ERT(1)=id ERT(2)=Entry name, etc.. ; ERT extract format (from ^LRSRVR6) ; Station #-File #-IEN|Entry Name|SNOMED I|VUID|SNOMED CT|SNOMED CT TERM|Mapping Exception|Related Specimen|Related Specimen ID|Extract Ver|Term Status| |
|
| TNUM(FILE,IEN,NOW,EXCTYP) | ;
; Construct transaction number ; Inputs ; FILE: File # ; IEN: IEN of entry ; NOW: Date/Time of process <dflt=Now> ; EXCTYP: ERT Exception Type (1=load, 2=ref lab, 3=local edit) ; Returns Transaction number string |
|
| LOGIT(TEXT,IN,TMPNM) | ;
; FileMan safe ; Adds data to the ^XTMP gobal. ; Inputs ; TEXT:<byref> Save symtbl space (dont manipulate) ; IN: <byref> ; IN("TNUM") - Transaction Number <req> ; IN("TDT") - Transaction date/time <opt> ; IN("FILE") targ file <req> ; IN("FIEN") ;targ file IEN <req> ; IN("SCT") ;SCT code <opt> ; IN("R6247") ;#62.49 IEN <opt> ; IN("STSEXC") ;STS exception type <req> ; IN("HDIERR") ;STS error flag <opt> 0 or 1 ; IN("PREV","SCT") ; IN("PREV","TEXT") ; TMPNM:<opt> XTMP subscript <dflt=LRSCTX-STS> ; Outputs ; Record # or "0^err #^err msg" |
|
| OK2LOG(TEXT,IN,TMPNM) | ;
; FileMan safe ; Checks if this change needs to be logged. ; Inputs ; TEXT:<byref> Not manipulated (minimize symtbl use) ; IN:<byref> ; IN("FILE") <req> ; IN("SCT") <opt> ; IN("PREV","SCT") <opt> ; Outputs ; 1=OK to log or 0 with error code^error msg ; If "0^2^SCT changed" then this should still generate an alert |
| Name | Field # of Occurrence |
|---|---|
| GETS^DIQ | BLDERTX+40 |
| $$CODE^LRSCT | BLDERTX+57 |
| $$VER^LRSRVR6 | BLDERTX+70 |
| $$GETLOCK^LRUTIL | LOGIT+28 |
| $$FMADD^XLFDT | LOGIT+25 |
| $$NOW^XLFDT | TNUM+13, LOGIT+25, LOGIT+32 |
| $$TRIM^XLFSTR | LOGIT+26, OK2LOG+16 |
| $$UP^XLFSTR | TNUM+20, LOGIT+57, OK2LOG+16, OK2LOG+21 |
| $$NS^XUAF4 | BLDERTX+36, TNUM+16 |
| $$KSP^XUPARAM | BLDERTX+35, TNUM+15 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB( | BLDERTX+66 |
| ^LAB(61 - [#61] | BLDERTX+67 |
| ^XTMP( | LOGIT+25*, LOGIT+27, LOGIT+37, LOGIT+38*, LOGIT+39*, LOGIT+40*, LOGIT+41*, LOGIT+42*, LOGIT+43*, LOGIT+44* , LOGIT+45*, LOGIT+46*, LOGIT+47*, LOGIT+51*, LOGIT+52*, LOGIT+53*, LOGIT+54*, LOGIT+55*, LOGIT+56*, LOGIT+57* , LOGIT+58*, LOGIT+59*, LOGIT+60*, LOGIT+61*, OK2LOG+20, OK2LOG+21, OK2LOG+22 |
| Name | Line Occurrences |
|---|---|
| $$TNUM | LOGIT+35 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | BLDERTX+22~ |
| >> DATA | OK2LOG+22*, OK2LOG+23 |
| DIC | BLDERTX+22~ |
| DIE | BLDERTX+22~ |
| DIERR | BLDERTX+22~ |
| DIR | BLDERTX+22~ |
| DR | BLDERTX+22~ |
| DT | LOGIT+25 |
| DUZ | LOGIT+46 |
| EXCTYP | TNUM~, TNUM+12*, TNUM+14, TNUM+19 |
| FIEN | LOGIT+19~, LOGIT+30*, LOGIT+35, LOGIT+43, LOGIT+60 |
| FILE | TNUM~, TNUM+9*, TNUM+19, LOGIT+19~, LOGIT+30*, LOGIT+35, LOGIT+42, LOGIT+60, OK2LOG+12~, OK2LOG+15* , OK2LOG+23 |
| I | OK2LOG+12~, OK2LOG+19*, OK2LOG+20*, OK2LOG+21, OK2LOG+22 |
| IEN | TNUM~, TNUM+10*, TNUM+19 |
| IN | LOGIT~, OK2LOG~ |
| IN("FIEN" | LOGIT+30 |
| IN("FILE" | LOGIT+30, OK2LOG+15 |
| IN("HDIERR" | LOGIT+49, LOGIT+50 |
| IN("PREV" | LOGIT+52, LOGIT+53, LOGIT+54, OK2LOG+28 |
| IN("R6247" | LOGIT+45 |
| IN("SCT" | LOGIT+44, OK2LOG+28 |
| IN("STSEXC" | LOGIT+33 |
| IN("TDT" | LOGIT+31 |
| IN("TNUM" | LOGIT+30 |
| LR61 | BLDERTX+65~, BLDERTX+66*, BLDERTX+67, BLDERTX+68 |
| LRCNT | BLDERTX+21~, BLDERTX+43*, BLDERTX+45*, BLDERTX+51 |
| LRDATA | BLDERTX+21~, BLDERTX+42!, BLDERTX+56! |
| LRDATA( | BLDERTX+41 |
| LRDATA("F" | BLDERTX+59 |
| LRDATA("P" | BLDERTX+60 |
| LRDATA2 | BLDERTX+21~, BLDERTX+41* |
| LRDATA2( | BLDERTX+47 |
| LRDATA2(20 | BLDERTX+54 |
| LRDATA2(21 | BLDERTX+71 |
| LRDELIM | BLDERTX~, BLDERTX+24*, BLDERTX+26*, BLDERTX+27, BLDERTX+28, BLDERTX+29, BLDERTX+51, BLDERTX+61, BLDERTX+75 |
| LRDSUB | BLDERTX+21~, BLDERTX+27*, BLDERTX+28*, BLDERTX+29*, BLDERTX+51, BLDERTX+61 |
| LRERT | BLDERTX~, BLDERTX+32!, BLDERTX+75*, BLDERTX+78 |
| LRERT( | BLDERTX+33*, BLDERTX+51*, BLDERTX+75! |
| LRERT("TNUM" | LOGIT+35* |
| LRERT(1 | BLDERTX+39* |
| LRERT(10 | BLDERTX+70* |
| LRERT(11 | BLDERTX+71* |
| LRERT(6 | BLDERTX+61* |
| LRERT(8 | BLDERTX+67* |
| LRERT(9 | BLDERTX+68* |
| LRFIEN | BLDERTX~, BLDERTX+38, BLDERTX+40, BLDERTX+41, BLDERTX+66 |
| LRFILE | BLDERTX~, BLDERTX+38, BLDERTX+40, BLDERTX+41, BLDERTX+49, BLDERTX+50, BLDERTX+64, BLDERTX+66 |
| LRFLAGS | BLDERTX~, BLDERTX+25*, BLDERTX+55 |
| LRI | BLDERTX+21~, BLDERTX+33*, BLDERTX+44*, BLDERTX+46, BLDERTX+47, BLDERTX+48, BLDERTX+74*, BLDERTX+75* |
| LRLCK | LOGIT+19~, LOGIT+27*, LOGIT+28, LOGIT+62 |
| LRMSG | BLDERTX+21~ |
| LRSCT | BLDERTX+21~, BLDERTX+54*, BLDERTX+55, BLDERTX+57 |
| LRSITE | BLDERTX+21~, BLDERTX+37*, BLDERTX+38, BLDERTX+68 |
| LRT | BLDERTX+21~, BLDERTX+23*, BLDERTX+77 |
| LRTYPE | BLDERTX~, BLDERTX+24*, BLDERTX+73, BLDERTX+78 |
| LRX | BLDERTX+21~, BLDERTX+35*, BLDERTX+36*, BLDERTX+37, BLDERTX+38*, BLDERTX+39, BLDERTX+47*, BLDERTX+48, BLDERTX+49*, BLDERTX+50* , BLDERTX+51, BLDERTX+57*, BLDERTX+58, BLDERTX+59*, BLDERTX+60*, BLDERTX+61 |
| LRY | BLDERTX+21~, BLDERTX+50* |
| NOW | TNUM~, TNUM+11*, TNUM+13*, TNUM+19 |
| REC | LOGIT+19~, LOGIT+37*, LOGIT+38, LOGIT+39, LOGIT+40, LOGIT+41, LOGIT+42, LOGIT+43, LOGIT+44, LOGIT+45 , LOGIT+46, LOGIT+47, LOGIT+51, LOGIT+52, LOGIT+53, LOGIT+54, LOGIT+55, LOGIT+56, LOGIT+57, LOGIT+58 , LOGIT+59, LOGIT+60, LOGIT+61, LOGIT+63, OK2LOG+12~ |
| SCTCHNG | LOGIT+19~ |
| STATUS | OK2LOG+12~, OK2LOG+15*, OK2LOG+26*, OK2LOG+28*, OK2LOG+29 |
| STOP | OK2LOG+12~, OK2LOG+19*, OK2LOG+20, OK2LOG+24*, OK2LOG+26, OK2LOG+28* |
| STR | LOGIT+19~, LOGIT+26*, LOGIT+38, LOGIT+39, LOGIT+57, OK2LOG+12~, OK2LOG+17*, OK2LOG+20, OK2LOG+21 |
| STSEXC | LOGIT+19~, LOGIT+33*, LOGIT+34*, LOGIT+35, LOGIT+47, LOGIT+61 |
| TDT | LOGIT+19~, LOGIT+31*, LOGIT+32*, LOGIT+35, LOGIT+41, LOGIT+59 |
| TEXT | LOGIT~, LOGIT+26, OK2LOG~, OK2LOG+15*, OK2LOG+16 |
| TEXT2 | LOGIT+19~, OK2LOG+12~, OK2LOG+16*, OK2LOG+17, OK2LOG+21 |
| TMPNM | LOGIT~, LOGIT+21*, LOGIT+22*, LOGIT+25, LOGIT+27, LOGIT+37, LOGIT+38, LOGIT+39, LOGIT+40, LOGIT+41 , LOGIT+42, LOGIT+43, LOGIT+44, LOGIT+45, LOGIT+46, LOGIT+47, LOGIT+51, LOGIT+52, LOGIT+53, LOGIT+54 , LOGIT+55, LOGIT+56, LOGIT+57, LOGIT+58, LOGIT+59, LOGIT+60, LOGIT+61, OK2LOG~, OK2LOG+13*, OK2LOG+14* , OK2LOG+20, OK2LOG+21, OK2LOG+22 |
| TNUM | TNUM+8~, TNUM+19*, TNUM+20*, TNUM+21, LOGIT+19~, LOGIT+30*, LOGIT+35*, LOGIT+40, LOGIT+58 |
| U | LOGIT+25, LOGIT+40, LOGIT+41, LOGIT+42, LOGIT+43, LOGIT+44, LOGIT+45, LOGIT+46, LOGIT+47, LOGIT+51 , OK2LOG+23 |
| X | BLDERTX+22~, TNUM+8~, TNUM+15*, TNUM+16*, TNUM+17*, TNUM+19, LOGIT+19~, LOGIT+28*, LOGIT+29, LOGIT+48* , LOGIT+49*, LOGIT+50*, LOGIT+51, OK2LOG+12~ |
| X1 | BLDERTX+22~ |
| X2 | BLDERTX+22~ |
| Y | BLDERTX+22~ |
