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

SCRPU4.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. PCMM(DFN,ADATE,PRINT) ; display primary care team, primary care provider and team phone for patient DFN on date ADATE
  1. ;DFN - patient ien
  1. ;ADATE - date to find primary care team, provider and team phone (default = today)
  1. ;PRINT - default 1 to print data; otherwise don't print
  1. ;
  1. ;CPRSGUI - Set by CPRS used to display MHTC in CPRS Patient Inquiry.
  1. ;
  1. I '$D(PRINT) S PRINT=1
  1. I PRINT'=""&(PRINT'=1) Q ;don't print data
  1. I '$D(ADATE) S ADATE=DT
  1. I ADATE="" S ADATE=DT
  1. I '$D(DFN) Q
  1. D TDATA^SDPPTEM(DFN,"",ADATE,"P")
  1. I $G(CPRSGUI)=1 D START^SCMCMHTC(DFN)
  1. Q