Changeset 1085 for Scheduling/trunk/m/BSDX25.m

Timestamp:

Jan 27, 2011, 4:31:19 AM (13 years ago)

Author:

Sam Habiel

Message:

Updated routine version numbers to 1.5

File:

• Scheduling/trunk/m/BSDX25.m (modified) (3 diffs)

Scheduling/trunk/m/BSDX25.m

@@ -1 +1 @@
 BSDX25  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 1/6/11 1:57pm
-        ;;1.5;BSDX;;Dec 07, 2010
-    ;
-    ; Change Log:
-    ; 3110106: SMH -> Changed Check-in EP - Removed unused paramters. Will change C#
+        ;;1.5;BSDX;;Jan 25, 2011
+           ;
+           ; Change Log:
+           ; 3110106: SMH -> Changed Check-in EP - Removed unused paramters. Will change C#
         ;
         ;
@@ -13 +13 @@
         Q
         ;
-CHECKIN(BSDXY,BSDXAPTID,BSDXCDT) ; ,BSDXCC,BSDXPRV,BSDXROU,BSDXVCL,BSDXVFM,BSDXOG)      ;EP Check in appointment
+CHECKIN(BSDXY,BSDXAPTID,BSDXCDT)        ; ,BSDXCC,BSDXPRV,BSDXROU,BSDXVCL,BSDXVFM,BSDXOG)       ;EP Check in appointment
         ; Private to GUI; use BSDXAPI for general API to checkin patients
-    ; Parameters:
-    ; BSDXY: Global Out
-    ; BSDXAPTID: Appointment ID in ^BSDXAPPT
-    ; BSDXCDT: Checkin Date --> Changed
-    ; BSDXCC: Clinic Stop IEN (not used)
-    ; BSDXPRV: Provider IEN (not used)
-    ; BSDXROU: Print Routing Slip? (not used)
-    ; BSDXVCL: PCC+ Clinic IEN (not used)
-    ; BSDXVFM: PCC+ Form IEN (not used)
-    ; BSDXOG: PCC+ Outguide (true or false)
-    ;
-    ; Output:
-    ; ADO.net table with 1 column ErrorID, 1 row result
-    ; - 0 if all okay
-    ; - Another number or text if not
+           ; Parameters:
+           ; BSDXY: Global Out
+           ; BSDXAPTID: Appointment ID in ^BSDXAPPT
+           ; BSDXCDT: Checkin Date --> Changed
+           ; BSDXCC: Clinic Stop IEN (not used)
+           ; BSDXPRV: Provider IEN (not used)
+           ; BSDXROU: Print Routing Slip? (not used)
+           ; BSDXVCL: PCC+ Clinic IEN (not used)
+           ; BSDXVFM: PCC+ Form IEN (not used)
+           ; BSDXOG: PCC+ Outguide (true or false)
+           ;
+           ; Output:
+           ; ADO.net table with 1 column ErrorID, 1 row result
+           ; - 0 if all okay
+           ; - Another number or text if not
 ENDBG   ;
         N BSDXNOD,BSDXPATID,BSDXSTART,DIK,DA,BSDXID,BSDXI,BSDXZ,BSDXIENS,BSDXVEN
@@ -45 +45 @@
         ;S:BSDXCDT["@0000" BSDXCDT=$P(BSDXCDT,"@")
         ;S %DT="T",X=BSDXCDT D ^%DT S BSDXCDT=Y
-    S BSDXCDT=+BSDXCDT  ; Strip off zeros if C# sends them
+           S BSDXCDT=+BSDXCDT  ; Strip off zeros if C# sends them
         I BSDXCDT=-1 D ERR(70) Q
         I BSDXCDT>$$NOW^XLFDT S BSDXCDT=$$NOW^XLFDT