FSCOPT ;SLC/STAFF-NOIS Option Routing ;1/13/98 14:03
;;1.1;NOIS;;Sep 06, 1998
;
NEW ; from FSCOP
N VALMAR
W !!
D NEW^FSCEL
D TMP^FSCOPTU
Q
;
EDIT ; from FSCOP
N CALL,OK
D LOOKUP^FSCULOOK("CALL",.CALL,"AEMOQ",.OK)
I 'OK Q
D SETUP1^FSCOPTU(+CALL)
S XQORM("B")="Edit"
D EDIT^FSCLM("EVALUES")
D CLEANUP^FSCOPTU
D TMP^FSCOPTU
Q
;
CLOSE ; from FSCOP
N CALL,OK
D LOOKUP^FSCULOOK("CALL",.CALL,"AEMOQ",.OK,"I '$P(^(0),U,4)")
I 'OK Q
D SETUP1^FSCOPTU(+CALL)
S XQORM("B")="Close Call"
D EDIT^FSCLM("EVALUES")
D CLEANUP^FSCOPTU
D TMP^FSCOPTU
Q
;
VIEW ; from FSCOP
N CALL,DISPLAY,FSCSTYLE,OK,VALMAR K ^TMP("FSC LIST",$J)
S FSCLNAME=" ",FSCLNUM=0,FSCL0="",FSCQUERY=1
S OK=1 F D Q:'OK
.N CALL D LOOKUP^FSCULOOK("CALL",.CALL,"AEMOQ",.OK)
.I 'OK Q
.S ^TMP("FSC LIST",$J,+CALL)=""
D
.I '$O(^TMP("FSC LIST",$J,0)) Q
.D EXPAND^FSCUX(.FSCSTYLE,.OK,"DETAILED") I 'OK Q
.S FSCSTYLE=$$STYLE^FSCU(FSCSTYLE)
.S DISPLAY="" I '($D(FSCSTYLE("E"))!$D(FSCSTYLE("T"))) D DISPLAY^FSCRU(.DISPLAY,.OK) I 'OK Q
.I DISPLAY="DEVICE" D DEV^FSCRU("","^TMP(""FSC LIST"",$J,","DQ^FSCRUDQ","NOIS Report",.OK) Q
.D SETUP^FSCRPTS I $D(VALMQUIT) Q
.D VIEW^FSCLM(VALMAR,"VVALUES",.FSCSTYLE)
D CLEANUP^FSCOPTU
D TMP^FSCOPTU
Q
;
LIST ; from FSCOP
N FSCEDIT,FSCEXIT,FSCLIMIT,LIST,OK
S LIST=$P($$DEFLIST^FSCU(DUZ),U,2)
D LIST^FSCULOOK(.LIST,.FSCLIMIT,.OK)
I 'OK Q
D LIST^FSCLM($P(LIST,U,2))
D CLEANUP^FSCOPTU
D TMP^FSCOPTU
Q
;
QUERY ; from FSCOP
W !!
N FSCEDIT,FSCEXIT,FSCLIMIT,OK,VALMAR
S FSCLNAME="Temporary List",FSCLNUM=0,OK=1,FSCQUERY=1
D BROWSE^FSCQB("",FSCLNAME,0,.OK,"Add")
I 'OK Q
D LIST^FSCLM(FSCLNAME)
D CLEANUP^FSCOPTU
D TMP^FSCOPTU
Q
;
REPORTS ; from FSCOP
D REPORTS^FSCRPTS
D CLEANUP^FSCOPTU
D TMP^FSCOPTU
Q
;
FILES ; from FSCOP
D FILES^FSCUEDIT
D TMP^FSCOPTU
Q
;
EVENT ; from FSCOP
D FILES^FSCUEDS
D TMP^FSCOPTU
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCOPT 1945 printed Oct 16, 2024@18:19:27 Page 2
FSCOPT ;SLC/STAFF-NOIS Option Routing ;1/13/98 14:03
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
NEW ; from FSCOP
+1 NEW VALMAR
+2 WRITE !!
+3 DO NEW^FSCEL
+4 DO TMP^FSCOPTU
+5 QUIT
+6 ;
EDIT ; from FSCOP
+1 NEW CALL,OK
+2 DO LOOKUP^FSCULOOK("CALL",.CALL,"AEMOQ",.OK)
+3 IF 'OK
QUIT
+4 DO SETUP1^FSCOPTU(+CALL)
+5 SET XQORM("B")="Edit"
+6 DO EDIT^FSCLM("EVALUES")
+7 DO CLEANUP^FSCOPTU
+8 DO TMP^FSCOPTU
+9 QUIT
+10 ;
CLOSE ; from FSCOP
+1 NEW CALL,OK
+2 DO LOOKUP^FSCULOOK("CALL",.CALL,"AEMOQ",.OK,"I '$P(^(0),U,4)")
+3 IF 'OK
QUIT
+4 DO SETUP1^FSCOPTU(+CALL)
+5 SET XQORM("B")="Close Call"
+6 DO EDIT^FSCLM("EVALUES")
+7 DO CLEANUP^FSCOPTU
+8 DO TMP^FSCOPTU
+9 QUIT
+10 ;
VIEW ; from FSCOP
+1 NEW CALL,DISPLAY,FSCSTYLE,OK,VALMAR
KILL ^TMP("FSC LIST",$JOB)
+2 SET FSCLNAME=" "
SET FSCLNUM=0
SET FSCL0=""
SET FSCQUERY=1
+3 SET OK=1
FOR
Begin DoDot:1
+4 NEW CALL
DO LOOKUP^FSCULOOK("CALL",.CALL,"AEMOQ",.OK)
+5 IF 'OK
QUIT
+6 SET ^TMP("FSC LIST",$JOB,+CALL)=""
End DoDot:1
if 'OK
QUIT
+7 Begin DoDot:1
+8 IF '$ORDER(^TMP("FSC LIST",$JOB,0))
QUIT
+9 DO EXPAND^FSCUX(.FSCSTYLE,.OK,"DETAILED")
IF 'OK
QUIT
+10 SET FSCSTYLE=$$STYLE^FSCU(FSCSTYLE)
+11 SET DISPLAY=""
IF '($DATA(FSCSTYLE("E"))!$DATA(FSCSTYLE("T")))
DO DISPLAY^FSCRU(.DISPLAY,.OK)
IF 'OK
QUIT
+12 IF DISPLAY="DEVICE"
DO DEV^FSCRU("","^TMP(""FSC LIST"",$J,","DQ^FSCRUDQ","NOIS Report",.OK)
QUIT
+13 DO SETUP^FSCRPTS
IF $DATA(VALMQUIT)
QUIT
+14 DO VIEW^FSCLM(VALMAR,"VVALUES",.FSCSTYLE)
End DoDot:1
+15 DO CLEANUP^FSCOPTU
+16 DO TMP^FSCOPTU
+17 QUIT
+18 ;
LIST ; from FSCOP
+1 NEW FSCEDIT,FSCEXIT,FSCLIMIT,LIST,OK
+2 SET LIST=$PIECE($$DEFLIST^FSCU(DUZ),U,2)
+3 DO LIST^FSCULOOK(.LIST,.FSCLIMIT,.OK)
+4 IF 'OK
QUIT
+5 DO LIST^FSCLM($PIECE(LIST,U,2))
+6 DO CLEANUP^FSCOPTU
+7 DO TMP^FSCOPTU
+8 QUIT
+9 ;
QUERY ; from FSCOP
+1 WRITE !!
+2 NEW FSCEDIT,FSCEXIT,FSCLIMIT,OK,VALMAR
+3 SET FSCLNAME="Temporary List"
SET FSCLNUM=0
SET OK=1
SET FSCQUERY=1
+4 DO BROWSE^FSCQB("",FSCLNAME,0,.OK,"Add")
+5 IF 'OK
QUIT
+6 DO LIST^FSCLM(FSCLNAME)
+7 DO CLEANUP^FSCOPTU
+8 DO TMP^FSCOPTU
+9 QUIT
+10 ;
REPORTS ; from FSCOP
+1 DO REPORTS^FSCRPTS
+2 DO CLEANUP^FSCOPTU
+3 DO TMP^FSCOPTU
+4 QUIT
+5 ;
FILES ; from FSCOP
+1 DO FILES^FSCUEDIT
+2 DO TMP^FSCOPTU
+3 QUIT
+4 ;
EVENT ; from FSCOP
+1 DO FILES^FSCUEDS
+2 DO TMP^FSCOPTU
+3 QUIT
