Changeset 1115 for Scheduling/trunk/m

Timestamp:

Mar 28, 2011, 10:38:15 AM (14 years ago)

Author:

Sam Habiel

Message:

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.

Location:

Scheduling/trunk/m

Files:

• BSDX01.m (modified) (2 diffs)
• BSDX25.m (modified) (2 diffs)
• BSDX2E.m (modified) (2 diffs)

Scheduling/trunk/m/BSDX01.m

@@ -1 @@
-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
         ;
@@ -257 +257 @@
         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

Scheduling/trunk/m/BSDX25.m

@@ -1 @@
-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
         ;
@@ -134 +134 @@
         ;
         ; Set return variable and kill contents
-        N BSDXY S BSDXY=$NAME(^BSDXTMP($J))
+        S BSDXY=$NAME(^BSDXTMP($J))
         K @BSDXY
         ; 

Scheduling/trunk/m/BSDX2E.m

@@ -1 @@
-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
         ;
@@ -58 +58 @@
         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
         ;
-        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
         ;