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 |  Local Variables |  All
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>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 ^%DT  FIELD^DID  (,CHK,HELP)^DIE  ^DIR  
Surgery 3 ^SROLOCK  ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  
Pharmacy Data Management 2 DATA^PSS50  MIX^PSSDI  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROANES MED  

Entry Points

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

External References

Name Field # of Occurrence
^%DT TIME+1
FIELD^DID START+9
^DIE DIE
CHK^DIE ROUTE+1
HELP^DIE ROUTE+2
^DIR ROUTE+5
DATA^PSS50 SCR+3
MIX^PSSDI START+5
^SROLOCK SROMED+4
$$LOCK^SROUTL SROMED+5
UNLOCK^SROUTL END
^SRSKILL END

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
  • Prompt: "ENTER MEDICATION/DOSE(MG)/ROUTE/TIME: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: M
  • 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
  • Prompt: "Press RETURN to Continue. "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: Z
  • 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
  • Prompt: "Enter Time: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: SRT
  • 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
  • Prompt: "ENTER DOSE: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: SRD1
  • Line Location: D1+0
Routine Call
  • DIE
  • Line Location:
    • ROUTE+2
Routine Call
  • DIE
  • Line Location:
    • DIE
Routine Call
  • DIE
  • Line Location:
    • ROUTE+1
Routine Call
  • DIR
  • Line Location:
    • ROUTE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] FIELD^DID
130.34 CHK^DIE,  HELP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SCR+2
^TMP($J SCR+1!, SCR+5!, SCR+6!
^XUSEC("SROANES" SROMED+3
^XUSEC("SROEDIT" SROMED+3

Label References

Name Line Occurrences
D1 D1
DOSE START+9, D1
END SROMED+4, SROMED+5, START, START+2, START+3, START+7, START+8, FLAG, T1
FLAG START+9
RET START+2, START+3, START+7, START+8
ROUTE START+9
START START+2, START+3, START+7, START+8, DIE+1
T1 T1
TIME START+9, T1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT TIME+1!*
>> DA DIE*, SCR+2
>> DIE DIE*
DIR ROUTE+5!
DIR("A" ROUTE+5*
DIR(0 ROUTE+5*
DR DIE*!
DR(2 DIE*
DR(3 DIE*
DT START+5, SCR+2
DTIME START, RET, T1, D1
>> DTOUT ROUTE+5
>> DUOUT ROUTE+5
DUZ SROMED+3
>> I ROUTE+4*
IOF START, END
>> M START*, START+1, START+2, START+3
SRD START*, START+5~*, START+9, FLAG, DIE, DOSE+1, DOSE+2, D1!*
>> SRD1 D1*
SRDIC START+5~*
SRDIC(0 START+5*
SRDT SCR+1~, SCR+2*, SCR+3
>> SRF START*, FLAG*, TIME+3*, TIME+4, T1*, DOSE+1*, DOSE+2*, D1*
SRFL SCR~, SCR+2, SCR+3
SRHELP ROUTE+1~
SRHELP(1 ROUTE+4
SRLCK SROMED+5~*, END
>> SRM START*, START+4, START+6*, START+7, DIE
>> SRMM START+4*, START+7, START+8
SRN0 SCR+1~, SCR+2*
SRNODE SCR+1~, SCR+5*
SROK SCR+1~*, SCR+4, SCR+5*, SCR+6*
>> SROLOCK SROMED+4
SRPK SCR~, SCR+4
>> SRQ START*, START+2, START+3, START+7, START+8, RET*
>> SRR START*, START+9, FLAG, DIE, ROUTE+1*, ROUTE+5*, ROUTE+6*
>> SRSMED START*
>> SRT START*, START+9*, FLAG, DIE, TIME+1, TIME+2, TIME+3, T1*
>> SRTN SROMED+4, SROMED+5, START, DIE, END, SCR+2*
SRVALUE ROUTE+1~
>> SRX START+9*
>> SRX("INPUT TR ANSFORM" , START+9
SRY SCR+1~*, SCR+3, SCR+5
>> X START+4*, START+5, START+9*, TIME+1*
>> Y START+6, ROUTE+6, TIME+1, SCR+1
>> Z RET*
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 |  Local Variables |  All