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: LAMICRA

Package: Automated Lab Instruments

Routine: LAMICRA


Information

LAMICRA ;SLC/DLG - VITEK AUTOINSTRUMENT LOAD OF SPECIAL CHARACTERS. ;7/20/90 09:36 ;

Source Information

Source file <LAMICRA.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 ^DIC  YN^DICN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Lab Instruments 1 LA MI SPECIAL CHARCTER LOAD  

Entry Points

Name Comments DBIA/ICR reference
START
BLNK
B2
QUIT

External References

Name Field # of Occurrence
^DIC START, START+1
YN^DICN B2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @$S($D(IOF):IOF,1:"#"),?5,"THIS ROUTINE ADDS DRUG CODES TO VITEK AUTOINSTRUMENT ENTRIES THAT"
  • Line Location: LAMICRA+2
Function Call: WRITE
  • Prompt: !,"COULD NOT BE ADDED THRU FILEMAN OR YOU WANT TO CHANGE.",!,?30,"NOTE",!,"THE DRUG MUST ALREADY HAVE BEEN ADDED TO FILE",!
  • Line Location: LAMICRA+3
Function Call: WRITE
  • Prompt: "ALL DRUG ENTRIES FOR A CARD TYPE WILL BE PROMPTED.",!,"IF YOU ENTER AN '^' YOU WILL BE ASKED IF YOU WANT TO EXIT."
  • Line Location: LAMICRA+4
Function Call: WRITE
  • Prompt: !?5,"ANSWER YES AND THE PROGRAM STOPS PROMPTING DRUGS FOR THAT CARD.",!?5,"ANSWER NO AND THE '^' WILL BE ADDED AS THE CODE FOR THAT DRUG.",!?5,"TAKE NOTE THAT A PRINTOUT OF THE DRUG CODES WILL NOT SHOW THE '^' CODE.",!
  • Line Location: LAMICRA+5
Function Call: WRITE
  • Prompt: "NOT VALID CARD TYPE TRY AGAIN.",!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,"CARD TYPE "_LACARDC_" "_LACARDN_" AND DRUG ",LADRUG," HAS CODE ",LACODEO,"//"
  • Line Location: BLNK+2
Function Call: WRITE
  • Prompt: "OK, NOTHING ADDED OR CHANGED.",!
  • Line Location: BLNK+3
Function Call: WRITE
  • Prompt: $C(7),?10,"DO YOU WANT TO EXIT"
  • Line Location: B2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: B2+0
Function Call: WRITE
  • Prompt: "ENTER YES TO STOP CHECKING DRUGS. NO TO CONTINUE AND ADD '^' AS A VALID CODE.",!
  • Line Location: B2+1
Function Call: WRITE
  • Prompt: "OLD CODE ",LACODEO," DELETED FROM CROSS REFERENCE.",!
  • Line Location: B2+2
Function Call: WRITE
  • Prompt: "CODE ",LACODE,$P("^ NOT","^",LACODE="^"+1)," STORED IN GLOBAL NODE.",!
  • Line Location: B2+3
Function Call: WRITE
  • Prompt: "CODE ",LACODE," ADDED TO CROSS REFERENCE.",!
  • Line Location: B2+5
Routine Call
  • DIC
  • Line Location:
    • START
    • START+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(62.06 - [#62.06] BLNK
^LAB(62.4 - [#62.4] START+3, BLNK, BLNK+1, B2+2!, B2+3*, B2+4*

Label References

Name Line Occurrences
B2 B2+1
BLNK START+3
QUIT START
START START+1, START+4

Naked Globals

Name Field # of Occurrence
^(0 BLNK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+3*, B2*, B2+1, QUIT!
>> DIC START*, START+1*
>> DIC(0 START*
DLAYGO START*, START+1!, QUIT!
DTIME BLNK+2
I START+3*, QUIT!
IOF LAMICRA+2
LACARD START+2*, START+3, BLNK, BLNK+1, B2+2, B2+3, B2+4, QUIT!
LACARDC START+2*, BLNK+2, QUIT!
LACARDN START+2*, BLNK+2, QUIT!
LACODE BLNK+2*, BLNK+3, B2, B2+3, B2+4, B2+5, QUIT!
LACODEO BLNK*, BLNK+1*, BLNK+2, B2+2, QUIT!
LADRUG BLNK*, BLNK+2, QUIT!
LAINST START*, START+1, START+3, BLNK, BLNK+1, B2+2, B2+3, B2+4, QUIT!
N START+3*, BLNK, B2+3, B2+4, QUIT!
Y START, START+1, START+2, QUIT!
Y(0 START+2
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