©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
LAMIVTLC ;VA/DALISC/DRH - MICRO VITEK LITERAL DATA MANAGER ; 1/8/96
Source file <LAMIVTLC.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Lab Instruments | 2 | INTRP^LAMIVTE6 (,NA)^LAMIVTLW |
| VA Fileman | 1 | %XY^%RCR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| END | ;
|
|
| DEBUG | ;
|
|
| SETMIC(LRIDX) | ;This function resolves the vitek fields
; resolved fields go to Alternative Interpretation (AI) written by FHS ; DATA is the array..DATA(ORG,AB)=MIC ; ID is ssn^accn (two pieces) |
|
| CALL | ;
|
|
| ALTSET | ;
|
|
| LA4 | ;This is where I call FHS interp. program
|
|
| UNPACK | ; Here is where we unpack the bug,drug and min inhib conc (MIC)
; LRORGNSM,CARD,LRA1 and LRA3 ; Multiple drugs and MIC vales per data set. |
|
| ID | ||
| LA3 | ;X LAGEN ;set auto inst variables ;--> left in for debugging
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(61 - [#61] | ID+16 |
| ^LAB(61.39 - [#61.39] | ALTSET+8, ALTSET+9, CALL+15, CALL+16, CALL+19, CALL+20 |
| ^LAB(62.06 - [#62.06] | CALL+21 |
| ^LAH( | ID+3, ALTSET+11*, ALTSET+12*, CALL+28*, CALL+29*, CALL+30*, CALL+31*, LA4+8* |
| ^LRO(68 - [#68] | ID+10, ID+13, ID+14, ID+15 |
| Name | Line Occurrences |
|---|---|
| ALTSET | UNPACK+9 |
| CALL | UNPACK+13 |
| SETMIC | EN+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %X | DEBUG+3*, DEBUG+5*, DEBUG+7*, DEBUG+9* |
| >> %Y | DEBUG+3*, DEBUG+4*, DEBUG+5*, DEBUG+6*, DEBUG+7*, DEBUG+8*, DEBUG+9*, DEBUG+10* |
| >> A4 | EN+20 |
| >> CARD | UNPACK+7*, UNPACK+8*, UNPACK+11, UNPACK+12, ALTSET+11, ALTSET+12, CALL+28, CALL+31 |
| >> CI | EN+8, EN+9, EN+13, EN+21 |
| >> DBATA | EN+7* |
| >> ID | ID+7 |
| >> ISOL | ALTSET+8*, ALTSET+9*, ALTSET+10, ALTSET+12, CALL+15*, CALL+16*, CALL+17, CALL+25, CALL+26, CALL+31 , LA4+3, LA4+4, LA4+8 |
| >> ISOLATE | ALTSET+1*, ALTSET+5, ALTSET+6*, ALTSET+12, CALL+7*, CALL+29, CALL+30, CALL+31, LA4+8 |
| >> ISQN | ID+3, ALTSET+11, ALTSET+12, CALL+28, CALL+29, CALL+30, CALL+31, LA4+8 |
| >> J | EN+15*, EN+16*, EN+18, EN+20, LA4+2*, LA4+3*, LA4+4, LA4+8 |
| >> JJ | EN+15*, EN+17*, EN+18, EN+20 |
| >> JJJ | EN+15*, EN+19*, EN+20 |
| >> K | LA4+4* |
| >> K1 | CALL+24* |
| >> LABGNODE | EN+11, EN+16, EN+18, EN+20 |
| LACCN | EN+6~, EN+13*, CALL+29 |
| >> LACI( | EN+9, EN+13, EN+21 |
| >> LACOUNT | DEBUG+2* |
| LADATA | EN+15*, EN+21! |
| LADATA( | EN+18*, EN+20*, UNPACK+6, UNPACK+8, UNPACK+11, UNPACK+12 |
| >> LAMIC | EN+20 |
| >> LANTIB | EN+18, EN+19, EN+20, UNPACK+9 |
| >> LAPD( | EN+10, EN+14, EN+21 |
| >> LART( | EN+11, EN+16, EN+17, EN+18, EN+19, EN+20, UNPACK+9 |
| >> LART("o5" | EN+4 |
| >> LART("t1" | EN+18, EN+20 |
| >> LART("t4" | EN+5 |
| LASSN | EN+6~, EN+14* |
| >> LAVAB | CALL+21*, CALL+22, CALL+25 |
| >> LAVAB1 | CALL+20*, CALL+21 |
| >> LAVAB2 | CALL+19*, CALL+20 |
| >> LRA | ID+3*, ID+4, ID+5, ID+14 |
| >> LRA1 | UNPACK+10*, UNPACK+11*, UNPACK+12, CALL+6, CALL+19 |
| LRA3 | UNPACK+12*, CALL+24, CALL+25, END+2! |
| >> LRAA | ID+4*, ID+9, ID+10, ID+13, ID+15 |
| >> LRAD | ID+5*, ID+9, ID+10, ID+13, ID+14, ID+15 |
| >> LRAN | ID+7*, ID+9, ID+10, ID+13, ID+14, ID+15 |
| >> LRBACT | EN+5*, CALL+30 |
| >> LRCMNT | EN+4*, CALL+30 |
| LRID | ID+2*, END+2! |
| LRIDX | SETMIC~, ID, ID+2 |
| LRISOFLG | UNPACK+5!, ALTSET+5*, ALTSET+6 |
| >> LRORGNSM | ALTSET+1*, ALTSET+8, ALTSET+10*, CALL+7*, CALL+15, CALL+17* |
| >> LRORGNZM | UNPACK+4*, UNPACK+6*, UNPACK+8, UNPACK+11, UNPACK+12, ALTSET+1, CALL+7 |
| >> LRSNORK | ID+12*, ID+13*, ID+14, ID+15 |
| LRSP | ID+6!, ID+15*, ID+16* |
| >> LRTIC | UNPACK+3* |
| LRVAB | END+2! |
| >> LWL | ID+3, ALTSET+11, ALTSET+12, CALL+28, CALL+29, CALL+30, CALL+31, LA4+8 |
| MIC | END+2! |
| MIC( | CALL+25*, LA4+3, LA4+4, LA4+8 |
| >> ORG( | CALL+26*, CALL+31 |
| >> PI | EN+10, EN+14, EN+21 |
| >> RT | EN+17, EN+18, EN+20 |
| >> S | LA4+8 |
| >> SSN | ID* |
| >> TMPAB | CALL+6* |
| U | EN+20, EN+21, ID+2, ID+3, ID+5, CALL+21, CALL+30, LA4+8 |
| ZLACI | DEBUG+1! |
| ZLAPD | DEBUG+1! |
| ZLART | DEBUG+1! |
| ZLASI | DEBUG+1! |