Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTX74.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/DGPTX74.m
r628 r636 1 DGPTX74 ; ;0 2/13/061 DGPTX74 ; ;04/03/06 2 2 D DE G BEGIN 3 3 DE S DIE="^DGPT(",DIC=DIE,DP=45,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DGPT(DA,""))="" … … 62 62 X "N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)" 63 63 C1F1 S DIEZRXR(45,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 64 F DIXR=4 41S DIEZRXR(45,DIXR)=""64 F DIXR=456 S DIEZRXR(45,DIXR)="" 65 65 Q 66 66 X1 D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=9 D EN3^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 … … 88 88 X "N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)" 89 89 C6F1 S DIEZRXR(45,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 90 F DIXR=4 42S DIEZRXR(45,DIXR)=""90 F DIXR=457 S DIEZRXR(45,DIXR)="" 91 91 Q 92 92 X6 D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=10 D EN3^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 … … 114 114 X "N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)" 115 115 C11F1 S DIEZRXR(45,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 116 F DIXR=4 43S DIEZRXR(45,DIXR)=""116 F DIXR=458 S DIEZRXR(45,DIXR)="" 117 117 Q 118 118 X11 D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=11 D EN3^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 … … 140 140 X "N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)" 141 141 C16F1 S DIEZRXR(45,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 142 F DIXR=4 44S DIEZRXR(45,DIXR)=""142 F DIXR=459 S DIEZRXR(45,DIXR)="" 143 143 Q 144 144 X16 D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=12 D EN3^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 … … 164 164 D ^DGPTX76 165 165 C21F1 S DIEZRXR(45,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 166 F DIXR=4 45S DIEZRXR(45,DIXR)=""166 F DIXR=460 S DIEZRXR(45,DIXR)="" 167 167 Q 168 168 X21 D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=13 D EN3^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.