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

Package: General Medical Record - IO

Routine: GMRYSTCA


Information

GMRYSTCA ;HIRMFO/YH-IV SITE AND CATHETER SELECTION ;3/1/96

Source Information

Source file <GMRYSTCA.m>

Entry Points

Name Comments DBIA/ICR reference
SITECATH ;ENTER INFUSION SITE/CATH TYPE
ENTER
YN
FINDPORT(JJ) ;
PORT
CATH(II) ;
LISTC

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SITECATH+4
Function Call: WRITE
  • Prompt: ": "
  • Line Location: SITECATH+4
Function Call: WRITE
  • Prompt: !!,"Enter the number of the site you want and a L for LEFT/R for RIGHT after",!,"the number. The default is L(eft).",!,"For example, 1L or 1 is LEFT HAND, 1R is RIGHT HAND.",!
  • Line Location: SITECATH+6
Function Call: WRITE
  • Prompt: !,GHOLD(1)_" "_GHOLD(3)
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !!,"Enter N(o) if the data is not correct.",!
  • Condition for execution: %=0
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PORT+0
Function Call: WRITE
  • Prompt: !,I_" "_$P(GMRPORT(I),"^",2)
  • Line Location: PORT+0
Function Call: READ
  • Variable: JJ(2)
  • Timeout: DTIME
  • Line Location: PORT+1
Function Call: WRITE
  • Prompt: !,"ERROR ENTRY!"
  • Line Location: PORT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LISTC+1
Function Call: WRITE
  • Prompt: !,"Enter a number between 1 and "_GMRN
  • Line Location: LISTC+2
Info |  Source |  Entry Points |  Interaction Calls