source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXRRPRPL.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1PXRRPRPL ;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 ;=======================================================================
6PRV ;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 !
18NPRO 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.