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 |