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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMRVED1

Package: General Medical Record - Vitals

Routine: GMRVED1


Information

GMRVED1 ;HIRMFO/RM,YH-VITAL SIGNS EDIT SHORT FORM (cont.) ;3/14/99 15:11

Source Information

Source file <GMRVED1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
General Medical Record - Vitals 6 SETPRMT^GMRVED2  CHKDAT^GMRVED3  DSPOV^GMRVED4  $$EN2^GMRVED6  EN1^GMRVSAS0  CHECK^GMRVUT1  
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 GMRVED3  

Entry Points

Name Comments DBIA/ICR reference
EN2 ; ENTRY FROM GMRVED0 TO ENTER THE DATA FOR A PATIENT DEFINED BY DFN
CHANGE
ASK ;
STAR
ASK1 ;
AR1
CHKSTR ; CHECK THE INPUT STRING TO SEE IF IT IS VALID
WRT ;
WOK ;
CHKDAT ;

External References

Name Field # of Occurrence
SETPRMT^GMRVED2 CHANGE
CHKDAT^GMRVED3 CHKDAT+1
DSPOV^GMRVED4 EN2+1
$$EN2^GMRVED6 ASK+7
EN1^GMRVSAS0 WOK+8
CHECK^GMRVUT1 ASK+1, ASK+2, ASK+3
$$UP^XLFSTR WOK+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Enter an * for the specific value when documenting the reason for omission.",!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: "Enter a single * to document that all measurements were omitted and the",!,"reason for omission."
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,GMRPRMT
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,$C(7),"NO DATA ENTERED",!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !!,$C(7),"ERRONEOUS ENTRY",!
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !
  • Line Location: STAR+1
Function Call: WRITE
  • Prompt: !,$C(7),"NO DATA ENTERED",!
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !,"Is this correct? YES// "
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: !,$C(7),"DATA DELETED",!
  • Line Location: ASK1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK1+4
Function Call: WRITE
  • Prompt: !,"ANSWER YES OR NO",*7
  • Line Location: ASK1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: AR1+0
Function Call: WRITE
  • Prompt: !,?2,$S(GMRX="BP":"B/P",GMRX="P":"Pulse",GMRX="R":"Resp.",GMRX="T":"Temp.",GMRX="HT":"Ht.",GMRX="CG":"Circumference/Girth",GMRX="WT":"Wt.",GMRX="PO2":"Pulse Ox.",GMRX="PN":"Pain",1:GMRX)_": "_GMRDAT(GMRX)
  • Line Location: WOK+2
Function Call: WRITE
  • Prompt: "*"
  • Line Location: WOK+3
Function Call: WRITE
  • Prompt: " "_I(1)
  • Line Location: WOK+5
Function Call: WRITE
  • Prompt: !,?2,GMRX_": "_GMRDAT(GMRX)
  • Line Location: WOK+7
Function Call: WRITE
  • Prompt: !,?2,$S(GMRX="BP":"B/P",GMRX="P":"Pulse",GMRX="R":"Resp.",GMRX="T":"Temp.",GMRX="HT":"Ht.",GMRX="CG":"Circumference/Girth",GMRX="WT":"Wt.",GMRX="PO2":"Pulse Ox.",GMRX="PN":"Pain",1:GMRX)_": "
  • Line Location: WOK+10
Function Call: WRITE
  • Prompt: $S(GMRX="BP"!(GMRX="P")!(GMRX="R"):GMRDAT(GMRX),1:"")
  • Line Location: WOK+11
Function Call: WRITE
  • Prompt: GMRDAT(GMRX)
  • Line Location: WOK+13
Function Call: WRITE
  • Prompt: GMRDAT(GMRX)_" No pain"
  • Line Location: WOK+14
Function Call: WRITE
  • Prompt: GMRDAT(GMRX)_" Unable to respond"
  • Line Location: WOK+15
Function Call: WRITE
  • Prompt: GMRDAT(GMRX)_" - Worst imaginable pain"
  • Line Location: WOK+16
Function Call: WRITE
  • Prompt: GMRDAT(GMRX)
  • Line Location: WOK+17
Function Call: WRITE
  • Prompt: GMRVX(0)_" F ("_$J(+GMRVX(0)-32*5/9,0,1)_" C)"
  • Line Location: WOK+18
Function Call: WRITE
  • Prompt: GMRVX(0)_" LB ("_$J(GMRVX(0)/2.2,0,2)_" KG)"
  • Line Location: WOK+19
