Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: TIUPRF2

Package: Text Integration Utility

Routine: TIUPRF2


Information

TIUPRF2 ;SLC/JMH - RPCs for Patient Record Flags ;May 6, 2024@12:20

Source Information

Source file <TIUPRF2.m>

Entry Points

Name Comments DBIA/ICR reference
GETTITLE(TIUY,PTDFN,FLAGID) ; RPC TIU GET PRF TITLE
; RPC Gets Note Title associated with FLAGID for PTDFN
; INPUT PARAMETERS
; PTDFN - required - pointer to file 2
; FLAGID - required - identifier for particular flag assignment
; Set as subscript in GETACT^DGPFAPI
; See GETFLG^ORPRF
; RETURN PARAMETER
; .TIUY = passed by ref, TitleIEN^Title
; 0 if no title is associated or flag assignment is not active
GETNOTES(TIUY,PTDFN,TIUTTL,REVERSE) ; RPC TIU GET LINKED PRF NOTES
; RPC gets SIGNED, LINKED PRF
; INPUT PARAMETERS
; PTDFN - required - pointer to file 2
; TIUTTL - required - IEN of TIU DOCUMENT DEFINITION (#8925.1) file
; REVERSE - optional - Boolean, 0/1
; 0 - default - sort return chronologically
; 1 - sort return inverse chronological
; RETURN PARAMETER
; .TIUY - passed by reference, TIUY=total # of notes
; TIUY(TIUIDATE)=TIUIEN_U_TIUACT_U_TIUEDATE_U_TIUAUTH
; TIUIDATE - FM date of note, or inverse FM date
; TIUIEN - pointer to file 8925
; TIUACT - name of action
; TIUEDATE - external date of note
; TIUAUTH - name of author of note
GETACTS(TIUY,TIUTTL,DFN) ; RPC TIU GET PRF ACTIONS
; RPC Gets PRF Action info
; Action in PRF is the reason a History (#26.14) record was created
; Input:
; DFN - [Required] IEN of PATIENT (#2) file
; TIUTTL - [Required] IEN of TIU DOCUMENT DEFINITION (#8925.1) file
; RETURN ARRAY
; .TIUY - passed by reference
; see description of return array from GETHTIU^DGPFAPI1
; reformat data for TIU RPC return
; dg*951 brought in p8
; TIUY(ACTID) = p1^p2^p3^p4^p5^p6^p7^p8 where
; p1 = flag name p5 = action date, FM internal
; p2 = assignment ien [.001/#26.13] p6 = action date, external
; p3 = action name [.03/#26.14] p7 = file 8925 ien
; p4 = action ien p8 = originate facility name
LINK(TIUY,TIUIEN,ASSGNDA,ACTIEN,DFN) ;RPC Link TIU Doc TIUIEN to
; the PRF action
GETSTAT(TIUY,TIUIEN) ;RPC Gets the status of TIU Doc TIUIEN
ISPRFTTL(TIUY,TIUDA) ;RPC Takes as input 8925.1 IEN
; and checks if it is a PRF title
; Cf ISPFTTL^TIUPRFL. which is a FUNCTION
GETP(NODE,P)
GETPA(NODE,P)
HERE() ; get facility
; RETURN file_4_ien ^name ^full_site# ^3-digit_site#
ISERR(TDAT,ACTID,HASERR) ; is history record prior to EIE status?
KILL
STN(INST,APPRVBY) ; get station information
; INPUT PARAMETERS:
; INST - optional - ien to file 4

Used in RPC

RPC Name Call Tags
TIU ISPRF ISPRFTTL
TIU GET PRF ACTIONS GETACTS
TIU LINK TO FLAG LINK
TIU GET DOCUMENT STATUS GETSTAT
TIU GET LINKED PRF NOTES GETNOTES
TIU GET PRF TITLE GETTITLE

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] GETS^DIQ
Info |  Source |  Entry Points |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call