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

Last change on this file since 1563 was 1563, checked in by Tariq Hamkari, 12 years ago

updated the BSDX version to 1.7

  • fix "BSDX01.m" routine , it was take too long time to retrieve patient radiology exams.
File size: 1.0 KB
Line 
1BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am
2 ;;1.6;BSDX;;Aug 31, 2011;Build 25
3 ; Licensed under LGPL
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.