iSharkFly-Open
/
VistA-Scheduling
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rollback for yesterday's changes

This commit is contained in:
sam 2010-09-29 07:05:19 +00:00
parent 4503323eb2
commit 2749ab3b1d
2 changed files with 8 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
m/BSDX01.m
View File

@ -1,16 +1,7 @@
BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/28/10 4:47pm BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/29/10 10:20am
;;1.4;BSDX;;Sep 07, 2010 ;;1.4;BSDX;;Sep 07, 2010
; Change Log:
; V 1.4.1 (Sep 28 2010): Separate user divisions based on $$INDIV.
; Affects:
; - RESUSR
; - DEPUSR
; - DEPRES
;
; ;
SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point
;
;
;D DEBUG^%Serenji("SUINFO^BSDX01(.BSDXY,BSDXDUZ)") ;D DEBUG^%Serenji("SUINFO^BSDX01(.BSDXY,BSDXDUZ)")
; ;
Q Q
@ -46,7 +37,6 @@ DEPUSR(BSDXY,BSDXDUZ) ;EP
;Returns ADO Recordset with all ACTIVE resource group names to which user has access ;Returns ADO Recordset with all ACTIVE resource group names to which user has access
;based on entries in BSDX RESOURCE USER file (Say this again for myself: Groups ONLY!!) ;based on entries in BSDX RESOURCE USER file (Say this again for myself: Groups ONLY!!)
;If BSDXDUZ=0 then returns all department names for current DUZ ;If BSDXDUZ=0 then returns all department names for current DUZ
;What is returned depends if it is in the same divsion as the hosptial location if it is linked
;if not linked, always returned. ;if not linked, always returned.
;If user BSDXDUZ possesses the key BSDXZMGR or XUPROGMODE ;If user BSDXDUZ possesses the key BSDXZMGR or XUPROGMODE
;then ALL resource group names are returned regardless of whether any active resources ;then ALL resource group names are returned regardless of whether any active resources
@ -70,7 +60,7 @@ DEPUSR(BSDXY,BSDXDUZ) ;EP
I 'BSDXMGR,$D(^BSDXRSU("AC",BSDXDUZ)) S BSDXIEN=0 F S BSDXIEN=$O(^BSDXRSU("AC",BSDXDUZ,BSDXIEN)) Q:'+BSDXIEN D I 'BSDXMGR,$D(^BSDXRSU("AC",BSDXDUZ)) S BSDXIEN=0 F S BSDXIEN=$O(^BSDXRSU("AC",BSDXDUZ,BSDXIEN)) Q:'+BSDXIEN D
. S BSDXRES=$P(^BSDXRSU(BSDXIEN,0),U) . S BSDXRES=$P(^BSDXRSU(BSDXIEN,0),U)
. Q:'$D(^BSDXDEPT("AB",BSDXRES)) ; If not part of a group, quit ("AB" is the whole file index for the resource multiple in Group file) . Q:'$D(^BSDXDEPT("AB",BSDXRES)) ; If not part of a group, quit ("AB" is the whole file index for the resource multiple in Group file)
. Q:'$$INDIV2(BSDXRES) ; If not in the same division as user, quit . ; Q:'$$INDIV2(BSDXRES) ; If not in the same division as user, quit
. S BSDXRNOD=^BSDXRES(BSDXRES,0) . S BSDXRNOD=^BSDXRES(BSDXRES,0)
. ;QUIT if the resource is inactive . ;QUIT if the resource is inactive
. Q:$P(BSDXRNOD,U,2)=1 . Q:$P(BSDXRNOD,U,2)=1
@ -131,7 +121,7 @@ RESUSR(BSDXY,BSDXDUZ) ;EP
. N BSDXSC S BSDXSC=$P(BSDXRNOD,U,4) ; Hospital Location . N BSDXSC S BSDXSC=$P(BSDXRNOD,U,4) ; Hospital Location
. ;Q:$P(BSDXRNOD,U,2)=1 ;Inactive resources not filtered . ;Q:$P(BSDXRNOD,U,2)=1 ;Inactive resources not filtered
. ;S BSDXRDAT=$P(BSDXRNOD,U,1,4) . ;S BSDXRDAT=$P(BSDXRNOD,U,1,4)
. I '$$INDIV(BSDXSC) QUIT ; If not in division, quit . ;I '$$INDIV(BSDXSC) QUIT ; If not in division, quit
. K BSDXRDAT . K BSDXRDAT
. F BSDX=1:1:4 S $P(BSDXRDAT,U,BSDX)=$P(BSDXRNOD,U,BSDX) . F BSDX=1:1:4 S $P(BSDXRDAT,U,BSDX)=$P(BSDXRNOD,U,BSDX)
. S BSDXRDAT=BSDXRES_U_BSDXRDAT . S BSDXRDAT=BSDXRES_U_BSDXRDAT
@ -186,7 +176,6 @@ DEPRES(BSDXY,BSDXDUZ) ;EP
;Called by BSDX GROUP RESOURCE ;Called by BSDX GROUP RESOURCE
;Returns ADO Recordset with all ACTIVE GROUP/RESOURCE combinations ;Returns ADO Recordset with all ACTIVE GROUP/RESOURCE combinations
;to which user has access based on entries in BSDX RESOURCE USER file ;to which user has access based on entries in BSDX RESOURCE USER file
;by Division (set in DUZ(2))
;If BSDXDUZ=0 then returns all ACTIVE GROUP/RESOURCE combinations for current DUZ ;If BSDXDUZ=0 then returns all ACTIVE GROUP/RESOURCE combinations for current DUZ
;If user BSDXDUZ possesses the key BSDXZMGR or XUPROGMODE ;If user BSDXDUZ possesses the key BSDXZMGR or XUPROGMODE
;then ALL ACTIVE resource group names are returned ;then ALL ACTIVE resource group names are returned
@ -208,7 +197,7 @@ DEPRES(BSDXY,BSDXDUZ) ;EP
I 'BSDXMGR,$D(^BSDXRSU("AC",BSDXDUZ)) S BSDXIEN=0 F S BSDXIEN=$O(^BSDXRSU("AC",BSDXDUZ,BSDXIEN)) Q:'+BSDXIEN D I 'BSDXMGR,$D(^BSDXRSU("AC",BSDXDUZ)) S BSDXIEN=0 F S BSDXIEN=$O(^BSDXRSU("AC",BSDXDUZ,BSDXIEN)) Q:'+BSDXIEN D
. S BSDXRES=$P(^BSDXRSU(BSDXIEN,0),U) . S BSDXRES=$P(^BSDXRSU(BSDXIEN,0),U)
. Q:'$D(^BSDXDEPT("AB",BSDXRES)) ; Quit if Resource isn't part of any Group . Q:'$D(^BSDXDEPT("AB",BSDXRES)) ; Quit if Resource isn't part of any Group
. Q:'$$INDIV2(BSDXRES) ; Quit if Resource isn't in same division as user. . ;Q:'$$INDIV2(BSDXRES) ; Quit if Resource isn't in same division as user.
. S BSDXRNOD=$G(^BSDXRES(BSDXRES,0)) . S BSDXRNOD=$G(^BSDXRES(BSDXRES,0))
. Q:BSDXRNOD="" . Q:BSDXRNOD=""
. ;QUIT if the resource is inactive . ;QUIT if the resource is inactive
@ -233,7 +222,7 @@ DEPRES(BSDXY,BSDXDUZ) ;EP
. . Q:'$D(^BSDXDEPT(BSDXIEN,1,BSDXRES,0)) ; Quit if zero node is invalid in multiple . . Q:'$D(^BSDXDEPT(BSDXIEN,1,BSDXRES,0)) ; Quit if zero node is invalid in multiple
. . S BSDXRESD=$P(^BSDXDEPT(BSDXIEN,1,BSDXRES,0),"^") . . S BSDXRESD=$P(^BSDXDEPT(BSDXIEN,1,BSDXRES,0),"^")
. . Q:'$D(^BSDXRES(BSDXRESD,0)) ; Quit if zero node of resouce file is invalid . . Q:'$D(^BSDXRES(BSDXRESD,0)) ; Quit if zero node of resouce file is invalid
. . Q:'$$INDIV2(BSDXRESD) ; Quit if resource is not in the same division . . ;Q:'$$INDIV2(BSDXRESD) ; Quit if resource is not in the same division
. . S BSDXRNOD=$G(^BSDXRES(BSDXRESD,0)) . . S BSDXRNOD=$G(^BSDXRES(BSDXRESD,0))
. . Q:BSDXRNOD="" . . Q:BSDXRNOD=""
. . ;QUIT if the resource is inactive . . ;QUIT if the resource is inactive

