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

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

@@ -1 +1 @@
 SCRPITP ;ALB/CMM - Individual Team Profile ; 29 Jun 99  04:11PM
- ;;5.3;Scheduling;**41,52,177,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41,52,177**;AUG 13, 1993
  ;
  ;Individual Team Profile
@@ -105 +105 @@
  ;
 PRINTIT(STORE,TITL) ;
- N INST,EINST,ETEAM,TEM,NEW,PAGE,TNAME,TIEN,EN,SUB,POS,CIEN,INF,ACL
+ N INST,EINST,ETEAM,TEM,NEW,PAGE,TNAME,TIEN,EN,SUB,POS,CIEN,INF
  S (INST,EINST)="",STOP=0,(PAGE,NEW)=1 W:$E(IOST)="C" @IOF
  D FORHEAD^SCRPITP2
@@ -136 +136 @@
  ..I $Y<IOSL-10 D COLUMN^SCRPITP2
  ..F  S POS=$O(@STORE@(INST,TIEN,"P",POS)) Q:POS=""!(STOP)  D
+ ...I IOST'?1"C-".E,$Y>(IOSL-5) D NEWP1^SCRPU3(.PAGE,TITL,132) Q:STOP  D CONT^SCRPITP2
+ ...I IOST?1"C-".E,$Y>(IOSL-5) D HOLD^SCRPU3(.PAGE,TITL,132) Q:STOP  D CONT^SCRPITP2
+ ...I STOP Q
  ...W !,$G(@STORE@(INST,TIEN,"P",POS))
- ...S ACL=""
- ...F  S ACL=$O(@STORE@(INST,TIEN,"P",POS,ACL)) Q:ACL=""!(STOP)  D
- ....W !,$G(@STORE@(INST,TIEN,"P",POS,ACL))
- ....I IOST'?1"C-".E,$Y>(IOSL-5) D NEWP1^SCRPU3(.PAGE,TITL,132) Q:STOP  D CONT^SCRPITP2
- ....I IOST?1"C-".E,$Y>(IOSL-5) D HOLD^SCRPU3(.PAGE,TITL,132) Q:STOP  D CONT^SCRPITP2
- ....I STOP Q
- ...;W !,$G(@STORE@(INST,TIEN,"P",POS))
- ...;W !,$G(@STORE@(INST,TIEN,"P",POS,ACL))
- ...W !
+ ..W !
  I 'STOP,$E(IOST)="C" N DIR S DIR(0)="E" W ! D ^DIR
  Q