- 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
