source: FOIAVistA/trunk/r/GEN_MED_OTHER-GMV/GMVUTL2.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1GMVUTL2 ;HOIFO/YH,FT-BP HIGH/LOW LIMITS AND DEFAULT QUALIFIER; 6/7/98 ;10/1/02 14:14
2 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
3 ;
4 ; This routine uses the following IAs:
5 ; #1377 - ^DIC(42 references (supported)
6 ; #3227 - ^NURAPI calls (private)
7 ; #3771 - ^XUDHGUI calls (supported)
8 ; #10035 - ^DPT( references (supported)
9 ; #10039 - ^DIC(42 references (supported)
10 ; #10061 - ^VADPT calls (supported)
11 ;
12WARDPT ;
13 K ^TMP($J) S GMRWARD=+$O(^DIC(42,"B",GMRWARD(1),0)),GMRVHLOC=$$HOSPLOC^GMVUTL1(GMRWARD)
14 S DFN=0 F S DFN=$O(^DPT("CN",GMRWARD(1),DFN)) Q:DFN'>0 D
15 . D 1^VADPT S GMRNAM=$G(VADM(1)),GMRRMBD=$P($G(VAIN(5)),"^")
16 . S:GMRNAM="" GMRNAM=" " S:GMRRMBD="" GMRRMBD=" "
17 . S ^TMP($J,GMRRMBD,GMRNAM,DFN)=""
18 Q
19UNITWRD ; Called by location report (GMVGRPH routine)
20 N GMVOUT
21 S GMVOUT=$$FINDNLOC^NURAPI("NUR "_GMRWARD(1))
22 S GMRWARD=+$P(GMVOUT,U,1),GMRVHLOC=+$P(GMVOUT,U,2)
23 I '$$PTCHK^NURAPI() S GMRWARD=0 Q
24 Q
25UNITPT ; Called by location report (GMVGRPH routine)
26 N GMVIEN,GMVOUT S GMVIEN=0
27 D APTLIST^NURAPI(GMRWARD,.GMVOUT)
28 F S GMVIEN=$O(GMVOUT(GMVIEN)) Q:'GMVIEN D
29 . S DFN=$P(GMVOUT(GMVIEN),U,1)
30 . D 1^VADPT S GMRNAM=$G(VADM(1)),GMRRMBD=$P($G(VAIN(5)),"^")
31 . S:GMRNAM="" GMRNAM=" " S:GMRRMBD="" GMRRMBD=" "
32 . S ^TMP($J,GMRRMBD,GMRNAM,DFN)=""
33 Q
34CHKDEV(GMVLIST,GMVIEN,GMVDIR,GMVRMAR) ; Returns a list of printers
35 ; RESULT - TMP array address
36 ; GMVIEN - Value to begin the search. Can be null.
37 ; GMVDIR - Direction of the search (1 = forward, -1 = backwards)
38 ; If DIR is null, then set to 1.
39 ; GMVRMAR - Right margin (e.g, 80, 132 or "80-132")
40 S:GMVDIR="" GMVDIR=1
41 S:GMVRMAR="" GMVRMAR=132
42 D DEVICE^XUDHGUI(.GMVLIST,GMVIEN,GMVDIR,GMVRMAR)
43 ; If no devices found, the array has no entries.
44 Q
Note: See TracBrowser for help on using the repository browser.