| 1 | SDCO31 ;ALB/RMO - Provider Cont. - Check Out;19 MAR 1993 9:04 am
|
|---|
| 2 | ;;5.3;Scheduling;**41**;AUG 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | PRHLP(SDCL) ;Provider Help for Clinic
|
|---|
| 5 | ; Input -- SDCL Hospital Location file IEN
|
|---|
| 6 | ; Output -- Help
|
|---|
| 7 | N C,I,SDNPI
|
|---|
| 8 | I '$O(^SC(SDCL,"PR",0)) G PRHLPQ
|
|---|
| 9 | W !!,"The following providers are associated with ",$$LOWER^VALM1($P($G(^SC(SDCL,0)),"^")),":"
|
|---|
| 10 | W !!,"Default Provider: ",$S($$PRDEF(SDCL)]"":$$PRDEF(SDCL),1:"[None]")
|
|---|
| 11 | W !!,"Other providers: "
|
|---|
| 12 | S (C,I)=0 F S I=$O(^SC(SDCL,"PR",I)) Q:'I I $D(^(I,0)) S SDNPI=+^(0) I '$D(^SC("ADPR",SDCL,I)) D
|
|---|
| 13 | .S C=C+1
|
|---|
| 14 | .W:C=1 !
|
|---|
| 15 | .D PAUSE^VALM1:'(C#15) W !,$$PR(SDNPI)
|
|---|
| 16 | W:'C "None"
|
|---|
| 17 | PRHLPQ Q
|
|---|
| 18 | ;
|
|---|
| 19 | PRDEF(SDCL) ;Provider Default for Clinic
|
|---|
| 20 | ; Input -- SDCL Hospital Location file IEN
|
|---|
| 21 | ; IF DEFINED: DFN - ptr to PATIENT File
|
|---|
| 22 | ; Output -- Default
|
|---|
| 23 | N Y,X
|
|---|
| 24 | I $D(^SC("ADPR",SDCL)),$D(^SC(SDCL,"PR",+$O(^(SDCL,0)),0)) S Y=$$PR(+^(0))
|
|---|
| 25 | S:($G(Y)="")&($G(^SC(SDCL,"PC")))&($D(DFN)) Y=$P($$NMPCPR^SCAPMCU2(DFN,DT,1),U,2)
|
|---|
| 26 | Q $G(Y)
|
|---|
| 27 | ;
|
|---|
| 28 | PR(SDNPI) ;Provider Display Data
|
|---|
| 29 | ; Input -- SDNPI New Person IEN
|
|---|
| 30 | ; Output -- Provider Display Data - Provider Name
|
|---|
| 31 | N Y
|
|---|
| 32 | S Y=$S($D(^VA(200,SDNPI,0)):$P(^(0),"^"),1:"Unknown")
|
|---|
| 33 | Q $G(Y)
|
|---|
