LR425 ;ALB/GTS - LR*5.2*425 KIDS POST-INIT ROUTINE ;09/28/2012 11:25
Source file <LR425.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENSTART | ; -- Generic Lab environment check
; May prevent loading of the transport global. ; Environment check is done only during the install. |
|
CHK4LSRP | ; [During Installation...] Check if LSRP is installed at site, do NOT install over LSRP
|
|
LSRPEX | ; LSRP Exit message for Install log
|
|
POST | ; -- post-init for LR*5.2*425
|
|
AUDSET(LROU,LRFILTXT) | ; -- enable audit on select Hospital Location, Ward Location and Room-Bed fields
|
|
SETP | ; Set parameters for the latest file 60 audit file entries affecting quick orders, if not already set
|
|
LMES(STR,SPCNUM,BVAR) | ; List text in output display
|
|
ALERT(MSG) | ;Send Alert message
|
Name | Field # of Occurrence |
---|---|
TURNON^DIAUTL | AUDSET+8 |
$$FIND1^DIC | ENSTART+13 |
FILE^DIE | SETP+10 |
GETS^DIQ | SETP+6 |
^DIR | CHK4LSRP+27 |
AUDSET^LRJSAU | POST+7 |
$$FMTE^XLFDT | SETP+12 |
$$HTE^XLFDT | ENSTART+25, ENSTART+38, LSRPEX+10, POST+15 |
$$CJ^XLFSTR | ENSTART+8, ENSTART+16, CHK4LSRP+34, LSRPEX+5, LSRPEX+6, LSRPEX+7, LSRPEX+8, LSRPEX+18, LSRPEX+19, LSRPEX+21 , LSRPEX+24, LSRPEX+25, LSRPEX+26, POST+3, POST+12, ALERT+15, ALERT+16 |
$$GOTLOCAL^XMXAPIG | ALERT+5 |
$$PATCH^XPDUTL | ENSTART+29, ENSTART+30, ENSTART+31, ENSTART+32, CHK4LSRP+2, CHK4LSRP+3, CHK4LSRP+4, CHK4LSRP+5 |
BMES^XPDUTL | LMES+14 |
MES^XPDUTL | LMES+13 |
$$SETUP1^XQALERT | ALERT+14 |
OWNSKEY^XUSRB | CHK4LSRP+8, CHK4LSRP+9 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^XMB(3.8 - [#3.8] | FIND1^DIC |
^LAB(69.9 - [#69.9] | GETS^DIQ |
Name | Line Occurrences |
---|---|
ALERT | ENSTART+28, ENSTART+39, LSRPEX+11, LSRPEX+17, POST+15 |
AUDSET | POST+5 |
CHK4LSRP | ENSTART+41 |
LMES | ENSTART+8, ENSTART+11, ENSTART+12, ENSTART+15, ENSTART+16, ENSTART+20, ENSTART+21, ENSTART+26, ENSTART+27, ENSTART+37 , CHK4LSRP+32, CHK4LSRP+33, CHK4LSRP+34, LSRPEX+5, LSRPEX+6, LSRPEX+7, LSRPEX+8, LSRPEX+9, LSRPEX+12, LSRPEX+15 , LSRPEX+18, LSRPEX+19, LSRPEX+20, LSRPEX+21, LSRPEX+23, LSRPEX+24, LSRPEX+25, LSRPEX+26, POST+3, POST+6 , POST+9, POST+12, POST+13, POST+14, AUDSET+6, AUDSET+9, AUDSET+10, AUDSET+12, AUDSET+13, SETP+5 , SETP+11, SETP+12, SETP+13, ALERT+7, ALERT+10, ALERT+12, ALERT+13, ALERT+15, ALERT+16 |
LSRPEX | ENSTART+18, ENSTART+34, ENSTART+42 |
SETP | POST+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BAD | ENSTART+4~, CHK4LSRP+12* |
BAD(1 | CHK4LSRP+13*, LSRPEX+7 |
BAD(2 | CHK4LSRP+14*, LSRPEX+8 |
BVAR | LMES~, LMES+13, LMES+14 |
DIR | CHK4LSRP+16~ |
DIR("?" | CHK4LSRP+24*, CHK4LSRP+25*, CHK4LSRP+26* |
DIR("A" | CHK4LSRP+19*, CHK4LSRP+20*, CHK4LSRP+21*, CHK4LSRP+22* |
DIR("B" | CHK4LSRP+23* |
DIR(0 | CHK4LSRP+18* |
DIRUT | CHK4LSRP+16~ |
DTOUT | CHK4LSRP+16~ |
DUOUT | CHK4LSRP+16~ |
DUZ | CHK4LSRP+32, ALERT+9 |
IOM | ENSTART+7, LSRPEX+2, POST+2, ALERT+15, ALERT+16 |
LAC75 | ENSTART+24~, ENSTART+30*, ENSTART+33, CHK4LSRP+1~, CHK4LSRP+3*, CHK4LSRP+6 |
LAP76 | ENSTART+24~, ENSTART+32*, ENSTART+33, CHK4LSRP+1~, CHK4LSRP+5*, CHK4LSRP+6 |
LAPOS | ENSTART+4~, ENSTART+7*, ENSTART+8, ENSTART+16, CHK4LSRP+34, LSRPEX+1~, LSRPEX+2*, LSRPEX+5, LSRPEX+6, LSRPEX+7 , LSRPEX+8, LSRPEX+18, LSRPEX+19, LSRPEX+21, LSRPEX+24, LSRPEX+25, LSRPEX+26, POST+1~, POST+2*, POST+3 , POST+12 |
LRAFLDS | AUDSET+5~, AUDSET+7*, AUDSET+8, AUDSET+9, AUDSET+10 |
LRALST | ENSTART+4~ |
LRC383 | ENSTART+24~, ENSTART+29*, ENSTART+33, CHK4LSRP+1~, CHK4LSRP+2*, CHK4LSRP+6 |
LRD | SETP+1~, SETP+8! |
LRD( | SETP+7, SETP+9* |
LRFILTXT | AUDSET~, AUDSET+6 |
LRFLD | AUDSET+5~, AUDSET+10* |
LRI | AUDSET+5~, AUDSET+7* |
LRJ | AUDSET+5~, AUDSET+10* |
LRLDATE | SETP+1~, SETP+3*, SETP+4, SETP+9, SETP+12 |
LRLIEN | SETP+1~, SETP+2*, SETP+4, SETP+9, SETP+12 |
LRMGR | CHK4LSRP+7~, CHK4LSRP+8 |
LRMGR(0 | CHK4LSRP+10 |
LRMSG | ENSTART+4~, SETP+1~, LMES+9~, LMES+10*, LMES+12*, LMES+13, LMES+14 |
LROK | CHK4LSRP+16~, CHK4LSRP+28*, CHK4LSRP+30 |
LROU | AUDSET~ |
LROVRD | CHK4LSRP+7~, CHK4LSRP+9 |
LROVRD(0 | CHK4LSRP+10 |
LRP393 | ENSTART+24~, ENSTART+31*, ENSTART+33, CHK4LSRP+1~, CHK4LSRP+4*, CHK4LSRP+6 |
LSRPEND | ENSTART+4~, ENSTART+5*, ENSTART+33*, CHK4LSRP+29*, LSRPEX+5, LSRPEX+6, LSRPEX+14, LSRPEX+21, LSRPEX+24, LSRPEX+25 , LSRPEX+26 |
MSG | ENSTART+4~, ENSTART+25*, ENSTART+28, ENSTART+38*, ENSTART+39, LSRPEX+1~, LSRPEX+10*, LSRPEX+11, LSRPEX+16*, LSRPEX+17 , ALERT~, ALERT+3, ALERT+12, ALERT+15 |
SPCNUM | LMES~, LMES+11*, LMES+12 |
STR | LMES~, LMES+12 |
U | SETP+3 |
X | ENSTART+4~, ENSTART+13*, ENSTART+14, CHK4LSRP+16~ |
>> XPDABORT | ENSTART+17*, CHK4LSRP+11*, CHK4LSRP+31*, LSRPEX+3 |
>> XPDENV | ENSTART+8, ENSTART+23, CHK4LSRP+33, LSRPEX+14, LSRPEX+21, LSRPEX+24, LSRPEX+25, LSRPEX+26 |
>> XPDNM | ENSTART+25, ENSTART+38, LSRPEX+10, POST+15 |
>> XPDNOQUE | ENSTART+6* |
>> XPDQUIT | LSRPEX+3 |
XQA | ALERT+2~ |
XQA( | ALERT+9* |
XQA("G.LMI" | ALERT+6* |
XQAMSG | ALERT+2~, ALERT+3* |
Y | CHK4LSRP+16~, CHK4LSRP+28, CHK4LSRP+29 |
Name | Field # of Occurrence |
---|---|
$T(AFLDS+LRI^@LROU | AUDSET+7 |