source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPU4.m@ 1185

Last change on this file since 1185 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 562 bytes
Line 
1SCRPU4 ;ALB/CMM - PRINT PC TEAM/PRACT/ATTEND ; 29 Jun 99 04:11PM
2 ;;5.3;Scheduling;**41,177**;AUG 13, 1993
3 ;
4PCMM(DFN,ADATE,PRINT) ; display primary care team, primary care provider and team phone for patient DFN on date ADATE
5 ;DFN - patient ien
6 ;ADATE - date to find primary care team, provider and team phone (default = today)
7 ;PRINT - default 1 to print data; otherwise don't print
8 ;
9 I '$D(PRINT) S PRINT=1
10 I PRINT'=""&(PRINT'=1) Q ;don't print data
11 I '$D(ADATE) S ADATE=DT
12 I ADATE="" S ADATE=DT
13 I '$D(DFN) Q
14 D TDATA^SDPPTEM(DFN,"",ADATE,"P")
15 Q
Note: See TracBrowser for help on using the repository browser.