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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMRVED0

Package: General Medical Record - Vitals

Routine: GMRVED0


Information

GMRVED0 ;HIRMFO/RM,YH,FT-VITAL SIGNS EDIT SHORT FORM ;6/13/01 15:44

Source Information

Source file <GMRVED0.m>

Entry Points

Name Comments DBIA/ICR reference
EN2 ; DETERMINE VITALS SITE
A2 ;
A3 ;
EN3 ; CALL IF DFN TO EDIT SINGLE PATIENT VITALS WHERE
; INPUT : DFN= PT FILE PTR.
; GMRSTR=STRING OF VITALS TO EDIT
; where T=Temp, P=Pulse, R=Resp, B=BP,H=Ht., W=Wt.
; GMRVHLOC=HOSP. LOCATION (PTR TO FILE 44)
; GMRVIDT=DATE/TIME VITALS TAKEN
; OUPTUT : GMRVIEN(GMRVTY)=120.5 ENTRY^GMRVREAD^GMRVSITE
; where GMRVTY is the vital type see codes above
; GMRVREAD = READING FOR THIS VITAL TYPE
; GMRVSITE = PTR TO GMR VITALS SITE FILE
; GMROUT WILL BE 1 IF ABNORMAL EXIT, ELSE 0
Q3
DATE ; CALL TO SET GMRVIDT (WHEN THE VITALS WERE TAKEN)
; ALSO RETURNS GMROUT=1 IF TIMEOUT OR UPARROW OUT.
Q ;
Q1 ;
WARDPAT ; SELECT EDIT BY 1. UNIT, 2. SELECTED ROOMS ON UNIT, 3. PATIENT
WP1 ;
WARDSEL ; SELECT SEARCH WARD
PATDAT ;
MULTIVM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: A3+1
Function Call: WRITE
  • Prompt: !,?3,$C(7),"Cannot enter future dates"
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !,?3,$C(7),"Sorry, you cannot enter a date more than 1 year old."
  • Line Location: DATE+5
Function Call: READ
  • Variable: GMREDB
  • Timeout: DTIME
  • Line Location: WARDPAT+1
Function Call: WRITE
  • Prompt: !,$C(7),?5,"INVALID ENTRY ??"
  • Line Location: WARDPAT+4
Function Call: WRITE
  • Prompt: !,*7,"**** NO PATIENTS REGISTERED ON UNIT ",$P(^DIC(42,GMRWARD,0),U)," ****"
  • Line Location: WARDSEL+4
Function Call: WRITE
  • Prompt: !,"Hospital location is required",!
  • Line Location: PATDAT+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DIC(42 - [#42] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call