Changeset 636 for FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR2.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/PSSJXR2.m (modified) (4 diffs)

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

@@ -1 @@
-PSSJXR2 ; COMPILED XREF FOR FILE #55.01 ; 12/12/07
+PSSJXR2 ; COMPILED XREF FOR FILE #55.01 ; 01/17/08
  ; 
  S DA(1)=DA S DA=0
@@ -63 +63 @@
  S X=$P(DIKZ(0),U,1)
  I X'="" K ^PS(55,DA(1),"IV","B",$E(X,1,30),DA)
-CR1 S DIXR=415
+CR1 S DIXR=481
  K X
- S DIKZ(.2)=$G(^PS(55,DA(1),"IV",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_"V")
-CR2 S DIXR=466
- K X
- S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0))
  S X(1)=$P(DIKZ(0),U,2)
  S X(2)=$P(DIKZ(0),U,3)
@@ -91 +76 @@
  . Q:'DIKCOND
  . D KPSPA^PSJXRFK(.X,.DA,"IV")
-CR3 S DIXR=498
+CR2 S DIXR=493
+ K X
+ S DIKZ(.2)=$G(^PS(55,DA(1),"IV",DA,.2))
+ S X(1)=$P(DIKZ(.2),U,8)
+ S DIKZ(0)=$G(^PS(55,DA(1),"IV",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_"V")
+CR3 S DIXR=494
  K X
  S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0))
@@ -102 +102 @@
  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  . K ^PS(55,"AIVC",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)
-CR4 S DIXR=500
+CR4 S DIXR=496
  K X
  S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0))