| [613] | 1 | SCUTBK12 ;ALB/SCK - Staff Assignment lookup broker call ; 14 Aug 2002 10:03 AM
|
|---|
| 2 | ;;5.3;Scheduling;**41,264**;AUG 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | STAFFLK(SCDATA,SC) ;
|
|---|
| 7 | ;
|
|---|
| 8 | N SCUSR,SCVAL,SCREEN,SCINST,SCOK
|
|---|
| 9 | D CHK^SCUTBK
|
|---|
| 10 | D TMP^SCUTBK
|
|---|
| 11 | ;
|
|---|
| 12 | S SCINST=$G(SC("USRCOK"),"")
|
|---|
| 13 | S SCUSR=$G(SC("USRCLASS"),"")
|
|---|
| 14 | S SCVAL=$G(SC("VALUE"),"")
|
|---|
| 15 | S SCREEN=$G(SC("SCREEN"),"")
|
|---|
| 16 | S SCPC=$G(SC("PC"))
|
|---|
| 17 | ;
|
|---|
| 18 | IF SCVAL="?"&(SCINST) D G STAFQ
|
|---|
| 19 | . D WHOIS2^USRLM("SCRTN",SCUSR)
|
|---|
| 20 | . M SCDATA=SCRTN
|
|---|
| 21 | . S SCDATA(0)="[Data]"
|
|---|
| 22 | ;
|
|---|
| 23 | D URSLKUP^SCMCPR1(.SCDATA,SCUSR,SCVAL,SCREEN,SCINST,SCPC)
|
|---|
| 24 | ;
|
|---|
| 25 | STAFQ ;
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | CHKUSR(SCOK,SCVAL) ;
|
|---|
| 29 | S SCOK=$G(^SD(404.91,SCVAL,"PCMM"))
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | GETPC(SCDATA,SC) ;
|
|---|
| 33 | ;
|
|---|
| 34 | N SCDFN,SCDATE,SCROLE,SCAST
|
|---|
| 35 | D CHK^SCUTBK
|
|---|
| 36 | D TMP^SCUTBK
|
|---|
| 37 | ;
|
|---|
| 38 | S SCDFN=$G(SC("DFN"),"")
|
|---|
| 39 | S SCDATE=$G(SC("DATE"),DT)
|
|---|
| 40 | S SCROLE=$G(SC("ROLE"),1)
|
|---|
| 41 | S SCAST=$G(SC("AST"),1)
|
|---|
| 42 | ;
|
|---|
| 43 | S SCDATA=$$GETPC^SCAPMCU2(SCDFN,SCDATE,SCROLE,SCAST)
|
|---|
| 44 | Q
|
|---|
