PSIVXU.m

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

 ;;5.0; INPATIENT MEDICATIONS ;**3**;16 DEC 97

 N PSJNEW,PSGPTMP,PPAGE S PSJNEW=1

 ;

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

 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)  D SET Q

 ;

 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

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

 Q

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

 +1       ;;5.0; INPATIENT MEDICATIONS ;**3**;16 DEC 97

 +2        NEW PSJNEW,PSGPTMP,PPAGE

           SET PSJNEW=1

 +3       ;

 +4        KILL XQUIT

           DO ENCV^PSGSETU

           IF $DATA(XQUIT)

               QUIT 

 +5        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)

                   QUIT 

               DO SET

               QUIT 

 +6       ;

 +7       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")

 +8        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        KILL XQUIT

           DO ^PSIVSET

           IF '$DATA(XQUIT)

               DO SET

           KILL %DT,XQUIT

           DO ENIVKV^PSGSETU

 +2        QUIT