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

Package: Surgery

Routine: SROMED


Information

SROMED ;BIR/MAM - ENTER/EDIT MEDICATIONS ;01/30/08

Source Information

Source file <SROMED.m>

Entry Points

Name Comments DBIA/ICR reference
START
FLAG
DIE
END
RET
ROUTE ; check for route of administration
TIME ; check for time
T1
DOSE ; check dosage
D1
SCR(SRFL,SRPK) ; screening for fields point to the DRUG file (#50)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,$C(7),"You must hold the SROEDIT key or the SROANES key to use this option !",!
  • Line Location: SROMED+3
Function Call: READ
  • Formatting: !!
  • Prompt: "ENTER MEDICATION/DOSE(MG)/ROUTE/TIME: "
  • Variable: M
  • Timeout: DTIME
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!,"Enter the medication, dose, route and time, separated by slashes (/).",!,"The Medication and time MUST be included, however the route and dose",!,"can be omitted. i.e. 'MEDICATION/DOSE//TIME' will omit the route."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"Enter '??' to get a list of available drugs.",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"Your answer has a control character in it, please re-type it.",!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,"The Drug '",SRMM,"' does not exist in your Drug file. Please re-enter. "
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!!,"NO ACTION TAKEN",!
  • Line Location: FLAG+0
Function Call: WRITE
  • Prompt: !!!,"MEDICATION ENTERED ...."
  • Line Location: DIE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to Continue. "
  • Variable: Z
  • Timeout: DTIME
  • Line Location: RET+0
Function Call: WRITE
  • Prompt: !!,"Route entered is not one of the available choices.",!,"Please enter medication route again.",!!
  • Line Location: ROUTE+3
Function Call: WRITE
  • Prompt: SRHELP(1,"DIHELP",I),!
  • Line Location: ROUTE+4
Function Call: WRITE
  • Prompt: !!,?5,"Enter the time in one of the following formats:",!,?9,"7:45, 0745, 745, 07:45, Date@Time, or NOW",!!,?5,"Time is required."
  • Line Location: TIME+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter Time: "
  • Variable: SRT
  • Timeout: DTIME
  • Line Location: T1+0
Function Call: WRITE
  • Prompt: !!,"Dosage entered incorrectly."
  • Line Location: DOSE+1
Function Call: WRITE
  • Prompt: !!,"Dosage must be 1 to 15 characters in length, i.e. 15 mg."
  • Line Location: DOSE+2
Function Call: READ
  • Formatting: !!
  • Prompt: "ENTER DOSE: "
  • Variable: SRD1
  • Timeout: DTIME
  • Line Location: D1+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] FIELD^DID
130.34 CHK^DIE,  HELP^DIE
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call