39 lines
1.0 KiB
Mathematica
39 lines
1.0 KiB
Mathematica
BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am
|
|
;;1.6T2;BSDX;;May 16, 2011
|
|
; Licensed under LGPL
|
|
;
|
|
;
|
|
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
|