LA7VIN71 ;DALOI/JDB - HANDLE ORU OBX FOR MICRO ;08/16/13 16:05
Source file <LA7VIN71.m>
Package | Total | Call Graph |
---|---|---|
Automated Lab Instruments | 9 | CREATE^LA7LOG $$UNESC^LA7VHLU3 $$HL2LAH^LA7VHLU6 (CODSYS,FLD2ARR)^LA7VHLU7 $$BACTCHK^LA7VHLUB (1,10,16,17,3,6,7)^LA7VIN7A (11,15,20,21,4,79,85,9)^LA7VIN7B (22,30,48,5,NODE)^LA7VIN7C (12,13,14,8)^LA7VIN7D |
Lab Service | 2 | $$CODE^LRSCT $$MAKEISO^LRVRMI1 |
Kernel | 1 | $$TRIM^XLFSTR |
VA FileMan | 1 | $$GET1^DID |
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 |
---|---|---|
PROCESS | ;
; File MI ^LAH for a given concept (LA76247) ; Called from OBX^LA7VIN7 for Micro data ; Major variables from LA7VIN7: ; DSOBX3,DSOBX5,LA76247,LA7SCT,OBX5,LA7612 |
|
BLDRMK() | ;
; Constructs comment/remarks for special situations like ; processing an OBX5 with flora normal (which gets filed as a ; Bact RPT REMARK). |
|
STRSPLIT(STR,MAXLEN,OUT) | ;
; Splits a string into substrings no more than MAXLEN long ; Useful when storing things such as COMMENT fields |
|
NTE(R6247,I,PREFIX) | ;
; Set variable for HL7 NTE processing ; Inputs ; R6247 : #62.47 IEN (Concept) ; I : Usually either ISQN or ISQN2 ; PREFIX : text of prefix (optional) |
|
SUBIDERR | ;
; Error handler when subid (OBX4) is null or unknown |
Name | Field # of Occurrence |
---|---|
$$GET1^DID | PROCESS+7, PROCESS+8 |
CREATE^LA7LOG | PROCESS+97, SUBIDERR+5 |
$$UNESC^LA7VHLU3 | PROCESS+15, BLDRMK+35 |
$$HL2LAH^LA7VHLU6 | PROCESS+39, PROCESS+52 |
CODSYS^LA7VHLU7 | BLDRMK+28 |
FLD2ARR^LA7VHLU7 | BLDRMK+27 |
$$BACTCHK^LA7VHLUB | PROCESS+57 |
1^LA7VIN7A | PROCESS+60 |
10^LA7VIN7A | PROCESS+70 |
16^LA7VIN7A | PROCESS+76 |
17^LA7VIN7A | PROCESS+77 |
3^LA7VIN7A | PROCESS+61 |
6^LA7VIN7A | PROCESS+65, PROCESS+66 |
7^LA7VIN7A | PROCESS+67 |
11^LA7VIN7B | PROCESS+71 |
15^LA7VIN7B | PROCESS+75 |
20^LA7VIN7B | PROCESS+78 |
21^LA7VIN7B | PROCESS+79 |
4^LA7VIN7B | PROCESS+62 |
79^LA7VIN7B | PROCESS+86 |
85^LA7VIN7B | PROCESS+87 |
9^LA7VIN7B | PROCESS+69 |
22^LA7VIN7C | PROCESS+80 |
30^LA7VIN7C | PROCESS+81 |
48^LA7VIN7C | PROCESS+85 |
5^LA7VIN7C | PROCESS+63 |
NODE^LA7VIN7C | PROCESS+83, PROCESS+89 |
12^LA7VIN7D | PROCESS+72 |
13^LA7VIN7D | PROCESS+73 |
14^LA7VIN7D | PROCESS+74 |
8^LA7VIN7D | PROCESS+68 |
$$CODE^LRSCT | BLDRMK+21 |
$$MAKEISO^LRVRMI1 | PROCESS+17, PROCESS+19 |
$$TRIM^XLFSTR | PROCESS+16, PROCESS+18 |
Name | Line Occurrences |
---|---|
$$BLDRMK | PROCESS+66 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNCPTOR | PROCESS+6~, PROCESS+27*, PROCESS+30*, PROCESS+65, PROCESS+66 |
CODSYS | BLDRMK+25~, BLDRMK+28, BLDRMK+30! |
CODSYS(2 | BLDRMK+29 |
DATA | BLDRMK+25~, BLDRMK+26*, BLDRMK+27, BLDRMK+28, BLDRMK+30! |
DDP | PROCESS+6~, PROCESS+10*, PROCESS+12* |
DDS | PROCESS+6~, PROCESS+9*, PROCESS+11* |
>> DSOBX3 | PROCESS+7, PROCESS+8 |
>> DSOBX5 | PROCESS+23, PROCESS+28, PROCESS+29 |
I | STRSPLIT+3~, STRSPLIT+6*, STRSPLIT+7, NTE~, NTE+6 |
>> ISQN | PROCESS+46 |
>> LA74 | PROCESS+17, PROCESS+19 |
>> LA7612 | PROCESS+22, PROCESS+24* |
>> LA76247 | PROCESS+30*, PROCESS+37, PROCESS+40*, PROCESS+47*, PROCESS+50, PROCESS+53*, PROCESS+57*, PROCESS+60, PROCESS+61, PROCESS+62 , PROCESS+63, PROCESS+64, PROCESS+67, PROCESS+68, PROCESS+69, PROCESS+70, PROCESS+71, PROCESS+72, PROCESS+73, PROCESS+74 , PROCESS+75, PROCESS+76, PROCESS+77, PROCESS+78, PROCESS+79, PROCESS+80, PROCESS+81, PROCESS+83, PROCESS+85, PROCESS+86 , PROCESS+87, PROCESS+89 |
>> LA76248 | PROCESS+39, PROCESS+52 |
>> LA7AA | PROCESS+57 |
>> LA7AD | PROCESS+57 |
>> LA7AN | PROCESS+57 |
>> LA7CS | PROCESS+28, BLDRMK+33 |
LA7DD | PROCESS+6~, PROCESS+7*, PROCESS+9, PROCESS+10 |
LA7DD("LABEL" | PROCESS+8* |
>> LA7ECH | PROCESS+15, BLDRMK+35 |
>> LA7FS | PROCESS+15, BLDRMK+35 |
>> LA7KILAH | PROCESS+98*, SUBIDERR+6* |
>> LA7ONLT | PROCESS+57 |
>> LA7QUIT | PROCESS+98*, SUBIDERR+6* |
>> LA7RLNC | PROCESS+44 |
>> LA7RMK(0 | NTE+6* |
>> LA7SCT | BLDRMK+19, BLDRMK+21, BLDRMK+31, BLDRMK+32 |
LA7VOBX3 | PROCESS+95~, PROCESS+96*, SUBIDERR+2~, SUBIDERR+3* |
LA7VOBX4 | SUBIDERR+2~, SUBIDERR+4* |
>> LAPSUBID | PROCESS+18 |
LAX | PROCESS+6~, PROCESS+23*, PROCESS+24, PROCESS+29*, PROCESS+30 |
>> LWL | PROCESS+46 |
MAXLEN | STRSPLIT~, STRSPLIT+4, STRSPLIT+5, STRSPLIT+6, STRSPLIT+7, STRSPLIT+8 |
>> OBX3 | PROCESS+96, SUBIDERR+3 |
>> OBX3(4 | PROCESS+37, PROCESS+39, PROCESS+50, PROCESS+52 |
>> OBX3(5 | PROCESS+39, PROCESS+52 |
>> OBX3(6 | PROCESS+37, PROCESS+39, PROCESS+50, PROCESS+52 |
>> OBX3(8 | PROCESS+39, PROCESS+52 |
>> OBX4 | PROCESS+14, SUBIDERR+4 |
>> OBX5 | PROCESS+28, BLDRMK+26, BLDRMK+33, BLDRMK+34 |
OUT | STRSPLIT~ |
OUT( | STRSPLIT+7* |
PREFIX | NTE~, NTE+6 |
PSUBID | PROCESS+6~, PROCESS+18*, PROCESS+19*, PROCESS+20, BLDRMK+15 |
R6247 | NTE~, NTE+6 |
RMK | PROCESS+6~ |
SCT | BLDRMK+20~ |
SCT("F" | BLDRMK+23 |
SCT("P" | BLDRMK+22 |
SID | BLDRMK+13~, BLDRMK+17*, BLDRMK+36 |
STR | STRSPLIT~, STRSPLIT+4, STRSPLIT+5, STRSPLIT+7 |
SUB | PROCESS+45~, PROCESS+46*, PROCESS+47 |
SUBID | PROCESS+6~, PROCESS+14*, PROCESS+15*, PROCESS+16*, PROCESS+17*, PROCESS+20*, PROCESS+46, BLDRMK+14 |
SUBS | STRSPLIT+3~, STRSPLIT+4*, STRSPLIT+5*, STRSPLIT+6, STRSPLIT+9 |
TXT | BLDRMK+13~, BLDRMK+18*, BLDRMK+22*, BLDRMK+23*, BLDRMK+24, BLDRMK+29*, BLDRMK+31*, BLDRMK+33*, BLDRMK+34*, BLDRMK+35* , BLDRMK+36 |
X | PROCESS+38~, PROCESS+39*, PROCESS+40, PROCESS+51~, PROCESS+52*, PROCESS+53, BLDRMK+13~, BLDRMK+14*, BLDRMK+15*, BLDRMK+16* , BLDRMK+17, BLDRMK+21* |
Y | STRSPLIT+3~, STRSPLIT+6*, STRSPLIT+7, STRSPLIT+8* |