LEXTRAN3 ;ISL/FJF - Lexicon Process MFS Mapping Update Change ; 30 Aug 2011 12:27 AM
Source file <LEXTRAN3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CTRL | ; control
|
|
| INIT | ; initiate variables
; ; record data |
|
| PRFIEN(SCTCDE) | ; get preferred term IEN in 757.01 for subset update
|
|
| INPSUB(PRF,SUB) | ; check if concept PRF is member of subset SUB
|
|
| CHANGE() | ; check if the after data is different from the before data
; i.e. detect if any change |
|
| ADDPLS(PRF,SUB) | ; Add the concept to the problem list subset
|
|
| UPDPLP(SCT,ICD,ORD) | ; update patient problem list file
; SCTMAP^GMPLX1 is a CPRS problem list function which scans the patient ; data file and updates the SNOMED CT code field on the basis of the ; mapping change ; ; check for existence of function; if not found do not attempt to call |
|
| DELPLS | ; remove a concept from subset
|
|
| ACTVMAP(SRC,MAP) | ; return whether active map exists for given code and
; mapping identifier |
|
| SUBIEN() | ; get next IEN for addition to 757.21
|
|
| DELIEN() | ; determine IEN of record to be erased from 757.21
|
