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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ORRCACK

Package: Care Management

Routine: ORRCACK


Information

ORRCACK ;SLC/MKB - Result Acknowledgement file utilities ; 25 Jul 2003 9:31 AM

Source Information

Source file <ORRCACK.m>

Entry Points

Name Comments DBIA/ICR reference
PARAM(PROV) ; -- Return ORRC ACTIVATION DATE parameter for PROV
ADD(ORDER,PROV,ACK) ; -- Create new entry in file #102.4 when results are posted
; [called from HL7 messages: ORMLR, ORMRA, ORMGMRC]
  • ICR #4170
    • Status: Active
    • Usage: Private
    ACK(ORY,ORUSR,ORDER) ; -- Acknowledge results of ORDERs by ORUSR
    ; where ORDER(#) = ID ^ 1 or 0, if acknowledged
    ; Returns ORY(#) = ID ^ 1 or 0, if successful
    ; RPC = ORRC RESULTS ACKNOWLEDGE
    DEL(DA) ; -- Delete old acknowledgment stub
    PATS(ORY,ORUSR) ; -- Return list of patients for whom ORUSR has unack'd results
    ; in @ORY@(PAT) = #orders ^ 1 if any are abnormal
    ; @ORY@(PAT,ID) = * if abnormal, else null
    ; [from ORRCDPT]
    ORSLT ; -- Add ORIFN to ^TMP($J,"ORSLT",PAT,pkgid) for use by Events
    IDS(ORY,ORPAT,ORUSR,SDATE,EDATE) ; -- Return new results for ORPAT
    ; between ORBEG & OREND that ORUSR has not acknowledged
    ; in @ORY@(ORPAT) = #orders ^ 1 if any are abnormal
    ; @ORY@(ORPAT,ID) = * if abnormal, else null
    ; [from ORRCDPT1]
    LIST(ORY,ORUSR,ORPAT,ORSLT) ; -- Return orders by ORUSR for ORPAT with new results
    ; in @ORY@(#) = Item=ID^Text^ResultDate in HL7 format, and also if ORSLT
    ; = Data=Test^Value^Units^ReferenceRange^CriticalFlag
    ; = Cmnt=result comment
    ; or Text=line of report text
    ; RPC = ORRC RESULTS BY PATIENT
    LISTD(ORY,ORPAT,ORUSR,ORBEG,OREND,ORSLT) ; -- Return new results for ORPAT
    ; between ORBEG & OREND that ORUSR has not acknowledged
    ; in @ORY@(#) = Item=ID^Text^ResultDate in HL7 format, and also if ORSLT
    ; = Data=Test^Value^Units^ReferenceRange^CriticalFlag
    ; = Cmnt=result comment
    ; or Text=line of report text
    ; RPC = ORRC RESULTS BY DATE
    DATES ; -- Return SDATE and EDATE from ORBEG and OREND
    ; [Inverted for rev-chron search]
    DT1
    ACKD(ORDER,USER) ; -- Returns 1 or 0, if USER has acknowledged ORDER
    RESULT(ORY,ORDER) ; -- Return results of ORDERs
    ; where ORDER(#) = ID
    ; in @ORY@(#) = Item=ID^Text^ResultDate in HL7 format, and
    ; = Data=Test^Value^Units^ReferenceRange^CriticalFlag
    ; = Cmnt=result comment
    ; or Text=line of report text
    ; RPC = ORRC RESULTS BY ID
    ORD ; -- Add results for ORIFN to @ORY@(ORN)
    LR ; -- Lab results
    RA ; -- Radiology results
    XRPT ; -- body of report for CASE, PROC
    GMRC ; -- Consult results

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^ORA(102.4 - [#102.4] Classic Fileman Calls
    Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call