VistA Analysis » VistA Reference » RPCs » ORWRA DEFAULT EXAM SETTINGS

ORWRA DEFAULT EXAM SETTINGS

This RPC returns the default settings for the display of imaging exams onthe reports tab.

Properties

Property	Value
Label	GETDEF
MUMPS Implementation	ORWRA
Return Type	SINGLE VALUE

MUMPS Method Description

Property Value

Method GETDEF^ORWRA

Method Comment get default context settings for LM imaging reports

Code

Property	Value
Method	GETDEF^ORWRA
Method Comment	get default context settings for LM imaging reports
Code	`N BEG,CONTEXT,END,MAX S CONTEXT=$$GET^XPAR("ALL","ORCH CONTEXT REPORTS") S BEG=$$DT^ORCHTAB1($P(CONTEXT,";")) S END=$$DT^ORCHTAB1($P(CONTEXT,";",2)) S MAX=$P(CONTEXT,";",5) D OP^XQCHK I $P($G(XQOPT),"^",1)="DVBA CAPRI GUI" D .S BEG=$$DT^ORCHTAB1("T-36500") .S END=$$DT^ORCHTAB1("T") .S MAX="9999" S Y=BEG_"^"_END_"^"_MAX`

 N BEG,CONTEXT,END,MAX
 S CONTEXT=$$GET^XPAR("ALL","ORCH CONTEXT REPORTS")
 S BEG=$$DT^ORCHTAB1($P(CONTEXT,";"))
 S END=$$DT^ORCHTAB1($P(CONTEXT,";",2))
 S MAX=$P(CONTEXT,";",5)
 D OP^XQCHK
 I $P($G(XQOPT),"^",1)="DVBA CAPRI GUI" D
 .S BEG=$$DT^ORCHTAB1("T-36500")
 .S END=$$DT^ORCHTAB1("T")
 .S MAX="9999"
 S Y=BEG_"^"_END_"^"_MAX

CPRS

File Type	Description
NOT OSEHRA CPRS

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