NURCVUT0.m

NURCVUT0 ;HIRMFO/YH,RM,FT-PATIENT SELECTION UTILITY BY WARD, ROOM OR SINGLE PATIENT ;1/31/01  14:50

 ;;4.0;NURSING SERVICE;**34**;Apr 25, 1997

 ;

 ; This routine uses the following IAs:

 ; #1940 - EN1^GMRVCAQU      (private)

 ; #1938 - CHAR^GMRVSITE     (private)

 ; #1938 - DEFAULT^GMRVSITE  (private)

 ;

WARDPAT ; SELECT ASSIGNMENT SHEET BY 1. WHOLE WARD, 2. SELECTED ROOMS ON WARD, 3. PATIENT

 S NURQUIT=0 W !,"By (U)nit, (S)elected unit rooms, or (P)atient? " R NUREDB:DTIME I "^"[NUREDB!('$T) S NURQUIT=1 Q

 S:NUREDB?1L NUREDB=$C($A(NUREDB)-32) I "Uu"[NUREDB!("Ss"[NUREDB)!("Pp"[NUREDB) G WP1

 I NUREDB?1"?".E G WARDPAT

 W !,$C(7),?5,"INVALID ENTRY ??" G WARDPAT

WP1 ;

 I "Uu"[NUREDB!("Ss"[NUREDB) D WARDSEL^NURCUT0 Q

PATDAT ; SINGLE PATIENT SELECTION

 S NASK=1,NACT=0,DIC(0)="EQMZ" D EN7^NURSCUTL Q:NURQUIT

 I "^"[X!(X="") S NURQUIT=1 D QUIT^NURCUT0 Q

 ; I +Y'>0 G PATDAT

 I '$D(^NURSF(214,+Y,0)) W !!,$C(7),"Patient is not active in Nursing System - Notify the Nursing ADP Coordinator:" G PATDAT

 D QUIT^NURCUT0

 Q

EN3 ; ENTRY FROM NURCPE-VIT VMQUALITY OPTION.

 D DEFAULT^GMRVSITE

 Q

EN2 ; ENTRY FROM NURCPE-VIT VMSITE OPTION.

 D CHAR^GMRVSITE

 Q

EN4 ;ENTRY FROM NURCPE-VIT CAT/QUAL TABLE

 D EN1^GMRVCAQU

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---NURCVUT0   1246     printed  Apr 09, 2024@21:24:48                                                                                                                                                                                                    Page 2

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

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; #1940 - EN1^GMRVCAQU      (private)

 +5       ; #1938 - CHAR^GMRVSITE     (private)

 +6       ; #1938 - DEFAULT^GMRVSITE  (private)

 +7       ;

WARDPAT   ; SELECT ASSIGNMENT SHEET BY 1. WHOLE WARD, 2. SELECTED ROOMS ON WARD, 3. PATIENT

 +1        SET NURQUIT=0

           WRITE !,"By (U)nit, (S)elected unit rooms, or (P)atient? "

           READ NUREDB:DTIME

           IF "^"[NUREDB!('$TEST)

               SET NURQUIT=1

               QUIT 

 +2        if NUREDB?1L

               SET NUREDB=$CHAR($ASCII(NUREDB)-32)

           IF "Uu"[NUREDB!("Ss"[NUREDB)!("Pp"[NUREDB)

               GOTO WP1

 +3        IF NUREDB?1"?".E

               GOTO WARDPAT

 +4        WRITE !,$CHAR(7),?5,"INVALID ENTRY ??"

           GOTO WARDPAT

WP1       ;

 +1        IF "Uu"[NUREDB!("Ss"[NUREDB)

               DO WARDSEL^NURCUT0

               QUIT 

PATDAT    ; SINGLE PATIENT SELECTION

 +1        SET NASK=1

           SET NACT=0

           SET DIC(0)="EQMZ"

           DO EN7^NURSCUTL

           if NURQUIT

               QUIT 

 +2        IF "^"[X!(X="")

               SET NURQUIT=1

               DO QUIT^NURCUT0

               QUIT 

 +3       ; I +Y'>0 G PATDAT

 +4        IF '$DATA(^NURSF(214,+Y,0))

               WRITE !!,$CHAR(7),"Patient is not active in Nursing System - Notify the Nursing ADP Coordinator:"

               GOTO PATDAT

 +5        DO QUIT^NURCUT0

 +6        QUIT 

EN3       ; ENTRY FROM NURCPE-VIT VMQUALITY OPTION.

 +1        DO DEFAULT^GMRVSITE

 +2        QUIT 

EN2       ; ENTRY FROM NURCPE-VIT VMSITE OPTION.

 +1        DO CHAR^GMRVSITE

 +2        QUIT 

EN4       ;ENTRY FROM NURCPE-VIT CAT/QUAL TABLE

 +1        DO EN1^GMRVCAQU

 +2        QUIT