Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: NURCVUT0

NURCVUT0.m

Go to the documentation of this file.
  1. NURCVUT0 ;HIRMFO/YH,RM,FT-PATIENT SELECTION UTILITY BY WARD, ROOM OR SINGLE PATIENT ;1/31/01 14:50
  1. ;;4.0;NURSING SERVICE;**34**;Apr 25, 1997
  1. ;
  1. ; This routine uses the following IAs:
  1. ; #1940 - EN1^GMRVCAQU (private)
  1. ; #1938 - CHAR^GMRVSITE (private)
  1. ; #1938 - DEFAULT^GMRVSITE (private)
  1. ;
  1. WARDPAT ; SELECT ASSIGNMENT SHEET BY 1. WHOLE WARD, 2. SELECTED ROOMS ON WARD, 3. PATIENT
  1. S NURQUIT=0 W !,"By (U)nit, (S)elected unit rooms, or (P)atient? " R NUREDB:DTIME I "^"[NUREDB!('$T) S NURQUIT=1 Q
  1. S:NUREDB?1L NUREDB=$C($A(NUREDB)-32) I "Uu"[NUREDB!("Ss"[NUREDB)!("Pp"[NUREDB) G WP1
  1. I NUREDB?1"?".E G WARDPAT
  1. W !,$C(7),?5,"INVALID ENTRY ??" G WARDPAT
  1. WP1 ;
  1. I "Uu"[NUREDB!("Ss"[NUREDB) D WARDSEL^NURCUT0 Q
  1. PATDAT ; SINGLE PATIENT SELECTION
  1. S NASK=1,NACT=0,DIC(0)="EQMZ" D EN7^NURSCUTL Q:NURQUIT
  1. I "^"[X!(X="") S NURQUIT=1 D QUIT^NURCUT0 Q
  1. ; I +Y'>0 G PATDAT
  1. I '$D(^NURSF(214,+Y,0)) W !!,$C(7),"Patient is not active in Nursing System - Notify the Nursing ADP Coordinator:" G PATDAT
  1. D QUIT^NURCUT0
  1. Q
  1. EN3 ; ENTRY FROM NURCPE-VIT VMQUALITY OPTION.
  1. D DEFAULT^GMRVSITE
  1. Q
  1. EN2 ; ENTRY FROM NURCPE-VIT VMSITE OPTION.
  1. D CHAR^GMRVSITE
  1. Q
  1. EN4 ;ENTRY FROM NURCPE-VIT CAT/QUAL TABLE
  1. D EN1^GMRVCAQU
  1. Q