TIUPRF2 ;SLC/JMH - RPCs for Patient Record Flags ;May 6, 2024@12:20
Source file <TIUPRF2.m>
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 |
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 |
FileNo | Call Tags |
---|---|
^TIU(8925 - [#8925] | GETS^DIQ |