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* |