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

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
General Medical Record - Vitals 5 (ADM,EN1)^GMRVADM  DATE^GMRVED0  (EN1,EN2)^GMRVED2  EN2^GMRVED3  EN3^GMRVED6  
VA FileMan 4 ^%DT  NOW^%DTC  ^DIC  YN^DICN  
Kernel 2 $$FMADD^XLFDT  EN^XQH  
Registration 1 (INP,KVAR)^VADPT  

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

Package Total Caller Graph
General Medical Record - Vitals 19 GMRV ADMISSION V/M  GMRV CHANGE V/M PARAMETERS  GMRV CIRCUMF/GIRTH  GMRV CVP  GMRV EXT B/P  GMRV O2SATURATION  GMRV PAIN  GMRV PULSE  
GMRV TPR B/P ROUTINE  GMRV TPR EXT B/P  GMRV TPR ROUTINE  GMRV TPRBW  GMRV WEIGHT  GMRVALL0  GMRVDS1  GMRVED0  
GMRVED4  GMRVED5  GMRVSR0  
Nursing Service 1 NURCVED0  

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

External References

Name Field # of Occurrence
^%DT DATE+2
NOW^%DTC DATE+4
^DIC WARDSEL+2, PATDAT+1, PATDAT+6
YN^DICN MULTIVM
ADM^GMRVADM PATDAT+4
EN1^GMRVADM A3+1
DATE^GMRVED0 EN2+2
EN1^GMRVED2 A3+2, A3+3
EN2^GMRVED2 A3+2, A3+3
EN2^GMRVED3 A3+1, MULTIVM+1
EN3^GMRVED6 A3+3
INP^VADPT PATDAT+3
KVAR^VADPT Q1+2, PATDAT+3
$$FMADD^XLFDT DATE+5
EN^XQH WARDPAT+3, WP1+1

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
Routine Call
  • DIC
  • Line Location:
    • WARDSEL+2
    • PATDAT+1
    • PATDAT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DIC(42 - [#42] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] WP1+1
^DIC(42 - [#42] WARDSEL+4, WARDSEL+5, PATDAT+6
^DPT("CN" WARDSEL+3
^SC - [#44] PATDAT+6
^TMP($J Q+3!

Label References

Name Line Occurrences
A3 A3+1, EN3+13
DATE DATE+4, DATE+5, MULTIVM+1
MULTIVM A3+1, MULTIVMMULTIVM+1
PATDAT A3+1, WP1+2
Q EN2+3, A3+1, A3+2, A3+3
Q1 Q3Q+1
Q3 EN3+12
WARDPAT EN2+3, WARDPAT+3, WARDPAT+4, WP1+1
WARDSEL WP1+1
WP1 WARDPAT+2

Naked Globals

Name Field # of Occurrence
^(0 PATDAT+6
^(44 WARDSEL+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DATE+4, Q1+1!, MULTIVM*
%DT DATE+2*!, Q1+1!
%DT("A" DATE+2*
%H Q1+1!
%T Q1+1!
DA Q1+1!
DFN EN3+11, Q+3!, WARDSEL+3*, WARDSEL+4, PATDAT+1*, PATDAT+2
DIC Q1+1!, WARDSEL+1*, WARDSEL+2!, PATDAT+1*!, PATDAT+6*!
DIC("A" PATDAT+6*
DIC("B" PATDAT+6*
DIC("S" WARDSEL+1*, PATDAT+6*
DIC(0 WARDSEL+1*, PATDAT+1*, PATDAT+6*
DIE Q1+1!
DIPGM Q1+2!
DQ Q1+1!
DR Q1+1!
DT DATE+5
DTIME WARDPAT+1
GCT Q1+2!
GDA Q1+2!
GDATA Q1+2!
GDT A3+1*, Q1+1!, PATDAT+4*
GDT(1 EN2+3*, A3+1
GENTR Q1+1!, PATDAT+4*
GLAST Q1+2!
GMRDAT Q1+1!
GMRDATE Q1+1!
GMRDT0 A3+1*, Q1+2!, MULTIVM+1*
GMREDB A3+1, A3+2, A3+3, EN3+13*, Q3!, Q+3!, WARDPAT+1*, WARDPAT+2, WARDPAT+3, WP1+1
PATDAT+4
GMRENTY EN2+1, A2+2, A2+3, A2+4, Q3!, Q+3!
GMRHELP Q1+1!
GMRI Q1+1!
GMRINPTR Q1+1!
GMRLEN Q1+1!
GMRMSL Q1+1!
GMRNAM Q1+1!
GMROK Q1+1!
GMROUT EN2+1*, EN2+2!, EN2+3*, A3+1, EN3+12*, DATE+3*, Q+3!, WARDPAT+1*, WP1+1, WARDSEL+2*
WARDSEL+4*, PATDAT+2*, PATDAT+4*, PATDAT+7*, MULTIVMMULTIVM+1, MULTIVM+2*
GMROV Q1+2!
GMRP Q1+2!
GMRPRMT Q1+1!
GMRQUAL Q1+2!
GMRRET Q1+1!
GMRRMBD Q1+1!
GMRRMST Q1+1!
GMRROOM Q1+1!
GMRS Q1+1!
GMRSCR Q1+1!
GMRSITE Q1+1!
GMRSTR A2+1, A2+2*, A2+3*, A2+4*, A2+5, EN3+11, Q+3!
GMRTMP EN2+1!, EN3+12*, Q3!, Q+1, Q1+1!
GMRTO Q1+1!
GMRTY Q1+1!
GMRTYPE Q1+2!
>> GMRVDBA EN2+1
GMRVHLOC Q+3!, WARDSEL+5*, PATDAT+8*
GMRVIDT EN2+1*, EN2+2, EN2+3, A3+1*, EN3+11, DATE+6*, Q+2!, PATDAT+4, MULTIVM+1
GMRVIDT(0 EN2+1*, EN2+2*
GMRVIT Q1+1!
GMRVITY Q1+1!
GMRVWLOC EN2+3*, Q1+1!, PATDAT+5
GMRVX Q1+1!
GMRWARD Q1+1!, WP1+1, WARDSEL+3*, WARDSEL+4, WARDSEL+5, PATDAT+3*, PATDAT+4, PATDAT+6
GMRWARD(1 WARDSEL+3*, PATDAT+3*
GMRX Q1+1!
GMRY Q1+1!
>> GNUROP EN3+14
GTYPE Q1+2!
POP DATE+6!, Q1+1!
U EN2+1, DATE+2, DATE+3, WARDPAT+1, WARDSEL+2, WARDSEL+3, WARDSEL+4, WARDSEL+5, PATDAT+3, PATDAT+6
VA Q1+2!, PATDAT+3!
>> VAIN(4 PATDAT+3
>> X DATE+2*, DATE+3, WARDSEL+2
XQH WARDPAT+3*!, WP1+1*!
>> Y DATE+3, DATE+4, DATE+5, DATE+6, WARDSEL+2, WARDSEL+3, PATDAT+1, PATDAT+7, PATDAT+8
>> Y(0 WARDSEL+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All