source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULE.m@ 1005

Last change on this file since 1005 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1TIULE ; SLC/SBW - Environment Library Functions ;4/22/94 11:28
2 ;;1.0;TEXT INTEGRATION UTILITIES;**10**;Jun 20, 1997
3SETPARM ; Get parameters for user's division
4 N TIUI
5 ; S TIUI=$O(^TIU(8925.99,"B",+$O(^DG(40.8,"AD",+$G(DUZ(2)),0)),0))
6 S TIUI=$O(^TIU(8925.99,"B",+$G(DUZ(2)),0))
7 S:+TIUI'>0 TIUI=+$O(^TIU(8925.99,0))
8 S TIUPRM0=$G(^TIU(8925.99,+TIUI,0)),TIUPRM1=$G(^TIU(8925.99,+TIUI,1))
9 Q
10GETDOCS(TIUY,TIUDUZ,TIUCLASS) ; Get personal document lists
11 N TIUI,TIUDA
12 S TIUI=0,TIUDA=+$O(^TIU(8925.98,"AC",TIUDUZ,TIUCLASS,0))
13 I 'TIUDA S TIUY=0 Q
14 S TIUY=$$PNAME^TIULC1(TIUCLASS)_U_$P($G(^TIU(8925.98,+TIUDA,0)),U,3)
15 S TIUY=TIUY_U_$P($G(^TIU(8925.1,+$P(TIUY,U,2),0)),U)
16 F S TIUI=$O(^TIU(8925.98,TIUDA,10,"B",TIUI)) Q:+TIUI'>0 D
17 . N TIUJ S TIUJ=$O(^TIU(8925.98,TIUDA,10,"B",TIUI,0)) Q:+TIUJ'>0
18 . S TIUY(TIUI)=$P($G(^TIU(8925.98,TIUDA,10,TIUJ,0)),U,2,3)
19 Q
20PERSPRF(USER) ; Get USER's Personal Preferences
21 N DA,Y S Y=""
22 S DA=+$O(^TIU(8926,"B",USER,0)) I +DA'>0 G PERSPX
23 S Y=$G(^TIU(8926,+DA,0))
24PERSPX Q Y
25PERSDOC(USER,TIUCLASS) ; Get Default document type, given user & class
26 N TIUY,TIUTYPE,TIUDA
27 S TIUDA=+$O(^TIU(8925.98,"AC",USER,TIUCLASS,0))
28 I 'TIUDA S TIUY=0 G PERSDOX
29 S TIUTYPE=$P($G(^TIU(8925.98,+TIUDA,0)),U,3)
30 I '+$$CANPICK^TIULP(TIUTYPE) S TIUY=0 G PERSDOX
31 S TIUY=TIUTYPE_U_$P($G(^TIU(8925.1,+TIUTYPE,0)),U)
32PERSDOX Q TIUY
33PERSLOC(USER) ; Get Default location (By day of week, if defined)
34 N DA,Y S Y=""
35 S DA=+$O(^TIU(8926,"B",USER,0)) I +DA'>0 G PERSLOX
36 S Y=+$P(^TIU(8926,+DA,0),U,2) S:+Y Y=Y_U_$P($G(^SC(+Y,0)),U)
37 I +$O(^TIU(8926,+DA,1,0)) D
38 . N DOW,S1
39 . S DOW=$$DOW^XLFDT(DT,1)+1,S1=+$O(^TIU(8926,DA,1,"B",DOW,0)) Q:+S1'>0
40 . S Y=+$P(^TIU(8926,+DA,1,+S1,0),U,2) S:+Y Y=Y_U_$P($G(^SC(+Y,0)),U)
41PERSLOX Q Y
Note: See TracBrowser for help on using the repository browser.