|
Last change
on this file since 1000 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
1.0 KB
|
| Rev | Line | |
|---|
| [613] | 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.
