Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LAMIVTL2

Package: Automated Lab Instruments

Routine: LAMIVTL2


Information

LAMIVTL2 ;DAL/HOAK 3rd vitek literal verification routine

Source Information

Source file <LAMIVTL2.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ;
CONTROL ;
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)
DISPLAY ;
CHK ;
CHKG ;
GETBUG ;
ASK ; From LAMIAUT2 BY FHS
ORGCOM ;
LAH ;
BUILD
CALL ;
LAH1 ; Display drugs
LAH2 ;
; Print drugs
PRESTO ;
; --- KEEP LRIFN FOR FUTURE USE---------------<<<<<<<<
PAUSE ;
CHKPAGE ;

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
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(62.5 - [#62.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call