GMVUTL2.m

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

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