Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDCO31

SDCO31.m

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