Changeset 636 for FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR8.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR8.m (modified) (4 diffs)

FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR8.m

@@ -1 @@
-PSSJXR8 ; COMPILED XREF FOR FILE #55.06 ; 12/12/07
+PSSJXR8 ; COMPILED XREF FOR FILE #55.06 ; 01/17/08
  ; 
  S X=$P(DIKZ(6.5),U,1)
@@ -32 +32 @@
  S X=$P(DIKZ(0),U,1)
  I X'="" K ^PS(55,"ANV",DA(1),DA)
-CR1 S DIXR=414
+CR1 S DIXR=480
  K X
- S DIKZ(.2)=$G(^PS(55,DA(1),5,DA,.2))
- S X(1)=$P(DIKZ(.2),U,8)
- S X(2)=$P(DIKZ(0),U,21)
- S X=$G(X(1))
- I $G(X(1))]"",$G(X(2))]"" D
- . K X1,X2 M X1=X,X2=X
- . S:$D(DIKIL) (X2,X2(1),X2(2))=""
- . N DIKXARR M DIKXARR=X S DIKCOND=1
- . S X=1
- . S DIKCOND=$G(X) K X M X=DIKXARR
- . Q:'DIKCOND
- . K ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"U")
-CR2 S DIXR=465
- K X
- S DIKZ(2)=$G(^PS(55,DA(1),5,DA,2))
  S X(1)=$P(DIKZ(2),U,2)
  S X(2)=$P(DIKZ(2),U,4)
@@ -60 +45 @@
  . Q:'DIKCOND
  . D KPSPA^PSJXRFK(.X,.DA,"UD")
-CR3 S DIXR=499
+CR2 S DIXR=492
+ K X
+ S DIKZ(.2)=$G(^PS(55,DA(1),5,DA,.2))
+ S X(1)=$P(DIKZ(.2),U,8)
+ S DIKZ(0)=$G(^PS(55,DA(1),5,DA,0))
+ S X(2)=$P(DIKZ(0),U,21)
+ S X=$G(X(1))
+ I $G(X(1))]"",$G(X(2))]"" D
+ . K X1,X2 M X1=X,X2=X
+ . S:$D(DIKIL) (X2,X2(1),X2(2))=""
+ . N DIKXARR M DIKXARR=X S DIKCOND=1
+ . S X=1
+ . S DIKCOND=$G(X) K X M X=DIKXARR
+ . Q:'DIKCOND
+ . K ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"U")
+CR3 S DIXR=495
  K X
  S DIKZ(2)=$G(^PS(55,DA(1),5,DA,2))
@@ -71 +71 @@
  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  . K ^PS(55,"AUDC",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)
-CR4 S DIXR=501
+CR4 S DIXR=497
  K X
  S DIKZ(2)=$G(^PS(55,DA(1),5,DA,2))