SCCVCDSP.m

SCCVCDSP ; ALB/TMP - SCHEDULING VISITS CST LIST SCREEN ; 25-NOV-97

 ;;5.3;Scheduling;**211,1015**;Aug 13, 1993;Build 21

 ;

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

SCCVCDSP  ; ALB/TMP - SCHEDULING VISITS CST LIST SCREEN ; 25-NOV-97

 +1       ;;5.3;Scheduling;**211,1015**;Aug 13, 1993;Build 21

 +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