6
m/BSDX32.m
View File

@ -1,4 +1,4 @@
BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/29/10 10:21am
;;1.4;BSDX;;Sep 07, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
@ -19,7 +19,7 @@ HOSPLOCD(BSDXY) ;EP Debugging entry point
; ;
HOSPLOC(BSDXY) ;EP HOSPLOC(BSDXY) ;EP
;Called by BSDX HOSPITAL LOCATION ;Called by BSDX HOSPITAL LOCATION
;Returns all hospital locations that are active AND in the same division as the user ;Returns all hospital locations that are active
; ;
N BSDXI,BSDXIEN,BSDXNOD,BSDXNAM,BSDXINA,BSDXREA,BSDXSCOD N BSDXI,BSDXIEN,BSDXNOD,BSDXNAM,BSDXINA,BSDXREA,BSDXSCOD
D ^XBKVAR S X="ERROR^BSDX32",@^%ZOSF("TRAP") D ^XBKVAR S X="ERROR^BSDX32",@^%ZOSF("TRAP")
@ -33,7 +33,7 @@ HOSPLOC(BSDXY) ;EP
. S BSDXIEN=$O(^SC("B",BSDXNAM,0)) . S BSDXIEN=$O(^SC("B",BSDXNAM,0))
. Q:'+BSDXIEN>0 . Q:'+BSDXIEN>0
. Q:'$D(^SC(+BSDXIEN,0)) . Q:'$D(^SC(+BSDXIEN,0))
. Q:'$$INDIV^BSDX01(+BSDXIEN) ; if not in the same division, quit . ;Q:'$$INDIV^BSDX01(+BSDXIEN) ; if not in the same division, quit
. S BSDXINA=$$GET1^DIQ(44,BSDXIEN_",",2505) ;INACTIVATE . S BSDXINA=$$GET1^DIQ(44,BSDXIEN_",",2505) ;INACTIVATE
. S BSDXREA=$$GET1^DIQ(44,BSDXIEN_",",2506) ;REACTIVATE . S BSDXREA=$$GET1^DIQ(44,BSDXIEN_",",2506) ;REACTIVATE
. I BSDXINA]""&(BSDXREA="") Q ;Clinic is inactivated and has no reactivate date . I BSDXINA]""&(BSDXREA="") Q ;Clinic is inactivated and has no reactivate date