Last change
on this file since 1569 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.0 KB
|
Line | |
---|
1 | PXRRPRPL ;ISL/PKR - Build the Provider list ;11/18/96
|
---|
2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**10,12**;Aug 12, 1996
|
---|
3 | ;Build the Provider list based upon the Provider selection criteria.
|
---|
4 | ;
|
---|
5 | ;=======================================================================
|
---|
6 | PRV ;Build a list of selected providers.
|
---|
7 | N X,Y
|
---|
8 | K DTOUT,DUOUT
|
---|
9 | S NPL=0
|
---|
10 | S DIC=200
|
---|
11 | S DIC(0)="AEQMZ"
|
---|
12 | S DIC("A")="Select PROVIDER: "
|
---|
13 | ;As of April 1996 a determination has been made not to use the provider
|
---|
14 | ;key screen. It has just been commented out because there is a
|
---|
15 | ;possibility it may be used in the future.
|
---|
16 | ;S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U)))"
|
---|
17 | W !
|
---|
18 | NPRO I NPL'<1 S DIC("A")="Select another PROVIDER: "
|
---|
19 | D ^DIC
|
---|
20 | I X=(U_U) S DTOUT=1
|
---|
21 | I $D(DTOUT) Q
|
---|
22 | I +Y'=-1 D G NPRO
|
---|
23 | . S NPL=NPL+1
|
---|
24 | . S PXRRPRPL(NPL)=$P(Y,U,2)_U_$P(Y,U,1)
|
---|
25 | E K DIC
|
---|
26 | I (NPL=0)&($D(DIRUT)!$D(DUOUT)) Q
|
---|
27 | I $D(DUOUT) G PRV
|
---|
28 | I (NPL=0)&(+Y=-1) W !,"You must select a provider!" G PRV
|
---|
29 | ;
|
---|
30 | ;Sort the provider list into ascending order.
|
---|
31 | S NPL=$$SORT^PXRRUTIL(NPL,"PXRRPRPL")
|
---|
32 | Q
|
---|
33 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.