Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPTM2.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• SCHEDULING-SD-SC/SCRPTM2.m (modified) (4 diffs)

FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPTM2.m

@@ -1 +1 @@
 SCRPTM2 ;ALB/CMM - List of Team's Members Report Continued;01/29/96 ; 29 Jun 99  04:11PM
- ;;5.3;Scheduling;**41,140,177,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41,140,177**;AUG 13, 1993
  ;
  ;List of Team's Members Report
@@ -31 +31 @@
  .;
  .S TPNODE=$G(^SCTM(404.57,+TPIEN,0))
- .D SETASCL^SCRPRAC2(TPIEN,.PCLIN)
- .S PCLIN=$G(PCLIN(0))
- .;S PCLIN=+$P(TPNODE,"^",9) ;associated clinic ien
- .;S PCLIN=$P($G(^SC(PCLIN,0)),"^") ;associated clinic name
+ .S PCLIN=+$P(TPNODE,"^",9) ;associated clinic ien
+ .S PCLIN=$P($G(^SC(PCLIN,0)),"^") ;associated clinic name
  .;
  .;Get preceptor
@@ -53 +51 @@
  .;
  .D FORMAT(PNAME,TPIEN,PCLIN,RNAME,UNAME,ACT,INACT,PRIEN,PRNAME,OPH,ROOM,SERV,INS,TIEN,PRCP,.PCLASS)
- .N SCAC
- .S SCAC=0
- .F  S SCAC=$O(PCLIN(SCAC)) Q:SCAC=""  D FORMATAC(INS,TIEN,PRIEN,TPIEN,PCLIN(SCAC))
  Q
  ;
@@ -110 +105 @@
  Q
  ;
-FORMATAC(DIV,TEM,PIEN,TPIEN,PCLIN) ;
- S $E(@STORE@(DIV,TEM,PIEN,TPIEN,4,SCAC),49)=$E(PCLIN,1,30)
- Q
- ;
 NEWP(INST,TEM,TITL,PAGE,HEAD) ;
  ;new page