GMVUTL2 ;HOIFO/YH,FT-BP HIGH/LOW LIMITS AND DEFAULT QUALIFIER; 6/7/98 ;10/1/02 14:14
;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
;
; This routine uses the following IAs:
; #1377 - ^DIC(42 references (supported)
; #3227 - ^NURAPI calls (private)
; #3771 - ^XUDHGUI calls (supported)
; #10035 - ^DPT( references (supported)
; #10039 - ^DIC(42 references (supported)
; #10061 - ^VADPT calls (supported)
;
WARDPT ;
K ^TMP($J) S GMRWARD=+$O(^DIC(42,"B",GMRWARD(1),0)),GMRVHLOC=$$HOSPLOC^GMVUTL1(GMRWARD)
S DFN=0 F S DFN=$O(^DPT("CN",GMRWARD(1),DFN)) Q:DFN'>0 D
. D 1^VADPT S GMRNAM=$G(VADM(1)),GMRRMBD=$P($G(VAIN(5)),"^")
. S:GMRNAM="" GMRNAM=" " S:GMRRMBD="" GMRRMBD=" "
. S ^TMP($J,GMRRMBD,GMRNAM,DFN)=""
Q
UNITWRD ; Called by location report (GMVGRPH routine)
N GMVOUT
S GMVOUT=$$FINDNLOC^NURAPI("NUR "_GMRWARD(1))
S GMRWARD=+$P(GMVOUT,U,1),GMRVHLOC=+$P(GMVOUT,U,2)
I '$$PTCHK^NURAPI() S GMRWARD=0 Q
Q
UNITPT ; Called by location report (GMVGRPH routine)
N GMVIEN,GMVOUT S GMVIEN=0
D APTLIST^NURAPI(GMRWARD,.GMVOUT)
F S GMVIEN=$O(GMVOUT(GMVIEN)) Q:'GMVIEN D
. S DFN=$P(GMVOUT(GMVIEN),U,1)
. D 1^VADPT S GMRNAM=$G(VADM(1)),GMRRMBD=$P($G(VAIN(5)),"^")
. S:GMRNAM="" GMRNAM=" " S:GMRRMBD="" GMRRMBD=" "
. S ^TMP($J,GMRRMBD,GMRNAM,DFN)=""
Q
CHKDEV(GMVLIST,GMVIEN,GMVDIR,GMVRMAR) ; Returns a list of printers
; RESULT - TMP array address
; GMVIEN - Value to begin the search. Can be null.
; GMVDIR - Direction of the search (1 = forward, -1 = backwards)
; If DIR is null, then set to 1.
; GMVRMAR - Right margin (e.g, 80, 132 or "80-132")
S:GMVDIR="" GMVDIR=1
S:GMVRMAR="" GMVRMAR=132
D DEVICE^XUDHGUI(.GMVLIST,GMVIEN,GMVDIR,GMVRMAR)
; If no devices found, the array has no entries.
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMVUTL2 1823 printed Dec 13, 2024@02:00:04 Page 2
GMVUTL2 ;HOIFO/YH,FT-BP HIGH/LOW LIMITS AND DEFAULT QUALIFIER; 6/7/98 ;10/1/02 14:14
+1 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
+2 ;
+3 ; This routine uses the following IAs:
+4 ; #1377 - ^DIC(42 references (supported)
+5 ; #3227 - ^NURAPI calls (private)
+6 ; #3771 - ^XUDHGUI calls (supported)
+7 ; #10035 - ^DPT( references (supported)
+8 ; #10039 - ^DIC(42 references (supported)
+9 ; #10061 - ^VADPT calls (supported)
+10 ;
WARDPT ;
+1 KILL ^TMP($JOB)
SET GMRWARD=+$ORDER(^DIC(42,"B",GMRWARD(1),0))
SET GMRVHLOC=$$HOSPLOC^GMVUTL1(GMRWARD)
+2 SET DFN=0
FOR
SET DFN=$ORDER(^DPT("CN",GMRWARD(1),DFN))
if DFN'>0
QUIT
Begin DoDot:1
+3 DO 1^VADPT
SET GMRNAM=$GET(VADM(1))
SET GMRRMBD=$PIECE($GET(VAIN(5)),"^")
+4 if GMRNAM=""
SET GMRNAM=" "
if GMRRMBD=""
SET GMRRMBD=" "
+5 SET ^TMP($JOB,GMRRMBD,GMRNAM,DFN)=""
End DoDot:1
+6 QUIT
UNITWRD ; Called by location report (GMVGRPH routine)
+1 NEW GMVOUT
+2 SET GMVOUT=$$FINDNLOC^NURAPI("NUR "_GMRWARD(1))
+3 SET GMRWARD=+$PIECE(GMVOUT,U,1)
SET GMRVHLOC=+$PIECE(GMVOUT,U,2)
+4 IF '$$PTCHK^NURAPI()
SET GMRWARD=0
QUIT
+5 QUIT
UNITPT ; Called by location report (GMVGRPH routine)
+1 NEW GMVIEN,GMVOUT
SET GMVIEN=0
+2 DO APTLIST^NURAPI(GMRWARD,.GMVOUT)
+3 FOR
SET GMVIEN=$ORDER(GMVOUT(GMVIEN))
if 'GMVIEN
QUIT
Begin DoDot:1
+4 SET DFN=$PIECE(GMVOUT(GMVIEN),U,1)
+5 DO 1^VADPT
SET GMRNAM=$GET(VADM(1))
SET GMRRMBD=$PIECE($GET(VAIN(5)),"^")
+6 if GMRNAM=""
SET GMRNAM=" "
if GMRRMBD=""
SET GMRRMBD=" "
+7 SET ^TMP($JOB,GMRRMBD,GMRNAM,DFN)=""
End DoDot:1
+8 QUIT
CHKDEV(GMVLIST,GMVIEN,GMVDIR,GMVRMAR) ; Returns a list of printers
+1 ; RESULT - TMP array address
+2 ; GMVIEN - Value to begin the search. Can be null.
+3 ; GMVDIR - Direction of the search (1 = forward, -1 = backwards)
+4 ; If DIR is null, then set to 1.
+5 ; GMVRMAR - Right margin (e.g, 80, 132 or "80-132")
+6 if GMVDIR=""
SET GMVDIR=1
+7 if GMVRMAR=""
SET GMVRMAR=132
+8 DO DEVICE^XUDHGUI(.GMVLIST,GMVIEN,GMVDIR,GMVRMAR)
+9 ; If no devices found, the array has no entries.
+10 QUIT
