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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LAMIVTL2

Package: Automated Lab Instruments

Routine: LAMIVTL2


Information

LAMIVTL2 ;VA/DAL/HOAK - 3rd vitek literal verification routine ;1/22/96 08:30 ;

Source Information

Source file <LAMIVTL2.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Automated Lab Instruments 3 (CHKLAH,SET)^LAMIVTL3  ^LAMIVTL4  EDIT^LAMIVTL6  
VA Fileman 3 ^DIC  YN^DICN  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Lab Instruments 1 LAMIVTL1  

Entry Points

Name Comments DBIA/ICR reference
CONTROL ;
LAH1 ; Display drugs
CHK ;
LAH ;
CHKPAGE ;
LAH2 ;
; Print drugs
PRESTO ;
; --- KEEP LRIFN FOR FUTURE USE---------------<<<<<<<<
PROBE ;---------------------------------------------------------------------
; If data here it looks like ^LR(LRDFN,"MI",LRIDT,3,LRPIC,DRUGNODE)
; where LRPIC is not the IFN in etiology, that is found at
; $P(^(3,LRBUG,0),U)
INIT ;
ORGCOM ;
CALL ;
BUILD
ASK ; From LAMIAUT2 BY FHS
CHKG ;
GETBUG ;
DISPLAY ;
PAUSE ;

External References

Name Field # of Occurrence
^DIC ASK+10, ORGCOM+9
YN^DICN ASK+12, ORGCOM+11
^DIR CHK+6, PAUSE+7, CHKPAGE+4
CHKLAH^LAMIVTL3 LAH1+15
SET^LAMIVTL3 LAH2+22
^LAMIVTL4 CONTROL+14
EDIT^LAMIVTL6 CHK+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CONTROL+11
Function Call: WRITE
  • Prompt: !!,"Reviewing for previously entered results:"
  • Line Location: PROBE+4
Function Call: WRITE
  • Prompt: !,"NO PREVIOUS DATA FOR THIS ACCN"
  • Line Location: PROBE+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,"Isolate (",LRPIC," )"
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !," ",LRBUG
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !,$E(LRDRUG,1,30),?32,$P(LRNTRP,U),?38,$P(LRNTRP,U,2)
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: !!,"Look what I found in ",PNM,"'S report.",!,"What do you want me to do with it?"
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !,"I will not overwrite verified Data!",*7,*7,!!
  • Line Location: CHK+12
Function Call: WRITE
  • Prompt: !!,LRISO,". ENTER QUANTITY FOR ( "_LRBUG_" ) : "
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: $S($D(X2):X2_" // ",1:" ")
  • Line Location: ASK+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !?7,"Enter 2-68 characters or a Lab Description"
  • Line Location: ASK+10
Function Call: WRITE
  • Prompt: !?7,"Enter 2-68 characters "
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !,"COMMENT: "
  • Line Location: ORGCOM+3
Function Call: WRITE
  • Prompt: $S($D(X2):X2_" // ",1:" ")
  • Line Location: ORGCOM+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ORGCOM+5
Function Call: WRITE
  • Prompt: !?7,"Enter 2-68 characters or a Lab Description"
  • Line Location: ORGCOM+9
Function Call: WRITE
  • Prompt: !?7,"Enter 2-68 characters "
  • Line Location: ORGCOM+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LAH2+8
Function Call: WRITE
  • Prompt: !,"Isolate (",LRISO," )"
  • Line Location: LAH2+9
Function Call: WRITE
  • Prompt: !," ",LRBUG
  • Line Location: LAH2+10
Function Call: WRITE
  • Prompt: !," ","CARD "_$P(^LAH(LRLL,1,LRIFN(LRIFN),2,2),U,2)
  • Line Location: LAH2+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHKPAGE+6
Routine Call
  • DIC
  • Line Location:
    • ASK+10
    • ORGCOM+9
