SCRPU4 ;ALB/CMM - PRINT PC TEAM/PRACT/ATTEND ; 29 Jun 99 04:11PM
;;5.3;Scheduling;**41,177,575**;AUG 13, 1993;Build 28
;
PCMM(DFN,ADATE,PRINT) ; display primary care team, primary care provider and team phone for patient DFN on date ADATE
;DFN - patient ien
;ADATE - date to find primary care team, provider and team phone (default = today)
;PRINT - default 1 to print data; otherwise don't print
;
;CPRSGUI - Set by CPRS used to display MHTC in CPRS Patient Inquiry.
;
I '$D(PRINT) S PRINT=1
I PRINT'=""&(PRINT'=1) Q ;don't print data
I '$D(ADATE) S ADATE=DT
I ADATE="" S ADATE=DT
I '$D(DFN) Q
D TDATA^SDPPTEM(DFN,"",ADATE,"P")
I $G(CPRSGUI)=1 D START^SCMCMHTC(DFN)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCRPU4 706 printed Dec 13, 2024@02:43:10 Page 2
SCRPU4 ;ALB/CMM - PRINT PC TEAM/PRACT/ATTEND ; 29 Jun 99 04:11PM
+1 ;;5.3;Scheduling;**41,177,575**;AUG 13, 1993;Build 28
+2 ;
PCMM(DFN,ADATE,PRINT) ; display primary care team, primary care provider and team phone for patient DFN on date ADATE
+1 ;DFN - patient ien
+2 ;ADATE - date to find primary care team, provider and team phone (default = today)
+3 ;PRINT - default 1 to print data; otherwise don't print
+4 ;
+5 ;CPRSGUI - Set by CPRS used to display MHTC in CPRS Patient Inquiry.
+6 ;
+7 IF '$DATA(PRINT)
SET PRINT=1
+8 ;don't print data
IF PRINT'=""&(PRINT'=1)
QUIT
+9 IF '$DATA(ADATE)
SET ADATE=DT
+10 IF ADATE=""
SET ADATE=DT
+11 IF '$DATA(DFN)
QUIT
+12 DO TDATA^SDPPTEM(DFN,"",ADATE,"P")
+13 IF $GET(CPRSGUI)=1
DO START^SCMCMHTC(DFN)
+14 QUIT
