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

Package: General Medical Record - IO

Routine: GMRYUT1


Information

GMRYUT1 ;HIRMFO/YH-PATIENT I/O UTILITIES - IV SEARCH BY TYPE ;2/14/91

Source Information

Source file <GMRYUT1.m>

Entry Points

Name Comments DBIA/ICR reference
IVTYP ;LIST CURRENT IV LINES BY SELECTED IV TYPE
IVTYP1 ;SELECT IV BY TYPE
SETA
SELECT ;SELECT IV TO START OR DC
WRITE
QUEST ;
HELP ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,JJ,". "
  • Line Location: IVTYP+4
Function Call: WRITE
  • Prompt: $P(GN(JJ),"^",4)_" "_$P(GN(JJ),"^",5)_" mls "_$P(GN(JJ),"^",2)_" "_$P(Y,":",1,2)
  • Line Location: IVTYP+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: IVTYP+5
Function Call: WRITE
  • Prompt: !!,"Select the line of "_GLABEL_" which you want to record intake "
  • Line Location: IVTYP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: IVTYP+8
Function Call: READ
  • Variable: GMRNO
  • Timeout: DTIME
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: GMROUT=1
  • Condition for execution: 'GMRDC !,"(i.e., 1 to edit; 1@ to delete; new IV if none selected): " R GMRNO:DTIME S:'$T
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: " DC'ed on ",Y
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+2
Function Call: READ
  • Variable: GX
  • Timeout: DTIME
  • Line Location: QUEST+3
Function Call: WRITE
  • Prompt: "** To edit ... enter a number, i.e., 1",!,"** To delete ... enter a number@, i.e., 1@",!,"** To add ... enter N",?38,"** ^ to quit edit an I/O TYPE",!,"** <RET> RETURN for more listing"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: ?38,"** ^^ to quit the data entry option",!
  • Line Location: HELP+3
Info |  Source |  Entry Points |  Interaction Calls