Changeset 1472 for Scheduling/trunk/m/BSDXAPI1.m

Timestamp:

Jul 6, 2012, 2:28:15 PM (12 years ago)

Author:

Sam Habiel

Message:

Updated version number on all routines to be 1.7T1.
Minor fixes here and there for XINDEX errors.

File:

• Scheduling/trunk/m/BSDXAPI1.m (modified) (5 diffs)

Scheduling/trunk/m/BSDXAPI1.m

@@ -1 @@
-BSDXAPI1 ; VEN/SMH - SCHEDULING APIs - Continued!!! ; 7/5/12 12:55pm
-        ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
+BSDXAPI1        ; VEN/SMH - SCHEDULING APIs - Continued!!! ; 7/6/12 10:23am
+        ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
         ; Licensed under LGPL  
         ;
@@ -50 +50 @@
         ; call the EPs here.
         ;
-NOSHOW(PAT,CLINIC,DATE,NSFLAG) ; $$ PEP; No-show Patient at appt date (new in v1.7)
+NOSHOW(PAT,CLINIC,DATE,NSFLAG)  ; $$ PEP; No-show Patient at appt date (new in v1.7)
         ; PAT = DFN
         ; CLINIC = SC IEN
@@ -97 +97 @@
         Q 0
         ;
-NOSHOWCK(PAT,CLINIC,DATE,NSFLAG) ; $$ PEP; No-show Check
+NOSHOWCK(PAT,CLINIC,DATE,NSFLAG)        ; $$ PEP; No-show Check
         ; TODO: Not all appointments can be no showed.
         ; Check the code in SDAMN 
@@ -243 +243 @@
         Q
         ;
-AVUPDTMK(BSDXSCD,BSDXSTART,BSDXLEN) ; Update RPMS Clinic availability for Make
+AVUPDTMK(BSDXSCD,BSDXSTART,BSDXLEN,BSDXPATID)   ; Update RPMS Clinic availability for Make
         ;SEE SDM1
         N Y,DFN
@@ -255 +255 @@
         S SDDATE=BSDXSTART
         S SDSDATE=SDDATE,SDDATE=SDDATE\1
-1 ;L  Q:$D(SDXXX)  S CCXN=0 K MXOK,COV,SDPROT Q:DFN<0  S SC=+SC
+1       ;L  Q:$D(SDXXX)  S CCXN=0 K MXOK,COV,SDPROT Q:DFN<0  S SC=+SC
         Q:$D(SDXXX)  S CCXN=0 K MXOK,COV,SDPROT Q:DFN<0  S SC=+SC
         S X1=DT,SDEDT=365 S:$D(^SC(SC,"SDP")) SDEDT=$P(^SC(SC,"SDP"),"^",2)