| 1 | IBYDPT ;ALB/TMP - PATCH IB*2*44 POST-INITIALIZATION ; 14-JUL-95
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**44**; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | EN D APD3
|
|---|
| 5 | Q
|
|---|
| 6 | APD3 ; 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
|
|---|
| 15 | D 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
|
|---|