Routine Call
  • DIR
  • Line Location:
    • CHK+6
    • PAUSE+7
    • CHKPAGE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(62.5 - [#62.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61.2 - [#61.2] DISPLAY+6, GETBUG+3, BUILD+5, LAH1+12, LAH2+7
^LAB(62.06 - [#62.06] DISPLAY+12, LAH2+15
^LAH( CONTROL+6!, ASK+2, ASK+13*, BUILD, BUILD+1!, BUILD+3, BUILD+4, BUILD+5, BUILD+8, BUILD+9*
, LAH1+3, LAH1+6, LAH1+8, LAH1+12, LAH1+13, LAH2+11, LAH2+13, LAH2+14, PRESTO+4, PAUSE+1
^LR - [#63] PROBE+5, DISPLAY+5, DISPLAY+6, DISPLAY+10, DISPLAY+11, CHKG+1!, GETBUG+2*, GETBUG+3*, ORGCOM+1, ORGCOM+8*
, ORGCOM+12*
^TMP("VITNAME" LAH2+6!, LAH2+16*, LAH2+18, LAH2+19
^TMP($J CONTROL+6!, BUILD+6*, CALL+3, CALL+5, LAH1+9*, LAH1+14*, LAH2+3, LAH2+5

Label References

Name Line Occurrences
ASK GETBUG+1, ASK+10, ASK+11, ASK+12, ORGCOM+9, ORGCOM+10, ORGCOM+11
CALL CONTROL+9
CHK DISPLAY+15, CHK+11
CHKG CHK+9
CHKPAGE LAH2+19
GETBUG CALL+6
LAH CONTROL+8
LAH1 CONTROL+12
LAH2 CONTROL+13
ORGCOM GETBUG+6, ORGCOM+8
PAUSE LAH2+21
PRESTO LAH1+10
PROBE CONTROL+4

Naked Globals

Name Field # of Occurrence
^( CALL+5, LAH2+5, LAH2+19
^(0 GETBUG+2*, ASK+2, ORGCOM+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+12*, ORGCOM+11*
DIC ASK+10!*, ORGCOM+9!*
DIC("S" ASK+10*, ORGCOM+9*
DIC(0 ASK+10*, ORGCOM+9*
DIR DISPLAY+3!, DISPLAY+16!, PAUSE+5!, CHKPAGE+2!
DIR("A" CHK+5*
DIR(0 DISPLAY+4*, CHK+4*, PAUSE+6*, CHKPAGE+3*
DTIME ASK+6, ORGCOM+5
>> DTOUT CHK+7
>> DUOUT CHK+7, PAUSE+8
IOF CONTROL+11, DISPLAY+2, LAH2+8, CHKPAGE+6
IOSL CHKPAGE+1
>> LRBACT BUILD+4*, PAUSE+3*
>> LRBUG DISPLAY+6*, DISPLAY+8, GETBUG+3, ASK+4, BUILD+5*, BUILD+6, CALL+4*, CALL+5*, LAH1+12*, LAH2+7*
, LAH2+10
LRBUX CONTROL+2!, BUILD+8*, BUILD+9, LAH1+7*, LAH1+8*, LAH1+9, LAH1+13*, LAH1+14
>> LRCMNT ORGCOM+1*, ORGCOM+2, BUILD+3*, PAUSE+2*
>> LRD0( DISPLAY+14*
>> LRDFN PROBE+5, DISPLAY+5, DISPLAY+6, DISPLAY+10, DISPLAY+11, CHKG+1, GETBUG+2, GETBUG+3, ORGCOM+1, ORGCOM+8
, ORGCOM+12
>> LRDIE PAUSE+1*, PAUSE+2, PAUSE+3
LRDOS DISPLAY+1!, DISPLAY+7*, CHK+1
>> LRDRUG DISPLAY+12*, DISPLAY+13, LAH2+15*, LAH2+16, LAH2+18*, LAH2+19
>> LREND ASK+3*, ASK+6*, ASK+8*, ORGCOM+5*, ORGCOM+7*
>> LRIDT PROBE+5, DISPLAY+5, DISPLAY+6, DISPLAY+10, DISPLAY+11, CHKG+1, GETBUG+2, GETBUG+3, ORGCOM+1, ORGCOM+8
, ORGCOM+12
>> LRIFN CONTROL+7*, CONTROL+8*, CONTROL+10*, CONTROL+12*, BUILD, BUILD+1, BUILD+3, BUILD+4, BUILD+5, BUILD+6
, BUILD+8, BUILD+9, LAH1+12, LAH1+13, LAH1+14, LAH2+5*, LAH2+11, LAH2+13, LAH2+14, LAH2+24
, PRESTO+2, PRESTO+5, PAUSE+1
>> LRIFN( CONTROL+8, CONTROL+12, BUILD, BUILD+1, BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+8, BUILD+9
, LAH1+12, LAH1+13, LAH1+14, LAH2+5*, LAH2+11, LAH2+13, LAH2+14, LAH2+24*, PRESTO+2, PRESTO+5*
, PAUSE+1
>> LRINTER LAH2+24, PRESTO+2*
>> LRISO GETBUG+2, GETBUG+3, ASK+4, ASK+14, ORGCOM+1, ORGCOM+8, ORGCOM+12, LAH+2*, BUILD*, BUILD+1
, BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+8, BUILD+9, CALL+2*, CALL+3*, CALL+5, LAH1+2*
, LAH1+3*, LAH1+4, LAH1+6, LAH1+8, LAH1+9, LAH1+12, LAH1+13, LAH1+14, LAH2+2*, LAH2+3*
, LAH2+5, LAH2+9, LAH2+13, LAH2+14, PRESTO+4, PAUSE+1
LRKEEP CONTROL+3!
LRKEEP( CHK+9*, CHK+10*, BUILD+1, LAH1+4
>> LRLL CONTROL+6, ASK+2, ASK+13, BUILD, BUILD+1, BUILD+3, BUILD+4, BUILD+5, BUILD+8, BUILD+9
, LAH1+3, LAH1+6, LAH1+8, LAH1+12, LAH1+13, LAH2+11, LAH2+13, LAH2+14, PRESTO+4, PAUSE+1
>> LRMICOM ASK+11, ORGCOM+10
>> LRNOD ASK+2, ASK+13, CALL+5*
>> LRNORK LAH1+5*, LAH1+6*, LAH1+8, LAH1+9
>> LRNOT LAH1+15
>> LRNOTO CHK+11
>> LRNTRP DISPLAY+11*, DISPLAY+13, DISPLAY+14, LAH2+14*, LAH2+16
>> LRORGCNT ASK+4*, LAH+3*
>> LRPIC PROBE+7*, DISPLAY+5*, DISPLAY+6, DISPLAY+7, DISPLAY+10, DISPLAY+11, CHK+9, CHK+10
>> LRPIN LAH2+4*, LAH2+5*, LAH2+7
>> LRPLK PRESTO+3*, PRESTO+4*, PRESTO+5
>> LRQUANT( GETBUG+2, ASK+14*
>> LRRX DISPLAY+9*, DISPLAY+10*, DISPLAY+11, DISPLAY+12, DISPLAY+14, BUILD+2*, LAH1+11*, LAH2+12*, LAH2+13*, LAH2+14
, LAH2+15
>> LRSUB PROBE+5, DISPLAY+5, DISPLAY+6, DISPLAY+10, DISPLAY+11, CHKG+1, GETBUG+2, GETBUG+3, ORGCOM+1, ORGCOM+8
, ORGCOM+12
>> OK CONTROL+1*, CONTROL+5, CONTROL+8, CONTROL+12, DISPLAY+5, DISPLAY+15, CHK+7*, ASK+6*, ASK+8*, ORGCOM+5*
, ORGCOM+7*, BUILD, CALL+6, LAH1+3, LAH2+19, LAH2+20, LAH2+23, PAUSE+8*, CHKPAGE+5*
>> PNM CHK+3
U DISPLAY+6, DISPLAY+12, DISPLAY+13, GETBUG+2, ASK+2, ASK+13, BUILD+3, BUILD+4, BUILD+5, BUILD+6
, BUILD+9, LAH1+12, LAH1+14, LAH2+7, LAH2+11, LAH2+15, LAH2+19, PAUSE+2, PAUSE+3
>> X ASK+6*, ASK+7*, ASK+8, ASK+10*, ASK+11, ASK+12, ASK+13, ASK+14, ORGCOM+5*, ORGCOM+6*
, ORGCOM+7, ORGCOM+8, ORGCOM+9*, ORGCOM+10, ORGCOM+11, ORGCOM+12
X2 ASK+1!, ASK+2*, ASK+5, ASK+7, ORGCOM+2*, ORGCOM+4, ORGCOM+6
>> Y CHK+9, CHK+10, CHK+11, CHKPAGE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All