source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSIVXU.m@ 1593

Last change on this file since 1593 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 837 bytes
RevLine 
[613]1PSIVXU ;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
10SET ;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
13CHA ;Change site
14 K XQUIT D ^PSIVSET D:'$D(XQUIT) SET K %DT,XQUIT D ENIVKV^PSGSETU
15 Q
Note: See TracBrowser for help on using the repository browser.