Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Nursing Service 2 EN6^NURSAUTL  EN7^NURSCUTL  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Nursing Service 7 NURCAS0  NURCES0  NURCEVP0  NURCHSUM  NURCPPS1  NURCVPR0  NURCVUT0  

Entry Points

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

External References

Name Field # of Occurrence
^DIC WARDSEL+3
EN6^NURSAUTL WARDSEL+4
EN7^NURSCUTL PATDAT+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: NUREDB
  • 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
  • Timeout: DTIME
  • Variable: NURRMST
  • 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
Routine Call
  • DIC
  • Line Location:
    • WARDSEL+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(211.4 - [#211.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] RMST+1
^NURSF(211.4 - [#211.4] WARDSEL+8
^NURSF(214 - [#214] WARDSEL+4

Label References

Name Line Occurrences
EN3 WARDSEL+10, EN3+8, EN3+9, EN3+11
PATDAT WP1+2
QUIT WP1+1, WP1+3
RMST WARDSEL+8
WARDPAT WARDPAT+3, WARDPAT+4, WP1+1, WP1+2, WARDSEL+3
WARDSEL WP1+1
WP1 WARDPAT+2

Naked Globals

Name Field # of Occurrence
^(0 RMST+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN WARDSEL+4*, WARDSEL+6, PATDAT+2, PATDAT+3*
DIC WARDSEL+1*, WARDSEL+3!
DIC("A" WARDSEL+2*
DIC("S" WARDSEL+1*
DIC(0 WARDSEL+1*, PATDAT+2*
DTIME WARDPAT+1, EN3+7
NACT PATDAT+1*, QUIT+1!
NASK PATDAT+2*, QUIT+1!
ND1 RMST+1*, QUIT+1!
NDA WARDSEL+8*, QUIT+1!
NMRC WARDSEL+9!, WARDSEL+10!, QUIT+1!
NMRC( WARDSEL+9*, EN3+1, EN3+2, EN3+3, EN3+10
NMRC("" WARDSEL+10
NORM WP1+1, WARDSEL+1*, WARDSEL+10*, QUIT+1!
>> NPWARD WARDSEL+4*, WARDSEL+6, EN3+1
NRM WARDSEL+8!, WARDSEL+10!, RMST+1*
NRM( WARDSEL+9, RMST+1*
NRMBD EN3+1!
NRMBD( EN3+10*
NRMBD("" WARDSEL+10
>> NUREDB WARDPAT+1*, WARDPAT+2*, WARDPAT+3, WP1+1, WARDSEL+7
NURI EN3+10*, QUIT+1!
NURLEN EN3+10*, QUIT+1!
NURLEN(1 EN3+10*
>> NURLOCSW WARDSEL+3
>> NUROUT WARDPAT+1*
NURP EN3+1!, QUIT+1!
NURP(1 EN3+1*, EN3+2, EN3+4*
NURP(2 EN3+1*, EN3+2, EN3+4*
NURP(3 EN3+1*, EN3+2, EN3+4*
NURP(4 EN3+1*, EN3+3, EN3+4*
NURP(5 EN3+1*, EN3+3, EN3+4*
>> NURQUIT WARDPAT+1*, WP1+1, WARDSEL+3*, WARDSEL+6*, WARDSEL+10, PATDAT+2*, EN3+7*, EN3+10*, EN3+11*
NURRMST EN3+7*, EN3+8, EN3+9, EN3+10, QUIT+1!
NURSX WARDSEL+9*, EN3+1*, QUIT+1!
NURSY WARDSEL+9*, QUIT+1!
>> NURWARD WARDSEL+4*
NURX EN3+10*, QUIT+1!
NWLOC WARDSEL+8*, RMST+1, QUIT+1!
RMSEL QUIT+1!
X WARDSEL+3, QUIT+1!
Y WP1+2, WARDSEL+3, WARDSEL+4, WARDSEL+8, PATDAT+3, QUIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All