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

FSCOPT.m

Go to the documentation of this file.
  1. FSCOPT ;SLC/STAFF-NOIS Option Routing ;1/13/98 14:03
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. NEW ; from FSCOP
  1. N VALMAR
  1. W !!
  1. D NEW^FSCEL
  1. D TMP^FSCOPTU
  1. Q
  1. ;
  1. EDIT ; from FSCOP
  1. N CALL,OK
  1. D LOOKUP^FSCULOOK("CALL",.CALL,"AEMOQ",.OK)
  1. I 'OK Q
  1. D SETUP1^FSCOPTU(+CALL)
  1. S XQORM("B")="Edit"
  1. D EDIT^FSCLM("EVALUES")
  1. D CLEANUP^FSCOPTU
  1. D TMP^FSCOPTU
  1. Q
  1. ;
  1. CLOSE ; from FSCOP
  1. N CALL,OK
  1. D LOOKUP^FSCULOOK("CALL",.CALL,"AEMOQ",.OK,"I '$P(^(0),U,4)")
  1. I 'OK Q
  1. D SETUP1^FSCOPTU(+CALL)
  1. S XQORM("B")="Close Call"
  1. D EDIT^FSCLM("EVALUES")
  1. D CLEANUP^FSCOPTU
  1. D TMP^FSCOPTU
  1. Q
  1. ;
  1. VIEW ; from FSCOP
  1. N CALL,DISPLAY,FSCSTYLE,OK,VALMAR K ^TMP("FSC LIST",$J)
  1. S FSCLNAME=" ",FSCLNUM=0,FSCL0="",FSCQUERY=1
  1. S OK=1 F D Q:'OK
  1. .N CALL D LOOKUP^FSCULOOK("CALL",.CALL,"AEMOQ",.OK)
  1. .I 'OK Q
  1. .S ^TMP("FSC LIST",$J,+CALL)=""
  1. D
  1. .I '$O(^TMP("FSC LIST",$J,0)) Q
  1. .D EXPAND^FSCUX(.FSCSTYLE,.OK,"DETAILED") I 'OK Q
  1. .S FSCSTYLE=$$STYLE^FSCU(FSCSTYLE)
  1. .S DISPLAY="" I '($D(FSCSTYLE("E"))!$D(FSCSTYLE("T"))) D DISPLAY^FSCRU(.DISPLAY,.OK) I 'OK Q
  1. .I DISPLAY="DEVICE" D DEV^FSCRU("","^TMP(""FSC LIST"",$J,","DQ^FSCRUDQ","NOIS Report",.OK) Q
  1. .D SETUP^FSCRPTS I $D(VALMQUIT) Q
  1. .D VIEW^FSCLM(VALMAR,"VVALUES",.FSCSTYLE)
  1. D CLEANUP^FSCOPTU
  1. D TMP^FSCOPTU
  1. Q
  1. ;
  1. LIST ; from FSCOP
  1. N FSCEDIT,FSCEXIT,FSCLIMIT,LIST,OK
  1. S LIST=$P($$DEFLIST^FSCU(DUZ),U,2)
  1. D LIST^FSCULOOK(.LIST,.FSCLIMIT,.OK)
  1. I 'OK Q
  1. D LIST^FSCLM($P(LIST,U,2))
  1. D CLEANUP^FSCOPTU
  1. D TMP^FSCOPTU
  1. Q
  1. ;
  1. QUERY ; from FSCOP
  1. W !!
  1. N FSCEDIT,FSCEXIT,FSCLIMIT,OK,VALMAR
  1. S FSCLNAME="Temporary List",FSCLNUM=0,OK=1,FSCQUERY=1
  1. D BROWSE^FSCQB("",FSCLNAME,0,.OK,"Add")
  1. I 'OK Q
  1. D LIST^FSCLM(FSCLNAME)
  1. D CLEANUP^FSCOPTU
  1. D TMP^FSCOPTU
  1. Q
  1. ;
  1. REPORTS ; from FSCOP
  1. D REPORTS^FSCRPTS
  1. D CLEANUP^FSCOPTU
  1. D TMP^FSCOPTU
  1. Q
  1. ;
  1. FILES ; from FSCOP
  1. D FILES^FSCUEDIT
  1. D TMP^FSCOPTU
  1. Q
  1. ;
  1. EVENT ; from FSCOP
  1. D FILES^FSCUEDS
  1. D TMP^FSCOPTU
  1. Q