| 1 | PXRMDATA ; SLC/PKR - Routines for getting data. ;04/02/2007
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
|
|---|
| 3 | ;
|
|---|
| 4 | ;===============================================
|
|---|
| 5 | GETDATA(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.84 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 | ;===============================================
|
|---|
| 28 | GETFNAME(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 | ;===============================================
|
|---|
| 39 | GETFNUM(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.71," Q 601.84
|
|---|
| 60 | Q 0
|
|---|
| 61 | ;
|
|---|
