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

Tiny bug fixes to fix compile errors

This commit is contained in:
sam 2010-05-22 01:50:19 +00:00
parent fdee4b85c0
commit 4f849e5825
3 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
m/BSDX21.m
View File

@ -1,4 +1,4 @@
BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:42pm
;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
;
;
@ -67,7 +67,7 @@ DELAG(BSDXY,BSDXGRP) ;EP
S BSDXIEN=BSDXGRP
;I '$D(^BSDXAGP("B",BSDXGRP)) D ERR(BSDXI,0,0) Q
;S BSDXIEN=$O(^BSDXAGP("B",BSDXGRP,0))
I '+BSDXIEN D ERR(BSDXI,BSDXIEN,70) Q
I '+BSDXIEN D ERR(BSDXI,BSDXIEN) Q
I '$D(^BSDXAGP(BSDXIEN,0)) D ERR(0,"BSDX14: Invalid Access Group ID name.") Q
;
;Delete BSDXACCESS GROUP TYPE entries

8
m/BSDX27.m
View File

@ -1,4 +1,4 @@
BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/29/10 9:43pm
BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:52pm
;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
;
;
@ -125,15 +125,15 @@ STATUS(PAT,DATE,NODE) ; returns appt status
Q TYP
;
ERROR ;
D ERR("RPMS Error")
D ERR(BSDXI,"RPMS Error")
Q
;
ERR(ERRNO) ;Error processing
ERR(BSDXI,ERRNO,MSG) ;Error processing
S:'$D(BSDXI) BSDXI=999
I +ERRNO S BSDXERR=ERRNO+134234112 ;vbObjectError
E S BSDXERR=ERRNO
S BSDXI=BSDXI+1
S ^BSDXTMP($J,BSDXI)="^^^^^^^^^^^^^^^"_$C(30)
S ^BSDXTMP($J,BSDXI)=MSG_"^^^^^^^^^^^^^^^"_$C(30)
S BSDXI=BSDXI+1
S ^BSDXTMP($J,BSDXI)=$C(31)
Q

8
m/BSDX34.m
View File

@ -1,4 +1,4 @@
BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:56pm
;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
;
;
@ -49,10 +49,10 @@ RBCLIN(BSDXY,BSDXCLST,BSDXBEG,BSDXEND) ;EP
;Convert beginning and ending dates
;
S X=BSDXBEG,%DT="XT" D ^%DT S BSDXBEG=$P(Y,"."),BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
I Y=-1 D RBERR(1) Q
I Y=-1 D RBERR Q
S X=BSDXEND,%DT="XT" D ^%DT S BSDXEND=$P(Y,"."),BSDXEND=BSDXEND_".9999"
I Y=-1 D RBERR(1) Q
I BSDXCLST="" D RBERR(1) Q
I Y=-1 D RBERR Q
I BSDXCLST="" D RBERR Q
;
;
;If BSDXCLST is a list of resource NAMES, look up each name and convert to IEN