VistA Analysis » VistA Reference » RPCs » ORWTIU GET SAVED CP FIELDS

ORWTIU GET SAVED CP FIELDS

Given a TIU document of the clinical procedures class, return the author, title, cosigner, procedure summary code, date/time of procedure, and reference date, as stored on the server.

Properties

Property	Value
Label	GETCP
MUMPS Implementation	ORWTIU
Return Type	SINGLE VALUE

Input Parameters

Name	Type	Maximum Data Length	Required	Description
TIUDA	LITERAL	32	true	Pointer to file 8925 for the document.

MUMPS Method Description

Property	Value
Method	GETCP^ORWTIU
Method Comment	Checks required CP fields before signature
Input Parameters	ORTIUDA
Code	`S ORY="" N ORTITLE,ORAUTH,ORCOS,ORPSUMCD,ORPROCDT,ORROOT,ORERR,ORREFDT S ORERR="",ORROOT=$NA(^TMP("ORTIU",$J)) D EXTRACT^TIULQ(ORTIUDA,.ORROOT,.ORERR,".01;1202;1208;70201;70202;1301",,,"I") S ORTITLE=@ORROOT@(ORTIUDA,".01","I") S ORAUTH=@ORROOT@(ORTIUDA,"1202","I") S ORCOS=@ORROOT@(ORTIUDA,"1208","I") S ORPSUMCD=@ORROOT@(ORTIUDA,"70201","I") S ORPROCDT=@ORROOT@(ORTIUDA,"70202","I") S ORREFDT=@ORROOT@(ORTIUDA,"1301","I") S ORY=ORAUTH_U_ORCOS_U_ORPSUMCD_U_ORPROCDT_U_ORTITLE_U_ORREFDT K @ORROOT`

CPRS

File Type	Description
Pascal File	Consults/rConsults.pas

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