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

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

@@ -1 +1 @@
 SCRPPAT3 ;ALB/CMM - Practitioner's Patients ; 8/30/99 3:14pm
- ;;5.3;Scheduling;**41,52,148,174,181,177,297,526,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41,52,148,174,181,177,297**;AUG 13, 1993
  ;
  ;Listing of Practitioner's Patients
@@ -12 +12 @@
  .S PT=0
  .F  S PT=$O(@STORE@("PT",INS,SEC,TRD,POS,PTN,PT)) Q:'PT!(STOP)  D
+ ..I (IOST'?1"C-".E),$Y>(IOSL-5) S MORE=0 D NEWP1^SCRPU3(.PAGE,TITL) D:'STOP HEAD2(INS,SEC,TRD,SEC3,ST3,ST4,POS) D:(('FIRST&'STOP)!($G(SORT)=3)) HEADER
+ ..I (IOST?1"C-".E),$Y>(IOSL-5) S MORE=0 D HOLD^SCRPU3(.PAGE,TITL) D:'STOP HEAD2(INS,SEC,TRD,SEC3,ST3,ST4,POS) D:'FIRST&'STOP HEADER
+ ..Q:STOP
  ..I FIRST D HEADER S FIRST=0
  ..W !,$G(@STORE@(INS,SEC,TRD,POS,PT)) ;print patient detail line
- ..;I FIRST D HEADER S FIRST=0
- ..N SCCN
- ..S SCCN=""
- ..F  S SCCN=$O(@STORE@(INS,SEC,TRD,POS,PT,SCCN)) Q:SCCN=""  D
- ...W !,$G(@STORE@(INS,SEC,TRD,POS,PT,SCCN)) ;print patient detail line
- ...I (IOST'?1"C-".E),$Y>(IOSL-5) S MORE=0 D NEWP1^SCRPU3(.PAGE,TITL) D:'STOP HEAD2(INS,SEC,TRD,SEC3,ST3,ST4,POS) D:(('FIRST&'STOP)!($G(SORT)=3)) HEADER
- ...I (IOST?1"C-".E),$Y>(IOSL-5) S MORE=0 D HOLD^SCRPU3(.PAGE,TITL) D:'STOP HEAD2(INS,SEC,TRD,SEC3,ST3,ST4,POS) D:'FIRST&'STOP HEADER
- ...Q:STOP
- ...;I FIRST D HEADER S FIRST=0
- ...Q
  ..Q
  .Q
@@ -74 +67 @@
 SHEAD ;
  S @STORE@("H2")="Pt Name"
- S $E(@STORE@("H2"),15)="Pt ID"
+ S $E(@STORE@("H2"),18)="Pt ID"
  S $E(@STORE@("H1"),25)="M.T."
  S $E(@STORE@("H2"),25)="Stat"