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
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | EN+9, ES+34, NSP+8, BED+8, SED+8 |
| LIST^DIC | EGOOD+17 |
| FILE^DICN | SAV+6, SSAV+6 |
| $$GET1^DID | ETSTTYP+7, ETSTTYP+11, ETSTTYP+18 |
| ^DIE | NSPA+14, TDT+5, SDT+4, SAV+11, SSAV+11 |
| $$GET1^DIQ | CTCHK+3, CTCHK+8, NSPA+10 |
| GETS^DIQ | ES+6, GET664+3 |
| EN^DIQ1 | EA+1, ES+3, GET60T+1 |
| XML^LRMLEDA | XML+2 |
| $$SITE^VASITE | CTCHK+5, GET664+1 |
| $$DT^XLFDT | ESTART+9, NSPA+12 |
| $$FMTE^XLFDT | MAILMAN+90 |
| $$HADD^XLFDT | EN+6 |
| $$HTFM^XLFDT | EN+6 |
| $$NOW^XLFDT | ES+30, NSP+4, BED+4, SAV+4, SED+4, SSAV+4 |
| ^XMD | MAILMAN+96 |
| $$PROD^XUPROD | ES+17 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | EGOOD+4, ES+24, ES+25*, MAILMAN+88, MAILMAN+91, MAILMAN+92, MAILMAN+93, TDT+4, TDT+6, SDT+3 , SDT+5, SAV+5, SAV+7, SSAV+5, SSAV+7 |
| ^LAB(61 - [#61] | MAILMAN+36 |
| ^LAB(64.061 - [#64.061] | MAILMAN+36 |
| ^LAB(64.21 - [#64.21] | EGOOD+11 |
| ^LAB(66.4 - [#66.4] | CTCHK+6, GET664+2 |
| ^LAM - [#64] | EGOOD+10 |
| ^TMP( | EN+2, EN+10, ESTART+2, EOUT+1 |
| ^UTILITY("DIQ1" | EA+1!, ES+1!, ES+3!, GET60T+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | EN+6*, ESTART+4~, EA+5*, EA+6, EA+7, EA+8, EA+9, EA+10, EA+11, EA+13 , EA+14, EGOOD+2*, EGOOD+4*, EGOOD+10*, EGOOD+11, EGOOD+13*, EGOOD+14, ES+11*, ES+16*, ES+25~* , ES+28, MAILMAN+15*, MAILMAN+16, MAILMAN+36*, MAILMAN+38, CTCHK+2~, CTCHK+3*, CTCHK+4, CTCHK+8*, CTCHK+9 , NSPA+6~, NSPA+10*, NSPA+11, NSPQ+1!, TDT+2*, EOUT+2!, BEDA+4~, BEDA+5*, BEDO!, SEDA+4~ , SEDA+5* |
| AA | LRTP~, LRTP+1*, LRTP+2 |
| AL | LRTEXT~, LRTEXT+1*, LRTEXT+2 |
| ALI | ESTART+7~, MAILMAN+12*, MAILMAN+14*, MAILMAN+16*, MAILMAN+17*, MAILMAN+18*, MAILMAN+19*, MAILMAN+20*, MAILMAN+21*, MAILMAN+22* , MAILMAN+23*, MAILMAN+25*, MAILMAN+26*, MAILMAN+27*, MAILMAN+28*, MAILMAN+29*, MAILMAN+30*, MAILMAN+31*, MAILMAN+32*, MAILMAN+33* , MAILMAN+34*, MAILMAN+35*, MAILMAN+37*, MAILMAN+38*, MAILMAN+39*, MAILMAN+40*, MAILMAN+41*, MAILMAN+42*, MAILMAN+43*, MAILMAN+44* , MAILMAN+45*, MAILMAN+46*, MAILMAN+47*, MAILMAN+48*, MAILMAN+49*, MAILMAN+50*, MAILMAN+51*, MAILMAN+52*, MAILMAN+53*, MAILMAN+54* , MAILMAN+55*, MAILMAN+56*, MAILMAN+57*, MAILMAN+58*, MAILMAN+59*, MAILMAN+60*, MAILMAN+61*, MAILMAN+62*, MAILMAN+63*, MAILMAN+67* , MAILMAN+68*, MAILMAN+70*, MAILMAN+71*, MAILMAN+73*, MAILMAN+74*, MAILMAN+75*, MAILMAN+76*, MAILMAN+77*, MAILMAN+78*, MAILMAN+79* , MAILMAN+80*, MAILMAN+81*, MAILMAN+82*, MAILMAN+84*, MAILMAN+85*, MAILMAN+86*, MAILMAN+87*, MAILMAN+90*, MAILMAN+91*, MAILMAN+93* , MAILMAN+94*, EOUT+4! |
| AR | ESTART+4~, EOUT+2!, GET664+4! |
| AR("66.4" | GET664+4 |
| B | EN+6*, ESTART+4~, EGOOD+2*, EGOOD+4!, EGOOD+5*, EGOOD+14*, ES+11*, ES+25~*, ES+28, MAILMAN+36* , MAILMAN+40, CTCHK+2~, NSPA+6~, NSPQ+1!, EOUT+2!, BEDA+4~, BEDO!, SEDA+4~ |
| B( | EGOOD+4*, EGOOD+6, EGOOD+7 |
| C | EN+6*, EN+7, ESTART+4~, ES+11*, CTCHK+2~, NSPA+6~, NSPQ+1!, EOUT+2!, BEDA+4~, BEDO! , SEDA+4~ |
| D | ESTART+4~, NSPA+6~, NSPQ+1!, EOUT+2!, BEDA+4~, BEDA+5*, BEDA+7*, BEDA+8, BEDO!, SEDA+4~ , SEDA+7*, SEDA+8 |
| DA | ESTART+28*, EA+2, EGOOD+4, EGOOD+17, ES+1*, ES+6, ES+7, MAILMAN+1~, NSPA+6~, NSPA+9* , NSPA+10, NSPQ+1!, TDT+3~, TDT+5*, SDT+2~, SDT+4*, EOUT+2!, BEDA+4~, BEDO!, SAV+1~ , SAV+2*, SAV+9*, SAV+12!, SEDA+4~, SSAV+1~, SSAV+2*, SSAV+9*, SSAV+12!, GET60T+2 |
| DA( | ES+2* |
| DA(1 | NSPA+9*, NSPA+10, NSPA+13, SDT+4*, SAV+2*, SAV+3, SAV+5, SAV+7, SSAV+2*, SSAV+3 , SSAV+5, SSAV+7 |
| DIC | EA+1*, ES+1*, NSPA+7~, NSPQ+1!, EOUT+2!, BEDA+6~, BEDO!, SAV+1~, SAV+3*, SAV+12! , SEDA+6~, SSAV+1~, SSAV+3*, SSAV+12!, GET60T+1* |
| DIC(0 | SAV+3*, SSAV+3* |
| DIE | MAILMAN+1~, NSPA+7~, NSPA+13*, NSPQ+1!, TDT+3~, TDT+5*, SDT+2~, SDT+4*, BEDA+6~, BEDO! , SAV+1~, SAV+9*, SAV+12!, SEDA+6~, SSAV+1~, SSAV+9*, SSAV+12! |
| DIQ | EA+1*, ES+1*, EOUT+2!, GET60T+1* |
| DIQ(0 | EA+1*, ES+1*, GET60T+1* |
| DR | EA+1*, ES+1*, MAILMAN+1~, NSPA+7~, NSPA+13*, NSPQ+1!, TDT+3~, TDT+5*, SDT+2~, SDT+4* , BEDA+5, BEDA+6~, BEDO!, SAV+1~, SAV+10*, SAV+12!, SEDA+5, SEDA+6~, SSAV+1~, SSAV+10* , SSAV+12!, GET60T+1* |
| DR( | ES+2* |
| DT | ESTART+9*, NSPA+12*, NSPA+13, TDT+5, SDT+4 |
| DUZ | EN+8, ESTART+8, SAV+10, SSAV+10 |
| E | MAILMAN+70*, MAILMAN+83*, MAILMAN+84, MAILMAN+85, NSPA+6~, NSPQ+1!, BEDA+4~, BEDO!, SEDA+4~, SEDA+7* |
| F | NSPA+6~, NSPQ+1!, BEDA+4~, BEDA+7*, SEDA+4~, SEDA+7* |
| G | ESTART+7~, MAILMAN+70*, EOUT+4!, BEDA+4~, BEDA+7* |
| I | ESTART+4~, EGOOD+4*, EGOOD+5*, EGOOD+6, EGOOD+7, ES+25~, ES+27*, MAILMAN+70*, MAILMAN+83*, MAILMAN+89~ , MAILMAN+92*, MAILMAN+93, EOUT+2!, BEDA+4~, BEDA+7*, BEDO!, SEDA+7* |
| K | ETSTTYP+1~, ETSTTYP+3* |
| KK | ETSTTYP+1~, ETSTTYP+3* |
| LACT | ESTART+6~, ESTART+23*, ES+14, ES+18, ES+19, EOUT+3! |
| LE | BEDA+4~, BEDO!, SAV+1~, SAV+3*, SAV+9, SAV+12!, SSAV+1~, SSAV+3*, SSAV+9, SSAV+12! |
| LLI | BEDA+4~, BEDA+9*, BEDO!, SEDA+4~, SEDA+9* |
| LN | BEDA+4~, BEDA+9*, BEDO!, SAV+10, SEDA+9*, SSAV+10 |
| LO | BEDA+4~, BEDA+9*, BEDO!, SAV+10, SEDA+9*, SSAV+10 |
| LR6001IEN | NSP~, NSP+5, SED~, SED+5 |
| LR60IEN | EN~, EN+2, EN+8, EN+10, ESTART~, ESTART+2, ESTART+28, ES+1, ES+24, ES+25 , ES+31, MAILMAN+30, MAILMAN+88, MAILMAN+91, MAILMAN+92, MAILMAN+93, CTCHK~, CTCHK+3, CTCHK+9, NSP~ , NSP+5, TDT+2, TDT+4, TDT+5, TDT+6, SDT+3, SDT+4, SDT+5, EOUT+1, EOUT+2! , BED~, BED+5, SED~, SED+5 |
| LR64 | ESTART+6~, EGOOD+9*, EGOOD+10, EOUT+3! |
| LR64N | ESTART+7~, EGOOD+9*, EOUT+4! |
| LRCOM | ESTART+6~, EGOOD+13*, EGOOD+14*, MAILMAN+52, EOUT+3! |
| LRCTY | ESTART+6~, EGOOD+13*, EGOOD+14*, MAILMAN+54, EOUT+3! |
| LRDA | NSPA~, NSPA+9, BEDA~, SAV+2, SEDA~, SSAV+10 |
| LRDA1 | NSPA~, NSPA+9, SEDA~, SSAV+2 |
| LRDTNM | ESTART+7~, EGOOD+13*, EGOOD+14*, MAILMAN+50, EOUT+4! |
| >> LRDUZ | ESTART+8*, MAILMAN+7 |
| LRGMAIL | ESTART+6~, ESTART+19*, ES+16, ES+17, MAILMAN+11, MAILMAN+22, EOUT+3! |
| LRMLTFREC | ESTART+1, NSPA+5, EOUT+2!, BEDA+1, BEDO!, SAV+1~, SAV+2*, SAV+12!, SEDA+3, SSAV+1~ , SSAV+2*, SSAV+12! |
| LRN | ES+25~, NSP+1~, NSP+3*, BED+2~, BED+3*, BEDO!, SED+2~, SED+3* |
| LRN( | ES+27*, BEDA+7, BEDA+9, SEDA+7, SEDA+9 |
| LRN(1 | NSPA+8 |
| LRN(3 | ES+28* |
| LRNAMIL | ESTART+6~ |
| LRNEWTEST | EOUT+3! |
| LRNLT | ESTART+4~, EGOOD+9*, EGOOD+10*, MAILMAN+44, EOUT+3! |
| LRNMAIL | ESTART+17*, MAILMAN+3, MAILMAN+9, EOUT+3! |
| LRNOS1 | ESTART+4~, ES+14*, MAILMAN+9, MAILMAN+13, MAILMAN+15, EOUT+4! |
| LRNOS2 | ESTART+4~, ES+17*, MAILMAN+9, MAILMAN+13, MAILMAN+15, EOUT+4! |
| LRNT | ESTART+4~, CTCHK+2~, CTCHK+6*, CTCHK+7, CTCHK+8, EOUT+2!, GET664+2*, GET664+3, GET664+4 |
| LRNTI | ESTART+4~, EOUT+2!, GET664+4* |
| LRNTI( | ESTART+15, ESTART+23, ESTART+25, ES+14 |
| LRNTI(".06" | TDT+2 |
| LRNTI(1 | ESTART+17 |
| LRNTI(2 | ESTART+19 |
| LRNTI(3 | ESTART+21 |
| LRO | ES+25~, NSP+1~, NSP+3*, BED+2~, BED+3*, BEDO!, SED+2~, SED+3* |
| LRO( | ES+27*, BEDA+7, BEDA+9, SEDA+7, SEDA+9 |
| LRO(1 | NSPA+8 |
| LRO(3 | ES+28* |
| >> LRRESEND | MAILMAN+27 |
| LRS | EN~, EN+2, EN+8, EN+10, ESTART~, ESTART+2, ES+2, ES+4, ES+6, ES+7 , ES+24, ES+25, ES+31, SDT+3, SDT+4, SDT+5, EOUT+1, EOUT+2! |
| LRSCHNM | ESTART+7~, EOUT+4! |
| LRSCHPA | ESTART+7~, EOUT+4! |
| LRSEC | ESTART+4~, EGOOD+9*, EGOOD+11*, MAILMAN+46, EOUT+3! |
| LRSITE | ESTART+6~, ESTART+15*, MAILMAN+20, EOUT+3! |
| LRSITEN | ESTART+6~, ESTART+15*, MAILMAN+11, MAILMAN+18, MAILMAN+20, EOUT+3! |
| LRSMAIL | ESTART+6~, ESTART+21*, EOUT+3! |
| LRSTUB | ETSTTYP+1~, ETSTTYP+3*, ETSTTYP+8*, ETSTTYP+15*, ETSTTYP+19*, ETSTTYP+20 |
| LRSUBSCRIPT | ESTART+6~, ESTART+25*, EA+10, EA+11, EA+13, EA+14, EOUT+3! |
| LRTEXT | ESTART+7~, MAILMAN+1~, EOUT+4! |
| LRTEXT( | MAILMAN+14*, MAILMAN+16*, MAILMAN+17*, MAILMAN+18*, MAILMAN+19*, MAILMAN+20*, MAILMAN+21*, MAILMAN+22*, MAILMAN+23*, MAILMAN+25* , MAILMAN+26*, MAILMAN+27*, MAILMAN+28*, MAILMAN+29*, MAILMAN+30*, MAILMAN+31*, MAILMAN+32*, MAILMAN+33*, MAILMAN+34*, MAILMAN+35* , MAILMAN+37*, MAILMAN+38*, MAILMAN+39*, MAILMAN+40*, MAILMAN+41*, MAILMAN+42*, MAILMAN+43*, MAILMAN+44*, MAILMAN+45*, MAILMAN+46* , MAILMAN+47*, MAILMAN+48*, MAILMAN+49*, MAILMAN+50*, MAILMAN+51*, MAILMAN+52*, MAILMAN+53*, MAILMAN+54*, MAILMAN+55*, MAILMAN+56* , MAILMAN+57*, MAILMAN+58*, MAILMAN+59*, MAILMAN+60*, MAILMAN+61*, MAILMAN+62*, MAILMAN+63*, MAILMAN+67*, MAILMAN+68*, MAILMAN+70* , MAILMAN+71*, MAILMAN+73*, MAILMAN+74*, MAILMAN+75*, MAILMAN+76*, MAILMAN+77*, MAILMAN+78*, MAILMAN+79*, MAILMAN+80*, MAILMAN+81* , MAILMAN+82*, MAILMAN+84*, MAILMAN+85*, MAILMAN+86*, MAILMAN+87*, MAILMAN+90*, MAILMAN+91*, MAILMAN+93*, MAILMAN+94* |
| LRTYPE | ETSTTYP+1~, ETSTTYP+7*, ETSTTYP+8, ETSTTYP+11, ETSTTYP+12, ETSTTYP+17 |
| LRX | ETSTTYP~, ETSTTYP+2, ETSTTYP+3, ETSTTYP+4*, ETSTTYP+7, ETSTTYP+11, ETSTTYP+13*, ETSTTYP+14, ETSTTYP+18 |
| LRY | ETSTTYP+1~, ETSTTYP+11*, ETSTTYP+12, ETSTTYP+13, ETSTTYP+14*, ETSTTYP+15, ETSTTYP+18*, ETSTTYP+19 |
| LSITE | ESTART+4~, CTCHK+2~, CTCHK+5*, CTCHK+6, EOUT+2!, GET664+1*, GET664+2 |
| LTYP | BEDA+4~, BEDA+9*, BEDO!, SAV+10, SEDA+4~, SEDA+9*, SSAV+10 |
| LXA | ESTART+4~, EA+2!*, EOUT+2!, GET60T+2!* |
| LXA( | EGOOD+9, MAILMAN+28 |
| LXA(13 | EGOOD+13 |
| LXA(131 | MAILMAN+73, TDT+1 |
| LXA(132 | EGOOD+2 |
| LXA(133 | EGOOD+2 |
| LXA(134 | MAILMAN+77 |
| LXA(135 | MAILMAN+79 |
| LXA(137 | MAILMAN+81 |
| LXA(4 | EA+5, MAILMAN+48 |
| LXA(5 | EGOOD+13 |
| LXB | ESTART+4~, EA+2!, EGOOD+18!, ES+1!, ES+4!, ES+7!, EOUT+2!, GET60T+2! |
| LXB( | ES+7 |
| LXB("60.01" | ES+4 |
| LXB("DILIST" | EGOOD+18 |
| LXB(60 | EA+2, GET60T+2 |
| LXC | ESTART+4~, ES+4!*, EOUT+2! |
| LXC( | MAILMAN+32, MAILMAN+34, MAILMAN+36, MAILMAN+60, MAILMAN+62 |
| LXC(1 | MAILMAN+56 |
| LXC(2 | MAILMAN+58 |
| LXC(30 | ES+9 |
| LXC(32 | ES+11 |
| LXC(33 | ES+11 |
| LXC(34 | ES+11 |
| LXC(35 | MAILMAN+75, SDT+1 |
| LXC(6 | MAILMAN+42 |
| LXD | ESTART+4~, EOUT+2! |
| LXE | ESTART+4~, ES+7!*, EOUT+2! |
| LXE( | MAILMAN+70 |
| LXF | ESTART+4~, EOUT+2! |
| LXG | ESTART+4~, EGOOD+4*, EGOOD+5, EGOOD+6*, EGOOD+7*, MAILMAN+67, EOUT+2! |
| LXH | ESTART+4~, EGOOD+18!*, EOUT+2! |
| LXH( | MAILMAN+83, MAILMAN+84, MAILMAN+85 |
| MAILPERSON | ESTART+6~, EOUT+3! |
| STNTDT | MAILMAN+88~*, MAILMAN+90, MAILMAN+91 |
| STNTIEN | MAILMAN+89~, MAILMAN+91*, MAILMAN+92, MAILMAN+93 |
| U | EGOOD+4, EGOOD+7, EGOOD+10, EGOOD+11, ES+25, ES+28, MAILMAN+36, MAILMAN+38, CTCHK+5, ETSTTYP+3 , GET664+1 |
| X | NSPA+7~, NSPQ+1!, BEDA+6~, BEDO!, SAV+1~, SAV+4*, SAV+12!, SEDA+6~, SSAV+1~, SSAV+4* , SSAV+12! |
| >> X1 | NSP+3, BED+3, SED+3 |
| >> X2 | NSP+3, BED+3, SED+3 |
| XMDUZ | MAILMAN+1~ |
| XMDUZ("New Te | st/Specimen NTRT Request From: " , MAILMAN+11* |
| XMSUB | MAILMAN+1~, MAILMAN+5* |
| XMTEXT | MAILMAN+1~, MAILMAN+96* |
| XMY | MAILMAN+1~ |
| XMY( | MAILMAN+7*, MAILMAN+9*!, MAILMAN+11* |
| Y | SAV+1~, SAV+8, SAV+9, SAV+12!, SSAV+1~, SSAV+8, SSAV+9, SSAV+12! |
| ZTDESC | EN+3~, EN+7*, ES+29~, ES+30*, NSP+1~, NSP+4*, BED+2~, BED+4*, SED+2~, SED+4* |
| ZTDTH | EN+3~, EN+7*, ES+29~, ES+30*, NSP+1~, NSP+4*, BED+2~, BED+4*, SED+2~, SED+4* |
| ZTIO | EN+3~, EN+8*, ES+29~, ES+33*, NSP+1~, NSP+7*, BED+2~, BED+7*, SED+2~, SED+7* |
| >> ZTQUEUED | NSPQ+2, EOUT+5, BEDO+1 |
| >> ZTREQ | NSPQ+2*, EOUT+5*, BEDO+1* |
| ZTRTN | EN+3~, EN+8*, ES+29~, ES+31*, NSP+1~, NSP+5*, BED+2~, BED+5*, SED+2~, SED+5* |
| ZTSAVE | EN+3~, ES+29~, NSP+1~, BED+2~, SED+2~ |
| ZTSAVE("LR6001IEN" | NSP+5*, SED+5* |
| ZTSAVE("LR60IEN" | EN+8*, ES+31*, NSP+5*, BED+5*, SED+5* |
| ZTSAVE("LRDUZ" | EN+8* |
| ZTSAVE("LRN(" | ES+32*, NSP+6*, BED+6*, SED+6* |
| ZTSAVE("LRO(" | ES+32*, NSP+6*, BED+6*, SED+6* |
| ZTSAVE("LRS" | EN+8*, ES+31* |
| ZTSK | EN+3~, ES+29~, NSP+1~, BED+2~, SED+2~ |
