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

DVBABDOD.m

Go to the documentation of this file. 
  1. DVBABDOD ;ALB/SPH - FHIE SERVER RPC'S ; 04/21/2009
  1.  ;;2.7;AMIE;**140**;Apr 10, 1995;Build 16
  1.  ;
  1.  ; This routine supports the following remote procedure calls:
  1.  ;
  1.  ;   RPC Name                 Tag
  1.  ;   ----------------------   ---------
  1.  ;   DVBAB DOD REPORT TYPES   RPTTYPS
  1.  ;   DVBAB DOD INFO           INFOMSG
  1.  ;   DVBAB DOD REPORT         SENDRPT
  1.  ;   DVBAB FIND DFN BY ICN    ICN
  1.  ;              
  1.  ; The routine is designed specifically for the Federal Health Information
  1.  ; Exchange (FHIE) server (Station 200). It is distributed nationally with
  1.  ; the CAPRI application so the RPC's and this supporting routine are
  1.  ; consistent on all systems using CAPRI.
  1.  ;
  1.  ;
  1. SENDRPT(DVBABY,IEN,DATATYPE,BEGDATE,ENDDATE,ORMAX,DVBABTMP) ;return DOD report
  1.  ;This remote procedure call returns a DOD report from the FHIE framework.
  1.  ;
  1.  ; -- rpc: DVBAB DOD REPORT
  1.  ; 
  1.  ; Supported References:
  1.  ;  DBIA #3486: D GCPR^OMGCOAS1(IEN,DATATYPE,BEGDATE,ENDDATE,ORMAX) 
  1.  ;
  1.  ; Input:  IEN       = Patient's DFN
  1.  ;         DATATYPE  = Type of data being requested:
  1.  ;                       LRO - Lab Orders
  1.  ;                       LRC - Chem & Hem
  1.  ;                       SP  - Surgical Path
  1.  ;                       CY  - Cytology
  1.  ;                       MI  - Microbiology
  1.  ;                       RR  - Radiology Report
  1.  ;                       RXOP- All Outpatient RX
  1.  ;                       ADT - ADT Summary
  1.  ;                       DS  - Discharge Summary
  1.  ;        
  1.  ;                       RI  - Radiology Impression
  1.  ;                       RXA - Active Outpatient RX
  1.  ;                       ALRG - Allergies
  1.  ;
  1.  ;    TIUPRG - Progress Notes
  1.  ;
  1.  ;    Outpatient encounter
  1.  ;    TIUPRG - Progress Notes
  1.  ;
  1.  ;         BEGDATE   = Beginning search date
  1.  ;         ENDDATE   = Ending search date
  1.  ;         ORMAX     = Max number of entries for report 
  1.  ;
  1.  ;quit if Clinical Observation Access Service (routine: OMGCOAS1) not installed
  1.  Q:'$L($T(GCPR^OMGCOAS1))
  1.  ;
  1.  N DVBATXT
  1.  ;
  1.  S DVBABY=$NA(^TMP(DVBABTMP,$J))
  1.  D GCPR^OMGCOAS1(IEN,DATATYPE,BEGDATE,ENDDATE,ORMAX)
  1.  ; S ^TMP("CAPRI",DUZ)=IEN+"-"+DATATYPE+"-"+BEGDATE+"-"+ENDDATE+"-"+ORMAX
  1.  S DVBATXT=IEN_","_DATATYPE_","_BEGDATE_","_ENDDATE_","_ORMAX_","_DVBABTMP
  1.  S ^TMP("CAPRI",DUZ,$J)=DVBATXT
  1.  ; K IEN,DATATYPE,BEGDATE,ENDDATE,ORMAX,DVBABTMP
  1.  Q
  1.  ;
  1. RPTTYPS(Y) ;return list of available report types
  1.  ;This remote procedure call returns a list of available report types.
  1.  ; 
  1.  ; -- rpc: DVBAB DOD REPORT TYPES
  1.  ;
  1.  S Y(1)="Allergies^ALRG^ORDATA"
  1.  ;S Y(2)="Ambulatory Data^ADR^ORDATA"
  1.  S Y(3)="Expanded ADT^ADT^ORDATA"
  1.  S Y(4)="Consult Report^CONS^ORDATA"
  1.  S Y(5)="Discharge Summary^DS^ORDATA"
  1.  S Y(6)="Lab Orders^LRO^LRO"
  1.  S Y(7)="Chem & Hem^LRC^LRC"
  1.  S Y(8)="Surgical Path^SP^LRA"
  1.  S Y(9)="Cytology^CY^LRCY"
  1.  S Y(10)="Microbiology^MI^LRM"
  1.  S Y(11)="Radiology Report^RR^RAE"
  1.  S Y(12)="Outpatient RX^RXOP^PSOO"
  1.  S Y(13)="Progress Notes^PN^ORDATA"
  1.  Q
  1.  ;
  1. INFOMSG(Y) ;return DOD data message
  1.  ;This remote procedure call returns a message to be displayed in CAPRI. 
  1.  ;
  1.  ; -- rpc: DVBAB DOD INFO
  1.  ;
  1.  S Y="NOTE:  DoD data at shared sites is available immediately.  All other sites will be available less than a week after discharge."
  1.  Q
  1.  ;
  1. ICN(RESULT,DVBAICN) ;retrieve patient DFN
  1.  ;
  1.  ;This remote procedure call returns the patient's DFN associated
  1.  ;with the ICN passed to the RPC. The DFN is the internal entry
  1.  ;number in the Patient (#2) file.  
  1.  ;
  1.  ; -- rpc: DVBAB FIND DFN BY ICN
  1.  ; 
  1.  ;  Supported References:
  1.  ;    DBIA #4679: GETDFN^VAFCTFU1
  1.  ;
  1.  ;  Input:
  1.  ;   DVBAICN - patient's Integration Control Number
  1.  ;    
  1.  ; Output:
  1.  ;    RESULT - global array containing patient's DFN, otherwise
  1.  ;             an error msg if ICN can't be converted to a DFN
  1.  ;
  1.  N DVBADFN  ;patient DFN
  1.  ;
  1.  S DVBADFN=0
  1.  K ^TMP("DVBAICN",$J)
  1.  ;
  1.  I $G(DVBAICN)>0 D
  1.  . D GETDFN^VAFCTFU1(.DVBADFN,DVBAICN) ;convert icn to dfn
  1.  S ^TMP("DVBAICN",$J,0)=$S(DVBADFN>0:DVBADFN,1:"NOT A VALID ICN")
  1.  S RESULT=$NA(^TMP("DVBAICN",$J))
  1.  Q