LRSCTF ;DAL01/JMC - STORE STS MAPPING IN PARENT FILE ;02/08/12 15:25
Source file <LRSCTF.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LD(LRINST,LROVER) | ; Load STS mapping into SCT encoded files
; Call with LRINST = #4 IEN ; LROVER<opt> Its a do-over |
|
| GET954 | ; Search cross reference of institution entries
|
|
| LDPARS | ;
; Parse the data |
|
| LEX | ; Validate SCT code, get concept and term
; Only check those SCT codes if STS has mapped the term to SCT |
|
| LDCK | ; Check target file to determine if mapping is correct
|
|
| LDERR(LRERR) | ;
; Populate error message text file ^XTMP("LRSCT-ERR" ; Send STS alert if needed. |
|
| BMES(MSG) | ; Display message on screen and if during KIDS install store with install
|
|
| LDFILE | ; Update target file
|
|
| RETRIEVE | ; Retrieve mapping data from file #95.4
|
|
| LD954 | ;
; Update transport file with status |
|
| SCTUPD | ; Update SCT STATUS DATE multiple
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^LAB(64.061 - [#64.061] | FIND1^DIC |
