Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMVUTL2

GMVUTL2.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ; This routine uses the following IAs:
  1. ; #1377 - ^DIC(42 references (supported)
  1. ; #3227 - ^NURAPI calls (private)
  1. ; #3771 - ^XUDHGUI calls (supported)
  1. ; #10035 - ^DPT( references (supported)
  1. ; #10039 - ^DIC(42 references (supported)
  1. ; #10061 - ^VADPT calls (supported)
  1. ;
  1. WARDPT ;
  1. K ^TMP($J) S GMRWARD=+$O(^DIC(42,"B",GMRWARD(1),0)),GMRVHLOC=$$HOSPLOC^GMVUTL1(GMRWARD)
  1. S DFN=0 F S DFN=$O(^DPT("CN",GMRWARD(1),DFN)) Q:DFN'>0 D
  1. . D 1^VADPT S GMRNAM=$G(VADM(1)),GMRRMBD=$P($G(VAIN(5)),"^")
  1. . S:GMRNAM="" GMRNAM=" " S:GMRRMBD="" GMRRMBD=" "
  1. . S ^TMP($J,GMRRMBD,GMRNAM,DFN)=""
  1. Q
  1. UNITWRD ; Called by location report (GMVGRPH routine)
  1. N GMVOUT
  1. S GMVOUT=$$FINDNLOC^NURAPI("NUR "_GMRWARD(1))
  1. S GMRWARD=+$P(GMVOUT,U,1),GMRVHLOC=+$P(GMVOUT,U,2)
  1. I '$$PTCHK^NURAPI() S GMRWARD=0 Q
  1. Q
  1. UNITPT ; Called by location report (GMVGRPH routine)
  1. N GMVIEN,GMVOUT S GMVIEN=0
  1. D APTLIST^NURAPI(GMRWARD,.GMVOUT)
  1. F S GMVIEN=$O(GMVOUT(GMVIEN)) Q:'GMVIEN D
  1. . S DFN=$P(GMVOUT(GMVIEN),U,1)
  1. . D 1^VADPT S GMRNAM=$G(VADM(1)),GMRRMBD=$P($G(VAIN(5)),"^")
  1. . S:GMRNAM="" GMRNAM=" " S:GMRRMBD="" GMRRMBD=" "
  1. . S ^TMP($J,GMRRMBD,GMRNAM,DFN)=""
  1. Q
  1. CHKDEV(GMVLIST,GMVIEN,GMVDIR,GMVRMAR) ; Returns a list of printers
  1. ; RESULT - TMP array address
  1. ; GMVIEN - Value to begin the search. Can be null.
  1. ; GMVDIR - Direction of the search (1 = forward, -1 = backwards)
  1. ; If DIR is null, then set to 1.
  1. ; GMVRMAR - Right margin (e.g, 80, 132 or "80-132")
  1. S:GMVDIR="" GMVDIR=1
  1. S:GMVRMAR="" GMVRMAR=132
  1. D DEVICE^XUDHGUI(.GMVLIST,GMVIEN,GMVDIR,GMVRMAR)
  1. ; If no devices found, the array has no entries.
  1. Q