source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCMCRU.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1SCMCRU ;ALB/REW - PCMM Report Utilities ; 9 Feb 1996
2 ;;5.3;Scheduling;**41**;AUG 13, 1993
3 ;FORM FEED & STOPPING UTILITIES
4FIRST() ;First heading of report
5 ; RETURNS STOP; 0=GO,1=STOP
6 N STOP
7 D STOPCHK
8 D:$G(STOP) STOPPED
9 I '$G(STOP),$E($G(IOST),1,2)="C-" W @IOF
10 Q $G(STOP)
11 ;
12SUBSEQ() ;enter for further headings of report
13 ; RETURNS STOP; 0=GO,1=STOP
14 N STOP,DIR,X,Y
15 D STOPCHK
16 I $E($G(IOST),1,2)="C-" S DIR(0)="E" D ^DIR S:$D(DIRUT) STOP=1
17 D:$G(STOP) STOPPED
18 I '$G(STOP) W @IOF
19 Q $G(STOP)
20 ;
21STOPCHK I $D(ZTQUEUED),$$S^%ZTLOAD S (ZTSTOP,STOP)=1
22 Q
23STOPPED ;
24 W !?5,"------------- Report stopped at user's request ------------"
25 K ZTREQ
26 Q
27ENDREP I $E(IOST,1,2)'["C-" W:$Y&'$D(IONOFF) @IOF Q
28 ;
29FOOTER ;
30 ; print SCFOOT
31 ;RETURNS SCSTOP=1 IF STOP CALLED FOR
32 S SCPAGE=$G(SCPAGE)+1
33 F I=$Y:1:$S($D(IOSL):(IOSL-5),1:61) W !
34 W !,$G(SCFOOT),?66,"PAGE: ",SCPAGE
35 S SCSTOP=$$SUBSEQ
36 I SCSTOP D STOPPED
37 Q
38HEADER ;
39 ; prints SCHEAD
40 W !,$G(SCHEAD)
41 Q
42WAIT I $E(IOST)="C" S DIR(0)="E" D ^DIR S:'Y SCSTOP=1
43 Q
44 ;
45OUT(LINE,FORMAT) ;
46 W:$D(FORMAT) @FORMAT
47 W $G(LINE)
48 I $Y>(IOSL-4) D FOOTER D HEADER
49QTOUT Q
50 ;
51DDNAME(FILE,FIELD) ;return the fieldname
52 N SCX
53 D FIELD^DID(FILE,FIELD,"","LABEL","SCX")
54 Q $G(SCX("LABEL"))
55 ;
Note: See TracBrowser for help on using the repository browser.