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

Package: Nursing Service

Routine: NURCVED0


Information

NURCVED0 ;HIRMFO/YH,MD,RM,FT-VITAL SIGNS EDIT SHORT FORM ;6/22/01 10:28

Source Information

Source file <NURCVED0.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;CALL TO EDIT PATIENT VITALS
EDTPT ;
ASKOK ; LOOPING THROUGH NAMES
ASL
SETUTIL ; SET ARRAY OF PATIENTS
WRDST ; SET UTILITY FOR PATIENTS ON WARD
SETWLO ; SET 42 FILE ENTRY FOR NURSWARD, NURWLO=$S(1:ONLY ONE 42 ENTRY,
; 0: MORE THAN ONE 42 ENTRY OR NO ENTRY)_"^"_(42 ENTRY)
; AND THE NURHLO ARRAY AS THE HOSPITAL LOCATIONS ASSOCIATED WITH 211.4
DATE ; CALL TO SET AND GMRVIDT (WHEN THE VITALS WERE TAKEN)
; ALSO RETURNS NURQUIT=1 IF TIMEOUT OR UPARROW OUT.
Q ;
EN2 ;EDIT A VITAL/MEASUREMENT ENTERED IN ERROR
Q5
MULTIVM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,NURNAM,?$X+10,$S(NURRM=" BLANK":" ",1:NURRM)_"-"_$S(NBED=" BLANK":" ",1:NBED_" ")
  • Line Location: ASKOK+1
Function Call: WRITE
  • Prompt: $C(7),!,?4,"ANSWER 'YES' or 'NO'"
  • Line Location: ASKOK+2
Function Call: WRITE
  • Prompt: !,"Do you wish to stop looping through names?"
  • Line Location: ASL+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASL+0
Function Call: WRITE
  • Prompt: $C(7),!,?4,"ANSWER 'YES' or 'NO'"
  • Line Location: ASL+1
Function Call: WRITE
  • Prompt: !,?3,$C(7),"Sorry, you cannot enter a date more than 1 year old."
  • Line Location: DATE+4
Info |  Source |  Entry Points |  Interaction Calls