BSDX17.m

BSDX17 ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;

 ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010

 ;

 ;

SCHUSRD(BSDXY) ;EP

 ;Entry point for debugging

 ;

 ;D DEBUG^%Serenji("SCHUSR^BSDX17(.BSDXY)")

 Q

 ;

SCHUSR(BSDXY) ;EP

 ;Return recordset of all users in NEW PERSON having BSDXZMENU key

 ;Called by BSDX SCHEDULE USER

 ;Test Line:

 ;D SCHUSR^BSDX17(.RES)

 ;

 N BSDXDUZ,BSDXKEY,BSDXI,BSDXNAM,BSDXKEYN

 S BSDXY="^BSDXTMP("_$J_")"

 K ^TEMP($J,"BSDX17")

 S BSDXI=0

 S ^BSDXTMP($J,0)="I00020USERID^T00030USERNAME"_$C(30)

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

 F BSDXKEYN="BSDXZMENU","BSDXZMGR","XUPROGMODE" S BSDXKEY=+$O(^DIC(19.1,"B",BSDXKEYN,0)) D

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

 . . Q:BSDXDUZ<1  ;IHS/HMW **1**

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

 . . Q:$D(^TEMP($J,"BSDX17",BSDXDUZ))

 . . S BSDXNAM=$P(^VA(200,BSDXDUZ,0),U)

 . . S BSDXI=BSDXI+1

 . . S ^TEMP($J,"BSDX17",BSDXDUZ)=""

 . . S ^BSDXTMP($J,BSDXI)=BSDXDUZ_"^"_BSDXNAM_$C(30)

 . . Q

 . Q

 ;

 S BSDXI=BSDXI+1

 S ^BSDXTMP($J,BSDXI)=$C(31)

 Q

BSDX17    ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;

 +1       ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010

 +2       ;

 +3       ;

SCHUSRD(BSDXY) ;EP

 +1       ;Entry point for debugging

 +2       ;

 +3       ;D DEBUG^%Serenji("SCHUSR^BSDX17(.BSDXY)")

 +4        QUIT 

 +5       ;

SCHUSR(BSDXY) ;EP

 +1       ;Return recordset of all users in NEW PERSON having BSDXZMENU key

 +2       ;Called by BSDX SCHEDULE USER

 +3       ;Test Line:

 +4       ;D SCHUSR^BSDX17(.RES)

 +5       ;

 +6        NEW BSDXDUZ,BSDXKEY,BSDXI,BSDXNAM,BSDXKEYN

 +7        SET BSDXY="^BSDXTMP("_$JOB_")"

 +8        KILL ^TEMP($JOB,"BSDX17")

 +9        SET BSDXI=0

 +10       SET ^BSDXTMP($JOB,0)="I00020USERID^T00030USERNAME"_$CHAR(30)

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

 +12       FOR BSDXKEYN="BSDXZMENU","BSDXZMGR","XUPROGMODE"

               SET BSDXKEY=+$ORDER(^DIC(19.1,"B",BSDXKEYN,0))

               Begin DoDot:1

 +13               IF '+BSDXKEY

                       QUIT 

                   SET BSDXDUZ=0

                   FOR 

                       SET BSDXDUZ=$ORDER(^VA(200,"AB",BSDXKEY,BSDXDUZ))

                       IF '+BSDXDUZ

                           QUIT 

                       Begin DoDot:2

 +14      ;IHS/HMW **1**

                           IF BSDXDUZ<1

                               QUIT 

 +15                       IF '$DATA(^VA(200,BSDXDUZ,0))

                               QUIT 

 +16                       IF $DATA(^TEMP($JOB,"BSDX17",BSDXDUZ))

                               QUIT 

 +17                       SET BSDXNAM=$PIECE(^VA(200,BSDXDUZ,0),U)

 +18                       SET BSDXI=BSDXI+1

 +19                       SET ^TEMP($JOB,"BSDX17",BSDXDUZ)=""

 +20                       SET ^BSDXTMP($JOB,BSDXI)=BSDXDUZ_"^"_BSDXNAM_$CHAR(30)

 +21                       QUIT 

                       End DoDot:2

 +22               QUIT 

               End DoDot:1

 +23      ;

 +24       SET BSDXI=BSDXI+1

 +25       SET ^BSDXTMP($JOB,BSDXI)=$CHAR(31)

 +26       QUIT