Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LAMIVTL1

Package: Automated Lab Instruments

Routine: LAMIVTL1


Information

LAMIVTL1 ;VA/DAL/HOAK - 2nd Vitek literal verify rtn ;1/22/96 08:30 ;

Source Information

Source file <LAMIVTL1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 3 $$DTF^LRAFUNC1  RANGE^LRWU2  (INF,PT)^LRX  
VA Fileman 2 YN^DICN  ^DIR  
Automated Lab Instruments 1 ^LAMIVTL2  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Lab Instruments 1 LAMIVTL0  

Entry Points

Name Comments DBIA/ICR reference
CONTROL ;
EN ; From LAMIAUT0 BY FHS
PAT ;
SETUP ;
; Set up variables for PROCESSING
INIT ;
EXP ; From LAMIAUT4 BY FHS
V9 ;

External References

Name Field # of Occurrence
YN^DICN PAT+19
^DIR V9+7
^LAMIVTL2 CONTROL+4
$$DTF^LRAFUNC1 PAT+4
RANGE^LRWU2 V9+10
INF^LRX EXP+5
PT^LRX PAT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CONTROL+1
Function Call: WRITE
  • Prompt: !,"ACC # (",LRAN,") "
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: $$DTF^LRAFUNC1(LRCDT),!!?10,PNM," SSN: ",SSN," LOC: ",LRLLOC
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: $$DTF^LRAFUNC1(LRCDT),!!?10,PNM," HRCN: ",HRCN," LOC: ",LRLLOC
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: !?5,"Specimen: "
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: $S($D(^LAB(61,+LRSPEC,0)):$P(^(0),U),1:"Unknown")
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: " Sample: ",$S($D(^LAB(62,+LRSAMP,0)):$P(^(0),U),1:"Unknown"),!
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: !," Comment on Specimem "
  • Line Location: PAT+9
Function Call: WRITE
  • Prompt: ?30,^(I,0),!
  • Line Location: PAT+11
Function Call: WRITE
  • Prompt: !,"GRAM STAIN "
  • Line Location: PAT+13
Function Call: WRITE
  • Prompt: ?15,^(I,0),!
  • Line Location: PAT+15
Function Call: WRITE
  • Prompt: !,"Comment on Specimen : ",^(99)
  • Line Location: PAT+16
Function Call: WRITE
  • Prompt: !!?10,"Is this the correct patient/specimen? "
  • Line Location: PAT+18
Function Call: WRITE
  • Prompt: !!,PNM," ",SSN,!,LRACCN
  • Line Location: EXP+3
Function Call: WRITE
  • Prompt: !!,PNM," ",HRCN,!,LRACCN
  • Line Location: EXP+4
Function Call: WRITE
  • Prompt: !!?5,$P(^LAB(61,LRSPEC,0),U)," ",$P(^LAB(62,LRSAMP,0),U),!
  • Line Location: EXP+6
Function Call: WRITE
  • Prompt: !,I," ",LRNAME(I)
  • Line Location: EXP+22
Function Call: WRITE
  • Prompt: ?25," verified"
  • Line Location: EXP+23
Function Call: WRITE
  • Prompt: !
  • Line Location: V9+1
Function Call: WRITE
  • Prompt: !!?7,"Incorrect test number ",$C(7)
  • Line Location: V9+10
Routine Call
  • DIR
  • Line Location:
    • V9+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] EXP+13
^LAB(61 - [#61] PAT+6, EXP+6
^LAB(62 - [#62] PAT+7, EXP+6
^LR - [#63] EN+3, PAT+12, PAT+15, PAT+16
^LRO(68 - [#68] SETUP+4, SETUP+13, SETUP+17, EN+1, EN+2, EXP+9, EXP+23
^LRO(69 - [#69] PAT+8, PAT+11
^TMP("LR" EXP+7!
^VA(200 - [#200] EN+4

Label References

Name Line Occurrences
CONTROL INIT+3
EXP CONTROL+3, V9+10
SETUP CONTROL+2

Naked Globals

Name Field # of Occurrence
^( SETUP+4, EN+1, PAT+11, PAT+15, EXP+10
^(0 EN+2, EN+4, PAT+6, PAT+7, EXP+13, EXP+23
^(3 SETUP+13
^(99 PAT+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PAT+17*, PAT+20
>> A PAT+11*, PAT+15*
>> DFN EN+3*
>> DIR("?" V9+6*
>> DIR("A" V9+4*
>> DIR("B" V9+5*
>> DIR(0 V9+3*
>> DTOUT V9+8
>> DUOUT V9+8
>> HRCN PAT+4, EXP+4
>> I PAT+10*, PAT+11*, PAT+14*, PAT+15*, EXP+9*, EXP+10, EXP+12*, EXP+13, EXP+14, EXP+15
, EXP+16, EXP+17, EXP+19*, EXP+20, EXP+21, EXP+22, EXP+23
IOF CONTROL+1
>> LRAA SETUP+4, SETUP+13, SETUP+17, EN+1, EN+2, EXP+9, EXP+23
>> LRACCN SETUP+4*, EXP+4
>> LRAD SETUP+4, SETUP+13, EN+1, EN+2, EXP+9, EXP+23
>> LRALL EXP+18*, EXP+21*, V9+2*, V9+9
>> LRAN SETUP+2*, SETUP+4, SETUP+13, EN+1, EN+2, PAT+2, EXP+9, EXP+23
>> LRANX SETUP+2
>> LRCDT SETUP+14*, PAT+4
>> LRDFN SETUP+5*, EN+3, PAT+12, PAT+15, PAT+16
>> LRDPF SETUP+6*
>> LRDTR SETUP+15*
>> LREAL SETUP+16*
>> LREND INIT+2*, V9+8*
>> LRI EN+1*, EN+2
>> LRIDT SETUP+13*, PAT+12, PAT+15, PAT+16
>> LRLLOC SETUP+7*, PAT+4
LRNAME EXP+7!
LRNAME( EXP+14*, EXP+15*, EXP+16, EXP+19, EXP+20, EXP+22, EXP+23
>> LRNODE SETUP+4*, SETUP+5, SETUP+6, SETUP+7, SETUP+8, SETUP+9, SETUP+10, SETUP+13*, SETUP+14, SETUP+15
, SETUP+16
>> LRNOTO EXP+23*
>> LRNTN EXP+11*, EXP+19
>> LRODT SETUP+9*, PAT+8, PAT+11
>> LRPHY SETUP+8*, EN+4
>> LRPHYN EN+4*
>> LRSAMP EN+2*, PAT+7, EXP+6
>> LRSN SETUP+10*, PAT+8, PAT+11
>> LRSPEC EN+2*, PAT+6, EXP+6
>> LRSUB SETUP+17*
LRTEST EXP+7!
LRTEST( EXP+10*, EXP+13*, EXP+14, EXP+15, EXP+17
LRTS EXP+7!, EXP+20*
LRTS( EXP+16*, EXP+17*
>> N EXP+8*, EXP+10*, EXP+11, EXP+12
>> OK INIT+1*, CONTROL+2, CONTROL+3, PAT+20*, V9+8*
>> PNM PAT+4, EXP+4
U SETUP+6, SETUP+7, SETUP+8, SETUP+9, SETUP+10, SETUP+13, SETUP+14, SETUP+15, SETUP+16, SETUP+17
, EN+2, EN+3, EN+4, PAT+6, PAT+7, EXP+6, EXP+13, EXP+14, EXP+23
>> X V9+10
>> X9 V9+10
>> Y V9+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All