| [613] | 1 | SCCVDSP1 ; ALB/TMP - SCHED VSTS CONV/ARCHIVE TEMPLATE DETAIL; 25-NOV-97
|
|---|
| 2 | ;;5.3;Scheduling;**211**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | INIT(SCCVTYP) ; -- build template detail screen
|
|---|
| 5 | I SCCVTYP="CST" D BLD^SCCVCDS1
|
|---|
| 6 | ;I SCCVTYP="AST" D BLD^SCCVADS1
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | FNL(SCCVTYP) ; -- Clean up template detail display
|
|---|
| 10 | K ^TMP("SCCV."_SCCVTYP_".EDIT.DX",$J),^TMP("SCCV."_SCCVTYP_".EDIT",$J)
|
|---|
| 11 | D CLEAN^VALM10
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | HDR(SCCVDA,SCCVTYP) ; -- Template screen header
|
|---|
| 15 | I SCCVTYP="CST" D HDR^SCCVCDS1
|
|---|
| 16 | ;I SCCVTYP="AST" D HDR^SCCVADS1
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | ;
|
|---|
| 20 | PHIS(SCCVH,SCCVTYP) ; -- View/Print history
|
|---|
| 21 | ;Assumes SCCVDA = the entry # from list manager selection
|
|---|
| 22 | Q:'$G(SCCVDA)
|
|---|
| 23 | D FULL^VALM1
|
|---|
| 24 | N SCCVANY,SCCVLOGT,FLDS,BY,L,DIC,TO,FR,DIR,DIOEND
|
|---|
| 25 | S SCCVANY=1
|
|---|
| 26 | I SCCVTYP="CST" D
|
|---|
| 27 | . S SCCVLOGT=$S(SCCVH="R":"REQUEST",SCCVH="E":"EVENT",1:"ERROR")
|
|---|
| 28 | . I SCCVH="ERR" D
|
|---|
| 29 | .. S SCCVANY=+$O(^SD(404.98,SCCVDA,"ERROR","A"),-1)
|
|---|
| 30 | .. I SCCVANY D
|
|---|
| 31 | ... W !!,"FYI: There are "_SCCVANY_" lines in the error list"
|
|---|
| 32 | I SCCVTYP="AST" D
|
|---|
| 33 | . ;S SCCVLOGT=$S($G(SCCVH)="":"HISTORY",1:"ERROR")
|
|---|
| 34 | S FLDS="[SCCV "_SCCVLOGT_" LOG PRINT]",BY="[SCCV "_SCCVLOGT_" LOG]"
|
|---|
| 35 | S L=0,DIC="^SD(404.9"_$S(SCCVTYP="CST":"8,",1:"9,"),(TO,FR)=SCCVDA
|
|---|
| 36 | S DIOEND="I '$G(SCCVANY) W !,""NO ""_SCCVLOGT_""S FOUND FOR THIS ""_SCCVTYP,!"
|
|---|
| 37 | D EN1^DIP
|
|---|
| 38 | D PAUSE^SCCVU
|
|---|
| 39 | S VALMBCK="R"
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
