LRMLED ;BPFO/DTG - NTRT MESSAGE PROCESS AND EDITS UPDATE ;12/26/2016
Source file <LRMLED.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(LRS,LR60IEN) | ; entry point from cross reference
; only have one |
|
| ESTART(LR60IEN,LRS) | ; pick up key data for NTRT
|
|
| EA | ; .01 test name, 4 subscript (CH), 5 data name, 13 field (DD of 5), 64.1 result nlt code
|
|
| EGOOD | ; if the subscript is valid
; check if inactive |
|
| ES | ; LRS is passed in and is the specimen IEN
|
|
| MAILMAN | ;mailman
|
|
| CTCHK(LR60IEN) | ; check if the test is valid for create date and it hasn't been set previously
; is the test valid for update |
|
| NSP(LR6001IEN,LR60IEN) | ; entry to set specimen date if new specimen
|
|
| NSPA(LRDA,LRDA1) | ; save specimen create date if new specimen for test
; (1)-.01 SITE/SPECIMEN ; LRDA - specimen IEN ; LRDA1 - test IEN ; LRO-old array LRN-new array |
|
| NSPQ | ; quit
|
|
| TDT | ;place creation date in test
|
|
| SDT | ; place specimen creation dt
|
|
| LRTEXT(AL) | ; update counter for message xml
|
|
| HL7 | ;send hl7 to NTRT
; currently not implemented |
|
| LRTP(AA) | ;update text counter
|
|
| XML | ;send xml to NTRT
; moved to LRMLEDA for size |
|
| ETSTTYP(LRX) | ; get test data type
|
|
| EOUT | ; quit
|
|
| BED(LR60IEN) | ;ENTRY POINT FOR MAIN EDITS
|
|
| BEDA(LRDA) | ; edits from main level
|
|
| BEDO | ||
| SAV | ; file edit in 60.28
|
|
| SED(LR6001IEN,LR60IEN) | ;ENTRY POINT FOR MAIN SITE/SPECIMEN EDITS
|
|
| SEDA(LRDA,LRDA1) | ; edits from site/specimen level
; (1)-30 MLTF VUID (2)-RESULT/SPECIMEN INACTIVE DATE (3)-EXCEPTION FLAG (4)-SPECIMEN CREATE DATE ; X1-old array X2-new array |
|
| SSAV | ; file edit in 60.28
|
|
| GET664 | ; get file 66.4 info
|
|
| GET60T | ; get top of file 60 test info
|
| FileNo | Call Tags |
|---|---|
| ^LAB(60 - [#60] | Classic Fileman Calls, GET1^DIQ |
| 60.01 | GET1^DIQ, GETS^DIQ |
| 60.16 | LIST^DIC |
| ^LAB(66.4 - [#66.4] | GET1^DIQ, GETS^DIQ |
