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: TIUSRVLO

Package: Text Integration Utility

Routine: TIUSRVLO


Information

TIUSRVLO ;SLC/JER - Server fns - lists for CPRS ;Apr 06, 2021@11:27:34

Source Information

Source file <TIUSRVLO.m>

Entry Points

Name Comments DBIA/ICR reference
NOTES(TIUY,DFN,EARLY,LATE,PERSON,SEQUENCE) ; Get notes
SUMMARY(TIUY,DFN,EARLY,LATE) ; Get Summaries
CONTEXT(TIUY,CLASS,CONTEXT,DFN,EARLY,LATE,PERSON,OCCLIM,SEQUENCE,SHOWADD,INCUND,SHOW,TIUIEN) ; main
; --- Call with: TIUY - RETURN ARRAY pass by reference
; CLASS - Pointer to TIU DOCUMENT DEFINITION #8925.1
; CONTEXT - 1=All Signed (by PT),
; - 2="Unsigned (by PT&(AUTHOR!TANSCRIBER))
; - 3="Uncosigned (by PT&EXPECTED COSIGNER
; - 4="Signed notes (by PT&selected author)
; - 5="Signed notes (by PT&date range)
; DFN - Pointer to Patient (#2)
; [EARLY] - FM date/time to begin search
; [LATE] - FM date/time to end search
; [PERSON] - Pointer to file 200 (DUZ if not passed)
; [OCCLIM] - Occurrence Limit (optional)
; [SEQUENCE]- "A"=ascending (Regular date/time)
; - "D"=descending (Reverse date/time) (dflt)
; [INCUND] - Boolean: include undictated & untranscribed
; SHOW - Boolean: Return "0^SHOW MORE" in return
; array when additional notes available for
; context of 1 or 5 when occurrence limit
; prevents all notes from displaying
; TIUIEN - Starting TIU IEN for additional return
; when "SHOW MORE" was received in previous
; return array (LATE date/time will be set
; to Reference date of this TIU document)
CTXQ ;
SWAP(TIUX,TIUY) ; Swap variables
EXPRANGE(TIUX,TIUY) ; Expand range when same for early & late
ACLPT(TIUY,CLASS,DFN,TIME1,TIME2,OCCLIM,SEQUENCE,SHOW,TIUIEN) ; Signed, by patient
ACLAU(TIUY,CLASS,AUTHOR,DFN,TIME1,TIME2,SEQUENCE,INCUND) ; Unsigned
ACLEC(TIUY,CLASS,EXCOSIGN,DFN,TIME1,TIME2,SEQUENCE) ; Uncosigned
ACLSB(TIUY,CLASS,SIGNEDBY,DFN,TIME1,TIME2,SEQUENCE) ; Signed, by author
RESOLVE(DA) ; Resolve to external data
IMGCNT(TIUDA) ; Get the number of images associated with a document
IDSORT(TIUDA) ; Get ID Sort indicator when appropriate

Used in RPC

RPC Name Call Tags
TIU NOTES NOTES
TIU SUMMARIES SUMMARY
TIU DOCUMENTS BY CONTEXT CONTEXT

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call