Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LRERT

Package: Lab Service

Routine: LRERT


Information

LRERT ;DALOI/JDB - STS TEAM UTILITIES ;06/10/09 14:44

Source Information

Source file <LRERT.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ($$FMADD,$$NOW)^XLFDT  ($$TRIM,$$UP)^XLFSTR  $$NS^XUAF4  $$KSP^XUPARAM  
Lab Service 3 $$CODE^LRSCT  $$VER^LRSRVR6  $$GETLOCK^LRUTIL  
VA FileMan 1 GETS^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Lab Service 4 LRERT1  LRSCTF  LRSCTF1  LRSCTX1  

Entry Points

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|
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
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"
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

External References

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$TNUM LOGIT+35

Local Variables

Legend:

>> 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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All