PSIVXU.m

PSIVXU ;BIR/PR-SET MEDICATION SITES IN ^TMP("PSJUSER" ;15 May 98 / 9:27 AM

 ;;5.0;INPATIENT MEDICATIONS;**3,407**;16 DEC 97;Build 26

 N PSJNEW,PSGPTMP,PPAGE S PSJNEW=1

 S DONE=0  ;P407

 ;

 K XQUIT D ENCV^PSGSETU I $D(XQUIT) Q

 I $D(^TMP("PSJUSER",$J,"FLAG")) K ^TMP("PSJUSER",$J,"PSIV")  ;P407

 K ^TMP("PSJUSER",$J,"DSPFLAG")  ;P407

 S CHK=$S($D(^TMP("PSJUSER",$J,"PSIV")):1,1:"") S:CHK CHK=$S(^TMP("PSJUSER",$J,"PSIV")=DUZ:1,1:"") I 'CHK D ^PSIVSET Q:$D(XQUIT)!(DONE=1)  D SET Q   ;P407

 E  S PSIVSITE=^TMP("PSJUSER",$J,"PSIV","SITE"),PSIVPR=^TMP("PSJUSER",$J,"PSIV","PSIVPR"),PSIVPL=^TMP("PSJUSER",$J,"PSIV","PSIVPL"),PSIVSN=^TMP("PSJUSER",$J,"PSIV","PSIVSN")

 Q

SET ;Set TMP("PSJUSER" global

 S ^TMP("PSJUSER",$J,"PSIV")=DUZ,^TMP("PSJUSER",$J,"PSIV","SITE")=PSIVSITE,^TMP("PSJUSER",$J,"PSIV","PSIVPR")=PSIVPR,^TMP("PSJUSER",$J,"PSIV","PSIVPL")=PSIVPL,^TMP("PSJUSER",$J,"PSIV","PSIVSN")=PSIVSN

 Q

CHA ;Change site

 ; PSJ*407/RJH - Added KILL of TMP global node to line below in order for the

 ;               Change to Another IV Room functionality to work properly with

 ;               changes for PSJ*407

 ; K XQUIT D ^PSIVSET D:'$D(XQUIT) SET K %DT,XQUIT D ENIVKV^PSGSETU

 K XQUIT K ^TMP("PSJUSER",$J,"FLAG") D ^PSIVSET D:'$D(XQUIT) SET K %DT,XQUIT D ENIVKV^PSGSETU ; PSJ*407

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSIVXU   1306     printed  Apr 09, 2024@21:09:02                                                                                                                                                                                                      Page 2

PSIVXU    ;BIR/PR-SET MEDICATION SITES IN ^TMP("PSJUSER" ;15 May 98 / 9:27 AM

 +1       ;;5.0;INPATIENT MEDICATIONS;**3,407**;16 DEC 97;Build 26

 +2        NEW PSJNEW,PSGPTMP,PPAGE

           SET PSJNEW=1

 +3       ;P407

           SET DONE=0

 +4       ;

 +5        KILL XQUIT

           DO ENCV^PSGSETU

           IF $DATA(XQUIT)

               QUIT 

 +6       ;P407

           IF $DATA(^TMP("PSJUSER",$JOB,"FLAG"))

               KILL ^TMP("PSJUSER",$JOB,"PSIV")

 +7       ;P407

           KILL ^TMP("PSJUSER",$JOB,"DSPFLAG")

 +8       ;P407

           SET CHK=$SELECT($DATA(^TMP("PSJUSER",$JOB,"PSIV")):1,1:"")

           if CHK

               SET CHK=$SELECT(^TMP("PSJUSER",$JOB,"PSIV")=DUZ:1,1:"")

           IF 'CHK

               DO ^PSIVSET

               if $DATA(XQUIT)!(DONE=1)

                   QUIT 

               DO SET

               QUIT 

 +9       IF '$TEST

               SET PSIVSITE=^TMP("PSJUSER",$JOB,"PSIV","SITE")

               SET PSIVPR=^TMP("PSJUSER",$JOB,"PSIV","PSIVPR")

               SET PSIVPL=^TMP("PSJUSER",$JOB,"PSIV","PSIVPL")

               SET PSIVSN=^TMP("PSJUSER",$JOB,"PSIV","PSIVSN")

 +10       QUIT 

SET       ;Set TMP("PSJUSER" global

 +1        SET ^TMP("PSJUSER",$JOB,"PSIV")=DUZ

           SET ^TMP("PSJUSER",$JOB,"PSIV","SITE")=PSIVSITE

           SET ^TMP("PSJUSER",$JOB,"PSIV","PSIVPR")=PSIVPR

           SET ^TMP("PSJUSER",$JOB,"PSIV","PSIVPL")=PSIVPL

           SET ^TMP("PSJUSER",$JOB,"PSIV","PSIVSN")=PSIVSN

 +2        QUIT 

CHA       ;Change site

 +1       ; PSJ*407/RJH - Added KILL of TMP global node to line below in order for the

 +2       ;               Change to Another IV Room functionality to work properly with

 +3       ;               changes for PSJ*407

 +4       ; K XQUIT D ^PSIVSET D:'$D(XQUIT) SET K %DT,XQUIT D ENIVKV^PSGSETU

 +5       ; PSJ*407

           KILL XQUIT

           KILL ^TMP("PSJUSER",$JOB,"FLAG")

           DO ^PSIVSET

           if '$DATA(XQUIT)

               DO SET

           KILL %DT,XQUIT

           DO ENIVKV^PSGSETU

 +6        QUIT