Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTX7.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/DGPTX7.m
r628 r636 1 DGPTX7 ; GENERATED FROM 'DG701' INPUT TEMPLATE(#432), FILE 45;0 2/13/061 DGPTX7 ; GENERATED FROM 'DG701' INPUT TEMPLATE(#432), FILE 45;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,""))="" … … 73 73 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)" 74 74 C4F1 S DIEZRXR(45,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 75 F DIXR=4 32S DIEZRXR(45,DIXR)=""75 F DIXR=447 S DIEZRXR(45,DIXR)="" 76 76 Q 77 77 X4 D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=1 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 … … 101 101 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)" 102 102 C11F1 S DIEZRXR(45,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 103 F DIXR=4 34S DIEZRXR(45,DIXR)=""103 F DIXR=449 S DIEZRXR(45,DIXR)="" 104 104 Q 105 105 X11 D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=2 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 … … 128 128 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)" 129 129 C17F1 S DIEZRXR(45,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 130 F DIXR=4 35S DIEZRXR(45,DIXR)=""130 F DIXR=450 S DIEZRXR(45,DIXR)="" 131 131 Q 132 132 X17 D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=3 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 … … 153 153 D ^DGPTX72 154 154 C23F1 S DIEZRXR(45,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 155 F DIXR=4 36S DIEZRXR(45,DIXR)=""155 F DIXR=451 S DIEZRXR(45,DIXR)="" 156 156 Q 157 157 X23 D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=4 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.