VistA Analysis » VistA Reference » RPCs » ORWSR ONECASE

ORWSR ONECASE

Given a TIU document IEN, return the surgical case record and all otherdocuments related to the case, for display in the GUI treeview.

Properties

Property Value
Label ONECASE
MUMPS Implementation ORWSR
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
TIUDA LITERAL 16 true Document IEN in file 8925.

MUMPS Method Description

Property Value
Method ONECASE^ORWSR
Method Comment Given a TIU document, return the case and related documents
Input Parameters ORTIUDA
Code 
 Q:'$$PATCH^XPDUTL("SR*3.0*100")!(+$G(ORTIUDA)=0)
 N ORCASE
 D GET1405^TIUSRVR(.ORCASE,ORTIUDA)
 I +ORCASE'>0 S ORY=ORCASE Q
 D GETONE(.ORY,+ORCASE)

CPRS

File Type Description
Pascal File rSurgery.pas


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