; -- Format return array ^TMP($J,"ORRCPTS") from temp array ^TMP($J,"ORRCY")
MAIN(ORY,USER,TYPE,LIST)
; -- Return patient list for dashboard
; where USER = pointer to #200
; TYPE = (C)linician or (N)urse view
; LIST(#) = <list-type>:<list-ID>:<clinic start>:<clinic stop>
; RPC = ORRC DASHBOARD PATIENTS
EN(ORY,ORUSR)
; -- Return each patient to list on dashboard for ORUSR
; in @ORY@(#) = "Patient=<dfn>^<name>^<ssn>^<dob>^<age>"
; = "Result=ORR:##^ORR:##^...^*ORR:##"
; = "Task=TSK:##^TSK:##^...^*TSK:##"
; = "Event=VST:ID^VST:ID^...^VST:ID"
; = "Unsigned=ORD:##^...^ORD:##^DOC:##^...^DOC:##"
; = "Notifications=1"
; RPC = ORRC PHY DASHBD PATIENTS
ADD(TYPE)
; -- Add item IDs from ^TMP($J,"ORRCY",PAT,<TYPE>) into return array
SIGN
; -- find patients that have orders or notes ORUSR needs to sign
ERROR(ORY)
GETRET()
RSLT
; -- find patients with unack'd results for ORUSR's orders
EXPDATES(LIST)
EN1(ORY,ORUSR,ORLST)
; -- Return patients on ORLST for ORUSR's dashboard
; in @ORY@(#) = "Patient=<dfn>^<name>^<ssn>^<dob>^<age>"
; = "Result=ORR:##^ORR:##^...^*ORR:##"
; = "Task=TSK:##^TSK:##^...^*TSK:##"
; = "Event=VST:ID^VST:ID^...^VST:ID"
; = "Unsigned=ORD:##^...^ORD:##^DOC:##^...^DOC:##"
; = "Error=^<error description>"
EVNT
; -- find patients that ORUSR has outstanding ADT alerts for