Changeset 636 for FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR18.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR18.m
r628 r636 1 PSSJXR18 ; COMPILED XREF FOR FILE #55.01 ; 12/12/071 PSSJXR18 ; COMPILED XREF FOR FILE #55.01 ; 01/17/08 2 2 ; 3 3 S DA(1)=DA S DA=0 … … 63 63 S X=$P(DIKZ(4),U,10) 64 64 I X'="" K:X ^PS(55,"ANIV",DA(1),DA) S:'X ^PS(55,"ANIV",DA(1),DA)="" 65 CR1 S DIXR=415 65 CR1 S DIXR=481 66 K X 67 S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0)) 68 S X(1)=$P(DIKZ(0),U,2) 69 S X(2)=$P(DIKZ(0),U,3) 70 S X=$G(X(1)) 71 I $G(X(1))]"",$G(X(2))]"" D 72 . K X1,X2 M X1=X,X2=X 73 . N DIKXARR M DIKXARR=X S DIKCOND=1 74 . S X=$$PATCH^XPDUTL("PXRM*1.5*12") 75 . S DIKCOND=$G(X) K X M X=DIKXARR 76 . Q:'DIKCOND 77 . D SPSPA^PSJXRFS(.X,.DA,"IV") 78 CR2 S DIXR=493 66 79 K X 67 80 S DIKZ(.2)=$G(^PS(55,DA(1),"IV",DA,.2)) … … 77 90 . Q:'DIKCOND 78 91 . S ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"V")="" 79 CR2 S DIXR=466 80 K X 81 S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0)) 82 S X(1)=$P(DIKZ(0),U,2) 83 S X(2)=$P(DIKZ(0),U,3) 84 S X=$G(X(1)) 85 I $G(X(1))]"",$G(X(2))]"" D 86 . K X1,X2 M X1=X,X2=X 87 . N DIKXARR M DIKXARR=X S DIKCOND=1 88 . S X=$$PATCH^XPDUTL("PXRM*1.5*12") 89 . S DIKCOND=$G(X) K X M X=DIKXARR 90 . Q:'DIKCOND 91 . D SPSPA^PSJXRFS(.X,.DA,"IV") 92 CR3 S DIXR=498 92 CR3 S DIXR=494 93 93 K X 94 94 S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0)) … … 100 100 . K X1,X2 M X1=X,X2=X 101 101 . S ^PS(55,"AIVC",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)="" 102 CR4 S DIXR= 500102 CR4 S DIXR=496 103 103 K X 104 104 S DIKZ(0)=$G(^PS(55,DA(1),"IV",DA,0))
Note:
See TracChangeset
for help on using the changeset viewer.