©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
LR153 ;DALISC/JMC/FHS - LR*5.2*153 PATCH ENVIRONMENT CHECK ROUTINE ; 12/3/1997
Source file <LR153.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ; KIDS Pre install for LR*5.2*153
|
|
| EN | ; Does not prevent loading of the transport global.
; Environment check is done only during the install. |
|
| C6205 | ;Convert File #62.05 to File #64.061
|
|
| C61 | ; Convert File #61 to File #64.061
|
|
| 537 | ;Set ID field in ^DD(537010,0,"ID")
|
|
| EXIT | ;
|
|
| POST | ; KIDS Post install for LR*5.2*153
; Add menu option ; Check HL7 codes mapping in Urgency (62.05) file. ; Set HL7 urgency to "(R)outine" if not defined. |
|
| SP(X) | ;Convert Abbrv from HL7 V2.3 > V2.3 0070 table
|
|
| CHECK | ; Perform environment check
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DID | PRE+8 |
| ^DIK | PRE+7 |
| EN1^DIK | C61+3, C6205+2 |
| ENALL^DIK | POST+43 |
| $$CJ^XLFSTR | CHECK+3, CHECK+6, CHECK+9, CHECK+13, EXIT+1, EXIT+2, PRE+9, PRE+10, PRE+11, PRE+12 , POST+5, POST+9, POST+11, POST+12, POST+15, POST+16, POST+19, POST+20, POST+21, POST+24 , POST+25, POST+29, POST+30, POST+38, POST+41, 537+3 |
| $$ADD^XPDMENU | POST+10, POST+14, POST+18, POST+23 |
| $$VERSION^XPDUTL | CHECK+11 |
| BMES^XPDUTL | CHECK+3, CHECK+6, CHECK+9, CHECK+13, EXIT+1, EXIT+2, PRE+9, PRE+10, PRE+11, PRE+12 , POST+5, POST+9, POST+11, POST+12, POST+15, POST+16, POST+19, POST+20, POST+21, POST+24 , POST+25, POST+29, POST+30, POST+37, POST+38, POST+41, 537+3 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^LAB(60 - [#60] | Classic Fileman Calls |
| ^LAB(61 - [#61] | Classic Fileman Calls |
| ^LAB(62.05 - [#62.05] | Classic Fileman Calls |
| ^LAB(64.6 - [#64.6] | GET1^DID |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(537010 | 537+1* |
| ^DD(64.061 | PRE+4 |
| ^LAB(61 - [#61] | C61+2, C61+3* |
| ^LAB(62.05 - [#62.05] | POST+33, POST+34, POST+36*, C6205+1, C6205+2* |
| ^LAB(64.061 - [#64.061] | PRE+2, PRE+3!*, C61+2, C6205+1 |
| ^LAM(0 | PRE+1 |
| ^VA(200 - [#200] | CHECK+8 |
| Name | Line Occurrences |
|---|---|
| $$SP | C61+2 |
| C61 | 537+2 |
| CHECK | EN+3 |
| EXIT | EN+4 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | PRE+1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | PRE+5~, PRE+6*, C61+1~, C61+3*!, C6205+2*! |
| DA(1 | PRE+6* |
| DIK | PRE+5~, PRE+6*, POST+42~, POST+43*, C61+1~, C61+3*!, C6205+2*! |
| DIK(1 | POST+43*, C61+3*, C6205+2* |
| DUZ | CHECK+5, CHECK+8 |
| DUZ(0 | CHECK+5 |
| IOM | CHECK+2 |
| IOSL | CHECK+2 |
| LA64 | C61+1~, C61+2*, C61+3, C6205+1*, C6205+2 |
| LAHL7 | C61+1~, C61+2*, C6205+1* |
| LAI | C61+1~, C61+2*, C61+3, C6205+1*, C6205+2 |
| LRFLAG | POST+31~, POST+32*, POST+36*, POST+38 |
| LRI | POST+31~, POST+32*, POST+33*, POST+34, POST+36 |
| LRX | POST+4~, POST+10*, POST+12, POST+14*, POST+16, POST+18*, POST+20, POST+23*, POST+25 |
| U | CHECK+2, PRE+1, PRE+2, C61+2, C61+3, C6205+1, C6205+2 |
| VER | CHECK+1~, CHECK+11*, CHECK+12 |
| X | PRE+2*, PRE+3, POST+31~, POST+34*, POST+35, POST+37, SP~, SP+1, SP+2, SP+3 , SP+4, SP+5, SP+6, SP+7, SP+8, SP+9 |
| >> XPDENV | EN+2 |
| >> XPDIQ("XPZ1" | CHECK+15* |
| >> XPDQUIT | CHECK+4*, CHECK+7*, CHECK+10*, CHECK+14*, EXIT+1, EXIT+2 |