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

Package: General Medical Record - IO

Routine: GMRYUT6


Information

GMRYUT6 ;HIRMFO/YH-IV SOLUTION SELECT FROM PHARMACY/NURS FILES ;5/13/96

Source Information

Source file <GMRYUT6.m>

Entry Points

Name Comments DBIA/ICR reference
PSSOL ;LIST PATIENT IV SOLUTION FROM PHARMACY ORDER
SEL ;Select from the following pharmacy active IV order(s)
NURSOL ;SELECT FROM NUR SOLUTION FILE
Q
ASK1
ASK3
ASK4
ADDHNG
SITEDES ;SELECT IV SITE DESCRIPTION, CALLED BY DATA ENTRY ROUTINES
ASK2
QL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No pharmacy active IV order for this patient",!
  • Line Location: PSSOL+1
Function Call: WRITE
  • Prompt: !,"pharmacy active IV order for the patient:",!
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !,GMRX_"."_$P(GMRY(GMRX),"^")_" "_$P(GMRY(GMRX),"^",2)_" "_$P(GMRY(+GMRX),"^",4),!
  • Line Location: SEL+1
Function Call: READ
  • Variable: GMRX
  • Timeout: DTIME
  • Line Location: SEL+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK1+0
Function Call: WRITE
  • Prompt: !!,"Enter total amount of solution in mls in the container.",!
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !,"ERROR ENTRY",!
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: !!,"Amount of solution has to be a number between .1 and 9999.",!!
  • Line Location: ASK1+3
Function Call: WRITE
  • Prompt: !!,"The number must be equal to or less than the remaining amount.",!!
  • Line Location: ASK1+4
Function Call: WRITE
  • Prompt: !!,"Only 1 decimal digit allowed",!
  • Line Location: ASK1+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK3+0
Function Call: WRITE
  • Prompt: !,"Enter a number between 1 and 999 or enter <RET> to bypass this entry",!
  • Line Location: ASK3+1
Function Call: WRITE
  • Prompt: !,"Enter the rate at which the infusion is to take place.",!,"For example: a number 125 entered means the infusion rate is 125 mls/hr",!
  • Line Location: ASK3+3
Function Call: WRITE
  • Prompt: " Is it correct "
  • Line Location: ASK4+1
Function Call: WRITE
  • Prompt: !!,"If data is correct, please enter 'Y', else enter 'N' if incorrect.",!
  • Line Location: ASK4+2
Function Call: READ
  • Variable: GMRX
  • Timeout: DTIME
  • Line Location: SITEDES+1
Function Call: WRITE
  • Prompt: !!,"Select an item or a combination of items such as ",!,"1,3-5 to describe the IV site you observe",!
  • Line Location: SITEDES+4
Function Call: WRITE
  • Prompt: !,"The string length is longer than 50 characters!"
  • Line Location: SITEDES+6
Info |  Source |  Entry Points |  Interaction Calls