VistA Analysis » VistA Reference » RPCs » ORWDBA4 GETTFCI

ORWDBA4 GETTFCI

Properties

Property Value
Label GETTFCI
MUMPS Implementation ORWDBA4
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
ORIEN LIST   true  

MUMPS Method Description

Property Value
Method GETTFCI^ORWDBA4
Method Comment Get Treatment Factors Clinical Indicators
Input Parameters ORIEN
First Comment 
Input Variable:
  ORIEN    Order Internal Entry Number (array variable)
Ouput Variable:
  Y        Y(AI)=Order_IEN^Treatment_Factors^ICD9^ICD9_Description
           There can be up to 4 ICD9 codes and thier descriptions
           ICD901^DESC01^ICD902^DESC02^ICD903^DESC03^ICD904^DESC04
Local Variables:
  AI       Array Index
  CI       Clinical Index
  TF       Treatment Factors
  TFCI     Treatment Factors Clinical Indicators
Code 
 N AI,CI,CNT,DXS,TF,TFCI
 S U="^",(CNT,TF)=""
 F  S CNT=$O(ORIEN(CNT)) Q:CNT=""  D
 . S TF=$$GTF(ORIEN(CNT))
 . S DXS=$$GDCD(ORIEN(CNT))
 . I TF="NNNNNNNN"&(DXS="") Q
 . S TFCI(CNT)=ORIEN(CNT)_U_TF_$S(DXS="":"",1:U_DXS)
 M Y=TFCI

CPRS

File Type Description
Pascal File BA/UBACore.pas
Pascal File BA/UBAGlobals.pas


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