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
Print Page as PDF
Routine: LAMIAUT6

Package: Automated Lab Instruments

Routine: LAMIAUT6


Information

LAMIAUT6 ;SLC/FHS - DISPLAY MICRO DRUGS IN ORDER ;7/20/90 09:34

Source Information

Source file <LAMIAUT6.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
HDR
AC ;
LOOK ;
BLIND ;
COM ;
DUP ;
DUPCK ;
SWITCH ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "RETURN TO CONT. ('^' TO SKIP ) "
  • Variable: XX
  • Timeout: DTIME
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: @IOF,!?5,"Isolate ("_IR_")",!?7,$P(^LAB(61.2,LRORGN,0),U)," *** ",$P(^LAB(62.4,LRINST,7,LRCARD,0),U,2)," Card ***"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,LRDRNAME," "
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: @(@("TAB"_AA)),$P(LRDRDX,U,AA)
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: @IOF,!!?5,"Isolate ( "_IR_" )",!?7,$P(^LAB(61.2,LRORGN,0),U),!!
  • Line Location: BLIND+1
Function Call: WRITE
  • Prompt: !!,"Organism Comment:"
  • Line Location: BLIND+3
Function Call: WRITE
  • Prompt: !?10,^(LRORGCOM,0)
  • Line Location: BLIND+3
Function Call: READ
  • Formatting: !!?7
  • Prompt: "RETURN TO CONT. ('^' TO SKIP) "
  • Variable: XX
  • Timeout: DTIME
  • Line Location: BLIND+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BLIND+4
Function Call: WRITE
  • Prompt: !!?5,"BACT RPT REMARK",$C(7)
  • Line Location: COM+1
Function Call: WRITE
  • Prompt: !?10,^(0)
  • Line Location: COM+1
Function Call: READ
  • Formatting: !!?10
  • Prompt: "PRESS RETURN TO CONTINUE"
  • Variable: X
  • Timeout: DTIME
  • Line Location: COM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+2
Function Call: WRITE
  • Prompt: !?5,"( No ) will add another organism",!?5,"( Yes ) will overlay existing data",!!
  • Line Location: DUP+1
Function Call: WRITE
  • Prompt: !?10,"You already have "_LRBDUP(+X)_" "_$S($D(^LAB(61.2,+X,0)):$P(^(0),U),1:"Unknown")_" in the patient's file, ",!,"Do you want to add data to one of Them ? "
  • Line Location: DUP+2
Function Call: WRITE
  • Prompt: !?7,"Add to which ISOLATE # CHOOSE FROM ( "
  • Line Location: DUPCK+2
Function Call: WRITE
  • Prompt: K_" "
  • Line Location: DUPCK+2
Function Call: READ
  • Variable: LRORG
  • Timeout: DTIME
  • Line Location: DUPCK+3
Function Call: WRITE
  • Prompt: !!?7,$C(7),"Please select a number or '^' ",!
  • Line Location: DUPCK+5
Function Call: WRITE
  • Prompt: !!?10,$C(7)," NO SUCH ISOLATE # FOR THIS ORGANISM ",!!
  • Line Location: DUPCK+6
Function Call: WRITE
  • Prompt: !!?10,"I am sorry, I cannot transfer to this Isolate, ",!," You must MANAULLY EDIT "
  • Line Location: SWITCH+1
Info |  Source |  Entry Points |  Interaction Calls