Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
General Medical Record - IO 2 GMRYED1  GMRYUT3  

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" IVTYP+4, WRITE, WRITE+1
^GMR(126 - [#126] IVTYP+1, IVTYP1+1, SETA

Label References

Name Line Occurrences
HELP QUEST+4, QUEST+7
IVTYP IVTYP+6, IVTYP+7
IVTYP1 IVTYP+1
SELECT SELECT+2
SETA IVTYP1+1
WRITE SELECT+1

Naked Globals

Name Field # of Occurrence
^(0 SETA

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN IVTYP+1, IVTYP1+1, SETA
DTIME IVTYP+5, SELECT+1, QUEST+3
>> GDA IVTYP1+1*
>> GDT IVTYP+1*, IVTYP1+1, SETA
>> GIVDT IVTYP+3*, IVTYP+8*
>> GLABEL IVTYP+6, HELP+1
>> GMRDATA( WRITE, WRITE+1, QUEST+6
>> GMRDC SELECT+1, QUEST+1, QUEST+2, QUEST+3
>> GMRNO SELECT+1*, SELECT+2
>> GMROUT IVTYP+5*, SELECT+1*, QUEST+3*
>> GMRVDT IVTYP+1*, IVTYP+3*, IVTYP+8*
>> GMRVP IVTYP+3*, IVTYP+8*, IVTYP1+1*, SETA
>> GMRVTYP IVTYP1+1
>> GN IVTYP+1*, IVTYP+2, IVTYP+3, IVTYP+4, IVTYP+5, IVTYP+7, SETA*, WRITE, WRITE+1
>> GN( IVTYP+3, IVTYP+4, IVTYP+7, IVTYP+8, SETA*
>> GN(2 QUEST+4*
>> GN(3 QUEST+4
>> GNANS HELP+1
>> GNN SELECT+1, SELECT+2
>> GSITE IVTYP+3*, IVTYP+8*
>> GWRITE IVTYP+1*
>> GX QUEST+3*, QUEST+4, QUEST+5, QUEST+6, QUEST+7*
>> II SELECT+1*
IOF HELP+1
>> JJ IVTYP+1*, IVTYP+4*, IVTYP1+1*
>> X IVTYP+5*, IVTYP+6, IVTYP+7, IVTYP+8
>> Y IVTYP+4*, WRITE*, WRITE+1*
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All