source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SCENIB0.m@ 1446

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1SCENIB0 ; ALB/SCK - INCOMPLETE ENCOUNTER EXPANDED ERROR LIST VIEW ; 21-MAY-1997
2 ;;5.3;Scheduling;**66**;AUG 13, 1993
3 ;
4EN ; -- main entry point for SCENI INCOMPLETE ENC EXPANDED
5 D EN^VALM("SCENI INCOMPLETE ENC EXPANDED")
6 Q
7 ;
8HDR ; -- header code
9 S VALMHDR(1)=SDHDR1
10 S VALMHDR(2)=SDHDR2
11 Q
12 ;
13INIT ; -- init variables and list array
14 ; Variables
15 ; SDCNT
16 ; SDLINE
17 ; SDN1
18 ;
19 N SDCNT,SDLINE,SDN1
20 ;
21 K ^TMP("SCENI EXP",$J)
22 D CLEAN^VALM10
23 ;
24 S (SDN1,SDN2,SDLINE,VALMCNT)=0
25 F S SDN1=$O(^TMP("SCENI ERR",$J,"IDX",SDN1)) Q:'SDN1 D
26 . F S SDN2=$O(^TMP("SCENI ERR",$J,"IDX",SDN1,SDN2)) Q:'SDN2 D
27 .. D BLD(SDN1,$G(^TMP("SCENI ERR",$J,"IDX",SDN1,SDN2)))
28 ;
29 I '$D(^TMP("SCENI EXP",$J)) D
30 . S ^TMP("SCENI EXP",$J,1,0)=" "
31 . S ^TMP("SCENI EXP",$J,2,0)="No Information Found"
32 . S VALMCNT=2
33 Q
34 ;
35BLD(SDIDX,SDPTR) ; Build LM display
36 ; Variables
37 ; SCX
38 ; SCEN1
39 ;
40 N SCX,SCEN1,DA
41 ;
42 D SET(^TMP("SCENI ERR",$J,SDIDX,0)),SET(" ")
43 S DIC=409.76,DIC(0)="M",X=$P(SDPTR,U,2)
44 D ^DIC
45 S DA=+Y
46 S DR="21",DIQ="SCEN1"
47 D EN^DIQ1
48 S SCX=""
49 F S SCX=$O(SCEN1(409.76,DA,DR,SCX)) Q:'SCX D SET(SCEN1(409.76,DA,DR,SCX))
50 D SET(" ")
51 K DIC,DR,DIQ
52 Q
53 ;
54SET(X) ; Sets string X into ^TMP global for display
55 S VALMCNT=VALMCNT+1
56 S ^TMP("SCENI EXP",$J,VALMCNT,0)=X
57 Q
58 ;
59HELP ; -- help code
60 S X="?" D DISP^XQORM1 W !!
61 Q
62 ;
63EXIT ; -- exit code
64 K ^TMP("SCENI EXP")
65 Q
Note: See TracBrowser for help on using the repository browser.