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

BSDX01: New EP to Get and Set the new paramters that come with BSDX 

BSDX2E: Initial values for the new parameters at package level
BSDX25: Minor correction. BSDXY should not be newed.
This commit is contained in:
sam 2011-03-28 14:38:15 +00:00
parent 1ac96efefa
commit d0ccf1c8a9
3 changed files with 71 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
m/BSDX01.m
View File

@ -1,4 +1,4 @@
BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/29/10 10:20am
BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/16/11 7:08am
;;1.5V2;BSDX;;Mar 03, 2011
;
SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point
@ -256,6 +256,29 @@ APSEC(BSDXKEY,BSDXDUZ) ;EP - Return TRUE (1) if user has keys BSDXKEY or XUPROGM
I '+BSDXIEN Q 0
I '$D(^VA(200,BSDXDUZ,51,BSDXIEN,0)) Q 0
Q 1
SP(BSDXY,PARAM,YESNO) ; Save Param at User Level - EP
; Called by RPC: BSDX SET PARAM
; Input:
; - Param: Name of Parameter (prog name of course)
; - Yes/No: 1 or 0
; Output: Error Code as string; 0 is good
;
; Security Protection
IF $EXTRACT(PARAM,1,4)'="BSDX" S BSDXY="-1^BSDX Params only allowed" QUIT
;
N ERROR
D PUT^XPAR("USR",PARAM,1,YESNO,.ERROR)
S BSDXY=$G(ERROR)
QUIT
;
GP(BSDXY,PARAM) ; Get Param - EP
; Called by RPC: BSDX GET PARAM
; Input: Name of Parameter
; Output: Value of parameter: 0 or 1, for now.
;
S BSDXY=$$GET^XPAR("USR^LOC^SYS^PKG",PARAM,1,"I")
QUIT
;
INDIV(BSDXSC) ; PEP - Is ^SC clinic in the same DUZ(2) as user?
; Input: BSDXSC - Hospital Location IEN
; Output: True or False

4
m/BSDX25.m
View File

@ -1,4 +1,4 @@
BSDX25 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/16/11 1:07am
BSDX25 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/16/11 2:21am
;;1.5V2;BSDX;;Mar 03, 2011
;
; Change Log:
@ -133,7 +133,7 @@ RMCI(BSDXY,BSDXAPPTID) ; EP - Remove Check-in from BSDX APPT and 2/44
N $ET S $ET="G ERROR^BSDX25" ; Error Trap
;
; Set return variable and kill contents
N BSDXY S BSDXY=$NAME(^BSDXTMP($J))
S BSDXY=$NAME(^BSDXTMP($J))
K @BSDXY
;
N BSDXI S BSDXI=0 ; Initialize Counter

79
m/BSDX2E.m
View File

