- 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 Feb 18, 2025@23:45:17 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