SCCVCDSP ; ALB/TMP - SCHEDULING VISITS CST LIST SCREEN ; 25-NOV-97
;;5.3;Scheduling;**211**;Aug 13, 1993
;
EN ; Main entry point
K XQORS,VALMEVL,SCFASTXT
D EN^VALM("SCCV CONV MAIN MENU")
K SCFASTXT
Q
;
INIT ; -- set up initial variables
D FNL
S U="^",VALMCNT=0,VALMBG=1
I $P($G(^SD(404.91,1,"CNV")),U,4) S SCCVDONE=1
D BLD^SCCVDSP("CST")
Q
;
HDR ;
S VALMHDR(1)="Conversion Specification Templates [CST]"
S VALMHDR(2)="Full Conversion Date Range: "_$$FMTE^XLFDT($S(+$G(^SD(404.91,1,"CNV")):+^("CNV"),1:2801001))_" - "_$$FMTE^XLFDT($$ENDDATE^SCCVU())
Q
;
FNL ; Clean up
D FNL^SCCVDSP("CST")
Q
;
REFRESH ; -- refresh display
D BLD^SCCVDSP("CST")
S VALMBCK="R"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCCVCDSP 711 printed Dec 13, 2024@02:38:27 Page 2
SCCVCDSP ; ALB/TMP - SCHEDULING VISITS CST LIST SCREEN ; 25-NOV-97
+1 ;;5.3;Scheduling;**211**;Aug 13, 1993
+2 ;
EN ; Main entry point
+1 KILL XQORS,VALMEVL,SCFASTXT
+2 DO EN^VALM("SCCV CONV MAIN MENU")
+3 KILL SCFASTXT
+4 QUIT
+5 ;
INIT ; -- set up initial variables
+1 DO FNL
+2 SET U="^"
SET VALMCNT=0
SET VALMBG=1
+3 IF $PIECE($GET(^SD(404.91,1,"CNV")),U,4)
SET SCCVDONE=1
+4 DO BLD^SCCVDSP("CST")
+5 QUIT
+6 ;
HDR ;
+1 SET VALMHDR(1)="Conversion Specification Templates [CST]"
+2 SET VALMHDR(2)="Full Conversion Date Range: "_$$FMTE^XLFDT($SELECT(+$GET(^SD(404.91,1,"CNV")):+^("CNV"),1:2801001))_" - "_$$FMTE^XLFDT($$ENDDATE^SCCVU())
+3 QUIT
+4 ;
FNL ; Clean up
+1 DO FNL^SCCVDSP("CST")
+2 QUIT
+3 ;
REFRESH ; -- refresh display
+1 DO BLD^SCCVDSP("CST")
+2 SET VALMBCK="R"
+3 QUIT
