Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMDATA

PXRMDATA.m

Go to the documentation of this file.
PXRMDATA ; SLC/PKR - Routines for getting data. ;04/02/2007
 ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
 ;
 ;===============================================
GETDATA(FILENUM,DAS,FIEVT) ;Return data for a finding.
 K FIEVT
 I FILENUM=45 D GETDATA^PXRMDGPT(DAS,.FIEVT) Q
 I FILENUM=52 D GETDATA^PXRMDOUT(DAS,.FIEVT) Q
 I FILENUM=55 D GETDATA^PXRMDIN(DAS,.FIEVT)  Q
 I FILENUM="55NVA" D GETDATA^PXRMDNVA(DAS,.FIEVT) Q
 I FILENUM=63 D GETDATA^PXRMLAB(DAS,.FIEVT) Q
 I FILENUM=70 D GETDATA^PXRMRAD(DAS,.FIEVT) Q
 I FILENUM=100 D GETDATA^PXRMORDR(DAS,.FIEVT) Q
 I FILENUM=120.5 D GETDATA^PXRMVITL(DAS,.FIEVT) Q
 I FILENUM=601.84 D GETDATA^PXRMMH(DAS,.FIEVT) Q
 I FILENUM=9000010 D GETDATA^PXRMVSIT(DAS,.FIEVT,1) Q
 I FILENUM=9000010.07 D GETDATA^PXRMVPOV(DAS,.FIEVT) Q
 I FILENUM=9000010.11 D GETDATA^PXRMIMM(DAS,.FIEVT) Q
 I FILENUM=9000010.12 D GETDATA^PXRMSKIN(DAS,.FIEVT) Q
 I FILENUM=9000010.13 D GETDATA^PXRMEXAM(DAS,.FIEVT) Q
 I FILENUM=9000010.16 D GETDATA^PXRMEDU(DAS,.FIEVT) Q
 I FILENUM=9000010.18 D GETDATA^PXRMVCPT(DAS,.FIEVT) Q
 I FILENUM=9000010.23 D GETDATA^PXRMHF(DAS,.FIEVT) Q
 I FILENUM=9000011 D GETDATA^PXRMPROB(DAS,.FIEVT) Q
 Q
 ;
 ;===============================================
GETFNAME(FINDING) ;Given a finding of the form IEN;GLOBAL return its name.
 N DIC,DO,IEN,FNUM,GLOBAL
 S IEN=$P(FINDING,";",1)
 S GLOBAL=$P(FINDING,";",2)
 S GLOBAL=$S(GLOBAL="PS(55NVA,":"PS(50.7,",GLOBAL="PS(55,":"PSDRUG(",1:GLOBAL)
 S DIC="^"_GLOBAL
 D DO^DIC1
 S FNUM=+$P(DO,U,2)
 Q $$GET1^DIQ(FNUM,IEN,.01)
 ;
 ;===============================================
GETFNUM(ENODE) ;Given an ENODE return the file number for the data source.
 I ENODE="AUTTEDT(" Q 9000010.16
 I ENODE="AUTTEXAM(" Q 9000010.13
 I ENODE="AUTTHF(" Q 9000010.23
 I ENODE="AUTTIMM(" Q 9000010.11
 I ENODE="AUTTSK(" Q 9000010.12
 I ENODE="GMRD(120.51," Q 120.5
 I ENODE="LAB(60," Q 63
 I ENODE="ORD(101.43," Q 100
 I ENODE="PXD(811.2," Q 811.2
 I ENODE="PXRMD(810.9," Q 9000010
 I ENODE="PXRMD(811.4," Q 811.4
 I ENODE="PXRMD(811.5," Q 811.5
 I ENODE="PS(50.605," Q 52_U_55_U_"55NVA"
 I ENODE="PS(55," Q 55
 I ENODE="PS(55NVA," Q "55NVA"
 I ENODE="PSDRUG(" Q 52_U_55_U_"55NVA"
 I ENODE="PSNDF(50.6," Q 52_U_55_U_"55NVA"
 I ENODE="PSRX(" Q 52
 I ENODE="RAMIS(71," Q 70
 I ENODE="YTT(601.71," Q 601.84
 Q 0
 ;