- SDCO31 ;ALB/RMO - Provider Cont. - Check Out;19 MAR 1993 9:04 am
- ;;5.3;Scheduling;**41,1015**;AUG 13, 1993;Build 21
- ;
- PRHLP(SDCL) ;Provider Help for Clinic
- ; Input -- SDCL Hospital Location file IEN
- ; Output -- Help
- N C,I,SDNPI
- I '$O(^SC(SDCL,"PR",0)) G PRHLPQ
- W !!,"The following providers are associated with ",$$LOWER^VALM1($P($G(^SC(SDCL,0)),"^")),":"
- W !!,"Default Provider: ",$S($$PRDEF(SDCL)]"":$$PRDEF(SDCL),1:"[None]")
- W !!,"Other providers: "
- 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
- .S C=C+1
- .W:C=1 !
- .D PAUSE^VALM1:'(C#15) W !,$$PR(SDNPI)
- W:'C "None"
- PRHLPQ Q
- ;
- PRDEF(SDCL) ;Provider Default for Clinic
- ; Input -- SDCL Hospital Location file IEN
- ; IF DEFINED: DFN - ptr to PATIENT File
- ; Output -- Default
- N Y,X
- I $D(^SC("ADPR",SDCL)),$D(^SC(SDCL,"PR",+$O(^(SDCL,0)),0)) S Y=$$PR(+^(0))
- S:($G(Y)="")&($G(^SC(SDCL,"PC")))&($D(DFN)) Y=$P($$NMPCPR^SCAPMCU2(DFN,DT,1),U,2)
- Q $G(Y)
- ;
- PR(SDNPI) ;Provider Display Data
- ; Input -- SDNPI New Person IEN
- ; Output -- Provider Display Data - Provider Name
- N Y
- S Y=$S($D(^VA(200,SDNPI,0)):$P(^(0),"^"),1:"Unknown")
- Q $G(Y)
- SDCO31 ;ALB/RMO - Provider Cont. - Check Out;19 MAR 1993 9:04 am
- +1 ;;5.3;Scheduling;**41,1015**;AUG 13, 1993;Build 21
- +2 ;
- PRHLP(SDCL) ;Provider Help for Clinic
- +1 ; Input -- SDCL Hospital Location file IEN
- +2 ; Output -- Help
- +3 NEW C,I,SDNPI
- +4 IF '$ORDER(^SC(SDCL,"PR",0))
- GOTO PRHLPQ
- +5 WRITE !!,"The following providers are associated with ",$$LOWER^VALM1($PIECE($GET(^SC(SDCL,0)),"^")),":"
- +6 WRITE !!,"Default Provider: ",$SELECT($$PRDEF(SDCL)]"":$$PRDEF(SDCL),1:"[None]")
- +7 WRITE !!,"Other providers: "
- +8 SET (C,I)=0
- FOR
- SET I=$ORDER(^SC(SDCL,"PR",I))
- IF 'I
- QUIT
- IF $DATA(^(I,0))
- SET SDNPI=+^(0)
- IF '$DATA(^SC("ADPR",SDCL,I))
- Begin DoDot:1
- +9 SET C=C+1
- +10 IF C=1
- WRITE !
- +11 IF '(C#15)
- DO PAUSE^VALM1
- WRITE !,$$PR(SDNPI)
- End DoDot:1
- +12 IF 'C
- WRITE "None"
- PRHLPQ QUIT
- +1 ;
- PRDEF(SDCL) ;Provider Default for Clinic
- +1 ; Input -- SDCL Hospital Location file IEN
- +2 ; IF DEFINED: DFN - ptr to PATIENT File
- +3 ; Output -- Default
- +4 NEW Y,X
- +5 IF $DATA(^SC("ADPR",SDCL))
- IF $DATA(^SC(SDCL,"PR",+$ORDER(^(SDCL,0)),0))
- SET Y=$$PR(+^(0))
- +6 IF ($GET(Y)="")&($GET(^SC(SDCL,"PC")))&($DATA(DFN))
- SET Y=$PIECE($$NMPCPR^SCAPMCU2(DFN,DT,1),U,2)
- +7 QUIT $GET(Y)
- +8 ;
- PR(SDNPI) ;Provider Display Data
- +1 ; Input -- SDNPI New Person IEN
- +2 ; Output -- Provider Display Data - Provider Name
- +3 NEW Y
- +4 SET Y=$SELECT($DATA(^VA(200,SDNPI,0)):$PIECE(^(0),"^"),1:"Unknown")
- +5 QUIT $GET(Y)