source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMDATA.m@ 1806

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

revised back to 6/30/08 version

File size: 2.2 KB
Line 
1PXRMDATA ; SLC/PKR - Routines for getting data. ;07/17/2006
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;
4 ;===============================================
5GETDATA(FILENUM,DAS,FIEVT) ;Return data for a finding.
6 K FIEVT
7 I FILENUM=45 D GETDATA^PXRMDGPT(DAS,.FIEVT) Q
8 I FILENUM=52 D GETDATA^PXRMDOUT(DAS,.FIEVT) Q
9 I FILENUM=55 D GETDATA^PXRMDIN(DAS,.FIEVT) Q
10 I FILENUM="55NVA" D GETDATA^PXRMDNVA(DAS,.FIEVT) Q
11 I FILENUM=63 D GETDATA^PXRMLAB(DAS,.FIEVT) Q
12 I FILENUM=70 D GETDATA^PXRMRAD(DAS,.FIEVT) Q
13 I FILENUM=100 D GETDATA^PXRMORDR(DAS,.FIEVT) Q
14 I FILENUM=120.5 D GETDATA^PXRMVITL(DAS,.FIEVT) Q
15 I FILENUM=601.2 D GETDATA^PXRMMH(DAS,.FIEVT) Q
16 I FILENUM=9000010 D GETDATA^PXRMVSIT(DAS,.FIEVT,1) Q
17 I FILENUM=9000010.07 D GETDATA^PXRMVPOV(DAS,.FIEVT) Q
18 I FILENUM=9000010.11 D GETDATA^PXRMIMM(DAS,.FIEVT) Q
19 I FILENUM=9000010.12 D GETDATA^PXRMSKIN(DAS,.FIEVT) Q
20 I FILENUM=9000010.13 D GETDATA^PXRMEXAM(DAS,.FIEVT) Q
21 I FILENUM=9000010.16 D GETDATA^PXRMEDU(DAS,.FIEVT) Q
22 I FILENUM=9000010.18 D GETDATA^PXRMVCPT(DAS,.FIEVT) Q
23 I FILENUM=9000010.23 D GETDATA^PXRMHF(DAS,.FIEVT) Q
24 I FILENUM=9000011 D GETDATA^PXRMPROB(DAS,.FIEVT) Q
25 Q
26 ;
27 ;===============================================
28GETFNAME(FINDING) ;Given a finding of the form IEN;GLOBAL return its name.
29 N DIC,DO,IEN,FNUM,GLOBAL
30 S IEN=$P(FINDING,";",1)
31 S GLOBAL=$P(FINDING,";",2)
32 S GLOBAL=$S(GLOBAL="PS(55NVA,":"PS(50.7,",GLOBAL="PS(55,":"PSDRUG(",1:GLOBAL)
33 S DIC="^"_GLOBAL
34 D DO^DIC1
35 S FNUM=+$P(DO,U,2)
36 Q $$GET1^DIQ(FNUM,IEN,.01)
37 ;
38 ;===============================================
39GETFNUM(ENODE) ;Given an ENODE return the file number for the data source.
40 I ENODE="AUTTEDT(" Q 9000010.16
41 I ENODE="AUTTEXAM(" Q 9000010.13
42 I ENODE="AUTTHF(" Q 9000010.23
43 I ENODE="AUTTIMM(" Q 9000010.11
44 I ENODE="AUTTSK(" Q 9000010.12
45 I ENODE="GMRD(120.51," Q 120.5
46 I ENODE="LAB(60," Q 63
47 I ENODE="ORD(101.43," Q 100
48 I ENODE="PXD(811.2," Q 811.2
49 I ENODE="PXRMD(810.9," Q 9000010
50 I ENODE="PXRMD(811.4," Q 811.4
51 I ENODE="PXRMD(811.5," Q 811.5
52 I ENODE="PS(50.605," Q 52_U_55_U_"55NVA"
53 I ENODE="PS(55," Q 55
54 I ENODE="PS(55NVA," Q "55NVA"
55 I ENODE="PSDRUG(" Q 52_U_55_U_"55NVA"
56 I ENODE="PSNDF(50.6," Q 52_U_55_U_"55NVA"
57 I ENODE="PSRX(" Q 52
58 I ENODE="RAMIS(71," Q 70
59 I ENODE="YTT(601," Q 601.2
60 Q 0
61 ;
Note: See TracBrowser for help on using the repository browser.