| [613] | 1 | PSIVXU ;BIR/PR-SET MEDICATION SITES IN ^TMP("PSJUSER" ; 15 May 98 / 9:27 AM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;**3**;16 DEC 97
|
|---|
| 3 | N PSJNEW,PSGPTMP,PPAGE S PSJNEW=1
|
|---|
| 4 | ;
|
|---|
| 5 | K XQUIT D ENCV^PSGSETU I $D(XQUIT) Q
|
|---|
| 6 | 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
|
|---|
| 7 | ;
|
|---|
| 8 | 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")
|
|---|
| 9 | Q
|
|---|
| 10 | SET ;Set TMP("PSJUSER" global
|
|---|
| 11 | 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
|
|---|
| 12 | Q
|
|---|
| 13 | CHA ;Change site
|
|---|
| 14 | K XQUIT D ^PSIVSET D:'$D(XQUIT) SET K %DT,XQUIT D ENIVKV^PSGSETU
|
|---|
| 15 | Q
|
|---|
