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

SCUTBK12.m

Go to the documentation of this file.
  1. SCUTBK12 ;ALB/SCK - Staff Assignment lookup broker call ; 14 Aug 2002 10:03 AM
  1. ;;5.3;Scheduling;**41,264**;AUG 13, 1993
  1. ;
  1. Q
  1. ;
  1. STAFFLK(SCDATA,SC) ;
  1. ;
  1. N SCUSR,SCVAL,SCREEN,SCINST,SCOK
  1. D CHK^SCUTBK
  1. D TMP^SCUTBK
  1. ;
  1. S SCINST=$G(SC("USRCOK"),"")
  1. S SCUSR=$G(SC("USRCLASS"),"")
  1. S SCVAL=$G(SC("VALUE"),"")
  1. S SCREEN=$G(SC("SCREEN"),"")
  1. S SCPC=$G(SC("PC"))
  1. ;
  1. IF SCVAL="?"&(SCINST) D G STAFQ
  1. . D WHOIS2^USRLM("SCRTN",SCUSR)
  1. . M SCDATA=SCRTN
  1. . S SCDATA(0)="[Data]"
  1. ;
  1. D URSLKUP^SCMCPR1(.SCDATA,SCUSR,SCVAL,SCREEN,SCINST,SCPC)
  1. ;
  1. STAFQ ;
  1. Q
  1. ;
  1. CHKUSR(SCOK,SCVAL) ;
  1. S SCOK=$G(^SD(404.91,SCVAL,"PCMM"))
  1. Q
  1. ;
  1. GETPC(SCDATA,SC) ;
  1. ;
  1. N SCDFN,SCDATE,SCROLE,SCAST
  1. D CHK^SCUTBK
  1. D TMP^SCUTBK
  1. ;
  1. S SCDFN=$G(SC("DFN"),"")
  1. S SCDATE=$G(SC("DATE"),DT)
  1. S SCROLE=$G(SC("ROLE"),1)
  1. S SCAST=$G(SC("AST"),1)
  1. ;
  1. S SCDATA=$$GETPC^SCAPMCU2(SCDFN,SCDATE,SCROLE,SCAST)
  1. Q