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

PSOQRART.m

Go to the documentation of this file.
PSOQRART ;HINES/RMS- TIU OBJECT FOR REMOTE ALLERGIES VIA RDI ; 30 Nov 2007  7:56 AM
 ;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13
 ;
 ;Reference to CKP^GMTSUP supported by DBIA 4231
 ;References to ORRDI1 supported by DBIA 4659
ENHS ;ENTRY POINT FOR HEALTH SUMMARY OF REMOTE ALLERGY/ADR DATA
 N PSOQHDR,PSOQRET,PSOQART,PSOQRART,PSOQFAC,PSOQREAC,PSOQRDI,PSOQDOWN
 Q:'$G(DFN)
 S PSOQHDR=$$HAVEHDR^ORRDI1 I '+$G(PSOQHDR) D  Q
 . D CKP^GMTSUP Q:$D(GMTSQIT)
 . W !,"Remote Data from HDR not available"
 . D CKP^GMTSUP Q:$D(GMTSQIT)
 D  Q:$G(PSOQDOWN)
 . I $D(^XTMP("ORRDI","OUTAGE INFO","DOWN")) H $$GET^XPAR("ALL","ORRDI PING FREQ")/2
 . I $D(^XTMP("ORRDI","OUTAGE INFO","DOWN")) S PSOQDOWN=1 D
 .. D CKP^GMTSUP Q:$D(GMTSQIT)
 .. W !,"WARNING: Connection to Remote Data Currently Down",!
 .. D CKP^GMTSUP Q:$D(GMTSQIT)
 D  ;RDI/HDR CALL ENCAPSULATION
 . D SAVDEV^%ZISUTL("PSOQHFS")
 . S PSOQRET=$$GET^ORRDI1(DFN,"ART")
 . D USE^%ZISUTL("PSOQHFS")
 . D RMDEV^%ZISUTL("PSOQHFS")
 I PSOQRET=-1 D  Q
 . D CKP^GMTSUP Q:$D(GMTSQIT)
 . W !,"Connection to Remote Data Not Available"
 . D CKP^GMTSUP Q:$D(GMTSQIT)
 I '$D(^XTMP("ORRDI","ART",DFN))!('+PSOQRET) D  Q
 . D CKP^GMTSUP Q:$D(GMTSQIT)
 . W !,"No Remote Allergy/ADR Data available for this patient"
 . D CKP^GMTSUP Q:$D(GMTSQIT)
 D CKP^GMTSUP Q:$D(GMTSQIT)
 W !,"FACILITY",?40,"ALLERGY/ADR",!,"--------",?40,"-----------"
 D CKP^GMTSUP Q:$D(GMTSQIT)
 F PSOQART=1:1:PSOQRET D
 . S PSOQFAC=$G(^XTMP("ORRDI","ART",DFN,PSOQART,"FACILITY",0))
 . S PSOQREAC=$G(^XTMP("ORRDI","ART",DFN,PSOQART,"REACTANT",0))
 . Q:$$YESCHK
 . Q:PSOQFAC']""!(PSOQREAC']"")
 . S PSOQREAC=$P(PSOQREAC,U,2)
 . S PSOQRART(PSOQFAC,PSOQREAC)=""
 S PSOQFAC="" F  S PSOQFAC=$O(PSOQRART(PSOQFAC)) Q:PSOQFAC']""  D  ;
 . S PSOQREAC="" F  S PSOQREAC=$O(PSOQRART(PSOQFAC,PSOQREAC)) Q:PSOQREAC']""  D  ;
 .. D CKP^GMTSUP Q:$D(GMTSQIT)
 .. W !,PSOQFAC,?40,PSOQREAC
 .. D CKP^GMTSUP Q:$D(GMTSQIT)
 Q
YESCHK() ;DO NOT INCLUDE IF A 'YES' ASSESSMENT
 I $P(PSOQREAC,U,2)'="YES" Q 0
 I $P(PSOQREAC,U,2)="YES" I $P(PSOQREAC,U,3)["99VA8" Q 1
 Q 1 ;STOP IF THERE IS ANY PROBLEMATIC DATA 
 ;----------------------------------------------------------