Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPTP2.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/SCRPTP2.m (modified) (4 diffs)

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

@@ -1 +1 @@
 SCRPTP2 ;ALB/CMM - List of Team's Patients ; 29 Jun 99  04:11PM
- ;;5.3;Scheduling;**41,53,52,174,177,231,526,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41,53,52,174,177,231**;AUG 13, 1993
  ;
  ;List of Team's Patients Report
@@ -73 +73 @@
  . . . . Q:STOP
  . . . . I $D(@STORE@(INST,TIEN,PIEN,TRDI)) W !,$G(@STORE@(INST,TIEN,PIEN,TRDI)) ;write column data
- . . . . N SCACL
- . . . . S SCACL="" F  S SCACL=$O(@STORE@(INST,TIEN,PIEN,TRDI,SCACL)) Q:SCACL=""  D
- . . . . . W !,$G(@STORE@(INST,TIEN,PIEN,TRDI,SCACL))
  . S NEW=0
  Q
@@ -102 +99 @@
  . . . . Q:STOP
  . . . . I $D(@STORE@(INST,TIEN,TRDI,PIEN)) W !,$G(@STORE@(INST,TIEN,TRDI,PIEN)) ;write column data
- . . . . N SCACL
- . . . . S SCACL="" F  S SCACL=$O(@STORE@(INST,TIEN,TRDI,PIEN,SCACL)) Q:SCACL=""  D
- . . . . . W !,$G(@STORE@(INST,TIEN,TRDI,PIEN,SCACL))
  . S NEW=0
  Q
@@ -137 +131 @@
 SETH ;sets column headings
  S @STORE@("H2")="Patient Name"
- S $E(@STORE@("H2"),18)="Pt ID"
+ S $E(@STORE@("H2"),25)="Pt ID"
  S $E(@STORE@("H2"),32)="Practitioner"
  S $E(@STORE@("H2"),56)="Role"