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

FSCRU.m

Go to the documentation of this file.
  1. FSCRU ;SLC/STAFF-NOIS Report Utility ;8/29/94 10:20
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. DISPLAY(DISPLAY,OK) ; from FSCOPT, FSCRPTS
  1. N DIR,X,Y K DIR S DISPLAY="",OK=1
  1. S DIR(0)="SAMO^DEVICE:DEVICE;VIEW:VIEW",DIR("A")="Select (D)evice or (V)iew: ",DIR("B")="View"
  1. S DIR("?",1)="Enter DEVICE to display the report to the screen or queue to a device."
  1. S DIR("?",2)="Enter VIEW to display the report on the NOIS View Screen using List Manager."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT) S OK=0 Q
  1. S DISPLAY=Y
  1. Q
  1. ;
  1. PT ; from FSCLMP
  1. D DEV("VALM*",VALMAR,"DQPT^FSCRUDQ","NOIS - Print Text",.OK)
  1. Q
  1. ;
  1. PS ; from FSCLMP
  1. D DEV("VALM*",VALMAR,"DQPS^FSCRUDQ","NOIS - Print Screen",.OK)
  1. Q
  1. ;
  1. DEV(SAVE,SAVEG,RTN,DESC,OK) ; from FSCOPT, FSCRPTS
  1. I '$L($G(RTN)) Q
  1. N %ZIS,FIRST,FSCDEV,PAGEBRK,POP,ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK K %ZIS,ZTSAVE S (FSCDEV,OK)=1,PAGEBRK=0
  1. I $P($G(FSCSTYLE(0)),U,8),$L($G(DESC)),DESC'["Print Screen" S OK=1 D I 'OK Q
  1. .I DESC="NOIS Report" D PAGEBRK(.PAGEBRK,.OK) Q
  1. .I $L($G(VALMAR)),@VALMAR>1 D PAGEBRK(.PAGEBRK,.OK) Q
  1. .I $G(SAVEG)="^TMP(""FSC LIST"",$J," S FIRST=$O(^TMP("FSC LIST",$J,0)) I FIRST,$O(^(FIRST)) D PAGEBRK(.PAGEBRK,.OK)
  1. D
  1. .S %ZIS="Q",%ZIS("B")=""
  1. .D ^%ZIS I POP S OK=0 Q
  1. .I $G(IO("Q"))'=1 D @RTN Q
  1. .S ZTIO=ION_";"_IOST I $L($G(IO("DOC"))) S ZTIO=ZTIO_";"_IO("DOC")
  1. .S ZTSAVE("FSC*")="",ZTSAVE("PAGEBRK")=""
  1. .I $L($G(SAVE)) S ZTSAVE(SAVE)=""
  1. .I $L($G(SAVEG)) S ZTSAVE(SAVEG)="",SAVEG=$E(SAVEG,1,$L(SAVEG)-1)_",",ZTSAVE(SAVEG)=""
  1. .S ZTRTN=RTN
  1. .S ZTDESC=$G(DESC)
  1. .D ^%ZTLOAD
  1. .W !,$S($D(ZTSK):"Request queued",1:"Request cancelled")
  1. .D HOME^%ZIS
  1. W ! D ^%ZISC
  1. Q
  1. ;
  1. PAGEBRK(PAGEBRK,OK) ;
  1. N DIR,X,Y K DIR S PAGEBRK=0
  1. S DIR(0)="YAO",DIR("A")="Start each call on a new page: ",DIR("B")="NO"
  1. S DIR("?",1)="Enter YES to have each call begin on a new page."
  1. S DIR("?",2)="Enter NO to simply print the display text."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT) S OK=0 Q
  1. I Y=1 S PAGEBRK=1
  1. Q
  1. ;
  1. REPLACE(STR,CHAR,WITH) ; $$(string,replace characters,with characters) -> new string
  1. N ARRAY K ARRAY
  1. S ARRAY(CHAR)=WITH
  1. Q $$REPLACE^XLFSTR(STR,.ARRAY)