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

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls