source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SCMCU1.m@ 1552

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

initial load of FOIAVistA 6/30/08 version

File size: 1006 bytes
Line 
1SCMCU1 ;ALB/CMM - Team Information Display ;7/25/99 18:46
2 ;;5.3;Scheduling;**41,177**;AUG 13, 1993
3 ;
4 ;action on Appointment Management
5 ;
6SEL ;selection - getting patient
7 N ENT
8 I '$D(@VALMAR@("IDX")) S TDFN=$$GETPT() Q
9 ; ^ no selections available, prompt for patient?
10 D EN^VALM2(XQORNOD(0),"S")
11 S ENT=$O(VALMY(0))
12 I ENT="" S TDFN=$$GETPT() Q
13 I '$D(^TMP("SDAMIDX",$J,ENT)) S TDFN=0 Q
14 S TDFN=+$P($G(^TMP("SDAMIDX",$J,ENT)),"^",2)
15 Q
16 ;
17GETPT() ;function to get patient
18 I $G(VALMHDR(1))?.E1"Patient:".E Q SDFN
19 N TDFN
20 S DIC="^DPT(",DIC(0)="AEQM",DIC("A")="Select Patient: "
21 D ^DIC
22 K DIC
23 I X=""!(X["^")!(+Y<0) S TDFN=0
24 S TDFN=+Y
25 Q TDFN
26 ;
27INIT ;gather team data
28 N GBL
29 I TDFN=0 S VALMQUIT="" Q
30 S GBL="^TMP(""SCTI"","_$J_")"
31 K @GBL
32 S SDLN=1
33 D CNTRL^VALM10(SDLN,15,45,IOINHI,IOINORM)
34 D TDATA^SDPPTEM(TDFN,.VALMCNT)
35 Q
36 ;
37HDR ;header code
38 N PTNAME
39 S PTNAME=$P($G(^DPT(TDFN,0)),"^")
40 S VALMHDR(2)="Patient: "_PTNAME_" SSN: "_$P($G(^DPT(TDFN,0)),U,9)
41 S VALMPGE=1 ;start at page 1
42 Q
Note: See TracBrowser for help on using the repository browser.