- 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 Jan 18, 2025@03:45:27 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