VistA Analysis » VistA Reference » RPCs » ORWORB GET TIU ALERT INFO

ORWORB GET TIU ALERT INFO

Given a TIU XQAID, return the patient and document type for the item beingalerted.

Properties

Property Value
Label GETALRT
MUMPS Implementation TIUSRVR
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
XQAID LITERAL 60 true The XQAID of the alert.

MUMPS Method Description

Property Value
Method GETALRT^TIUSRVR
Method Comment Retrieve DFN and document type for a TIU alert
Input Parameters XQAID
Code
 N X,TIUDA,TIUDFN,ORTAB,TIUDAD,GMRCO
S TIUDA=$TR($P(XQAID,";",1),"ABCDEFGHIJKLMNOPQRSTUVWXYZ") ; Strip Text
I '+TIUDA!('$D(^TIU(8925,+TIUDA,0))) S TIUY="-1" Q
S X=$P($G(^TIU(8925,TIUDA,0)),U)
S TIUDFN=$P(^TIU(8925,TIUDA,0),U,2)
I $P(^TIU(8925,TIUDA,0),U,6)'="" D
. S TIUDAD=$P(^TIU(8925,TIUDA,0),U,6)
. S X=$P($G(^TIU(8925,TIUDAD,0)),U)
I ('+X)!('+TIUDFN) S TIUY="-1" Q
S ORTAB=903 ;DEFAULT TO PN
I +$$ISDS^TIULX(X) S ORTAB=901
I +$$ISA^TIULX(X,$$CLASS^TIUSROI("SURGICAL REPORTS")) S ORTAB=904
I +$$ISA^TIULX(X,$$CLASS^TIUCNSLT)!(+$$ISA^TIULX(X,+$$CLASS^TIUCP)) D
. S GMRCO=$P(^TIU(8925,$S(+$G(TIUDAD):TIUDAD,1:TIUDA),14),U,5)
. S ORTAB=902_";"_GMRCO
S TIUY=TIUDA_U_TIUDFN_U_ORTAB

CPRS

File Type Description
NOT OSEHRA CPRS  


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