Function Call: WRITE
  • Prompt: $S(GMRVX(0)\12:GMRVX(0)\12_" FT ",1:"")_$S(GMRVX(0)#12:GMRVX(0)#12_" IN",1:"")_" ("_$J(GMRVX(0)*2.54,0,2)_" CM)"
  • Line Location: WOK+20
Function Call: WRITE
  • Prompt: GMRVX(0)_" IN ("_$J(+GMRVX(0)/.3937,0,2)_" CM)"
  • Line Location: WOK+21
Function Call: WRITE
  • Prompt: GMRVX(0)_" cmH2O ("_$J(GMRVX(0)/1.36,0,1)_" mmHg)"
  • Line Location: WOK+22
Function Call: WRITE
  • Prompt: $S('$D(GMRVX(1)):"",'GMRVX(1):"",1:"*")
  • Line Location: WOK+24
Function Call: WRITE
  • Prompt: " "_$P($G(GMRSITE(GMRX)),"^")
  • Line Location: WOK+25
Function Call: WRITE
  • Prompt: " "_I(1)
  • Line Location: WOK+26

Label References

Name Line Occurrences
@( WRT+1
AR1 ASK1+5
ASK ASK+9, ASK+11, ASK1+4
ASK1 ASK1+6
CHKDAT ASK+12
CHKSTR ASK+10
STAR ASK+8
WOK STAR+3
WRT CHKSTR+8, CHKSTR+11, CHKSTR+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DTIME ASK+3, ASK1+2
>> GBP( ASK1+4!
>> GLINE ASK+1*, ASK+2*, ASK+3*
>> GMRDAT ASK+3*, ASK+4, ASK+6, ASK+7, ASK+8, ASK+9, STAR+2, CHKSTR+3*, CHKSTR+4*, CHKSTR+5
CHKSTR+6, CHKSTR+8, WRT+1
>> GMRDAT( STAR+2*, STAR+3, WOK+1, WOK+2, WOK+3, WOK+7, WOK+8, WOK+9, WOK+11, WOK+13
WOK+14, WOK+15, WOK+16, WOK+17
>> GMRDAT(0 STAR+1*, STAR+3*, ASK1+1
>> GMRENTY EN2+1, ASK+9, CHKSTR+3, CHKSTR+5, CHKSTR+7, CHKSTR+8
>> GMRHELP CHANGE*, WRT+1
>> GMRHELP(1 CHANGE*, WRT+1
>> GMRINF( WOK+5, WOK+26
>> GMRO2( WOK+23
>> GMROUT ASK+1, ASK+4*, ASK+6*, ASK+8, ASK+10, ASK+11*, ASK+12, STARASK1+1*, ASK1+3*
CHKSTR+8*, CHKSTR+11*, CHKSTR+13*
>> GMROUT(1 STAR
>> GMRPRMT CHANGE*, CHANGE+1*, ASK+3
>> GMRQUAL("BP" ASK1+4
>> GMRSCR CHKSTR+7*, CHKSTR+10*, CHKSTR+11, CHKSTR+12*, CHKSTR+13
GMRSITE ASK+5!
GMRSITE( WOK+3, WOK+4, WOK+9, WOK+25
GMRSITE("BP" ASK1+4
>> GMRSTAR CHANGE+1*
>> GMRSTR ASK+1
>> GMRSTR(0 EN2+1, CHANGEASK+10, ASK+12, STAR+1, CHKSTR+1
>> GMRTO ASK+4*, ASK1+3*
GMRVOK CHKSTR+8~*
GMRVX WOK+8*, WOK+24!
GMRVX(0 WOK+8*, WOK+18, WOK+19, WOK+20, WOK+21, WOK+22, WOK+23
GMRVX(1 WOK+9*, WOK+24
>> GMRX CHANGE*, ASK+10*, ASK+12*, STAR+1*, STAR+2, STAR+3, ASK1+2*, ASK1+3, ASK1+4, ASK1+5
CHKSTR+1, CHKSTR+4, CHKSTR+6, CHKSTR+8, WOK+1, WOK+2, WOK+3, WOK+4, WOK+5, WOK+7
WOK+8, WOK+9, WOK+10, WOK+11, WOK+12, WOK+13, WOK+14, WOK+15, WOK+16, WOK+17
WOK+18, WOK+19, WOK+20, WOK+21, WOK+22, WOK+23, WOK+25, WOK+26
>> GMRY STAR+1*, CHKSTR+1*, CHKSTR+2, CHKSTR+9
>> GMRY(1 CHKSTR+2*, CHKSTR+12
>> GREASON CHANGE*, ASK+7*, STAR+2, CHKSTR+3, CHKSTR+4
>> GTXT WOK+24*
>> I WOK+5*, WOK+26*
>> I(1 WOK+5*, WOK+26*
IOF WRT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All