Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: CRHD11

CRHD11.m

Go to the documentation of this file.
  1. CRHD11 ; CAIRO/CLC - GET USERS PARAMETERS ;23-Mar-2008 13:13;CLC
  1. ;;1.0;CRHD;****;Jan 28, 2008;Build 19
  1. ;=================================================================
  1. GETALLPL(CRHDRTN,DUZ,CRHDDIV) ;
  1. ;get a list of Parameters levels
  1. N CRHDPAR,CRHDTEAM,CRHDSRV,Y,CRHDX,CRHDIVIE,CRHDCT,CRHDMGR
  1. N CRHDI
  1. D MGR^CRHD7(.CRHDMGR,+DUZ)
  1. I +CRHDMGR D GETMGRPL(.CRHDRTN,DUZ) Q
  1. S Y=-1
  1. S CRHDCT=1
  1. D TEAMS^ORWTPT(.CRHDTEAM,DUZ)
  1. S CRHDSRV=$$GET1^DIQ(200,DUZ_",",29,"E")
  1. S CRHDPAR="USR.`"_DUZ
  1. D LOOKUP^XPAREDIT(CRHDPAR,183)
  1. ;I (Y>0)&($$CKATNRES(+Y)) S CRHDRTN(CRHDCT)=Y_"^"_$$GETFENT($P(Y,"^",2),0,1)
  1. I Y>0 S CRHDRTN(CRHDCT)=Y_"^"_$$GETFENT($P(Y,"^",2),0,1)
  1. I $D(CRHDTEAM) D
  1. .S CRHDI=0
  1. .F S CRHDI=$O(CRHDTEAM(CRHDI)) Q:'CRHDI D
  1. ..S Y=0,CRHDPAR="OTL.`"_+CRHDTEAM(CRHDI) D LOOKUP^XPAREDIT(CRHDPAR,183)
  1. ..I Y>0 S CRHDCT=CRHDCT+1,CRHDRTN(CRHDCT)=Y_"^"_$$GETFENT($P(Y,"^",2),0,1)
  1. I $G(CRHDSRV)'="" S Y=0,CRHDPAR="SRV."_CRHDSRV D LOOKUP^XPAREDIT(CRHDPAR,183)
  1. I Y>0 S CRHDCT=CRHDCT+1,CRHDRTN(CRHDCT)=Y_"^"_$$GETFENT($P(Y,"^",2),0,1)
  1. I '+$G(CRHDDIV) S CRHDDIV=+$$SITE^VASITE
  1. S Y=0,CRHDPAR="DIV.`"_+CRHDDIV D LOOKUP^XPAREDIT(CRHDPAR,183)
  1. I Y>0 S CRHDCT=CRHDCT+1,CRHDRTN(CRHDCT)=Y_"^"_$$GETFENT($P(Y,"^",2),0,1)
  1. I (Y<0) D
  1. .S CRHDIVIE=$O(^DIC(4,"D",CRHDDIV,0))
  1. .I CRHDIVIE S Y=0,CRHDPAR="DIV.`"_CRHDIVIE D LOOKUP^XPAREDIT(CRHDPAR,183)
  1. .I Y>0 S CRHDCT=CRHDCT+1,CRHDRTN(CRHDCT)=Y_"^"_$$GETFENT($P(Y,"^",2),0,1)
  1. Q
  1. GETIT(CRHDRTN,CRHDMN) ;get all of the users PARameters 2
  1. N CRHDX2,CRHDCT,CRHDP,CRHDMGR
  1. K CRHDRTN
  1. S (CRHDP,CRHDCT)=0
  1. ;Q:'$$CKATNRES(+CRHDMN)
  1. F S CRHDP=$O(^CRHD(183,+CRHDMN,1,CRHDP)) Q:'CRHDP D
  1. .S CRHDCT=CRHDCT+1
  1. .I $P($G(^CRHD(183,+CRHDMN,1,CRHDP,0)),"^",2)="" D
  1. ..S CRHDX2=0 F S CRHDX2=$O(^CRHD(183,+CRHDMN,1,CRHDP,1,CRHDX2)) Q:'CRHDX2 D
  1. ...S CRHDRTN(CRHDCT)=$P($G(^CRHD(183,+CRHDMN,1,CRHDP,0)),"^",1)_"^"_$G(^CRHD(183,+CRHDMN,1,CRHDP,1,CRHDX2,0))
  1. ...S CRHDCT=CRHDCT+1
  1. .E S CRHDRTN(CRHDCT)=$G(^CRHD(183,+CRHDMN,1,CRHDP,0))
  1. Q
  1. CKATNRES(CRHDN) ;Check for Resident and Student fields only exist
  1. ;0 - Resident and/or Student Parameters or no Parameters exist
  1. ;1 - if full setup
  1. ;I '$D(^CRHD(183,CRHDN)) Q 0
  1. ;I $D(^CRHD(183,CRHDN,1,0))&($P(^CRHD(183,CRHDN,1,0),"^",4)>2) Q 1
  1. ;E Q 0
  1. ;
  1. GETMGRPL(CRHDRTN,CRHDUSR) ;Get a list of preferences for Manager, excludes user levels- this could be to long
  1. N CRHDPNAM,CRHDMN,CRHDCT,CRHDMGR
  1. S CRHDCT=0
  1. D MGR^CRHD7(.CRHDMGR,+CRHDUSR)
  1. Q:'CRHDMGR
  1. S CRHDPNAM=""
  1. F S CRHDPNAM=$O(^CRHD(183,"B",CRHDPNAM)) Q:CRHDPNAM="" D
  1. .S CRHDMN=0
  1. .F S CRHDMN=$O(^CRHD(183,"B",CRHDPNAM,CRHDMN)) Q:'CRHDMN D
  1. ..;Q:'$$CKATNRES(+CRHDMN)
  1. ..;S CRHDPFMT="^"_$P(CRHDPNAM,";",2)_+CRHDPNAM_",0)"
  1. ..I CRHDPNAM[";" S CRHDCT=CRHDCT+1,CRHDRTN(CRHDCT)=CRHDMN_"^"_CRHDPNAM_"^"_$$GETFENT(CRHDPNAM,0,1)
  1. Q
  1. GETFENT(CRHDE,CRHDN,CRHDP) ;Convert to file entry
  1. ;CRHDE = entity
  1. ;CRHDN = node
  1. ;CRHDP = piece
  1. N CRHDPFMT
  1. S CRHDPFMT="^"_$P(CRHDE,";",2)_+CRHDE_","_CRHDN_")"
  1. Q $P($G(@CRHDPFMT),"^",CRHDP)
  1. DEFPREF(CRHDRTN,CRHDUSR) ;Default preference for a user
  1. N CRHDE,CRHDOLST,CRHDX,Y,CRHDP
  1. K CRHDRTN
  1. S CRHDE="USR.`"_+CRHDUSR
  1. ;D GETLST^XPAR(.CRHDOLST,CRHDE,"CRHD DEFAULT PREFERENCE","E")
  1. S CRHDOLST=$$GET^XPAR(CRHDE,"CRHD DEFAULT PREFERENCE",1,"E")
  1. I CRHDOLST D
  1. .I '$$GET1^DIQ(183,+CRHDOLST_",",.01,"I") D NDEL^XPAR("USR.`"_+CRHDUSR,"CRHD DEFAULT PREFERENCE") Q
  1. .I CRHDOLST'?.E1"|".E S CRHDRTN(1)=+CRHDOLST_"^"_$$GET1^DIQ(183,+CRHDOLST_",",.01,"I")_"^"_$$GET1^DIQ(183,+CRHDOLST_",",.01,"E")_"^DEF" Q
  1. .S CRHDRTN(1)=$P(CRHDOLST,"^",2)
  1. .S CRHDRTN(1)=$TR(CRHDRTN(1),"|","^")_"^D"
  1. Q