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

Package: General Medical Record - IO

Routine: GMRYUT10


Information

GMRYUT10 ;HIRMFO/YH-IV RESTART ;6/11/93

Source Information

Source file <GMRYUT10.m>

Entry Points

Name Comments DBIA/ICR reference
OTHRSOL ;ENTER OTHER NAME OF SOLUTION
YN
EDTSOL ;
YN2
RESTART ;RESTART IV
SEARCH ;SEARCH THE IV STARTED WITHIN 24 HRS DC'D WITHIN 8 HRS
SCREEN
SAVE
WRITE
YN1
WRT
SET
ASK
ASK2
RESET ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OTHRSOL+1
Function Call: WRITE
  • Prompt: !,"Enter the name of this IV solution or ^ to quit",!
  • Line Location: OTHRSOL+2
Function Call: WRITE
  • Prompt: !,X_" "
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !!,"Enter Y(es) or N(o) to confirm your entry is correct or not.",!
  • Condition for execution: %=0
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !,"Enter additional vitamins/electrolytes using a ; to separate additives",!
  • Line Location: EDTSOL+1
Function Call: WRITE
  • Prompt: !,$P(Y(0),"^")_" "
  • Line Location: YN2+0
Function Call: WRITE
  • Prompt: !!,"Enter Y(es) or N(o) to confirm your entry is correct or not.",!
  • Condition for execution: %=0
  • Line Location: YN2+0
Function Call: WRITE
  • Prompt: !!,"There are no IVs in the database for this patient!",!
  • Line Location: SEARCH+1
Function Call: WRITE
  • Prompt: !!,"Select one of the following IV(s) to restart",!
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: !,I_". "
  • Line Location: WRITE+0
Function Call: READ
  • Variable: I
  • Timeout: DTIME
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: @IOF,!!,"Enter the number of the IV solution you want to restart",!
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: YN1+1
Function Call: WRITE
  • Prompt: !,?4,"started on "_$P(Y,":",1,2)
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: !,?4,"DC'd on "_$P(Y,":",1,2)_" "_$P(GMRXX(I),"^",9)_" ml left",!,?4,"DC reason: "_$P(GMRXX(I),"^",8)
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: !!,"Undefined value in the record.",!!
  • Line Location: ASK2+9
Info |  Source |  Entry Points |  Interaction Calls