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

Package: General Medical Record - Vitals

Routine: GMRVEE0


Information

GMRVEE0 ;HIRMFO/RM,YH-ENTERED IN ERROR EDIT ;3/15/99 15:04

Source Information

Source file <GMRVEE0.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY FROM OPTION GMRV ERROR EDIT
EN2 ; ENTRY TO VITALS ENTERED IN ERROR IF DFN IS KNOWN.
DATE
EN3 ;ENTRY TO ERROR EDIT PROVIDED DFN AND DATE/TIME ARE GIVEN
Q
WHTL ; ELIMINATE ALL NON GMRVITY CHILDREN FROM GMRARTY
CHSDT ; CHOOSE A DATE FOR ALL VITAL TYPES, OR DROP THRU FROM SINGLE VITAL TYPE
CHNUM
SDA
PRTCHS ; PRINT CHOICES FOR DATE/TIME DEFINED BY GMRX
PRTLN ; PRINT DATA FOR VITAL RECORD DEFINED BY GMRDA
DATACK ; CHECK TO SEE IF DATA FOR THIS PATIENT FOR THIS DATE. IF THERE IS
; SET UP AN ARRAY GMRARTY WITH GMRARTY=$S(0:ONE TYPE ONLY,1:MORE
; THAN ONE TYPE) AND GMRARTY(TYPE IEN)=120.5 ENTRY
CNLP ;
STARTY ; SET GMRARTY ARRAY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !,$C(7),"No data for this date"
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !?3,$C(7),"There is no data for this patient for this date/time"
  • Line Location: EN3+7
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM: ",!
  • Line Location: CHSDT+1
Function Call: WRITE
  • Prompt: !,?2,GMRNM_" "
  • Line Location: CHSDT+2
Function Call: READ
  • Variable: GFLAG
  • Timeout: DTIME
  • Line Location: CHSDT+3
Function Call: READ
  • Variable: GMRX
  • Timeout: DTIME
  • Line Location: CHNUM+0
Function Call: WRITE
  • Prompt: !,?5,$S(GMRVX="PN":"Pain",1:GMRVX),": ",GMRVX(0),$S('$D(GMRVX(1)):" ",'GMRVX(1):" ",1:"*")
  • Line Location: PRTLN+21
Function Call: WRITE
  • Prompt: !,?10,"via "
  • Condition for execution: GMRVX="PO2"
  • Line Location: PRTLN+22
Function Call: WRITE
  • Prompt: GMRZZ
  • Line Location: PRTLN+22

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