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

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
General Medical Record - Vitals 7 EN1^GMRVADM  ($$WRITECH,CHAR)^GMRVCHAR  ERREN^GMRVEE1  (CLEAR,LISTQ,OTHERQ)^GMRVQUAL  EN1^GMRVSAS0  (TPSITE,WTYPE)^GMRVUT1  O2^GMRVUT3  
VA FileMan 3 ^%DT  ^DIC  DT^DIQ  
Kernel 1 $$UP^XLFSTR  

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

Package Total Caller Graph
General Medical Record - Vitals 1 GMRVEE1  

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.

External References

Name Field # of Occurrence
^%DT EN1+1
^DIC EN3+1
DT^DIQ PRTEED+13
EN1^GMRVADM EN2+2
$$WRITECH^GMRVCHAR PRTEED+3
CHAR^GMRVCHAR PRTEED+3
ERREN^GMRVEE1 DUPDT+1
CLEAR^GMRVQUAL ERRAT+10, Q
LISTQ^GMRVQUAL ERRAT+6, ERRAT+10
OTHERQ^GMRVQUAL ERRAT+6, ERRAT+10
EN1^GMRVSAS0 PRTEED+2
TPSITE^GMRVUT1 ERRAT+2, ERRAT+12
WTYPE^GMRVUT1 ERRAT+11
O2^GMRVUT3 ERRAT+8
$$UP^XLFSTR ERRAT+2

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
Routine Call
  • DIC
  • Line Location:
    • EN3+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.5 - [#120.5] DUPREC+1, CHKER+1, DUPDT+1, PRTEED+1, PRTEED+3
^GMRD(120.51 - [#120.51] EN2+1, CHKER+1, PRTEED+2

Label References

Name Line Occurrences
$$RDSITE ERRAT+2
@( ERRAT+1
CHKER DUPREC+1
ERRAT ERRAT+1, ERRAT+4, ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+11, ERRAT+12, ERRAT+13
Q EN2+2, ERRAT, ERRAT+7, ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+12, ERRAT+13, Q1
Q1 ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+12

Naked Globals

Name Field # of Occurrence
^(0 EN2+1, CHKER+1, PRTEED+2
^(1 EN2+1, PRTEED+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN1+1*!
%DT("A" EN1+1*
%DT(0 EN1+1*
>> DFN DUPREC+1, CHKER+1, DUPDT+1
DIC EN3+1*!
DIC("A" EN3+1*
DIC(0 EN3+1*
DTIME ERRAT
>> DTOUT EN3+1
>> DUOUT EN3+1
GDA DUPREC+2!, CHKER+1*
>> GDATE DUPREC+1, CHKER+1, DUPDT+1
>> GDT EN2+2*
GII DUPREC+1*, DUPREC+2!
>> GLVL EN2+1*
>> GMRAINP EN2+1*, ERRAT+5, ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+12, ERRAT+13, PRTEED+2*
>> GMRARTY( DUPREC+1
>> GMRARTY(0 PRTEED+13
>> GMRCHC(1 EN1+1*
>> GMRCHC(2 Q1*
>> GMRCHC(3 EN3+1*
>> GMRDA DUPDT+1*, PRTEED+1, PRTEED+3
>> GMRDAT PRTEED+1*, PRTEED+2, PRTEED+10, PRTEED+13, PRTEED+14
>> GMRENTY EN2+1*
>> GMRINF( ERRAT+6!
>> GMRINF("GMRVITY" ERRAT+8*, ERRAT+9*
>> GMRO2( EN2+1*
>> GMROUT EN1+1*, EN2+2, ERRAT*, ERRAT+3*, ERRAT+7, ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+11*, ERRAT+12
, ERRAT+13, Q1, EN3+1*, CHKER+1*
>> GMRSITE ERRAT+2*, ERRAT+3*, ERRAT+11*, ERRAT+12*
>> GMRSITE( ERRAT+3, ERRAT+6!, ERRAT+8*, ERRAT+9*, ERRAT+11
>> GMRTY EN2+1*, ERRAT+1, ERRAT+2, ERRAT+3, ERRAT+4, ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+11, PRTEED+2*
, PRTEED+14, PRTEED+15
GMRVARY PRTEED+3!*
>> GMRVIDT EN2+2
>> GMRVIT EN2+1*
>> GMRVIT(1 EN2+1*, ERRAT
>> GMRVITY EN2+1*, ERRAT+3, ERRAT+6, ERRAT+8, ERRAT+9, ERRAT+11, ERRAT+12, Q*
GMRVPO PRTEED+10~*, PRTEED+11
>> GMRVX PRTEED+2*, PRTEED+4, PRTEED+5, PRTEED+6, PRTEED+7, PRTEED+8, PRTEED+9, PRTEED+19
>> GMRVX(0 PRTEED+2*, PRTEED+4*, PRTEED+5*, PRTEED+6*, PRTEED+7*, PRTEED+8*, PRTEED+9, PRTEED+11*, PRTEED+14, PRTEED+16
, PRTEED+17, PRTEED+18
>> GMRVX(1 PRTEED+2*, PRTEED+14
>> GMRX EN2+1, PRTEED+2, PRTEED+3, PRTEED+13
>> GMRY DUPDT+1
>> GMRZZ PRTEED+3*, PRTEED+19
>> GMRZZ(1 PRTEED+3*
GOPT ERRAT+1*!
GSAVE EN2+1*, Q!
GVIT DUPREC+1*, DUPREC+2!, CHKER+1
I RDSITE+2~, RDSITE+4*
READ RDSITE+2~, RDSITE+5*, RDSITE+6
SITE RDSITE+2~, RDSITE+5*, RDSITE+6
U ERRAT+2, PRTEED+2, PRTEED+14
X EN1+1, ERRAT*, ERRAT+1, ERRAT+2*, ERRAT+4, ERRAT+5, ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+11
, ERRAT+12*, ERRAT+13, Q1, RDSITE~, RDSITE+3, RDSITE+4, RDSITE+5
Y EN1+1, EN3+1, CHKER+1, PRTEED+13*, RDSITE+2~, RDSITE+3*, RDSITE+4
Z RDSITE+2~, RDSITE+4*, RDSITE+5
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