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

Package: Nursing Service

Routine: NURCUT0


Information

NURCUT0 ;HIRMFO/MD,RM,FT-PATIENT SELECTION UTILITY BY WARD, ROOM OR SINGLE PATIENT ;7/24/97

Source Information

Source file <NURCUT0.m>

Entry Points

Name Comments DBIA/ICR reference
WARDPAT ; SELECT ASSIGNMENT SHEET BY 1. WHOLE WARD, 2. SELECTED ROOMS ON WARD, 3. PATIENT
WP1 ;
WARDSEL ; SELECT WARD TO BE SEARCHED
RMST ;
PATDAT ; SINGLE PATIENT SELECTION
EN3 ; SELECT ROOMS ON A GIVEN WARD
QUIT ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: NUREDB
  • Timeout: DTIME
  • Line Location: WARDPAT+1
Function Call: WRITE
  • Prompt: !,$C(7),?5,"INVALID ENTRY ??"
  • Line Location: WARDPAT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: WP1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WARDSEL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WARDSEL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WARDSEL+4
Function Call: WRITE
  • Prompt: !,$C(7),"**** NO PATIENTS REGISTERED ON UNIT ",NPWARD," ****"
  • Line Location: WARDSEL+6
Function Call: WRITE
  • Prompt: !,"Unit "_NPWARD_" has the following rooms:",!
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: ?33,NURP(3),". ",$G(NMRC(NURP(3)))
  • Condition for execution: $G(NMRC($G(NURP(2))))'="" ?16,NURP(2),". ",$G(NMRC(NURP(2))) W:$G(NMRC($G(NURP(3))))'=""
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !!,"Select the NUMBER(S) of the rooms: "
  • Line Location: EN3+6
Function Call: READ
  • Variable: NURRMST
  • Timeout: DTIME
  • Line Location: EN3+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EN3+8
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: EN3+8
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: EN3+9

FileMan Files Accessed Via FileMan Db Call

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