Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSIVXU

PSIVXU.m

Go to the documentation of this file.
  1. 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
  1. N PSJNEW,PSGPTMP,PPAGE S PSJNEW=1
  1. S DONE=0 ;P407
  1. ;
  1. K XQUIT D ENCV^PSGSETU I $D(XQUIT) Q
  1. I $D(^TMP("PSJUSER",$J,"FLAG")) K ^TMP("PSJUSER",$J,"PSIV") ;P407
  1. K ^TMP("PSJUSER",$J,"DSPFLAG") ;P407
  1. 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
  1. 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")
  1. Q
  1. SET ;Set TMP("PSJUSER" global
  1. 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
  1. Q
  1. CHA ;Change site
  1. ; PSJ*407/RJH - Added KILL of TMP global node to line below in order for the
  1. ; Change to Another IV Room functionality to work properly with
  1. ; changes for PSJ*407
  1. ; K XQUIT D ^PSIVSET D:'$D(XQUIT) SET K %DT,XQUIT D ENIVKV^PSGSETU
  1. K XQUIT K ^TMP("PSJUSER",$J,"FLAG") D ^PSIVSET D:'$D(XQUIT) SET K %DT,XQUIT D ENIVKV^PSGSETU ; PSJ*407
  1. Q