| [1161] | 1 | BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am
|
|---|
| [1563] | 2 | ;;1.6;BSDX;;Aug 31, 2011;Build 25
|
|---|
| [1161] | 3 | ; Licensed under LGPL
|
|---|
| [614] | 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | SCHUSRD(BSDXY) ;EP
|
|---|
| 7 | ;Entry point for debugging
|
|---|
| 8 | ;
|
|---|
| 9 | ;D DEBUG^%Serenji("SCHUSR^BSDX17(.BSDXY)")
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | SCHUSR(BSDXY) ;EP
|
|---|
| 13 | ;Return recordset of all users in NEW PERSON having BSDXZMENU key
|
|---|
| 14 | ;Called by BSDX SCHEDULE USER
|
|---|
| 15 | ;Test Line:
|
|---|
| 16 | ;D SCHUSR^BSDX17(.RES)
|
|---|
| 17 | ;
|
|---|
| 18 | N BSDXDUZ,BSDXKEY,BSDXI,BSDXNAM,BSDXKEYN
|
|---|
| 19 | S BSDXY="^BSDXTMP("_$J_")"
|
|---|
| 20 | K ^TEMP($J,"BSDX17")
|
|---|
| 21 | S BSDXI=0
|
|---|
| 22 | S ^BSDXTMP($J,0)="I00020USERID^T00030USERNAME"_$C(30)
|
|---|
| 23 | ;$O Through ^VA(200,"AB",
|
|---|
| 24 | F BSDXKEYN="BSDXZMENU","BSDXZMGR","XUPROGMODE" S BSDXKEY=+$O(^DIC(19.1,"B",BSDXKEYN,0)) D
|
|---|
| 25 | . Q:'+BSDXKEY S BSDXDUZ=0 F S BSDXDUZ=$O(^VA(200,"AB",BSDXKEY,BSDXDUZ)) Q:'+BSDXDUZ D
|
|---|
| 26 | . . Q:BSDXDUZ<1 ;IHS/HMW **1**
|
|---|
| 27 | . . Q:'$D(^VA(200,BSDXDUZ,0))
|
|---|
| 28 | . . Q:$D(^TEMP($J,"BSDX17",BSDXDUZ))
|
|---|
| 29 | . . S BSDXNAM=$P(^VA(200,BSDXDUZ,0),U)
|
|---|
| 30 | . . S BSDXI=BSDXI+1
|
|---|
| 31 | . . S ^TEMP($J,"BSDX17",BSDXDUZ)=""
|
|---|
| 32 | . . S ^BSDXTMP($J,BSDXI)=BSDXDUZ_"^"_BSDXNAM_$C(30)
|
|---|
| 33 | . . Q
|
|---|
| 34 | . Q
|
|---|
| 35 | ;
|
|---|
| 36 | S BSDXI=BSDXI+1
|
|---|
| 37 | S ^BSDXTMP($J,BSDXI)=$C(31)
|
|---|
| 38 | Q
|
|---|
