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

SCMCU1.m

Go to the documentation of this file.
  1. SCMCU1 ;ALB/CMM - Team Information Display ;7/25/99 18:46
  1. ;;5.3;Scheduling;**41,177**;AUG 13, 1993
  1. ;
  1. ;action on Appointment Management
  1. ;
  1. SEL ;selection - getting patient
  1. N ENT
  1. I '$D(@VALMAR@("IDX")) S TDFN=$$GETPT() Q
  1. ; ^ no selections available, prompt for patient?
  1. D EN^VALM2(XQORNOD(0),"S")
  1. S ENT=$O(VALMY(0))
  1. I ENT="" S TDFN=$$GETPT() Q
  1. I '$D(^TMP("SDAMIDX",$J,ENT)) S TDFN=0 Q
  1. S TDFN=+$P($G(^TMP("SDAMIDX",$J,ENT)),"^",2)
  1. Q
  1. ;
  1. GETPT() ;function to get patient
  1. I $G(VALMHDR(1))?.E1"Patient:".E Q SDFN
  1. N TDFN
  1. S DIC="^DPT(",DIC(0)="AEQM",DIC("A")="Select Patient: "
  1. D ^DIC
  1. K DIC
  1. I X=""!(X["^")!(+Y<0) S TDFN=0
  1. S TDFN=+Y
  1. Q TDFN
  1. ;
  1. INIT ;gather team data
  1. N GBL
  1. I TDFN=0 S VALMQUIT="" Q
  1. S GBL="^TMP(""SCTI"","_$J_")"
  1. K @GBL
  1. S SDLN=1
  1. D CNTRL^VALM10(SDLN,15,45,IOINHI,IOINORM)
  1. D TDATA^SDPPTEM(TDFN,.VALMCNT)
  1. Q
  1. ;
  1. HDR ;header code
  1. N PTNAME
  1. S PTNAME=$P($G(^DPT(TDFN,0)),"^")
  1. S VALMHDR(2)="Patient: "_PTNAME_" SSN: "_$P($G(^DPT(TDFN,0)),U,9)
  1. S VALMPGE=1 ;start at page 1
  1. Q