- SCCVCST1 ; ALB/TMP - SCHED VSTS CONV/ARCHIVE - REQUEST/EDIT ; 25-NOV-97
- ;;5.3;Scheduling;**211**;Aug 13, 1993
- ;
- REQ(SCFUNC,SCCVSCRN,ASKBULL) ; -- Schedule request to run/stop
- ; SCFUNC = 0 if from add new template, 1 if from edit or schedule
- ; SCCVSCRN = 1 if called from main menu, 2 if called from log menu
- ; ASKBULL = 1 if user should be asked to answer send bulletin question
- ; = 0 if user already answered the question during this action
- ; Assumes SCCVDA = template entry ien from List Manager selection
- ;
- N DA,DIC,DIE,DR,SCCV,SCCV0,SCCV1,SCCVACT,SCCVDA1,SCCVOK,SCCVNOW,SCCV7,SCCV8,SCCV5,SCRESULT,SCSTOP,SCABORT,X,Y
- D FULL^VALM1
- I $G(SCCVDA),$P($G(^SD(404.98,SCCVDA,0)),U,9) D G REQX
- . W *7,!,"You cannot run a canceled template!"
- . D PAUSE^SCCVU
- I $D(SCCVDONE) D DONE G REQX
- I '$G(SCCVDA) D SELX^SCCVDSP("CST",1)
- G:'$G(SCCVDA) REQX
- ;
- S SCCV0=$G(^SD(404.98,SCCVDA,0)),SCCV1=$G(^(1)),SCCV7=$P(SCCV0,U,7),SCCV5=$P(SCCV0,U,5),SCCV8=$P(SCCV0,U,8),SCCVACT="",SCABORT=0
- ;
- ; -- quit is convert or reconvert and conversion disabled
- IF SCCV5=1!(SCCV5=2),'$$OK^SCCVU(1) S SCABORT=1 G REQX
- ;
- I $P(SCCV1,U,3) D G:SCABORT REQX ; Check log's task
- . D TASKSTA^SCCVU1(.SCRESULT,SCCVDA)
- . Q:$S($G(SCRESULT):0,$P(SCRESULT,U,3)=0:1,"124"[SCCV7:1,1:$P(SCRESULT,U,3)>2)
- . W !!,$S($G(SCRESULT):"An error has occurred (",1:"This CST already has a valid task "_$P(SCCV1,U,3)_" (")_$P(SCRESULT,U,2)_")."
- . I $G(SCRESULT) D PAUSE^SCCVU K:$G(SCCVSCRN)'=2 SCCVDA S SCABORT=1 Q
- ;
- I SCCV7=5 D G:SCABORT REQX ;Last event completed
- .;
- . I $P(SCCV0,U,5)=1 D K:$G(SCCVSCRN)'=2 SCCVDA Q ;Convert complete
- .. W !!,"This CST has completed converting the data in its date range."
- .. W !,"The event must be 'RE-CONVERT' in order to run this CST again."
- .. D PAUSE^SCCVU
- .. S SCABORT=1
- .;
- . I $P(SCCV0,U,5)=2 D Q ;Re-convert complete
- .. S DIR(0)="YA",DIR("B")="NO",DIR("A",1)="You are about to request a RE-CONVERT event 'again' using this CST."
- .. S DIR("A")="Are you sure you want to do this?: "
- .. D ^DIR K DIR
- .. I Y'=1 K:$G(SCCVSCRN)'=2 SCCVDA S SCABORT=1
- .;
- . I '$P(SCCV0,U,5) D Q ;Estimate complete
- .. S DIR(0)="YA",DIR("B")="NO"
- .. S DIR("A",1)=" ",DIR("A",2)="This CST has already completed an ESTIMATE event.",DIR("A",3)="Re-running the ESTIMATE will delete the totals previously stored."
- .. S DIR("A")="Are you sure you want to do this?: "
- .. D ^DIR K DIR
- .. I Y'=1 K:$G(SCCVSCRN)'=2 SCCVDA S SCABORT=1
- ;
- W !!,"Requested Event : ",$$EXPAND^SCCVDSP2(404.98,.05,$P(SCCV0,U,5))
- W !,"Last Event Status : ",$$EXPAND^SCCVDSP2(404.98,.07,$P(SCCV0,U,7))
- W !,"Last Requested Action: ",$$NONE^SCCVDSP2(404.98,.08,$P(SCCV0,U,8),"<No action requested>"),!
- ;
- D G:SCCVACT'>0 REQX
- .I SCCV7<2 S SCCVACT=1 Q ;Never started
- .S DIR(0)="SABM^"
- .I SCCV5 S DIR(0)=DIR(0)_$S(SCCV7'=5&(SCCV5=1):"1:SCHEDULE;",SCCV7=5&(SCCV5=2):"1:SCHEDULE",1:"")_$S(SCCV7'=5:"2:STOP;3:RE-START",1:"")
- .I 'SCCV5 S DIR(0)=DIR(0)_$S(SCCV7'=4:"1:SCHEDULE"_$S(SCCV7'=5:";",1:""),1:"")_$S(SCCV7'=5:"2:STOP",1:"")
- .S DIR("A")="Request Action: "
- .I SCCV5 S DIR("B")=$S("23"[SCCV7:"RE-START",SCCV7=5:"SCHEDULE",1:"STOP")
- .I 'SCCV5 S DIR("B")=$S("35"[SCCV7:"SCHEDULE",1:"STOP")
- .W !
- .D ^DIR K DIR
- .S SCCVACT=+Y
- .IF SCCVACT'>0 S SCCVACT="" Q
- .I $S(SCCVACT=2:SCCV7=3,SCCVACT=1!(SCCVACT=3):SCCV7=2!(SCCV7=4)!(SCCV7=6),1:0) D
- ..S Z=1,DIR(0)="YA",DIR("B")="NO"
- ..S:SCCVACT=2 DIR("A",1)="You are requesting to STOP the running of this CST.",Z=Z+1
- ..S DIR("A",Z)="This ACTION is the same(or similar) as the previous action on this CST."
- ..S DIR("A")="Are you sure you want to do this?: "
- ..D ^DIR K DIR
- ..I Y'=1 S SCCVACT=""
- I SCCVACT=2 D G:SCCVACT'>0 REQX
- .S SCSTOP=1
- .I SCCV7'=3 S DIR(0)="YA",DIR("A",1)="You are requesting to STOP the running of this CST.",DIR("A")="Are you sure you want to do this?: ",DIR("B")="NO" D ^DIR K DIR I Y'=1 S SCCVACT=""
- S SCCVOK=0 K SCCVDA1
- S DIE="^SD(404.98,",DR="[SCCV SCHEDULE REQUEST]",DA=SCCVDA
- D ^DIE
- I 'SCCVOK D:$G(SCCVDA1) NOTDONE G REQX
- ;
- S SCCV("TEMPLNO")=SCCVDA,SCCV("REQNUM")=SCCVDA1
- D PROCREQ^SCCVU1(.SCRESULT,.SCCV)
- ;
- I $G(SCFUNC) D
- .I $G(SCCVSCRN)=2 D BLD^SCCVCDS1
- .I $G(SCCVSCRN)=1 D BLD^SCCVDSP("CST")
- REQX S VALMBCK="R"
- I $G(SCCVSCRN)'=2 K SCCVDA
- Q
- ;
- NOTDONE ; -- all needed fields not answered - delete entry
- N DIK,DA,X,Y
- S DA(1)=SCCVDA,DA=SCCVDA1,DIK="^SD(404.98,"_DA(1)_",""R""," D ^DIK
- W !,"All fields must be answered. Nothing has been scheduled."
- D PAUSE^SCCVU
- Q
- ;
- EDIT(SCCVSCRN) ; -- Edit the selected CST
- N DA,DIC,DIE,DIR,DR,SCCV,SCCVX,SCCV0,SCCV1,SCCVY,SCRERUN,X,Y
- ;
- D FULL^VALM1
- I $G(SCCVDA),$P($G(^SD(404.98,SCCVDA,0)),U,9) D G EDITX
- .W *7,!,"You cannot edit a canceled template!"
- .D PAUSE^SCCVU
- I $G(SCCVDONE) D DONE G EDITX
- I $G(SCCVSCRN)=1 N SCCVDA D SELX^SCCVDSP("CST",1)
- G:'$G(SCCVDA) EDITX
- ;
- S SCCV0=$G(^SD(404.98,SCCVDA,0)),SCCV1=$G(^(1))
- S SCCV("STARTDT")=$P(SCCV0,U,3),SCCV("ENDDT")=$P(SCCV0,U,4)
- S SCCVY=""
- ;
- IF $P(SCCV0,U,5),$P(SCCV0,U,7)=5 S SCRERUN=0 D G:'SCRERUN EDITX
- . W !!,"This template has completed its "_$P("^re-",U,$P(SCCV0,U,5))_"conversion."
- . ; -- site parameter must allow re-convert
- . IF '$P($G(^SD(404.91,1,"CNV")),U,6) D PAUSE^SCCVU Q
- . ;
- . S DIR("A")="Do you want to request a"_$P("^nother",U,$P(SCCV0,U,5))_" 'RE-CONVERT' to be run for this CST?: "
- . S DIR(0)="YA",DIR("B")="NO"
- . D ^DIR K DIR
- . IF Y S SCCVY="@12",SCRERUN=1
- ;
- S DIE("NO^")="",DIE="^SD(404.98,",DA=SCCVDA,DR="[SCCV EDIT TEMPLATE]",SCCVY=$S(SCCVY'="":SCCVY,$P(SCCV1,U,2):"@15",$$CNVTSCH^SCCVU1(SCCVDA):"@15",1:"@5") D ^DIE K DIE
- S SCCV0=$G(^SD(404.98,SCCVDA,0))
- W !
- S DIR(0)="YA",DIR("A")="Do you want to schedule this "_$$EXPAND^SCCVDSP2(404.98,.05,$P(SCCV0,U,5))_" event to run?: ",DIR("B")="YES" D ^DIR K DIR
- D
- .I Y D REQ(1,$G(SCCVSCRN),0) Q
- .I $G(SCCVSCRN)=2 D BLD^SCCVCDS1,HDR^SCCVDSP1(SCCVDA,"CST")
- .I $G(SCCVSCRN)=1 D BLD^SCCVDSP("CST")
- EDITX S VALMBCK="R"
- Q
- ;
- BULL ; Re-generate bulletin for estimate
- N SCCVSENT,SCEST,Z
- D FULL^VALM1
- ;
- I $D(SCCVDONE) D DONE G BULLX
- I $G(SCCVSCRN)=1 N SCCVDA D SELX^SCCVDSP("CST")
- G:'$G(SCCVDA) BULLX
- ;
- S SCEST=$$CHKACT^SCCVLOG(SCCVDA,0,5,"CST")
- ;
- I 'SCEST D G BULLX
- . W !,"The CST must have a completed ESTIMATE event to re-generate the bulletin."
- . D PAUSE^SCCVU
- ;
- D MAILSUM^SCCVEGD0(SCCVDA,.SCCVSENT)
- ;
- W !,"Estimate bulletin "_$S($G(SCCVSENT):"has been sent to "_SCCVSENT_" user"_$S(SCCVSENT>1:"s",1:""),1:"was not generated due to an error - try agin later")_"."
- D PAUSE^SCCVU
- ;
- BULLX S VALMBCK="R"
- Q
- ;
- CANCEL ; Cancel a selected CST that has not been completely converted
- N SCCVLST,SCCVEVT,SCCVACT,SCCVOK
- D FULL^VALM1
- I $D(SCCVDONE) D DONE G CANCQ
- I $G(SCCVSCRN)=1 N SCCVDA D SELX^SCCVDSP("CST",1)
- G:'$G(SCCVDA) CANCQ
- ;
- S SCCV0=$G(^SD(404.98,SCCVDA,0))
- S SCCVLST=+$$LSTACT^SCCVLOG(SCCVDA)
- S SCCVEVT=+$$LSTEVT^SCCVLOG(SCCVDA)
- S SCCVOK=0
- ;
- ; Check: If reconvert or convert, did it ever finish?
- I SCCVEVT=0 S SCCVOK=1
- I (SCCVEVT=1!(SCCVEVT=2)),'$$CHKACT^SCCVLOG(SCCVDA,SCCVEVT,5,"CST") S SCCVOK=1
- ;
- I 'SCCVOK D G CANCQ
- . W !,"This template has "_$S(SCCVEVT<3:"completed successfully and does not need to be canceled",1:"already been canceled")_"."
- . D PAUSE^SCCVU
- ;
- I SCCVEVT,SCCVOK S DIR("A",1)="This CST has started, but has not successfully completed running."
- W !
- S DIR(0)="YA",DIR("A")="Are you sure you want to cancel this CST? ",DIR("B")="NO" D ^DIR K DIR
- G:Y'=1 CANCQ
- W !
- S DIE="^SD(404.98,",DR="[SCCV CONV CANCEL]",DA=SCCVDA D ^DIE
- I $G(SCCVSCRN)=2 D BLD^SCCVCDS1,HDR^SCCVDSP1(SCCVDA,"CST")
- I $G(SCCVSCRN)=1 D BLD^SCCVDSP("CST")
- ;
- CANCQ S VALMBCK="R"
- Q
- ;
- DONE ; Message to say complete is over
- W *7,!!,"Conversion is complete - this function is invalid!"
- D PAUSE^SCCVU
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCCVCST1 7913 printed Jan 18, 2025@03:39:38 Page 2
- SCCVCST1 ; ALB/TMP - SCHED VSTS CONV/ARCHIVE - REQUEST/EDIT ; 25-NOV-97
- +1 ;;5.3;Scheduling;**211**;Aug 13, 1993
- +2 ;
- REQ(SCFUNC,SCCVSCRN,ASKBULL) ; -- Schedule request to run/stop
- +1 ; SCFUNC = 0 if from add new template, 1 if from edit or schedule
- +2 ; SCCVSCRN = 1 if called from main menu, 2 if called from log menu
- +3 ; ASKBULL = 1 if user should be asked to answer send bulletin question
- +4 ; = 0 if user already answered the question during this action
- +5 ; Assumes SCCVDA = template entry ien from List Manager selection
- +6 ;
- +7 NEW DA,DIC,DIE,DR,SCCV,SCCV0,SCCV1,SCCVACT,SCCVDA1,SCCVOK,SCCVNOW,SCCV7,SCCV8,SCCV5,SCRESULT,SCSTOP,SCABORT,X,Y
- +8 DO FULL^VALM1
- +9 IF $GET(SCCVDA)
- IF $PIECE($GET(^SD(404.98,SCCVDA,0)),U,9)
- Begin DoDot:1
- +10 WRITE *7,!,"You cannot run a canceled template!"
- +11 DO PAUSE^SCCVU
- End DoDot:1
- GOTO REQX
- +12 IF $DATA(SCCVDONE)
- DO DONE
- GOTO REQX
- +13 IF '$GET(SCCVDA)
- DO SELX^SCCVDSP("CST",1)
- +14 if '$GET(SCCVDA)
- GOTO REQX
- +15 ;
- +16 SET SCCV0=$GET(^SD(404.98,SCCVDA,0))
- SET SCCV1=$GET(^(1))
- SET SCCV7=$PIECE(SCCV0,U,7)
- SET SCCV5=$PIECE(SCCV0,U,5)
- SET SCCV8=$PIECE(SCCV0,U,8)
- SET SCCVACT=""
- SET SCABORT=0
- +17 ;
- +18 ; -- quit is convert or reconvert and conversion disabled
- +19 IF SCCV5=1!(SCCV5=2)
- IF '$$OK^SCCVU(1)
- SET SCABORT=1
- GOTO REQX
- +20 ;
- +21 ; Check log's task
- IF $PIECE(SCCV1,U,3)
- Begin DoDot:1
- +22 DO TASKSTA^SCCVU1(.SCRESULT,SCCVDA)
- +23 if $SELECT($GET(SCRESULT)
- QUIT
- +24 WRITE !!,$SELECT($GET(SCRESULT):"An error has occurred (",1:"This CST already has a valid task "_$PIECE(SCCV1,U,3)_" (")_$PIECE(SCRESULT,U,2)_")."
- +25 IF $GET(SCRESULT)
- DO PAUSE^SCCVU
- if $GET(SCCVSCRN)'=2
- KILL SCCVDA
- SET SCABORT=1
- QUIT
- End DoDot:1
- if SCABORT
- GOTO REQX
- +26 ;
- +27 ;Last event completed
- IF SCCV7=5
- Begin DoDot:1
- +28 ;
- +29 ;Convert complete
- IF $PIECE(SCCV0,U,5)=1
- Begin DoDot:2
- +30 WRITE !!,"This CST has completed converting the data in its date range."
- +31 WRITE !,"The event must be 'RE-CONVERT' in order to run this CST again."
- +32 DO PAUSE^SCCVU
- +33 SET SCABORT=1
- End DoDot:2
- if $GET(SCCVSCRN)'=2
- KILL SCCVDA
- QUIT
- +34 ;
- +35 ;Re-convert complete
- IF $PIECE(SCCV0,U,5)=2
- Begin DoDot:2
- +36 SET DIR(0)="YA"
- SET DIR("B")="NO"
- SET DIR("A",1)="You are about to request a RE-CONVERT event 'again' using this CST."
- +37 SET DIR("A")="Are you sure you want to do this?: "
- +38 DO ^DIR
- KILL DIR
- +39 IF Y'=1
- if $GET(SCCVSCRN)'=2
- KILL SCCVDA
- SET SCABORT=1
- End DoDot:2
- QUIT
- +40 ;
- +41 ;Estimate complete
- IF '$PIECE(SCCV0,U,5)
- Begin DoDot:2
- +42 SET DIR(0)="YA"
- SET DIR("B")="NO"
- +43 SET DIR("A",1)=" "
- SET DIR("A",2)="This CST has already completed an ESTIMATE event."
- SET DIR("A",3)="Re-running the ESTIMATE will delete the totals previously stored."
- +44 SET DIR("A")="Are you sure you want to do this?: "
- +45 DO ^DIR
- KILL DIR
- +46 IF Y'=1
- if $GET(SCCVSCRN)'=2
- KILL SCCVDA
- SET SCABORT=1
- End DoDot:2
- QUIT
- End DoDot:1
- if SCABORT
- GOTO REQX
- +47 ;
- +48 WRITE !!,"Requested Event : ",$$EXPAND^SCCVDSP2(404.98,.05,$PIECE(SCCV0,U,5))
- +49 WRITE !,"Last Event Status : ",$$EXPAND^SCCVDSP2(404.98,.07,$PIECE(SCCV0,U,7))
- +50 WRITE !,"Last Requested Action: ",$$NONE^SCCVDSP2(404.98,.08,$PIECE(SCCV0,U,8),"<No action requested>"),!
- +51 ;
- +52 Begin DoDot:1
- +53 ;Never started
- IF SCCV7<2
- SET SCCVACT=1
- QUIT
- +54 SET DIR(0)="SABM^"
- +55 IF SCCV5
- SET DIR(0)=DIR(0)_$SELECT(SCCV7'=5&(SCCV5=1):"1:SCHEDULE;",SCCV7=5&(SCCV5=2):"1:SCHEDULE",1:"")_$SELECT(SCCV7'=5:"2:STOP;3:RE-START",1:"")
- +56 IF 'SCCV5
- SET DIR(0)=DIR(0)_$SELECT(SCCV7'=4:"1:SCHEDULE"_$SELECT(SCCV7'=5:";",1:""),1:"")_$SELECT(SCCV7'=5:"2:STOP",1:"")
- +57 SET DIR("A")="Request Action: "
- +58 IF SCCV5
- SET DIR("B")=$SELECT("23"[SCCV7:"RE-START",SCCV7=5:"SCHEDULE",1:"STOP")
- +59 IF 'SCCV5
- SET DIR("B")=$SELECT("35"[SCCV7:"SCHEDULE",1:"STOP")
- +60 WRITE !
- +61 DO ^DIR
- KILL DIR
- +62 SET SCCVACT=+Y
- +63 IF SCCVACT'>0
- SET SCCVACT=""
- QUIT
- +64 IF $SELECT(SCCVACT=2:SCCV7=3,SCCVACT=1!(SCCVACT=3):SCCV7=2!(SCCV7=4)!(SCCV7=6),1:0)
- Begin DoDot:2
- +65 SET Z=1
- SET DIR(0)="YA"
- SET DIR("B")="NO"
- +66 if SCCVACT=2
- SET DIR("A",1)="You are requesting to STOP the running of this CST."
- SET Z=Z+1
- +67 SET DIR("A",Z)="This ACTION is the same(or similar) as the previous action on this CST."
- +68 SET DIR("A")="Are you sure you want to do this?: "
- +69 DO ^DIR
- KILL DIR
- +70 IF Y'=1
- SET SCCVACT=""
- End DoDot:2
- End DoDot:1
- if SCCVACT'>0
- GOTO REQX
- +71 IF SCCVACT=2
- Begin DoDot:1
- +72 SET SCSTOP=1
- +73 IF SCCV7'=3
- SET DIR(0)="YA"
- SET DIR("A",1)="You are requesting to STOP the running of this CST."
- SET DIR("A")="Are you sure you want to do this?: "
- SET DIR("B")="NO"
- DO ^DIR
- KILL DIR
- IF Y'=1
- SET SCCVACT=""
- End DoDot:1
- if SCCVACT'>0
- GOTO REQX
- +74 SET SCCVOK=0
- KILL SCCVDA1
- +75 SET DIE="^SD(404.98,"
- SET DR="[SCCV SCHEDULE REQUEST]"
- SET DA=SCCVDA
- +76 DO ^DIE
- +77 IF 'SCCVOK
- if $GET(SCCVDA1)
- DO NOTDONE
- GOTO REQX
- +78 ;
- +79 SET SCCV("TEMPLNO")=SCCVDA
- SET SCCV("REQNUM")=SCCVDA1
- +80 DO PROCREQ^SCCVU1(.SCRESULT,.SCCV)
- +81 ;
- +82 IF $GET(SCFUNC)
- Begin DoDot:1
- +83 IF $GET(SCCVSCRN)=2
- DO BLD^SCCVCDS1
- +84 IF $GET(SCCVSCRN)=1
- DO BLD^SCCVDSP("CST")
- End DoDot:1
- REQX SET VALMBCK="R"
- +1 IF $GET(SCCVSCRN)'=2
- KILL SCCVDA
- +2 QUIT
- +3 ;
- NOTDONE ; -- all needed fields not answered - delete entry
- +1 NEW DIK,DA,X,Y
- +2 SET DA(1)=SCCVDA
- SET DA=SCCVDA1
- SET DIK="^SD(404.98,"_DA(1)_",""R"","
- DO ^DIK
- +3 WRITE !,"All fields must be answered. Nothing has been scheduled."
- +4 DO PAUSE^SCCVU
- +5 QUIT
- +6 ;
- EDIT(SCCVSCRN) ; -- Edit the selected CST
- +1 NEW DA,DIC,DIE,DIR,DR,SCCV,SCCVX,SCCV0,SCCV1,SCCVY,SCRERUN,X,Y
- +2 ;
- +3 DO FULL^VALM1
- +4 IF $GET(SCCVDA)
- IF $PIECE($GET(^SD(404.98,SCCVDA,0)),U,9)
- Begin DoDot:1
- +5 WRITE *7,!,"You cannot edit a canceled template!"
- +6 DO PAUSE^SCCVU
- End DoDot:1
- GOTO EDITX
- +7 IF $GET(SCCVDONE)
- DO DONE
- GOTO EDITX
- +8 IF $GET(SCCVSCRN)=1
- NEW SCCVDA
- DO SELX^SCCVDSP("CST",1)
- +9 if '$GET(SCCVDA)
- GOTO EDITX
- +10 ;
- +11 SET SCCV0=$GET(^SD(404.98,SCCVDA,0))
- SET SCCV1=$GET(^(1))
- +12 SET SCCV("STARTDT")=$PIECE(SCCV0,U,3)
- SET SCCV("ENDDT")=$PIECE(SCCV0,U,4)
- +13 SET SCCVY=""
- +14 ;
- +15 IF $PIECE(SCCV0,U,5)
- IF $PIECE(SCCV0,U,7)=5
- SET SCRERUN=0
- Begin DoDot:1
- +16 WRITE !!,"This template has completed its "_$PIECE("^re-",U,$PIECE(SCCV0,U,5))_"conversion."
- +17 ; -- site parameter must allow re-convert
- +18 IF '$PIECE($GET(^SD(404.91,1,"CNV")),U,6)
- DO PAUSE^SCCVU
- QUIT
- +19 ;
- +20 SET DIR("A")="Do you want to request a"_$PIECE("^nother",U,$PIECE(SCCV0,U,5))_" 'RE-CONVERT' to be run for this CST?: "
- +21 SET DIR(0)="YA"
- SET DIR("B")="NO"
- +22 DO ^DIR
- KILL DIR
- +23 IF Y
- SET SCCVY="@12"
- SET SCRERUN=1
- End DoDot:1
- if 'SCRERUN
- GOTO EDITX
- +24 ;
- +25 SET DIE("NO^")=""
- SET DIE="^SD(404.98,"
- SET DA=SCCVDA
- SET DR="[SCCV EDIT TEMPLATE]"
- SET SCCVY=$SELECT(SCCVY'="":SCCVY,$PIECE(SCCV1,U,2):"@15",$$CNVTSCH^SCCVU1(SCCVDA):"@15",1:"@5")
- DO ^DIE
- KILL DIE
- +26 SET SCCV0=$GET(^SD(404.98,SCCVDA,0))
- +27 WRITE !
- +28 SET DIR(0)="YA"
- SET DIR("A")="Do you want to schedule this "_$$EXPAND^SCCVDSP2(404.98,.05,$PIECE(SCCV0,U,5))_" event to run?: "
- SET DIR("B")="YES"
- DO ^DIR
- KILL DIR
- +29 Begin DoDot:1
- +30 IF Y
- DO REQ(1,$GET(SCCVSCRN),0)
- QUIT
- +31 IF $GET(SCCVSCRN)=2
- DO BLD^SCCVCDS1
- DO HDR^SCCVDSP1(SCCVDA,"CST")
- +32 IF $GET(SCCVSCRN)=1
- DO BLD^SCCVDSP("CST")
- End DoDot:1
- EDITX SET VALMBCK="R"
- +1 QUIT
- +2 ;
- BULL ; Re-generate bulletin for estimate
- +1 NEW SCCVSENT,SCEST,Z
- +2 DO FULL^VALM1
- +3 ;
- +4 IF $DATA(SCCVDONE)
- DO DONE
- GOTO BULLX
- +5 IF $GET(SCCVSCRN)=1
- NEW SCCVDA
- DO SELX^SCCVDSP("CST")
- +6 if '$GET(SCCVDA)
- GOTO BULLX
- +7 ;
- +8 SET SCEST=$$CHKACT^SCCVLOG(SCCVDA,0,5,"CST")
- +9 ;
- +10 IF 'SCEST
- Begin DoDot:1
- +11 WRITE !,"The CST must have a completed ESTIMATE event to re-generate the bulletin."
- +12 DO PAUSE^SCCVU
- End DoDot:1
- GOTO BULLX
- +13 ;
- +14 DO MAILSUM^SCCVEGD0(SCCVDA,.SCCVSENT)
- +15 ;
- +16 WRITE !,"Estimate bulletin "_$SELECT($GET(SCCVSENT):"has been sent to "_SCCVSENT_" user"_$SELECT(SCCVSENT>1:"s",1:""),1:"was not generated due to an error - try agin later")_"."
- +17 DO PAUSE^SCCVU
- +18 ;
- BULLX SET VALMBCK="R"
- +1 QUIT
- +2 ;
- CANCEL ; Cancel a selected CST that has not been completely converted
- +1 NEW SCCVLST,SCCVEVT,SCCVACT,SCCVOK
- +2 DO FULL^VALM1
- +3 IF $DATA(SCCVDONE)
- DO DONE
- GOTO CANCQ
- +4 IF $GET(SCCVSCRN)=1
- NEW SCCVDA
- DO SELX^SCCVDSP("CST",1)
- +5 if '$GET(SCCVDA)
- GOTO CANCQ
- +6 ;
- +7 SET SCCV0=$GET(^SD(404.98,SCCVDA,0))
- +8 SET SCCVLST=+$$LSTACT^SCCVLOG(SCCVDA)
- +9 SET SCCVEVT=+$$LSTEVT^SCCVLOG(SCCVDA)
- +10 SET SCCVOK=0
- +11 ;
- +12 ; Check: If reconvert or convert, did it ever finish?
- +13 IF SCCVEVT=0
- SET SCCVOK=1
- +14 IF (SCCVEVT=1!(SCCVEVT=2))
- IF '$$CHKACT^SCCVLOG(SCCVDA,SCCVEVT,5,"CST")
- SET SCCVOK=1
- +15 ;
- +16 IF 'SCCVOK
- Begin DoDot:1
- +17 WRITE !,"This template has "_$SELECT(SCCVEVT<3:"completed successfully and does not need to be canceled",1:"already been canceled")_"."
- +18 DO PAUSE^SCCVU
- End DoDot:1
- GOTO CANCQ
- +19 ;
- +20 IF SCCVEVT
- IF SCCVOK
- SET DIR("A",1)="This CST has started, but has not successfully completed running."
- +21 WRITE !
- +22 SET DIR(0)="YA"
- SET DIR("A")="Are you sure you want to cancel this CST? "
- SET DIR("B")="NO"
- DO ^DIR
- KILL DIR
- +23 if Y'=1
- GOTO CANCQ
- +24 WRITE !
- +25 SET DIE="^SD(404.98,"
- SET DR="[SCCV CONV CANCEL]"
- SET DA=SCCVDA
- DO ^DIE
- +26 IF $GET(SCCVSCRN)=2
- DO BLD^SCCVCDS1
- DO HDR^SCCVDSP1(SCCVDA,"CST")
- +27 IF $GET(SCCVSCRN)=1
- DO BLD^SCCVDSP("CST")
- +28 ;
- CANCQ SET VALMBCK="R"
- +1 QUIT
- +2 ;
- DONE ; Message to say complete is over
- +1 WRITE *7,!!,"Conversion is complete - this function is invalid!"
- +2 DO PAUSE^SCCVU
- +3 QUIT
- +4 ;