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 ---[H[J[2J[HSDECPTPC 448 printed Nov 22, 2024@18:02:26 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)
