| 1 | SCMCU1 ;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 | ;
|
|---|
| 6 | SEL ;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 | ;
|
|---|
| 17 | GETPT() ;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 | ;
|
|---|
| 27 | INIT ;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 | ;
|
|---|
| 37 | HDR ;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
|
|---|
