- 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 Jan 18, 2025@03:01:16 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