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

SDEC30.m

Go to the documentation of this file.
  1. SDEC30 ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016
  1. ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249
  1. ;
  1. Q
  1. ;
  1. SPACEBAR(SDECY,SDECDIC,SDECVAL) ;Update ^DISV with most recent lookup value SDECVAL from file SDECDIC
  1. ;SPACEBAR(SDECY,SDECDIC,SDECVAL) external parameter tag is in SDEC
  1. ;SDECDIC is the data global in the form GLOBAL(
  1. ;SDECVAL is the entry number (IEN) in the file
  1. ;
  1. ;Return Status = 1 if success, 0 if fail
  1. ;
  1. S SDECY="^TMP(""SDEC"","_$J_")"
  1. K @SDECY
  1. N SDEC1,SDECRES
  1. S SDECI=0
  1. I (SDECDIC="")!('+$G(SDECVAL)) D ERR(SDECI+1,99) Q
  1. S SDECDIC="^"_SDECDIC
  1. S ^TMP("SDEC",$J,0)="T00020ERRORID"_$C(30)
  1. I $D(@(SDECDIC_"SDECVAL,0)")),'$D(^(-9)) D ;Note: Naked reference is immediately preceded by the full global reference per SAC 2.2.2.8
  1. . S ^DISV(DUZ,SDECDIC)=SDECVAL
  1. . S SDECRES=1
  1. E S SDECRES=0
  1. S SDECI=SDECI+1
  1. S ^TMP("SDEC",$J,SDECI)=SDECRES_$C(30)_$C(31)
  1. Q
  1. ;
  1. ERR(SDECI,SDECERR) ;Error processing
  1. S SDECI=SDECI+1
  1. S ^TMP("SDEC",$J,SDECI)=SDECERR_$C(30)
  1. S SDECI=SDECI+1
  1. S ^TMP("SDEC",$J,SDECI)=$C(31)
  1. Q
  1. ;
  1. ETRAP ;EP Error trap entry
  1. I '$D(SDECI) N SDECI S SDECI=999
  1. S SDECI=SDECI+1
  1. D ERR(99,0)
  1. Q
  1. ;
  1. EHRPT(SDECY,SDECWID,SDECDFN) ;Raise patient selection event to CLIENT
  1. ;EHRPT(SDECY,SDECWID,SDECDFN) external parameter tag is in SDEC
  1. ;Return Status = 1 if success, 0 if error
  1. ;
  1. S SDECY="^TMP(""SDEC"","_$J_")"
  1. K @SDECY
  1. N SDEC1,SDECRES
  1. S SDECI=0,SDECRES=1
  1. S ^TMP("SDEC",$J,0)="T00020ERRORID"_$C(30)
  1. I '+SDECDFN D ERR(SDECI+1,0) Q
  1. ;
  1. D PEVENT(SDECWID,SDECDFN) ;Raise patient selected event
  1. ;
  1. S SDECI=SDECI+1
  1. S ^TMP("SDEC",$J,SDECI)=SDECRES_$C(30)_$C(31)
  1. Q
  1. ;
  1. PEVENT(SDECWID,DFN) ;EP - Raise patient selection event to CLIENT
  1. ;
  1. ;Change patient context to patient DFN
  1. ;on all CLIENT client sessions associated with user DUZ
  1. ;and workstation SDECWID.
  1. ;
  1. ;If SDECWID is "", the context change is sent to
  1. ;all CLIENT client sessions belonging to user DUZ.
  1. ;
  1. Q:'$G(DUZ)
  1. ;N UID,BRET
  1. ;S BRET=0,UID=0
  1. ;F S BRET=$$NXTUID^CIANBUTL(.UID,1) Q:'UID D
  1. ;. Q:DUZ'=$$GETVAR^CIANBUTL("DUZ",,,UID)
  1. ;. I SDECWID'="" Q:SDECWID'=$TR($$GETVAR^CIANBUTL("WID",,,UID),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. ;. D QUEUE^CIANBEVT("CONTEXT.PATIENT",+DFN,UID)
  1. Q