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

Package: General Medical Record - Vitals

Routine: GMRVED6


Information

GMRVED6 ;HIRMFO/YH-VM EDIT FOR PATIENT ON PASS OR REFUSE ;2/7/99

Source Information

Source file <GMRVED6.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;
EN2(GRSN) ;
AGAIN
EN3 ; SELECT ROOMS ON A GIVEN WARD
S3
RMCHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Do you want to enter Vitals"
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,"*** Reason for Omission ***"
  • Line Location: AGAIN+0
Function Call: WRITE
  • Prompt: !,I_". "_GG(I)
  • Line Location: AGAIN+0
Function Call: WRITE
  • Prompt: !!,"Select a number (the reason for the data omission) or ^ to quit: "
  • Line Location: AGAIN+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: AGAIN+2
Function Call: WRITE
  • Prompt: !,"Enter the number of reason * was entered",!
  • Line Location: AGAIN+4
Function Call: WRITE
  • Prompt: !!,"UNIT "_GMRWARD(1)_" has the following Rooms:",!!
  • Line Location: S3+0
Function Call: READ
  • Variable: GMRRMST
  • Timeout: DTIME
  • Line Location: S3+1
Function Call: WRITE
  • Prompt: !,?5,"Type in number(s) associated with the rooms you want,",!,?5,"separated by commas or hyphens if there is more than one room",!,?5,"(e.g., 1-3,5 would be entries 1,2,3 and 5)."
  • Line Location: S3+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: S3+4
Function Call: WRITE
  • Prompt: !?5,$C(7),"Please select a number between 1 and ",GMRMSL
  • Line Location: RMCHK+1
Info |  Source |  Entry Points |  Interaction Calls