Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTX52.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/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTX52.m
r628 r636 1 DGPTX52 ; ; 09/05/071 DGPTX52 ; ;12/27/07 2 2 D DE G BEGIN 3 3 DE S DIE="^DGPT(D0,""M"",",DIC=DIE,DP=45.02,DL=2,DIEL=1,DU="" K DG,DE,DB Q:$O(^DGPT(D0,"M",DA,""))="" … … 66 66 X "N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)" 67 67 C1F1 S DIEZRXR(45.02,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 68 F DIXR=4 49S DIEZRXR(45.02,DIXR)=""68 F DIXR=464 S DIEZRXR(45.02,DIXR)="" 69 69 Q 70 70 X1 D ICDEN^DGPTF5 Q:X="" K K S DIC("S")="S DGI=7 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X … … 96 96 X "N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)" 97 97 C6F1 S DIEZRXR(45.02,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 98 F DIXR=4 50S DIEZRXR(45.02,DIXR)=""98 F DIXR=465 S DIEZRXR(45.02,DIXR)="" 99 99 Q 100 100 X6 D ICDEN^DGPTF5 Q:X="" K K S DIC("S")="S DGI=8 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X … … 126 126 X "N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)" 127 127 C11F1 S DIEZRXR(45.02,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 128 F DIXR=4 51S DIEZRXR(45.02,DIXR)=""128 F DIXR=466 S DIEZRXR(45.02,DIXR)="" 129 129 Q 130 130 X11 D ICDEN^DGPTF5 Q:X="" K K S DIC("S")="S DGI=9 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
Note:
See TracChangeset
for help on using the changeset viewer.