VBECRPCA ;DALOI/RLM - VBECS Lab Services Lookups ;10 April 2003
Source file <VBECRPCA.m>
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| VBECS | 2 | VBECS LAB TEST RESULTS LOOKUP VBECS LABORATORY TEST LOOKUP |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOOK60 | ;
|
|
| L60 | ||
| KILL | ;
|
|
| WSTEST(VBWST) | ;White space test
|
|
| WSTRIP(VBDATA) | ;Strip White Space
|
|
| WSCONV(VBDATA) | ;Convert White Space
|
|
| LABTEST(RESULTS,DATA) | ; Main entry for VBECS LABORATORY TEST LOOKUP RPC
|
|
| TSTRSLT(RESULTS,SDATE,EDATE,DIV,TESTS,PATS) | ;
; Main entry for VBECS LAB TEST RESULTS LOOKUP RPC |
|
| RESXML(DFN) | ; Subroutine to extract Lab Test result and build return XML
|
| Name | Field # of Occurrence |
|---|---|
| FIND^DIC | L60+3, LABTEST+11 |
| $$GET1^DIQ | L60+17, L60+18, L60+33, L60+39 |
| GETS^DIQ | L60+6, L60+10, L60+23, L60+25 |
| $$CPT^ICPTCOD | L60+31, L60+37 |
| $$LRDFN^LR7OR1 | RESXML+18 |
| RR^LR7OR1 | TSTRSLT+15, TSTRSLT+20 |
| ADD^VBECRPC | L60+2, L60+43, L60+44, L60+45, L60+48, L60+49, L60+51, L60+52, L60+53, L60+54 , L60+55, L60+56, L60+57, L60+58, L60+59, L60+60, L60+61, LABTEST+8, LABTEST+13, LABTEST+25 , LABTEST+27, LABTEST+28, RESXML+20, RESXML+21, RESXML+22, RESXML+23, RESXML+24 |
| BEGROOT^VBECRPC | LOOK60+2, LABTEST+6, TSTRSLT+9, RESXML+19 |
| ENDROOT^VBECRPC | LOOK60+5, LABTEST+9, LABTEST+14, LABTEST+32, TSTRSLT+23, RESXML+25 |
| $$FMTHL7^XLFDT | RESXML+18 |
| $$HL7TFM^XLFDT | TSTRSLT+7, TSTRSLT+8 |
| $$CHARCHK^XOBVLIB | L60+2, L60+43, L60+45, L60+48, L60+49, L60+51, L60+52, L60+53, L60+54, L60+56 , L60+57, LABTEST+13, LABTEST+25, LABTEST+27, LABTEST+28, RESXML+20, RESXML+21, RESXML+22, RESXML+23, RESXML+24 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| RPC Name | Call Tags |
|---|---|
| VBECS LABORATORY TEST LOOKUP | LABTEST |
| VBECS LAB TEST RESULTS LOOKUP | TSTRSLT |
| FileNo | Call Tags |
|---|---|
| ^LAB(60 - [#60] | FIND^DIC, GETS^DIQ |
| 60.01 | GETS^DIQ |
| ^LAM - [#64] | GET1^DIQ |
| 64.018 | GETS^DIQ |
| ^ICPT - [#81] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | LOOK60+3, L60+7, L60+8, LABTEST+21 |
| ^LAB(61 - [#61] | LABTEST+23 |
| ^LAM - [#64] | L60+22, L60+24 |
| ^LR - [#63] | RESXML+18 |
| ^TMP("LRRR" | TSTRSLT+16, TSTRSLT+21, RESXML+1, RESXML+4, RESXML+6, RESXML+8, RESXML+9 |
| ^TMP("VBEC_LABRES" | TSTRSLT+5 |
| ^TMP("VBEC_LABTEST_LOOKUP" | LABTEST+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR60 | LABTEST+2~ |
| ARR60("DILIST" | LABTEST+12, LABTEST+17, LABTEST+18, LABTEST+19 |
| BDT | TSTRSLT+3~, TSTRSLT+4*, TSTRSLT+7*, TSTRSLT+15, TSTRSLT+20 |
| CNT | LABTEST+2~, LABTEST+20*, LABTEST+22*, LABTEST+23 |
| >> COMPDATE | RESXML+18*, RESXML+24 |
| CPT | L60+29*, L60+31, L60+32, L60+33, L60+35*, L60+37, L60+38, L60+39, KILL+1! |
| CPTA | L60+22*, L60+23, L60+24*, L60+25, L60+28*, L60+29, L60+33, L60+34*, L60+35, L60+39 , KILL+1! |
| CPTB | L60+28*, L60+29, L60+33, L60+34*, L60+35, L60+39, KILL+1! |
| DATA | LOOK60+3*, LOOK60+4, L60+2, L60+3, L60+43, LABTEST~, LABTEST+7, LABTEST+11, LABTEST+13 |
| DFN | TSTRSLT+3~, TSTRSLT+12*, TSTRSLT+15, TSTRSLT+16, TSTRSLT+20, TSTRSLT+21, RESXML~, RESXML+1, RESXML+4, RESXML+6 , RESXML+8, RESXML+9, RESXML+18, RESXML+20 |
| DIV | TSTRSLT~ |
| EDATE | TSTRSLT~, TSTRSLT+8 |
| EDT | TSTRSLT+3~, TSTRSLT+4*, TSTRSLT+8*, TSTRSLT+15, TSTRSLT+20 |
| ERR | LABTEST+2~, LABTEST+12 |
| IEN | LABTEST+2~, LABTEST+18*, LABTEST+21, LABTEST+25, LABTEST+27, LABTEST+30 |
| INVDT | RESXML+2~, RESXML+5*, RESXML+6*, RESXML+8, RESXML+9, RESXML+18 |
| LIST | LABTEST+2~, LABTEST+20*, LABTEST+26*, LABTEST+28, LABTEST+29, LABTEST+30 |
| NAME | LABTEST+2~, LABTEST+19*, LABTEST+25, LABTEST+27, LABTEST+30 |
| NLT1 | L60+17*, L60+20, KILL+1! |
| NLT2 | L60+18*, L60+20, KILL+1! |
| OUTPUT | RESXML+2~, RESXML+9*, RESXML+10, RESXML+12, RESXML+14, RESXML+16 |
| PATS | TSTRSLT~ |
| PATS( | TSTRSLT+11, TSTRSLT+12 |
| RES | RESXML+2~, RESXML+14*, RESXML+23 |
| RESULTS | LABTEST~, LABTEST+4*, LABTEST+5, TSTRSLT~, TSTRSLT+5*, TSTRSLT+6 |
| SDATE | TSTRSLT~, TSTRSLT+7 |
| SEQ | RESXML+2~, RESXML+7*, RESXML+8*, RESXML+9 |
| SITE | LABTEST+2~, LABTEST+20*, LABTEST+21*, LABTEST+23 |
| SPEC | LABTEST+2~, LABTEST+20*, LABTEST+22*, LABTEST+24 |
| SPEC( | LABTEST+23*, LABTEST+26, LABTEST+28, LABTEST+29, LABTEST+30 |
| SUB | RESXML+2~, RESXML+3*, RESXML+4*, RESXML+6, RESXML+8, RESXML+9, RESXML+18 |
| TEST | TSTRSLT+3~, TSTRSLT+19*, TSTRSLT+20 |
| TESTCODE | RESXML+2~, RESXML+12*, RESXML+21 |
| TESTNAME | TSTRSLT+3~, RESXML+2~, RESXML+16*, RESXML+22 |
| TESTS | TSTRSLT~, TSTRSLT+14 |
| TESTS( | TSTRSLT+18, TSTRSLT+19 |
| TSTRES | TSTRSLT+3~ |
| VBA | L60+4*, L60+13*, L60+14, L60+16*, L60+17, L60+18, L60+20, L60+22, L60+23, L60+24 , L60+25, KILL+1! |
| VBAC | L60+14*, KILL+1! |
| VBB | L60+4*, L60+6, L60+7, L60+8, L60+10, L60+14*, KILL+1! |
| VBC | L60+8*, L60+10, KILL+1! |
| VBDATA | WSTRIP~, WSTRIP+1*, WSTRIP+2*, WSTRIP+3, WSCONV~, WSCONV+1*, WSCONV+2*, WSCONV+3 |
| VBECCNT | LOOK60+1*, LABTEST+3*, LABTEST+33!, TSTRSLT+4* |
| >> VBECTST | LABTEST+30 |
| VBOUT | L60+12!, KILL+1! |
| VBOUT("DILIST" | L60+4 |
| VBOUT2 | L60+26!, KILL+1! |
| VBOUT2(60 | L60+16, L60+17, L60+18, L60+20, L60+22, L60+23, L60+24, L60+25 |
| VBOUT3 | L60+15!, KILL+1! |
| VBOUT3( | L60+13, L60+14 |
| VBOUT4 | KILL+1! |
| VBOUT4( | L60+14*, L60+46, L60+48, L60+49, L60+51, L60+52, L60+59, L60+60 |
| VBOUT5 | KILL+1! |
| VBOUT5( | L60+20*, L60+44, L60+45, L60+53, L60+55, L60+56, L60+58 |
| VBOUT6 | L60+40!, KILL+1! |
| VBOUT6( | L60+28, L60+29 |
| VBOUT7 | L60+40!, KILL+1! |
| VBOUT7( | L60+34, L60+35 |
| VBOUT8 | KILL+1! |
| VBOUT8( | L60+33*, L60+54 |
| VBOUT9 | KILL+1! |
| VBOUT9( | L60+39*, L60+57 |
| VBRSX | TSTRSLT+3~, TSTRSLT+10*, TSTRSLT+11*, TSTRSLT+12 |
| VBWST | WSTEST~, WSTEST+1 |
| VBXA | L60+42*, L60+44*, L60+45, L60+46, L60+48, L60+49, L60+51, L60+52, L60+53, L60+54 , L60+55, L60+56, L60+57, L60+58, L60+59, L60+60, KILL+1! |
| VBXI | L60+46*, L60+48, L60+49, L60+51, L60+52, L60+59, L60+60, KILL+1! |
| VBXJ | L60+54*, L60+57*, KILL+1! |
| X | LABTEST+2~, LABTEST+16*, LABTEST+17*, LABTEST+18, LABTEST+19, TSTRSLT+3~ |
| Y | TSTRSLT+3~, TSTRSLT+18*, TSTRSLT+19 |