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

ORWORB KILL EXPIR OI ALERT

Evaluate expiring flagged orderable item orders. If none remain, killcurrent alert for current user. Kill for other users if alert so defined.

Properties

Property	Value
Label	KILEXOI
MUMPS Implementation	ORWORB
Return Type	SINGLE VALUE

Input Parameters

Name	Type	Maximum Data Length	Required	Description
Patient DFN	LITERAL	32	true	Patient DFN
Alert type	LITERAL	8	true	Pointer to type of alert in the OE/RR NOTIFICATIONS file (100.9). This caneither be of type FLAGGED OI EXPIRING - INPT (#64) or FLAGGED OI EXPIRING- OUTPT (#65).

MUMPS Method Description

Property	Value
Method	KILEXOI^ORWORB
Method Comment	Delete expiring flagged OI notification if no flagged expiring OI remaining
Input Parameters	ORDFN, ORNIFN
Code	`N ORDG,ORLST S ORDG=$$DG^ORQOR1("ALL") D AGET^ORWORR(.ORLST,ORDFN,5,ORDG) Q:+(@ORLST@(.1)) ;more left N XQAKILL,ORVP S ORVP=ORDFN_";DPT(" S XQAKILL=$$XQAKILL^ORB3F1(ORNIFN) ; flagged expiring OI notifications 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