Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCRUDQ

FSCRUDQ.m

Go to the documentation of this file.
  1. FSCRUDQ ;SLC/STAFF-NOIS Report Utility Dequeued ;6/16/95 14:35
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. DQPT ;
  1. N CNT,HDR,LINE,OK,PAGE,TOTPAGE K HDR
  1. D
  1. .I $G(PAGEBRK) D PAGE Q
  1. .D ALL
  1. I $D(ZTQUEUED) D CLEANUP^FSCOPTU
  1. Q
  1. ;
  1. DQPS ;
  1. N BG,CNT,LINE,LINECNT,LINES,OK,PAGE,TITLE,TOTPAGE
  1. U IO I $D(ZTQUEUED) S ZTREQ="@"
  1. S BG=$G(VALMBG,1),LINES=$G(VALM("LINES"),16),TITLE=$G(VALM("TITLE"),"NOIS")
  1. S PAGE=(BG\LINES)+((BG#LINES)>0),LINECNT=+$P(@VALMAR,U,2),TOTPAGE=(LINECNT\LINES)+((LINECNT#LINES)>0)
  1. S LINECNT=0 I IOST["C-" W @IOF
  1. S LINECNT=LINECNT+1 W !,TITLE,?28,$$FMTE^XLFDT($$NOW^XLFDT)," Page: ",PAGE," of ",$J(TOTPAGE,6)
  1. S LINE=0 F S LINE=$O(VALMHDR(LINE)) Q:LINE<1 S LINECNT=LINECNT+1 W !,VALMHDR(LINE)
  1. S LINECNT=LINECNT+1 W !,VALMCAP
  1. S LINECNT=LINECNT+1,LINE="",$P(LINE,"-",79)="" W !,LINE
  1. S CNT=0,LINE=BG-1 F S LINE=$O(@VALMAR@(LINE)) Q:LINE<1 S CNT=CNT+1 Q:CNT>LINES S LINECNT=LINECNT+1 W !,$E(@VALMAR@(LINE,0),1,79)
  1. I IOST["C-" D
  1. .F S LINECNT=LINECNT+1 Q:LINECNT>25 W ! I $Y'<(IOSL-2) Q
  1. .D PAUSE^FSCU(.OK)
  1. I $D(ZTQUEUED) D CLEANUP^FSCOPTU
  1. Q
  1. ;
  1. DQ ;
  1. D SETUP^FSCRPTS I $D(VALMQUIT) Q
  1. N CNT,HDR,LINE,OK,PAGE,TOTPAGE K HDR
  1. S LISTREF=VALMAR,LISTSEL="VVALUES" M FSCFMT=FSCSTYLE D ENTRY^FSCLMV,HEADER^FSCLMV
  1. D
  1. .I $G(PAGEBRK) D PAGE Q
  1. .D ALL
  1. I $D(ZTQUEUED) D CLEANUP^FSCOPTU
  1. Q
  1. ;
  1. ALL ;
  1. D SETUP(+$P(@VALMAR,U,2),.HDR,.TOTPAGE)
  1. U IO I $D(ZTQUEUED) S ZTREQ="@"
  1. I '$O(@VALMAR@(0)) S (CNT,PAGE)=0 D HEADER(.PAGE,.HDR,.CNT,.OK) W !!,"No calls to view." Q
  1. S OK=1,(CNT,PAGE,LINE)=0 F S LINE=$O(@VALMAR@(LINE)) Q:LINE<1 D I 'OK Q
  1. .I CNT=0 D HEADER(.PAGE,.HDR,.CNT,.OK) I 'OK Q
  1. .S CNT=CNT+1 W !,$E($G(@VALMAR@(LINE,0)),1,79)
  1. .I $Y'<(IOSL-2) S CNT=0 I IOST["C-" D PAUSE^FSCU(.OK)
  1. I CNT D
  1. .F S CNT=CNT+1 Q:CNT>25 W ! I $Y'<(IOSL-2) Q
  1. .I IOST["C-" D PAUSE^FSCU(.OK)
  1. Q
  1. ;
  1. PAGE ;
  1. D SETUP(+$P(@VALMAR,U,2),.HDR,.TOTPAGE)
  1. U IO I $D(ZTQUEUED) S ZTREQ="@"
  1. I '$O(@VALMAR@(0)) S (CNT,PAGE)=0 D HEADER(.PAGE,.HDR,.CNT,.OK) W !!,"No calls to view." Q
  1. N DIVIDER S DIVIDER="",$P(DIVIDER,"=",80)=""
  1. S OK=1,(CNT,PAGE,LINE)=0 F S LINE=$O(@VALMAR@(LINE)) Q:LINE<1 D I 'OK Q
  1. .I CNT=0 D HEADER(.PAGE,.HDR,.CNT,.OK) I 'OK Q
  1. .S CNT=CNT+1 W !,$E($G(@VALMAR@(LINE,0)),1,79)
  1. .I $G(@VALMAR@(LINE,0))=DIVIDER D Q
  1. ..F S CNT=CNT+1 Q:CNT>25 W ! I $Y'<(IOSL-2) Q
  1. ..S CNT=0 I IOST["C-" D PAUSE^FSCU(.OK)
  1. .I $Y'<(IOSL-2) S CNT=0 I IOST["C-" D PAUSE^FSCU(.OK)
  1. I CNT D
  1. .F S CNT=CNT+1 Q:CNT>25 W ! I $Y'<(IOSL-2) Q
  1. .I IOST["C-" D PAUSE^FSCU(.OK)
  1. Q
  1. ;
  1. SETUP(LINECNT,HDR,TOTPAGE) ;
  1. N CNT,LINE K HDR
  1. S CNT=1,LINE=0 F S LINE=$O(VALMHDR(LINE)) Q:LINE<1 S CNT=CNT+1,HDR(CNT)=VALMHDR(LINE)
  1. I $L($G(VALMCAP)) S CNT=CNT+1,HDR(CNT)=VALMCAP
  1. S CNT=CNT+1,HDR(CNT)="",$P(HDR(CNT),"-",79)=""
  1. S TOTPAGE=(LINECNT\(IOSL-CNT-2))+((LINECNT#(IOSL-CNT-2))>0)
  1. S HDR(1)=$$SETSTR^VALM1($$FMTE^XLFDT($$NOW^XLFDT)_" Page:@@@@@@"_$S('$G(PAGEBRK):" of "_$J(TOTPAGE,6),1:""),$G(VALM("TITLE"),"NOIS"),30,51)
  1. Q
  1. ;
  1. N LINE S OK=1,PAGE=PAGE+1
  1. W:'(PAGE=1&(IOST'["C-")) @IOF W $$REPLACE^FSCRU(HDR(1),"@@@@@@",$J(PAGE,6))
  1. S LINE=1 F S LINE=$O(HDR(LINE)) Q:LINE<1 S CNT=CNT+1 W !,HDR(LINE)
  1. I $$S^%ZTLOAD S OK=0,ZTSTOP=1 W !!,"Report has been stopped.",!
  1. Q