SDECPTPC.m

SDECPTPC ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016

 ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249

 ;

 Q

 ;

 ;=================================================================

USESD() Q 1   ;$G(DUZ("AG"))'="I"

 ; Get the primary provider

OUTPTPR(DFN) ;EP

 Q $$OUTPTPR^SDUTL3(DFN)

 ;N PCP

 ;S PCP=$$GET1^DIQ(9000001,DFN,.14,"I")

 ;Q $S(PCP:PCP_U_$P(^VA(200,PCP,0),U),1:"")

 ; Get team

OUTPTTM(DFN) ;EP

 Q $$OUTPTTM^SDUTL3(DFN)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDECPTPC   448     printed  Apr 09, 2024@21:45:39                                                                                                                                                                                                     Page 2

SDECPTPC  ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016

 +1       ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249

 +2       ;

 +3        QUIT 

 +4       ;

 +5       ;=================================================================

USESD()   ;$G(DUZ("AG"))'="I"

           QUIT 1

 +1       ; Get the primary provider

OUTPTPR(DFN) ;EP

 +1        QUIT $$OUTPTPR^SDUTL3(DFN)

 +2       ;N PCP

 +3       ;S PCP=$$GET1^DIQ(9000001,DFN,.14,"I")

 +4       ;Q $S(PCP:PCP_U_$P(^VA(200,PCP,0),U),1:"")

 +5       ; Get team

OUTPTTM(DFN) ;EP

 +1        QUIT $$OUTPTTM^SDUTL3(DFN)