VistA Analysis » VistA Reference » RPCs » TIU ISPRF

TIU ISPRF

This RPC is to check to see if the passed in TIU DOCUMENT TITLE IEN is a Patient Record Flag TITLE.

Properties

Property Value
Label ISPRFTTL
MUMPS Implementation TIUPRF2
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
TIUTTL LITERAL   true TIU DOCUMENT TITLE IEN

MUMPS Method Description

Property Value
Method ISPRFTTL^TIUPRF2
Method Comment RPC Takes as input 8925.1 IEN
Input Parameters TIUDA
First Comment
 and checks if it is a PRF title
Cf ISPFTTL^TIUPRFL. which is a FUNCTION
Code
 N TIUCAT1,TIUCAT2,TIUD1
S TIUY=0,TIUD1=""
S TIUCAT1=+$$DDEFIEN^TIUFLF7("PATIENT RECORD FLAG CAT I","DC")
S TIUCAT2=+$$DDEFIEN^TIUFLF7("PATIENT RECORD FLAG CAT II","DC")
S TIUD1=$O(^TIU(8925.1,"AD",TIUDA,TIUD1))
I TIUD1=TIUCAT1!(TIUD1=TIUCAT2) S TIUY=1

CPRS

File Type Description
Pascal File rTIU.pas


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