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

Last change on this file since 1484 was 1481, checked in by Sam Habiel, 12 years ago

Updated routine version numbers to 1.7T2.
Changes the Writes in the post-init to MESXPDUTL in BSDX2E.
Changed the check for BMX to be for BMX 4 rather than BMX 2.

File size: 1.0 KB
RevLine 
[1161]1BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am
[1481]2 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
[1161]3 ; Licensed under LGPL
[614]4 ;
5 ;
6SCHUSRD(BSDXY) ;EP
7 ;Entry point for debugging
8 ;
9 ;D DEBUG^%Serenji("SCHUSR^BSDX17(.BSDXY)")
10 Q
11 ;
12SCHUSR(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
Note: See TracBrowser for help on using the repository browser.