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

Package: General Medical Record - Vitals

Routine: GMRVEE2


Information

GMRVEE2 ;HIRMFO/YH-ENTERED IN ERROR EDIT (cont.) ;2/6/99

Source Information

Source file <GMRVEE2.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTER NEW DATE/TIME VITALS TAKEN
EN2 ; ENTER NEW READING
ERRAT
Q1
Q
EN3 ; SELECT NEW PATIENT FOR VITALS
DUPREC ;PRINT WARNING MESSAGE IF THE DATE/TIME CHANGE WILL CAUSE DUPLICATE RECORD
CHKER ;
DUPDT ;SET EXISTING OLD VITAL AS ERROR RECORD
PRTEED ; PRINT ERROR RECORD
RDSITE(X) ; THIS FUNCTION CONVERTS A VITAL DATA ENTRY IN X TO A SITE AND
; A READING. IT RETURNS SITE^READING.

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ERRAT+0
Function Call: WRITE
  • Prompt: !!,"NEW "_$S($P(GMRVIT(1),"^")'="":$P(GMRVIT(1),"^"),1:"VALUE")_": " R X:DTIME S:'$T
  • Line Location: ERRAT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ERRAT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ERRAT+0
Function Call: WRITE
  • Prompt: !,"NO UPDATING HAS OCCURRED",!
  • Line Location: ERRAT+3
Function Call: WRITE
  • Prompt: !,?3,$C(7),"INVALID ENTRY??"
  • Line Location: ERRAT+5
Function Call: WRITE
  • Prompt: !,"NO UPDATING HAS OCCURRED",!
  • Line Location: ERRAT+11
Function Call: WRITE
  • Prompt: !,?3,$C(7),"INVALID ENTRY??"
  • Line Location: ERRAT+13
Function Call: WRITE
  • Prompt: !,$P($S($D(^GMRD(120.51,GVIT,0)):^(0),1:0),"^")," already exists on ",Y," reading - ",$P(^GMR(120.5,GDA,0),"^",8)
  • Line Location: CHKER+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTEED+13
Function Call: WRITE
  • Prompt: " No pain"
  • Line Location: PRTEED+16
Function Call: WRITE
  • Prompt: " Unable to respond"
  • Line Location: PRTEED+17
Function Call: WRITE
  • Prompt: " Worst imaginable to respond"
  • Line Location: PRTEED+18
Function Call: WRITE
  • Prompt: " ",GMRZZ
  • Line Location: PRTEED+19

FileMan Files Accessed Via FileMan Db Call

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