source: Scheduling/trunk/m/BSDX17.m@ 878

Last change on this file since 878 was 614, checked in by Sam Habiel, 15 years ago

Initial committ of scheduling package

File size: 1.0 KB
Line 
1BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
2 ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
3 ;
4 ;
5SCHUSRD(BSDXY) ;EP
6 ;Entry point for debugging
7 ;
8 ;D DEBUG^%Serenji("SCHUSR^BSDX17(.BSDXY)")
9 Q
10 ;
11SCHUSR(BSDXY) ;EP
12 ;Return recordset of all users in NEW PERSON having BSDXZMENU key
13 ;Called by BSDX SCHEDULE USER
14 ;Test Line:
15 ;D SCHUSR^BSDX17(.RES)
16 ;
17 N BSDXDUZ,BSDXKEY,BSDXI,BSDXNAM,BSDXKEYN
18 S BSDXY="^BSDXTMP("_$J_")"
19 K ^TEMP($J,"BSDX17")
20 S BSDXI=0
21 S ^BSDXTMP($J,0)="I00020USERID^T00030USERNAME"_$C(30)
22 ;$O Through ^VA(200,"AB",
23 F BSDXKEYN="BSDXZMENU","BSDXZMGR","XUPROGMODE" S BSDXKEY=+$O(^DIC(19.1,"B",BSDXKEYN,0)) D
24 . Q:'+BSDXKEY S BSDXDUZ=0 F S BSDXDUZ=$O(^VA(200,"AB",BSDXKEY,BSDXDUZ)) Q:'+BSDXDUZ D
25 . . Q:BSDXDUZ<1 ;IHS/HMW **1**
26 . . Q:'$D(^VA(200,BSDXDUZ,0))
27 . . Q:$D(^TEMP($J,"BSDX17",BSDXDUZ))
28 . . S BSDXNAM=$P(^VA(200,BSDXDUZ,0),U)
29 . . S BSDXI=BSDXI+1
30 . . S ^TEMP($J,"BSDX17",BSDXDUZ)=""
31 . . S ^BSDXTMP($J,BSDXI)=BSDXDUZ_"^"_BSDXNAM_$C(30)
32 . . Q
33 . Q
34 ;
35 S BSDXI=BSDXI+1
36 S ^BSDXTMP($J,BSDXI)=$C(31)
37 Q
Note: See TracBrowser for help on using the repository browser.