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

GMTSPST4.m

Go to the documentation of this file.
  1. GMTSPST4 ;BHAM/RMS - TIU OBJECT FOR REMOTE MEDS VIA RDI ;06/28/17 10:31
  1. ;;2.7;Health Summary;**94,135**;Oct 20, 1995;Build 2
  1. ;
  1. ;Reference to ORRDI1 supported by DBIA 4659
  1. ;Reference to ^XTMP("ORRDI","PSOO" supported by DBIA 4660
  1. ;Reference to ^XTMP("ORRDI","OUTAGE INFO" supported by DBIA 5440
  1. ;
  1. RDI(DFN,TARGET) ;
  1. ;OBJECT METHOD IS: S X=$$RDI^GMTSPST4(DFN,"^TMP($J,""GMTSRDI"")")
  1. K @TARGET
  1. N GMTSHDR,GMTSRET,GMTSMED,GMTSLINE,GMTSQTY,GMTSSIG,GMTSSTAT,GMTSRDI,GMTSDOWN,GMTSISSU
  1. G:'$G(DFN) RDIOUT
  1. S GMTSHDR=$$HAVEHDR^ORRDI1 I '+$G(GMTSHDR) D G RDIOUT
  1. . S @TARGET@(1,0)="Remote Data from HDR not available"
  1. D G:$G(GMTSDOWN) RDIOUT
  1. . I $D(^XTMP("ORRDI","OUTAGE INFO","DOWN")) H $$GET^XPAR("ALL","ORRDI PING FREQ")/2
  1. . I $D(^XTMP("ORRDI","OUTAGE INFO","DOWN")) S GMTSDOWN=1 D
  1. .. S @TARGET@(1,0)="WARNING: Connection to Remote Data Currently Down"
  1. D ;RDI/HDR CALL ENCAPSULATION
  1. . D SAVDEV^%ZISUTL("GMTSHFS")
  1. . S GMTSRET=$$GET^ORRDI1(DFN,"PSOO")
  1. . D USE^%ZISUTL("GMTSHFS")
  1. . D RMDEV^%ZISUTL("GMTSHFS")
  1. I +GMTSRET=-1 D G RDIOUT
  1. . S @TARGET@(1,0)="Connection to Remote Data Not Available"
  1. I '$D(^XTMP("ORRDI","PSOO",DFN)) D G RDIOUT
  1. . S @TARGET@(1,0)="No Remote Data available for this patient"
  1. OBJ S GMTSLINE=5
  1. S GMTSMED=0 F S GMTSMED=$O(^XTMP("ORRDI","PSOO",DFN,GMTSMED)) Q:'+GMTSMED D
  1. . S GMTSSTAT=$G(^XTMP("ORRDI","PSOO",DFN,GMTSMED,5,0))
  1. . Q:"ACTIVE^SUSPENDED^HOLD"'[GMTSSTAT
  1. . ; GMTS*2.7*135 Commented out the next line
  1. . ;Q:$G(^XTMP("ORRDI","PSOO",DFN,GMTSMED,7,0))']"" ;Special case #1 for DoD data, quit if there is no expiration date listed
  1. . D Q:GMTSISSU<$$FMADD^XLFDT(DT,-366) ;Special case #2 for DoD data; quit if the ISSUE DATE is more than a year ago. (May still show beyond expiration for Controlled Substances)
  1. .. N %DT,X,Y
  1. .. S X=$G(^XTMP("ORRDI","PSOO",DFN,GMTSMED,8,0))
  1. .. D ^%DT
  1. .. S GMTSISSU=+Y
  1. . S @TARGET@(GMTSLINE,0)=$G(^XTMP("ORRDI","PSOO",DFN,GMTSMED,2,0)) D INC
  1. . S GMTSSIG=$G(^XTMP("ORRDI","PSOO",DFN,GMTSMED,14,0)) D ;
  1. .. I $L(GMTSSIG)>60 D D INC Q
  1. ... N WORDS,COUNT
  1. ... S WORDS=$L(GMTSSIG," ")
  1. ... S @TARGET@(GMTSLINE,0)="Sig: "
  1. ... F COUNT=1:1:WORDS D
  1. .... S @TARGET@(GMTSLINE,0)=$G(@TARGET@(GMTSLINE,0))_$P(GMTSSIG," ",COUNT)_" "
  1. .... I $L(@TARGET@(GMTSLINE,0))>60 D INC S @TARGET@(GMTSLINE,0)=" "
  1. .. S @TARGET@(GMTSLINE,0)="Sig: "_GMTSSIG D INC
  1. . S GMTSQTY=$G(^XTMP("ORRDI","PSOO",DFN,GMTSMED,6,0)) S @TARGET@(GMTSLINE,0)="Quantity: "_+$P(GMTSQTY,";")_" Days Supply: "_$P($P(GMTSQTY,";",2),"D",2) D INC
  1. . S @TARGET@(GMTSLINE,0)="Rx Expiration Date: "_$G(^XTMP("ORRDI","PSOO",DFN,GMTSMED,7,0)) D INC
  1. . S @TARGET@(GMTSLINE,0)="Last filled "_$G(^XTMP("ORRDI","PSOO",DFN,GMTSMED,9,0))_" at "_$G(^XTMP("ORRDI","PSOO",DFN,GMTSMED,1,0))
  1. . S @TARGET@(GMTSLINE,0)=@TARGET@(GMTSLINE,0)_" ("_$S(GMTSSTAT["ACT":"Active",GMTSSTAT["SUSP":"Active/Suspended",GMTSSTAT["HOLD":"Hold",1:"Status Unknown")_")" D INC
  1. . S @TARGET@(GMTSLINE,0)=" " D INC
  1. I GMTSLINE=5 D G RDIOUT
  1. . S @TARGET@(1,0)="No Active Remote Medications for this patient"
  1. S @TARGET@(1,0)="Active Medications from Remote Data"
  1. S @TARGET@(2,0)="NOTE: Remote meds display is limited to those items matched to"
  1. S @TARGET@(3,0)="National Drug File at the originating site."
  1. S @TARGET@(4,0)=" "
  1. RDIOUT Q "~@"_$NA(@TARGET)
  1. INC S GMTSLINE=$G(GMTSLINE)+1
  1. Q
  1. ;-----------------------------
  1. ENHS ;ENTRY POINT OF REMOTE DATA MEDICATIONS AS A HEALTH SUMMARY
  1. N GMTSHS,GMTSWRT
  1. Q:'$G(DFN)
  1. S GMTSHS=$$RDI(DFN,"^TMP($J,""GMTSRDI"")")
  1. S GMTSWRT=0 F S GMTSWRT=$O(^TMP($J,"GMTSRDI",GMTSWRT)) Q:'+GMTSWRT D
  1. . D CKP^GMTSUP Q:$D(GMTSQIT)
  1. . W !,^TMP($J,"GMTSRDI",GMTSWRT,0)
  1. . D CKP^GMTSUP Q:$D(GMTSQIT)
  1. Q