SCUTBK12.m

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 ---SCUTBK12   907     printed  Apr 09, 2024@22:02:03                                                                                                                                                                                                     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