VistA Analysis » VistA Reference » RPCs » ORWDBA3 HINTS

ORWDBA3 HINTS

Returns an array of ‘Hints’ for Treatment Factors for CPRS CI/BA Project.

Properties

Property Value
Label HINTS
MUMPS Implementation ORWDBA3
Return Type ARRAY

MUMPS Method Description

Property Value
Method HINTS^ORWDBA3
Method Comment Return HINTS for ORBA Treatment Factors - used by Delphi
First Comment
 The hints returned in the Y array will be used in the CPRS GUI and
displayed on fly-over of the cursor over the TxF text in the window

Input

Output
Y array of the hints for TxF's> Y(#)=TxFA ^ TxF line # ^ hint text
where TxFA is Treatment Factor acronym, e.g., CV=Combat Veteran
Variables
CT = line number count, used in Y(#) where #=CT
I = incrementor index #
ORTFIEN = the IEN for the TxF in the Help Frame (^DIC(9.2)) file
TF = TxF acronym
TFLN = TxF text line number, e.g., ^DIC(9.2,ORTFIEN,1,TFLN,0)
TFS = string of TxF acronyms
TFV = TxF description/text
Code
 N CT,I,ORTFIEN,TF,TFLN,TFS,TFV
S TFS="SC^MST^AO^IR^EC^HNC^CV^SHD",CT=0
F I=1:1 S TF=$P(TFS,U,I) Q:TF="" D
. S ORTFIEN=$O(^DIC(9.2,"B","ORBA-"_TF,"")),TFV="",TFLN=0
. ; Get next line of hint text
. F S TFLN=$O(^DIC(9.2,ORTFIEN,1,TFLN)) Q:'TFLN D
.. S CT=CT+1,Y(CT)=TF_U_TFLN_U_^DIC(9.2,ORTFIEN,1,TFLN,0)

CPRS

File Type Description
Pascal File BA/UBACore.pas


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