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

Package: General Medical Record - Vitals

Routine: GMRVEE1


Information

GMRVEE1 ;HIRMFO/RM,YH-ENTERED IN ERROR EDIT ;7/15/97

Source Information

Source file <GMRVEE1.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY FROM ROUTINE GMRVEE1 TO CONTINUE EDITING VITALS IN ERROR
RESLS ; RESELECT REASON FOR ERROR
RESCH
REHLP
TIME
PERSON
QUIT
CHKRG ; CHECK RANGE
ENTERR ; ENTER RECORD DEFINED BY GMRDA IN ERROR
ERREN ; EDIT A RECORD ENTERED IN ERROR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** DATA TO BE ENTERED IN ERROR ***"
  • Line Location: EN1+1
Function Call: READ
  • Variable: GMRX
  • Timeout: DTIME
  • Line Location: RESCH+1
Function Call: WRITE
  • Prompt: !,"Select the reason(s) for entering ",$S(GMRVITY'="A":"this vital/measurement",1:"these vital/measurements")," in error",!,"or type '^' to exit: " R GMRX:DTIME I '$T!(GMRX="^")
  • Line Location: RESCH+1
Function Call: WRITE
  • Prompt: !!,"NO UPDATING WAS DONE"
  • Line Location: RESCH+1
Function Call: WRITE
  • Prompt: !!?3,$C(7),"Answer with selection number(s) with ranges separated with hyphens (-),",!?3,"and multiple selections separated by commas (,).",!
  • Line Location: REHLP+0
Function Call: WRITE
  • Prompt: !!,?3,$C(7),"The INVALID RECORD reason cannot be used in combination with any",!?3,"other selections."
  • Line Location: REHLP+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: ERREN+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.5 - [#120.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call