VistA Analysis » VistA Reference » RPCs » ORWORB KILL EXPIR MED ALERT

ORWORB KILL EXPIR MED ALERT

Evaluate expiring med orders. If none remain, kill current alert forcurrent user. Kill for other users if alert so defined.

Properties

Property Value
Label KILEXMED
MUMPS Implementation ORWORB
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
Patient DFN LITERAL 32 true  

MUMPS Method Description

Property Value
Method KILEXMED^ORWORB
Method Comment Delete expiring meds notification if no expiring meds remaining
Input Parameters ORDFN
Code 
 N ORDG,ORLST S ORDG=$$DG^ORQOR1("RX")
 D AGET^ORWORR(.ORLST,ORDFN,5,ORDG)
 Q:+(@ORLST@(.1))  ;more left
 N XQAKILL,ORNIFN,ORVP,ORIO S OROI=""
 F OROI="INPT","OUTPT" D
 .S ORNIFN=$O(^ORD(100.9,"B","MEDICATIONS EXPIRING - "_OROI,0)),ORVP=ORDFN_";DPT("
 .Q:'$L($G(ORNIFN))
 .S XQAKILL=$$XQAKILL^ORB3F1(ORNIFN) ; expiring meds notif
 .I $D(XQAID) D DELETE^XQALERT
 .I '$D(XQAID) S XQAID=$P($G(^ORD(100.9,ORNIFN,0)),U,2)_","_+ORVP_","_ORNIFN D DELETEA^XQALERT K XQAID

CPRS

File Type Description
Pascal File rCore.pas


Document generated on August 31st 2022, 2:55:43 pm