source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBYDPT.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 799 bytes
Line 
1IBYDPT ;ALB/TMP - PATCH IB*2*44 POST-INITIALIZATION ; 14-JUL-95
2 ;;Version 2.0 ; INTEGRATED BILLING ;**44**; 21-MAR-94
3 ;
4EN D APD3
5 Q
6APD3 ; Sets up 'APD3' xref on field 10 of file 399 (AUTHORIZATION DATE)
7 N CT,DA,X,H1,H2 S H1=$H
8 I $D(^DGCR(399,"APD3")) W !!,"APD3 cross reference already exists - not rebuilt",!!,"Done.",! Q
9 W !!,">>> Building the 'APD3' cross-reference for file #399 ..."
10 W !," (I'll write a dot for every 500 entries processed)",!
11 S (CT,DA)=0 F S DA=$O(^DGCR(399,DA)) Q:'DA S CT=CT+1,X=$E($P($G(^DGCR(399,DA,"S")),U,10),1,30) W:'(CT#500) "." I X'="" S ^DGCR(399,"APD3",X,DA)=""
12 W !!,"Done."
13 ;
14 ;TEST SITES ONLY
15D S H2=$H
16 W !!,"Count: ",CT
17 W !,"Begin: ",$$HTE^XLFDT(H1)
18 W !,"End: ",$$HTE^XLFDT(H2)
19 W !!,CT," entries processed in ",$$HDIFF^XLFDT(H2,H1,3),"."
20 Q
Note: See TracBrowser for help on using the repository browser.