source: FOIAVistA/trunk/r/NURSING_SERVICE-NUR/NURCVUT0.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1NURCVUT0 ;HIRMFO/YH,RM,FT-PATIENT SELECTION UTILITY BY WARD, ROOM OR SINGLE PATIENT ;1/31/01 14:50
2 ;;4.0;NURSING SERVICE;**34**;Apr 25, 1997
3 ;
4 ; This routine uses the following IAs:
5 ; #1940 - EN1^GMRVCAQU (private)
6 ; #1938 - CHAR^GMRVSITE (private)
7 ; #1938 - DEFAULT^GMRVSITE (private)
8 ;
9WARDPAT ; SELECT ASSIGNMENT SHEET BY 1. WHOLE WARD, 2. SELECTED ROOMS ON WARD, 3. PATIENT
10 S NURQUIT=0 W !,"By (U)nit, (S)elected unit rooms, or (P)atient? " R NUREDB:DTIME I "^"[NUREDB!('$T) S NURQUIT=1 Q
11 S:NUREDB?1L NUREDB=$C($A(NUREDB)-32) I "Uu"[NUREDB!("Ss"[NUREDB)!("Pp"[NUREDB) G WP1
12 I NUREDB?1"?".E G WARDPAT
13 W !,$C(7),?5,"INVALID ENTRY ??" G WARDPAT
14WP1 ;
15 I "Uu"[NUREDB!("Ss"[NUREDB) D WARDSEL^NURCUT0 Q
16PATDAT ; SINGLE PATIENT SELECTION
17 S NASK=1,NACT=0,DIC(0)="EQMZ" D EN7^NURSCUTL Q:NURQUIT
18 I "^"[X!(X="") S NURQUIT=1 D QUIT^NURCUT0 Q
19 ; I +Y'>0 G PATDAT
20 I '$D(^NURSF(214,+Y,0)) W !!,$C(7),"Patient is not active in Nursing System - Notify the Nursing ADP Coordinator:" G PATDAT
21 D QUIT^NURCUT0
22 Q
23EN3 ; ENTRY FROM NURCPE-VIT VMQUALITY OPTION.
24 D DEFAULT^GMRVSITE
25 Q
26EN2 ; ENTRY FROM NURCPE-VIT VMSITE OPTION.
27 D CHAR^GMRVSITE
28 Q
29EN4 ;ENTRY FROM NURCPE-VIT CAT/QUAL TABLE
30 D EN1^GMRVCAQU
31 Q
Note: See TracBrowser for help on using the repository browser.