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 | |
---|
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
|
---|
Note:
See
TracBrowser
for help on using the repository browser.