source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCCVDSP1.m@ 1147

Last change on this file since 1147 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1SCCVDSP1 ; ALB/TMP - SCHED VSTS CONV/ARCHIVE TEMPLATE DETAIL; 25-NOV-97
2 ;;5.3;Scheduling;**211**;Aug 13, 1993
3 ;
4INIT(SCCVTYP) ; -- build template detail screen
5 I SCCVTYP="CST" D BLD^SCCVCDS1
6 ;I SCCVTYP="AST" D BLD^SCCVADS1
7 Q
8 ;
9FNL(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 ;
14HDR(SCCVDA,SCCVTYP) ; -- Template screen header
15 I SCCVTYP="CST" D HDR^SCCVCDS1
16 ;I SCCVTYP="AST" D HDR^SCCVADS1
17 Q
18 ;
19 ;
20PHIS(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 ;
Note: See TracBrowser for help on using the repository browser.