Routine: GMRYED1

Information

GMRYED1 ;HIRMFO/YH-ENTER/EDIT PATIENT INTAKE/OUTPUT ;1/17/97

Source Information

Source file <GMRYED1.m>

Caller Graph

Legends:

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 Total: 1

Package	Total	Caller Graph
Nursing Service	1	NURCYED0

Entry Points

Name	Comments	DBIA/ICR reference
EN1	;ENTER/EDIT OUTPUT
OUTPUT	;
LIST
Q1
YN1
EN2	;ENTER/EDIT INTAKE
INPUT
LIST2
QUES2
Q2
YN
INTAKE
IV
NOGNIV	;ENTER/EDIT NON-IV INTAKE
SETARY
VALIDAT	;
VAL1	;
VAL2	;
EN3	;START NEW IV
Q3
STARTIV	;START IV IF NO IV RUNGNING

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?3,GNN,?10,$P(GNN(GNN),"^") Line Location: LIST+0
Function Call: WRITE	Prompt: !,"NO OUTPUT FILE!!!",! Line Location: LIST+1
Function Call: READ	Variable: GNI Timeout: DTIME Line Location: LIST+2
Function Call: WRITE	Prompt: !!,"Select the number(s) you want to enter/edit data",! Line Location: LIST+2
Function Call: WRITE	Prompt: !,"Enter output: ",GLABEL,! Line Location: LIST+5
Function Call: WRITE	Prompt: !,"Do you want to enter another output" Line Location: YN1+0
Function Call: WRITE	Prompt: !,?43,"Detailed input from "_(GMRYITM+1)_" to "_GNN Line Location: LIST2+0
Function Call: WRITE	Prompt: !,?3,GNI,?10,$P(GNN(GNI),"^") Line Location: LIST2+0
Function Call: WRITE	Prompt: ?43,(GMRYITM+GNI),?50,$P(GNN(GMRYITM+GNI),"^") Condition for execution: $D(GNN(GMRYITM+GNI)) Line Location: LIST2+0
Function Call: READ	Variable: GNI Timeout: DTIME Line Location: QUES2+0
Function Call: WRITE	Prompt: !!,"Select the number(s) you want to enter/edit data",! Line Location: QUES2+0
Function Call: WRITE	Prompt: !,"Enter intake: ",GLABEL,! Line Location: QUES2+2
Function Call: WRITE	Prompt: !,"Do you want to enter OUTPUT" Line Location: YN+0
Function Call: WRITE	Prompt: !!,"Do you want to go on to enter/edit output for this patient?",!! Condition for execution: %=0 Line Location: YN+0
Function Call: WRITE	Prompt: ! Line Location: YN+0
Function Call: WRITE	Prompt: !!,"Enter IV INTAKE for ",GSOL_" "_GMRVTYP_" ",GSITE_" "_GVOL_" mls "_GRATE,!,?10,GTXT_" @"_$P(Y,":",1,2) Line Location: IV+1
Function Call: WRITE	Prompt: !!,"Enter INTAKE for another IV" Line Location: IV+2
Function Call: WRITE	Prompt: !,?5,"Do you want to start a(n) "_GLABEL Line Location: STARTIV+1
Function Call: WRITE	Prompt: !,?5,"You have to start a line of "_GLABEL_" before you record intake.",! Line Location: STARTIV+3

Customize PDF page

Package: General Medical Record - IO