source: WorldVistAEHR/trunk/r/VISTA_OFFICE_EHR-VEPE/VEPERDSC.m@ 1800

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

initial load of WorldVistAEHR
File size: 1.6 KB
Line 
1VEPERDSC ;Display Description for DOQ-IT Topic Indicators ; 13 Jun 2005 5:15 PM
2 ;;1.0;;;;Build 1
3DESC(FLDNO) ;Display topic indicator description before prompts
4 ; FLDNO = Field number of 19904.4 fields.
5 ; .21 - CAD 1
6 ; .22 - CAD 2
7 ; .23 - CAD 3
8 ; .24 - CAD 4
9 ; .25 - CAD 5
10 ; .26 - CAD 6
11 ; .27 - CAD 7
12 ; .31 - DM 1
13 ; .32 - DM 2
14 ; .33 - DM 3
15 ; .34 - DM 4
16 ; .35 - DM 5
17 ; .36 - DM 6
18 ; .37 - DM 7
19 ; .38 - DM 8
20 ; .41 - HTN 1
21 ; .42 - HTN 2
22 ; .43 - HTN 3
23 ; .51 - HF 1
24 ; .52 - HF 2
25 ; .53 - HF 3
26 ; .54 - HF 4
27 ; .55 - HF 5
28 ; .56 - HF 6
29 ; .57 - HF 7
30 ; .58 - HF 8
31 ; .61 - PC 1
32 ; .62 - PC 2
33 ; .63 - PC 3
34 ; .64 - PC 4
35 ; .65 - PC 5
36 ; .66 - PC 6
37 ; .67 - PC 7
38 ; .68 - PC 8
39 ; .69 - PC 9
40 ; .7 - PC 10
41 ; .71 - PC 11
42 ; .72 - PC 12
43 ;
44 N DSCDATA,SUB,TT,TOPTYP,TOPIND
45 K DSCDATA D GETS^DIQ(19904.5,"1,","**","","DSCDATA")
46 ; SUB=TOPIND,TOPTYP,1,
47 ; DESCRIPTION DATA IS AT LEVEL 2
48 ;
49 S TT=$E(FLDNO,2),TOPIND=$E(FLDNO,3)
50 S TOPTYP=$S(TT=2:1,TT=3:2,TT=4:4,TT=5:3,1:5)
51 I TOPTYP=5 D
52 .I TT=7 S TOPIND=TOPIND+10
53 .I TOPIND>1,TOPIND<5 S TOPIND=99 Q ;TOP INDICATOR 2-4 IS N/A
54 .I TOPIND>1 S TOPIND=TOPIND-3
55 S SUB=TOPIND_","_TOPTYP_",1,"
56 I '$D(DSCDATA(19904.532,SUB,2)) W !,"DESC: <<*** Not activated yet***>>" Q
57 W !,"DESC: <<",DSCDATA(19904.532,SUB,2),">>"
58 Q
59 Q
Note: See TracBrowser for help on using the repository browser.