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

Package: General Medical Record - IO

Routine: GMRYDIR


Information

GMRYDIR ;HIRNFO/YH-REPLACE...WITH ;12/14/95

Source Information

Source file <GMRYDIR.m>

Entry Points

Name Comments DBIA/ICR reference
RW(STRING,LEN) ; Replace...With...
A
H
E2
C
B
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,STRING,!
  • Line Location: RW+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(7),$S($L(Y)-L'>LEN:" String too long by "_($L(Y)-L+$L(X)-LEN)_" character(s)",X'=U:" String too long! '^' to quit",1:" ??")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"Entry must be lesser than "_LEN_" characters",!
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !?3
  • Line Location: B+0
Function Call: WRITE
  • Prompt: X
  • Line Location: B+0
Info |  Source |  Entry Points |  Interaction Calls