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

Package: General Medical Record - IO

Routine: GMRYED4


Information

GMRYED4 ;HIRMFO/YH - INTRAVENOUS INFUSION PROTOCOL ;10/16/96

Source Information

Source file <GMRYED4.m>

Entry Points

Name Comments DBIA/ICR reference
HANG ;DC CURRENT SOLUTION/ADD THE SAME SOLUTION - CONTINUED
ADD
RATE
RATE1
QUICK
SELSITE ;SELECT IV SITE TO EDIT
SEL
CHCKDC
LISTQUES ;
HELP
LISTOP ;
QUES ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Last reading for AMOUNT LEFT is "_$P(^GMR(126,DA(1),"IV",DA,"IN",GGDA,0),"^",2)_" mls"
  • Line Location: HANG+5
Function Call: WRITE
  • Prompt: !,"Total solution absorbed for this bottle: "_$S($P(^GMR(126,DA(1),"IV",DA,"IN",GGDA,0),"^",2)["*":"UNKNOWN",1:($P(GDATA,"^",5)-GTOTAL)_" mls"),!
  • Line Location: HANG+11
Function Call: WRITE
  • Prompt: !,"DC canceled!!!",!
  • Line Location: ADD+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RATE+0
Function Call: WRITE
  • Prompt: !,"Infusion rate(ml/hr)"_$S(GMRZ(3)'="":" "_GMRZ(3)_" //",1:": ") S X="" R X:DTIME Q:'$T!(X["^")
  • Line Location: RATE+0
Function Call: WRITE
  • Prompt: !,"IV is defined as IV line/port/lock",!
  • Line Location: LISTQUES+1
Function Call: WRITE
  • Prompt: !,$P(GMRW,"^"),!,?5,$P(GMRW,"^",3)
  • Line Location: LISTQUES+1
Function Call: WRITE
  • Prompt: !!,"Enter a number between 0 and 999 at which the infusion takes place",!,"0 means that the rate is UNKNOWN",!
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,$P(GMRW,"^")
  • Line Location: LISTOP+1
Info |  Source |  Entry Points |  Interaction Calls