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

Entry Points

Name Comments DBIA/ICR reference
START
BLNK
B2
QUIT

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

FileMan Files Accessed Via FileMan Db Call

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