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

Package: General Medical Record - Vitals

Routine: GMRVED3

Information

GMRVED3 ;HIRMFO/YH,FT-VITAL SIGNS EDIT SHORT FORM (cont.) ;6/28/01 14:42

Source Information

Source file <GMRVED3.m>

Entry Points

Name	Comments	DBIA/ICR reference
EN2	;VITAL ENTRY FOR A PATIENT
NEXT
ASK
SETBP	;
CHKDAT	;CHECK V/M ENTRY DATA
INPTR	;
INPTR1	;
A
A1
WDUP	;
SITE	;
CHKBP	; Check for Method of BP for Systolic Value only
RESET(GMRVOD,GMRVFLG,GMY)	; Reset GMY after removal of METHOD
HTCHK(X)	; Check ' and " symbols in height entry ; input - X (the height entry) ; output - 0 means there is a problem with the single or double quotes ; 1 means the single and double quotes are fine

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: GMRX Timeout: DTIME Line Location: ASK+1
Function Call: WRITE	Prompt: !,"Enter another B/P? NO// " Line Location: ASK+1
Function Call: WRITE	Prompt: @IOF,GPRMT Line Location: ASK+3
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO, maximum 6 B/Ps ",*7 Line Location: ASK+4
Function Call: WRITE	Prompt: !,?5,$C(7),"Invalid ",GMRVIT(1)," entry" Line Location: A+0
Function Call: WRITE	Prompt: !,GMRVIT(1)_": " Line Location: A1+0
Function Call: WRITE	Prompt: $C(7),!,?4,GMRVIT(1)_" data already exists for this patient on this date/time.",!,?4,"To change this data use the enter a vital/measurement in error option.",! Line Location: WDUP+1
Function Call: WRITE	Prompt: !,"Missing diastolic data!",! Line Location: SITE+5
Function Call: WRITE	Prompt: ! Line Location: SITE+5
Function Call: WRITE	Prompt: !,"Missing diastolic data!",! Line Location: SITE+9
Function Call: WRITE	Prompt: ! Line Location: SITE+9

Info | Source | Entry Points | Interaction Calls