| [613] | 1 | NURCVUT0 ;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 | ;
|
|---|
| 9 | WARDPAT ; 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
|
|---|
| 14 | WP1 ;
|
|---|
| 15 | I "Uu"[NUREDB!("Ss"[NUREDB) D WARDSEL^NURCUT0 Q
|
|---|
| 16 | PATDAT ; 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
|
|---|
| 23 | EN3 ; ENTRY FROM NURCPE-VIT VMQUALITY OPTION.
|
|---|
| 24 | D DEFAULT^GMRVSITE
|
|---|
| 25 | Q
|
|---|
| 26 | EN2 ; ENTRY FROM NURCPE-VIT VMSITE OPTION.
|
|---|
| 27 | D CHAR^GMRVSITE
|
|---|
| 28 | Q
|
|---|
| 29 | EN4 ;ENTRY FROM NURCPE-VIT CAT/QUAL TABLE
|
|---|
| 30 | D EN1^GMRVCAQU
|
|---|
| 31 | Q
|
|---|
