- 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/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBXSC114.m
r628 r636 1 IBXSC114 ; ; 09/05/071 IBXSC114 ; ;12/27/07 2 2 D DE G BEGIN 3 3 DE S DIE="^DPT(",DIC=DIE,DP=2,DL=2,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))="" … … 152 152 S X=DE(3),DIC=DIE 153 153 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA) 154 S X=DE(3),DIC=DIE 155 X "K ^DPT(""AZVWVOE"",$E($TR(X,""ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz!@#$%^&*()-_=+[]{}<>,./?:;'\|""),1,30),DA)" 154 156 S X=DE(3),DIIX=2_U_DIFLD D AUDIT^DIET 155 157 C3S S X="" G:DG(DQ)=X C3F1 K DB … … 162 164 S X=DG(DQ),DIC=DIE 163 165 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA) 166 S X=DG(DQ),DIC=DIE 167 X "S ^DPT(""AZVWVOE"",$E($TR(X,""ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz!@#$%^&*()-_=+[]{}<>,./?:;'\|""),1,30),DA)=""""" 164 168 I $D(DE(3))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET 165 169 C3F1 Q … … 180 184 ; 181 185 C5F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 182 F DIXR=60 3S DIEZRXR(2,DIXR)=""186 F DIXR=600 S DIEZRXR(2,DIXR)="" 183 187 Q 184 188 X5 S DFN=DA I X="N" D TADD^DGLOCK … … 196 200 D ^IBXSC116 197 201 C7F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 198 F DIXR=60 3S DIEZRXR(2,DIXR)=""202 F DIXR=600 S DIEZRXR(2,DIXR)="" 199 203 Q 200 204 X7 S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D TAD^DGLOCK
Note:
See TracChangeset
for help on using the changeset viewer.