- 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 ---[H[J[2J[HNURCVUT0 1246 printed Feb 18, 2025@23:47:28 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