Changeset 1472 for Scheduling/trunk/m/BSDX28.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/BSDX28.m (modified) (3 diffs)

Scheduling/trunk/m/BSDX28.m

@@ -1 @@
-BSDX28  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:25am
-        ;;1.6T2;BSDX;;May 16, 2011
+BSDX28  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 10:57am
+        ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
         ; Licensed under LGPL
         ; Change Log:
@@ -38 +38 @@
         . S BSDXRET=BSDXRET_NAME_U_HRN_U_PID_U_DOB_U_BSDXIEN_$C(30)
 PID     ;PID Lookup
-           ; If this ID exists, go get it. If "UJOPID" index doesn't exist,
-           ; won't work anyways.
-           I $D(^DPT("UJOPID",BSDXP)) DO  SET BSDXY=BSDXRET_$C(31) QUIT
-           . S BSDXIEN=$O(^DPT("UJOPID",BSDXP,""))
-           . Q:'$D(^DPT(BSDXIEN,0))
-           . S BSDXDPT=$G(^DPT(BSDXIEN,0))
-           . S BSDXZ=$P(BSDXDPT,U) ;NAME
-           . S BSDXHRN=$P($G(^AUPNPAT(BSDXIEN,41,DUZ(2),0)),U,2) ;CHART
-           . I BSDXHRN="" Q  ;NO CHART AT THIS DUZ2
-           . ; Inactivated Chart get an *
-           . I $P($G(^AUPNPAT(BSDXIEN,41,DUZ(2),0)),U,3) S BSDXHRN=BSDXHRN_"(*)" Q
-           . S $P(BSDXZ,BSDXDLIM,2)=BSDXHRN
-           . S $P(BSDXZ,BSDXDLIM,3)=$P(^DPT(BSDXIEN,.36),U,3) ;PID
-           . S Y=$P(BSDXDPT,U,3) X ^DD("DD")
-           . S $P(BSDXZ,BSDXDLIM,4)=Y ;DOB
-           . S $P(BSDXZ,BSDXDLIM,5)=BSDXIEN
-           . S BSDXRET=BSDXRET_BSDXZ_$C(30)
+        ; If this ID exists, go get it. If "UJOPID" index doesn't exist,
+        ; won't work anyways.
+        I $D(^DPT("UJOPID",BSDXP)) DO  SET BSDXY=BSDXRET_$C(31) QUIT
+        . S BSDXIEN=$O(^DPT("UJOPID",BSDXP,""))
+        . Q:'$D(^DPT(BSDXIEN,0))
+        . S BSDXDPT=$G(^DPT(BSDXIEN,0))
+        . S BSDXZ=$P(BSDXDPT,U) ;NAME
+        . S BSDXHRN=$P($G(^AUPNPAT(BSDXIEN,41,DUZ(2),0)),U,2) ;CHART
+        . I BSDXHRN="" Q  ;NO CHART AT THIS DUZ2
+        . ; Inactivated Chart get an *
+        . I $P($G(^AUPNPAT(BSDXIEN,41,DUZ(2),0)),U,3) S BSDXHRN=BSDXHRN_"(*)" Q
+        . S $P(BSDXZ,BSDXDLIM,2)=BSDXHRN
+        . S $P(BSDXZ,BSDXDLIM,3)=$P(^DPT(BSDXIEN,.36),U,3) ;PID
+        . S Y=$P(BSDXDPT,U,3) X ^DD("DD")
+        . S $P(BSDXZ,BSDXDLIM,4)=Y ;DOB
+        . S $P(BSDXZ,BSDXDLIM,5)=BSDXIEN
+        . S BSDXRET=BSDXRET_BSDXZ_$C(30)
         ;
 DOB     ;DOB Lookup
@@ -76 +76 @@
         . Q
         ;
-CHART   
-           ;Chart# Lookup
+CHART ;Chart# Lookup
         I +DUZ(2),BSDXP]"",$D(^AUPNPAT("D",BSDXP)) D  S BSDXY=BSDXRET_$C(31) Q
         . S BSDXIEN=0 F  S BSDXIEN=$O(^AUPNPAT("D",BSDXP,BSDXIEN)) Q:'+BSDXIEN  I $D(^AUPNPAT("D",BSDXP,BSDXIEN,DUZ(2))) D  Q