Routine: SDEC17

SDEC17 ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016

 ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249

SCHUSR(SDECY) ;Return recordset of all users in NEW PERSON having SDECZMENU and/or SDECZMGR key

 ;SCHUSR(SDECY)  external parameter tag is in SDEC

 N SDECDUZ,SDECKEY,SDECI,SDECNAM,SDECKEYN

 S SDECY="^TMP(""SDEC"","_$J_")"

 K @SDECY

 K ^TMP($J,"SDEC17")

 S SDECI=0

 S @SDECY@(0)="I00020USERID^T00030USERNAME"_$C(30)

 ;$O Through ^VA(200,"AB",

 F SDECKEYN="SDECZMENU","SDECZMGR" S SDECKEY=+$O(^DIC(19.1,"B",SDECKEYN,0)) D

 . Q:'+SDECKEY  S SDECDUZ=0 F  S SDECDUZ=$O(^VA(200,"AB",SDECKEY,SDECDUZ)) Q:'+SDECDUZ  D

 . . Q:SDECDUZ<1

 . . Q:'$D(^VA(200,SDECDUZ,0))

 . . Q:$D(^TMP($J,"SDEC17",SDECDUZ))

 . . S SDECNAM=$P(^VA(200,SDECDUZ,0),U)

 . . S SDECI=SDECI+1

 . . S ^TMP($J,"SDEC17",SDECDUZ)=""

 . . S @SDECY@(SDECI)=SDECDUZ_"^"_SDECNAM_$C(30)

 . . Q

. Q

 S @SDECY@(SDECI)=@SDECY@(SDECI)_$C(31)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDEC17   943     printed  Apr 09, 2024@21:51:27                                                                                                                                                                                                       Page 2

SDEC17    ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016

 +1       ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249

 +2       ;

 +3        QUIT

 +4       ;

SCHUSR(SDECY) ;Return recordset of all users in NEW PERSON having SDECZMENU and/or SDECZMGR key

 +1       ;SCHUSR(SDECY)  external parameter tag is in SDEC

 +2       ;

 +3        NEW SDECDUZ,SDECKEY,SDECI,SDECNAM,SDECKEYN

 +4        SET SDECY="^TMP(""SDEC"","_$JOB_")"

 +5        KILL @SDECY

 +6        KILL ^TMP($JOB,"SDEC17")

 +7        SET SDECI=0

 +8        SET @SDECY@(0)="I00020USERID^T00030USERNAME"_$CHAR(30)

 +9       ;$O Through ^VA(200,"AB",

 +10       FOR SDECKEYN="SDECZMENU","SDECZMGR"

               SET SDECKEY=+$ORDER(^DIC(19.1,"B",SDECKEYN,0))

               Begin DoDot:1

 +11               if '+SDECKEY

                       QUIT

                   SET SDECDUZ=0

FOR

                       SET SDECDUZ=$ORDER(^VA(200,"AB",SDECKEY,SDECDUZ))

                       if '+SDECDUZ

                           QUIT

                       Begin DoDot:2

 +12                       if SDECDUZ<1

                               QUIT

 +13                       if '$DATA(^VA(200,SDECDUZ,0))

                               QUIT

 +14                       if $DATA(^TMP($JOB,"SDEC17",SDECDUZ))

                               QUIT

 +15                       SET SDECNAM=$PIECE(^VA(200,SDECDUZ,0),U)

 +16                       SET SDECI=SDECI+1

 +17                       SET ^TMP($JOB,"SDEC17",SDECDUZ)=""

 +18                       SET @SDECY@(SDECI)=SDECDUZ_"^"_SDECNAM_$CHAR(30)

 +19                       QUIT

                       End DoDot:2

 +20               QUIT

               End DoDot:1

 +21      ;

 +22       SET @SDECY@(SDECI)=@SDECY@(SDECI)_$CHAR(31)

 +23       QUIT

SDEC17.m