| 1 | GMVUTL2 ;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 | ;
|
|---|
| 12 | WARDPT ;
|
|---|
| 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
|
|---|
| 19 | UNITWRD ; 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
|
|---|
| 25 | UNITPT ; 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
|
|---|
| 34 | CHKDEV(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
|
|---|