@ -1,4 +1,4 @@
BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/18/10 4:30pm]
BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [3/16/11 9:54am]
;;1.5V2;BSDX;;Mar 03, 2011
;
S LINE="",$P(LINE,"*",81)=""
@ -57,54 +57,65 @@ PATCHCK(XPXPCH) ;
W !!,$$C^XBFUNC("Need "_XPXPCH_"....."_XPXPCH_" "_$S(X:"Is",1:"Is Not")_" Present")
Q X
;
V0200 ;EP Version 1.3 PostInit
V0200 ;EP Version 1.5 PostInit
;Add Protocol items to SDAM APPOINTMENT EVENTS protocol
;Remove protocols known to cause problems from SDAM APPOINTMENT EVENTS
;
;Remove protocols known to cause problems from SDAM APPOINTMENT EVENTS
;Set Default Values for Parameters
N BSDXDA,BSDXFDA,BSDXDA1,BSDXSEQ,BSDXDAT,BSDXNOD,BSDXIEN,BSDXMSG
;
; 1st, add the BSDX event protocols
; Get SDAM APPOINTMENT EVENTS IEN in 101
;
; 1st, add the BSDX event protocols
; Get SDAM APPOINTMENT EVENTS IEN in 101
S BSDXDA=$O(^ORD(101,"B","SDAM APPOINTMENT EVENTS",0))
Q:'+BSDXDA
; Add each of those protocols unless they already exist.
; Add each of those protocols unless they already exist.
S BSDXDAT="BSDX ADD APPOINTMENT;10.2^BSDX CANCEL APPOINTMENT;10.4^BSDX CHECKIN APPOINTMENT;10.6^BSDX NOSHOW APPOINTMENT;10.8"
; For each
F J=1:1:$L(BSDXDAT,U) D
; For each
F J=1:1:$L(BSDXDAT,U) D
. K BSDXIEN,BSDXMSG,BSDXFDA
. ; Get Item
. ; Get Item
. S BSDXNOD=$P(BSDXDAT,U,J)
. ; Get Item Name (BSDX ADD APPOINTMENT)
. S BSDXDA1=$P(BSDXNOD,";")
. ; Get Item Sequence (10.2)
. S BSDXDA1=$P(BSDXNOD,";")
. ; Get Item Sequence (10.2)
. S BSDXSEQ=$P(BSDXNOD,";",2)
. ; Get Item Reference (Item is already in the protocol file)
. ; Get Item Reference (Item is already in the protocol file)
. S BSDXDA1=$O(^ORD(101,"B",BSDXDA1,0))
. ; Quit if not found
. ; Quit if not found
. Q:'+BSDXDA1
. ; Quit if already exists in the SDAM protocol
. ; Quit if already exists in the SDAM protocol
. Q:$D(^ORD(101,BSDXDA,10,"B",BSDXDA1))
. ; Go ahead and save it.
. ; Go ahead and save it.
. S BSDXFDA(101.01,"+1,"_BSDXDA_",",".01")=BSDXDA1
. S BSDXFDA(101.01,"+1,"_BSDXDA_",","3")=BSDXSEQ
. D UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG")
. ; Error message
. I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
;
; Remove nassssty protocols ORU PATIENT MOVMT and DVBA C&P SCHD EVENT
; SDAM APPOINTMENT EVENTS IENS for use in FIND1^DIC
N SDEVTIENS S SDEVTIENS=","_BSDXDA_","
; Subfile entry for ORU...
N ORUIEN S ORUIEN=$$FIND1^DIC(101.01,SDEVTIENS,"","ORU PATIENT MOVMT")
; Subfile entry for DVBA...
N DVBAIEN S DVBAIEN=$$FIND1^DIC(101.01,SDEVTIENS,"","DVBA C&P SCHD EVENT")
; Deletion code
N BSDXFDA,BSDXMSG
S:ORUIEN>0 BSDXFDA(101.01,ORUIEN_SDEVTIENS,.01)="@"
S:DVBAIEN>0 BSDXFDA(101.01,DVBAIEN_SDEVTIENS,.01)="@"
D:$D(BSDXFDA) FILE^DIE("","BSDXFDA","BSDXMSG")
; If error
I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
. ; Error message
. I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
;
; Remove nassssty protocols ORU PATIENT MOVMT and DVBA C&P SCHD EVENT
; SDAM APPOINTMENT EVENTS IENS for use in FIND1^DIC
N SDEVTIENS S SDEVTIENS=","_BSDXDA_","
; Subfile entry for ORU...
N ORUIEN S ORUIEN=$$FIND1^DIC(101.01,SDEVTIENS,"","ORU PATIENT MOVMT")
; Subfile entry for DVBA...
N DVBAIEN S DVBAIEN=$$FIND1^DIC(101.01,SDEVTIENS,"","DVBA C&P SCHD EVENT")
; Deletion code
N BSDXFDA,BSDXMSG
S:ORUIEN>0 BSDXFDA(101.01,ORUIEN_SDEVTIENS,.01)="@"
S:DVBAIEN>0 BSDXFDA(101.01,DVBAIEN_SDEVTIENS,.01)="@"
D:$D(BSDXFDA) FILE^DIE("","BSDXFDA","BSDXMSG")
; If error
I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
;
;
; Now put in the default values for parameters
; BSDX AUTO PRINT RS as false
; BSDX AUTO PRINT AS as false
;
N BSDXERR
D PUT^XPAR("PKG","BSDX AUTO PRINT RS",1,0,.BSDXERR)
I $G(BSDXERR) W $C(7),"Error: ",BSDXERR
D PUT^XPAR("PKG","BSDX AUTO PRINT AS",1,0,.BSDXERR)
I $G(BSDXERR) W $C(7),"Error: ",BSDXERR
QUIT
;
SORRY(XPX) ;