LR7OU1 ;slc/dcm - General Utilities ;8/11/97
Source file <LR7OU1.m>
Package | Total | Call Graph |
---|---|---|
Order Entry Results Reporting | 1 | $$VALUE^ORCSAVE2 |
VA FileMan | 1 | ^DIC |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(TST,SUB) | ;Expand a lab panel
|
|
TEST | ;Test expanding panel
|
|
UPPER(X) | ; Convert lower case X to UPPER CASE
|
|
WC(PK,IFN) | ;Get collection type for print fields
|
|
ACC(PK,IFN) | ;Get accession numbers for print fields
|
|
LU(PK,IFN) | ;Get urgency for print fields
|
|
COL(PK,IFN) | ;Get collection sample with Tube type for print fields
|
|
VER() | ;Check OE/RR version #
|
|
GETTEST(IFN) | ;Get Lab test from Order entry
|
|
GETST(ODT,SN,IFN) | ;Find test node from LRODT,LRSN for a given ORIFN
|
|
GET0(ODT,SN) | ;Get zero node: ^LRO(69,ODT,1,SN,0) for an ORIFN
|
|
SAMP(ODT,SN) | ;Get collection sample pointer from lab order
|
|
TYPE(ODT,SN) | ;Get collection type internal value from lab order
|
|
SAMPCOM(PK,IFN) | ;Get Ward Remarks (specimen) for lab order
|
|
WARDCOM(PK,IFN) | ;Get General Ward comments on a test order
|
|
EXPAND(TEST,ARAY) | ;Expand a lab test panel
|
|
EX(TST) | ;
|
|
SPLIT(TXT,ARAY,CTR,LENGTH,PRE,POST) | ;Splits text into an array
|
|
STRIP(X) | ; -- Strip leading spaces from text X
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(100 | VER+2 |
^LAB(60 - [#60] | EN+6, SAMPCOM+4, EX+2, EX+4 |
^LAB(62 - [#62] | COL+3 |
^LAB(62.05 - [#62.05] | LU+2 |
^LRO(68 - [#68] | ACC+2 |
^LRO(69 - [#69] | GETST+3, GETST+6, GETST+7, GET0+3 |
^ORD(101.43 - [#101.43] | GETTEST+5 |
Name | Line Occurrences |
---|---|
$$GET0 | SAMP+2, TYPE+2 |
$$GETST | ACC+2, LU+2, SAMPCOM+2, WARDCOM+2 |
$$GETTEST | GETST+5 |
$$SAMP | COL+2, SAMPCOM+3 |
$$STRIP | SPLIT+15, SPLIT+18 |
$$TYPE | WC+2 |
EN | EN+6, TEST+2 |
EX | EXPAND+4, EX+4 |
SPLIT | SPLIT+19 |
Name | Field # of Occurrence |
---|---|
^( | EN+6, EX+4 |
^("VR" | VER+2 |
^(0 | ACC+2, COL+3, GETST+7, EX+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARAY | EXPAND~, EXPAND+5*, SPLIT~, SPLIT+10, SPLIT+15, SPLIT+18, SPLIT+19 |
CTR | SPLIT~, SPLIT+11*, SPLIT+15*, SPLIT+18*, SPLIT+19 |
>> DIC | TEST+1* |
>> DIC(0 | TEST+1* |
END | GETST+4~, GETST+5*, GETST+6, GETST+7*, SPLIT+9~, SPLIT+16*, SPLIT+17*, SPLIT+18, SPLIT+19 |
I | STRIP+1~, STRIP+2* |
IFN | WC~, ACC~, ACC+2, LU~, LU+2, COL~, GETTEST~, GETTEST+2, GETTEST+4, GETST~ , GETST+2, GETST+5, SAMPCOM~, SAMPCOM+2, WARDCOM~, WARDCOM+2 |
INARAY | EXPAND+3~, EXPAND+5 |
INARAY( | EX+3* |
J | EN+4~, EN+6*, EX+1~, EX+4* |
LENGTH | SPLIT~, SPLIT+12*, SPLIT+15, SPLIT+16, SPLIT+18, SPLIT+19 |
ODT | GETST~, GETST+2, GETST+3, GETST+6, GETST+7, GET0~, GET0+2, GET0+3, SAMP~, SAMP+2 , TYPE~, TYPE+2 |
PK | WC~, WC+2, ACC~, ACC+2, LU~, LU+2, COL~, COL+2, SAMPCOM~, SAMPCOM+2 , SAMPCOM+3, WARDCOM~, WARDCOM+2 |
POST | SPLIT~, SPLIT+14*, SPLIT+15, SPLIT+18, SPLIT+19 |
PRE | SPLIT~, SPLIT+13*, SPLIT+15, SPLIT+18, SPLIT+19 |
S2 | EN+4~, EN+5* |
SN | GETST~, GETST+2, GETST+3, GETST+6, GETST+7, GET0~, GET0+2, GET0+3, SAMP~, SAMP+2 , TYPE~, TYPE+2 |
SPEC | SAMPCOM+1~, SAMPCOM+3*, SAMPCOM+4*, SAMPCOM+5 |
SUB | EN~, EN+5, EX+1~, EX+2*, EX+3 |
T | GETST+4~, GETST+5*, GETST+6*, GETST+7 |
TEST | SAMPCOM+1~, SAMPCOM+2*, SAMPCOM+4, SAMPCOM+5, WARDCOM+1~, WARDCOM+2*, WARDCOM+3, EXPAND~, EXPAND+4 |
TST | EN~, EN+5, EN+6, GETST+4~, GETST+5*, GETST+7, EX~, EX+2, EX+3, EX+4 |
TSTY | TEST+2~ |
TSTY( | EN+5* |
TXT | SPLIT~, SPLIT+10, SPLIT+15, SPLIT+16, SPLIT+18, SPLIT+19 |
VER | VER+2~*, VER+3 |
X | EN+4~, EN+6*, UPPER~, UPPER+1, WC+1~, WC+2*, ACC+1~, ACC+2*, ACC+3, LU+1~ , LU+2*, LU+3, COL+1~, COL+2*, COL+3, GETTEST+3~, GETTEST+4*, GETTEST+5*, GETTEST+6, GETST+4~ , GETST+5*, GETST+7*, GETST+8, EX+1~, EX+4*, STRIP~, STRIP+2 |
Y | TEST+1, TEST+2, WC+2*, WC+3, ACC+1~, ACC+2*, COL+1~, COL+3*, COL+4, STRIP+1~* , STRIP+2*, STRIP+3 |
Y(0 | TEST+2 |