PSOQ0595 ;HINES/RMS - TIU OBJECT FOR REMOTE MEDS VIA RDI ; 30 Nov 2007 7:54 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
RDI(DFN,TARGET) ;
;OBJECT METHOD IS: S X=$$RDI^PSOQ0595(DFN,"^TMP($J,""PSOQRDI"")")
K @TARGET
N PSOQHDR,PSOQRET,PSOQMED,PSOQLINE,PSOQQTY,PSOQSIG,PSOQSTAT,PSOQRDI,PSOQDOWN
G:'$G(DFN) RDIOUT
S PSOQHDR=$$HAVEHDR^ORRDI1 I '+$G(PSOQHDR) D G RDIOUT
. S @TARGET@(1,0)="Remote Data from HDR not available"
D G:$G(PSOQDOWN) RDIOUT
. 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
.. S @TARGET@(1,0)="WARNING: Connection to Remote Data Currently Down"
D ;RDI/HDR CALL ENCAPSULATION
. D SAVDEV^%ZISUTL("PSOQHFS")
. S PSOQRET=$$GET^ORRDI1(DFN,"PSOO")
. D USE^%ZISUTL("PSOQHFS")
. D RMDEV^%ZISUTL("PSOQHFS")
I PSOQRET=-1 D G RDIOUT
. S @TARGET@(1,0)="Connection to Remote Data Not Available"
I '$D(^XTMP("ORRDI","PSOO",DFN)) D G RDIOUT
. S @TARGET@(1,0)="No Remote Data available for this patient"
OBJ S PSOQLINE=3
S PSOQMED=0 F S PSOQMED=$O(^XTMP("ORRDI","PSOO",DFN,PSOQMED)) Q:'+PSOQMED D
. S PSOQSTAT=$G(^XTMP("ORRDI","PSOO",DFN,PSOQMED,5,0))
. Q:"ACTIVE^SUSPENDED"'[PSOQSTAT
. S @TARGET@(PSOQLINE,0)=$G(^XTMP("ORRDI","PSOO",DFN,PSOQMED,2,0)) D INC
. S PSOQSIG=$G(^XTMP("ORRDI","PSOO",DFN,PSOQMED,14,0)) D ;
.. I $L(PSOQSIG)>60 D D INC Q
... N WORDS,COUNT
... S WORDS=$L(PSOQSIG," ")
... S @TARGET@(PSOQLINE,0)="Sig: "
... F COUNT=1:1:WORDS D
.... S @TARGET@(PSOQLINE,0)=$G(@TARGET@(PSOQLINE,0))_$P(PSOQSIG," ",COUNT)_" "
.... I $L(@TARGET@(PSOQLINE,0))>60 D INC S @TARGET@(PSOQLINE,0)=" "
.. S @TARGET@(PSOQLINE,0)="Sig: "_PSOQSIG D INC
. S PSOQQTY=$G(^XTMP("ORRDI","PSOO",DFN,PSOQMED,6,0)) S @TARGET@(PSOQLINE,0)="Quantity: "_+$P(PSOQQTY,";")_" Days Supply: "_$P($P(PSOQQTY,";",2),"D",2) D INC
. S @TARGET@(PSOQLINE,0)=$G(^XTMP("ORRDI","PSOO",DFN,PSOQMED,10,0))_" refills remaining until "_$G(^XTMP("ORRDI","PSOO",DFN,PSOQMED,7,0)) D INC
. S @TARGET@(PSOQLINE,0)="Last filled "_$G(^XTMP("ORRDI","PSOO",DFN,PSOQMED,9,0))_" at "_$G(^XTMP("ORRDI","PSOO",DFN,PSOQMED,1,0))_" ("_$S(PSOQSTAT["ACT":"Active",PSOQSTAT["SUSP":"Active/Suspended",1:"Status Unknown")_")" D INC
. S @TARGET@(PSOQLINE,0)=" " D INC
I PSOQLINE=3 D G RDIOUT
. S @TARGET@(1,0)="No Active Remote Medications for this patient"
S @TARGET@(1,0)="Active Medications from Remote Data",@TARGET@(2,0)=" "
RDIOUT Q "~@"_$NA(@TARGET)
INC S PSOQLINE=$G(PSOQLINE)+1 Q
;-----------------------------
ENHS ;ENTRY POINT OF REMOTE DATA MEDICATIONS AS A HEALTH SUMMARY
N PSOQHS,PSOQWRT
Q:'$G(DFN)
S PSOQHS=$$RDI(DFN,"^TMP($J,""PSOQRDI"")")
S PSOQWRT=0 F S PSOQWRT=$O(^TMP($J,"PSOQRDI",PSOQWRT)) Q:'+PSOQWRT D
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !,^TMP($J,"PSOQRDI",PSOQWRT,0)
. D CKP^GMTSUP Q:$D(GMTSQIT)
Q
PSOQ0595 ;HINES/RMS - TIU OBJECT FOR REMOTE MEDS VIA RDI ; 30 Nov 2007 7:54 AM
+1 ;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13
+2 ;
+3 ;Reference to CKP^GMTSUP supported by DBIA 4231
+4 ;References to ORRDI1 supported by DBIA 4659
RDI(DFN,TARGET) ;
+1 ;OBJECT METHOD IS: S X=$$RDI^PSOQ0595(DFN,"^TMP($J,""PSOQRDI"")")
+2 KILL @TARGET
+3 NEW PSOQHDR,PSOQRET,PSOQMED,PSOQLINE,PSOQQTY,PSOQSIG,PSOQSTAT,PSOQRDI,PSOQDOWN
+4 IF '$GET(DFN)
GOTO RDIOUT
+5 SET PSOQHDR=$$HAVEHDR^ORRDI1
IF '+$GET(PSOQHDR)
Begin DoDot:1
+6 SET @TARGET@(1,0)="Remote Data from HDR not available"
End DoDot:1
GOTO RDIOUT
+7 Begin DoDot:1
+8 IF $DATA(^XTMP("ORRDI","OUTAGE INFO","DOWN"))
HANG $$GET^XPAR("ALL","ORRDI PING FREQ")/2
+9 IF $DATA(^XTMP("ORRDI","OUTAGE INFO","DOWN"))
SET PSOQDOWN=1
Begin DoDot:2
+10 SET @TARGET@(1,0)="WARNING: Connection to Remote Data Currently Down"
End DoDot:2
End DoDot:1
IF $GET(PSOQDOWN)
GOTO RDIOUT
+11 ;RDI/HDR CALL ENCAPSULATION
Begin DoDot:1
+12 DO SAVDEV^%ZISUTL("PSOQHFS")
+13 SET PSOQRET=$$GET^ORRDI1(DFN,"PSOO")
+14 DO USE^%ZISUTL("PSOQHFS")
+15 DO RMDEV^%ZISUTL("PSOQHFS")
End DoDot:1
+16 IF PSOQRET=-1
Begin DoDot:1
+17 SET @TARGET@(1,0)="Connection to Remote Data Not Available"
End DoDot:1
GOTO RDIOUT
+18 IF '$DATA(^XTMP("ORRDI","PSOO",DFN))
Begin DoDot:1
+19 SET @TARGET@(1,0)="No Remote Data available for this patient"
End DoDot:1
GOTO RDIOUT
OBJ SET PSOQLINE=3
+1 SET PSOQMED=0
FOR
SET PSOQMED=$ORDER(^XTMP("ORRDI","PSOO",DFN,PSOQMED))
IF '+PSOQMED
QUIT
Begin DoDot:1
+2 SET PSOQSTAT=$GET(^XTMP("ORRDI","PSOO",DFN,PSOQMED,5,0))
+3 IF "ACTIVE^SUSPENDED"'[PSOQSTAT
QUIT
+4 SET @TARGET@(PSOQLINE,0)=$GET(^XTMP("ORRDI","PSOO",DFN,PSOQMED,2,0))
DO INC
+5 ;
SET PSOQSIG=$GET(^XTMP("ORRDI","PSOO",DFN,PSOQMED,14,0))
Begin DoDot:2
+6 IF $LENGTH(PSOQSIG)>60
Begin DoDot:3
+7 NEW WORDS,COUNT
+8 SET WORDS=$LENGTH(PSOQSIG," ")
+9 SET @TARGET@(PSOQLINE,0)="Sig: "
+10 FOR COUNT=1:1:WORDS
Begin DoDot:4
+11 SET @TARGET@(PSOQLINE,0)=$GET(@TARGET@(PSOQLINE,0))_$PIECE(PSOQSIG," ",COUNT)_" "
+12 IF $LENGTH(@TARGET@(PSOQLINE,0))>60
DO INC
SET @TARGET@(PSOQLINE,0)=" "
End DoDot:4
End DoDot:3
DO INC
QUIT
+13 SET @TARGET@(PSOQLINE,0)="Sig: "_PSOQSIG
DO INC
End DoDot:2
+14 SET PSOQQTY=$GET(^XTMP("ORRDI","PSOO",DFN,PSOQMED,6,0))
SET @TARGET@(PSOQLINE,0)="Quantity: "_+$PIECE(PSOQQTY,";")_" Days Supply: "_$PIECE($PIECE(PSOQQTY,";",2),"D",2)
DO INC
+15 SET @TARGET@(PSOQLINE,0)=$GET(^XTMP("ORRDI","PSOO",DFN,PSOQMED,10,0))_" refills remaining until "_$GET(^XTMP("ORRDI","PSOO",DFN,PSOQMED,7,0))
DO INC
+16 SET @TARGET@(PSOQLINE,0)="Last filled "_$GET(^XTMP("ORRDI","PSOO",DFN,PSOQMED,9,0))_" at "_$GET(^XTMP("ORRDI","PSOO",DFN,PSOQMED,1,0))_" ("_$SELECT(PSOQSTAT["ACT":"Active",PSOQSTAT["SUSP":"Active/Suspended",1:"Status Unknown")_")"
DO INC
+17 SET @TARGET@(PSOQLINE,0)=" "
DO INC
End DoDot:1
+18 IF PSOQLINE=3
Begin DoDot:1
+19 SET @TARGET@(1,0)="No Active Remote Medications for this patient"
End DoDot:1
GOTO RDIOUT
+20 SET @TARGET@(1,0)="Active Medications from Remote Data"
SET @TARGET@(2,0)=" "
RDIOUT QUIT "~@"_$NAME(@TARGET)
INC SET PSOQLINE=$GET(PSOQLINE)+1
QUIT
+1 ;-----------------------------
ENHS ;ENTRY POINT OF REMOTE DATA MEDICATIONS AS A HEALTH SUMMARY
+1 NEW PSOQHS,PSOQWRT
+2 IF '$GET(DFN)
QUIT
+3 SET PSOQHS=$$RDI(DFN,"^TMP($J,""PSOQRDI"")")
+4 SET PSOQWRT=0
FOR
SET PSOQWRT=$ORDER(^TMP($JOB,"PSOQRDI",PSOQWRT))
IF '+PSOQWRT
QUIT
Begin DoDot:1
+5 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+6 WRITE !,^TMP($JOB,"PSOQRDI",PSOQWRT,0)
+7 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
End DoDot:1
+8 QUIT
