SCUTBK12 ;ALB/SCK - Staff Assignment lookup broker call ; 14 Aug 2002 10:03 AM
;;5.3;Scheduling;**41,264**;AUG 13, 1993
;
Q
;
STAFFLK(SCDATA,SC) ;
;
N SCUSR,SCVAL,SCREEN,SCINST,SCOK
D CHK^SCUTBK
D TMP^SCUTBK
;
S SCINST=$G(SC("USRCOK"),"")
S SCUSR=$G(SC("USRCLASS"),"")
S SCVAL=$G(SC("VALUE"),"")
S SCREEN=$G(SC("SCREEN"),"")
S SCPC=$G(SC("PC"))
;
IF SCVAL="?"&(SCINST) D G STAFQ
. D WHOIS2^USRLM("SCRTN",SCUSR)
. M SCDATA=SCRTN
. S SCDATA(0)="[Data]"
;
D URSLKUP^SCMCPR1(.SCDATA,SCUSR,SCVAL,SCREEN,SCINST,SCPC)
;
STAFQ ;
Q
;
CHKUSR(SCOK,SCVAL) ;
S SCOK=$G(^SD(404.91,SCVAL,"PCMM"))
Q
;
GETPC(SCDATA,SC) ;
;
N SCDFN,SCDATE,SCROLE,SCAST
D CHK^SCUTBK
D TMP^SCUTBK
;
S SCDFN=$G(SC("DFN"),"")
S SCDATE=$G(SC("DATE"),DT)
S SCROLE=$G(SC("ROLE"),1)
S SCAST=$G(SC("AST"),1)
;
S SCDATA=$$GETPC^SCAPMCU2(SCDFN,SCDATE,SCROLE,SCAST)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCUTBK12 907 printed Nov 22, 2024@17:54:15 Page 2
SCUTBK12 ;ALB/SCK - Staff Assignment lookup broker call ; 14 Aug 2002 10:03 AM
+1 ;;5.3;Scheduling;**41,264**;AUG 13, 1993
+2 ;
+3 QUIT
+4 ;
STAFFLK(SCDATA,SC) ;
+1 ;
+2 NEW SCUSR,SCVAL,SCREEN,SCINST,SCOK
+3 DO CHK^SCUTBK
+4 DO TMP^SCUTBK
+5 ;
+6 SET SCINST=$GET(SC("USRCOK"),"")
+7 SET SCUSR=$GET(SC("USRCLASS"),"")
+8 SET SCVAL=$GET(SC("VALUE"),"")
+9 SET SCREEN=$GET(SC("SCREEN"),"")
+10 SET SCPC=$GET(SC("PC"))
+11 ;
+12 IF SCVAL="?"&(SCINST)
Begin DoDot:1
+13 DO WHOIS2^USRLM("SCRTN",SCUSR)
+14 MERGE SCDATA=SCRTN
+15 SET SCDATA(0)="[Data]"
End DoDot:1
GOTO STAFQ
+16 ;
+17 DO URSLKUP^SCMCPR1(.SCDATA,SCUSR,SCVAL,SCREEN,SCINST,SCPC)
+18 ;
STAFQ ;
+1 QUIT
+2 ;
CHKUSR(SCOK,SCVAL) ;
+1 SET SCOK=$GET(^SD(404.91,SCVAL,"PCMM"))
+2 QUIT
+3 ;
GETPC(SCDATA,SC) ;
+1 ;
+2 NEW SCDFN,SCDATE,SCROLE,SCAST
+3 DO CHK^SCUTBK
+4 DO TMP^SCUTBK
+5 ;
+6 SET SCDFN=$GET(SC("DFN"),"")
+7 SET SCDATE=$GET(SC("DATE"),DT)
+8 SET SCROLE=$GET(SC("ROLE"),1)
+9 SET SCAST=$GET(SC("AST"),1)
+10 ;
+11 SET SCDATA=$$GETPC^SCAPMCU2(SCDFN,SCDATE,SCROLE,SCAST)
+12 QUIT
