LA88 ;DALOI/JMC - LA*5.2*88 KIDS ROUTINE ;3/4/16 17:15
Source file <LA88.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ;
|
|
| POST | ;
; KIDS Post install for LA*5.2*88 |
|
| ALERT(MSG,RECIPS) | ;
|
|
| BMES(STR) | ;
; Write string |
|
| PROGRESS(LAST) | ;
; Prints a "." when NOW > LAST + INT ; Input ; LAST : <byref> The last $H when "." was shown |
|
| PTG | ;
; Pre-Transport Global routine |
|
| MES(STR,CJ,LM) | ;
; Display a string using MES^XPDUTL ; Inputs ; STR: String to display ; CJ: Center text? 1=yes 0=1 <dflt=1> ; LM: Left Margin (padding) |
|
| FILE101(LA7UPDATE) | ; Update Lab UI protocols to HL7 v2.5.1
|
|
| CHECKWP(LAIEN) | ; Check description (WP) field on protocol and update text.
; Change reference to v2.2 to v2.5.1 in description. ; Call with LAIEN = IENS of entry in file #101 |
| Name | Field # of Occurrence |
|---|---|
| MSG^DIALOG | FILE101+41, CHECKWP+15 |
| $$FIND1^DIC | FILE101+12, FILE101+19 |
| FILE^DIE | FILE101+38 |
| WP^DIE | CHECKWP+12 |
| $$GET1^DIQ | FILE101+33, FILE101+34, FILE101+43, CHECKWP+6, CHECKWP+7 |
| $$HTE^XLFDT | POST+21 |
| $$CJ^XLFSTR | BMES+2, MES+10 |
| $$REPLACE^XLFSTR | CHECKWP+10 |
| $$TRIM^XLFSTR | BMES+2, MES+10 |
| $$GOTLOCAL^XMXAPIG | ALERT+3 |
| BMES^XPDUTL | BMES+2 |
| MES^XPDUTL | MES+12 |
| SETUP^XQALERT | ALERT+6 |
| $$CREATE^XUSAP | POST+13 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | GET1^DIQ, WP^DIE |
| ^HL(771.5 - [#771.5] | FIND1^DIC |
| ^HL(779.003 - [#779.003] | FIND1^DIC |
| Name | Line Occurrences |
|---|---|
| ALERT | POST+22 |
| BMES | PRE+7, PRE+14, PRE+15, PRE+16, PRE+19, PRE+22, POST+7, POST+11, POST+14, POST+19 , POST+20, FILE101+10, FILE101+14, FILE101+15, FILE101+16, FILE101+21, FILE101+22, FILE101+23, FILE101+28, FILE101+40 , FILE101+42, FILE101+43, FILE101+44, FILE101+45, FILE101+48, CHECKWP+14, CHECKWP+16 |
| CHECKWP | FILE101+46 |
| FILE101 | POST+17 |
| MES | PRE+17, PRE+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CJ | MES~, MES+8*, MES+10, MES+11 |
| DA | ALERT+1~ |
| DIERR | POST+6~, FILE101+5~, FILE101+30! |
| DIK | ALERT+1~ |
| DUZ | ALERT+4 |
| FR | CHECKWP+4~, CHECKWP+10 |
| FR("v2.2" | CHECKWP+9* |
| I | POST+5~, FILE101+5~, FILE101+42*, CHECKWP+4~, CHECKWP+9*, CHECKWP+10*, CHECKWP+16* |
| INT | PROGRESS+4~, PROGRESS+5*, PROGRESS+6 |
| IOM | BMES+2, MES+10 |
| LA101 | FILE101+5~, FILE101+27*, FILE101+29, FILE101+31 |
| LA7UPDATE | FILE101~, FILE101+18, FILE101+34 |
| LAACTN | POST+5~ |
| LACNT | POST+5~ |
| LAFDA | POST+6~, FILE101+5~, FILE101+30!, FILE101+37 |
| LAFDA(1 | FILE101+32*, FILE101+33*, FILE101+35*, FILE101+36*, FILE101+43, FILE101+44, FILE101+45 |
| LAHLACKCODE | FILE101+5~, FILE101+18, FILE101+19*, FILE101+20, FILE101+35, FILE101+36 |
| LAHLVERSION | FILE101+5~, FILE101+12*, FILE101+13, FILE101+33 |
| LAIEN | POST+6~, FILE101+5~, FILE101+30!, FILE101+31*, FILE101+32, FILE101+33, FILE101+34, FILE101+35, FILE101+36, FILE101+43 , FILE101+44, FILE101+45, FILE101+46, CHECKWP~, CHECKWP+6, CHECKWP+7, CHECKWP+12 |
| LAMSG | POST+5~, FILE101+5~, FILE101+30!, CHECKWP+4~ |
| LAMSG("DIERR" | FILE101+39, CHECKWP+13 |
| LANODE | FILE101+5~, FILE101+25*, FILE101+26*, FILE101+27 |
| LARECS | POST+5~ |
| LAST | PROGRESS~, PROGRESS+6* |
| LATXT | FILE101+5~, FILE101+30!, FILE101+41, FILE101+42, CHECKWP+4~, CHECKWP+15, CHECKWP+16 |
| LATXT( | FILE101+42, CHECKWP+16 |
| LAUSR | POST+5~, POST+12*, POST+13, POST+14 |
| LAX | POST+5~, FILE101+5~, FILE101+27*, FILE101+28, FILE101+32, FILE101+40, FILE101+43, FILE101+44, FILE101+45, CHECKWP+4~ , CHECKWP+6*, CHECKWP+14 |
| LM | MES~, MES+9*, MES+11 |
| MSG | ALERT~, ALERT+2 |
| RECIPS | ALERT~, ALERT+5 |
| STR | POST+5~, POST+21*, POST+22, BMES~, BMES+2, MES~, MES+7*, MES+10*, MES+11*, MES+12 |
| WP | CHECKWP+4~ |
| WP( | CHECKWP+10* |
| X | POST+5~, POST+13*, POST+14, MES+6~, MES+11*, CHECKWP+4~, CHECKWP+7* |
| >> XPDABORT | PRE+20* |
| >> XPDNM | POST+21 |
| >> XPDQUES("PRE1 | LAB UI V1.6" , PRE+12 |
| >> XPDQUES("PRE2 | UPGRADED DRIVER" , PRE+13 |
| XQA | ALERT+1~, ALERT+5* |
| XQA( | ALERT+4* |
| XQA("G.LMI" | ALERT+3* |
| XQAMSG | ALERT+1~, ALERT+2* |
| Y | POST+5~ |
