Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ORRCDPT

Package: Care Management

Routine: ORRCDPT


Information

ORRCDPT ;SLC/MKB - Patient List for Physician Dashboard ; 19 Sept 2003 10:09 AM

Source Information

Source file <ORRCDPT.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Care Management 5 PATS^ORRCACK  EN^ORRCDPT1  PATS^ORRCEVT  GETPTUNS^ORRCTIU  PATS^ORRCTSK  
Order Entry Results Reporting 4 TEAMPTS^ORQPTQ1  DEFLIST^ORQPTQ11  CLINPTS^ORQPTQ2  $$RNG2FM^ORRHCU  
Kernel 2 $$FMTHL7^XLFDT  $$UP^XLFSTR  
Registration 1 DEM^VADPT  
Toolkit 1 $$GET^XPAR  

Entry Points

Name Comments DBIA/ICR reference
TASK ; -- find patients with tasks not complete
FORMAT ; -- 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

External References

Name Field # of Occurrence
TEAMPTS^ORQPTQ1 EN1+17
DEFLIST^ORQPTQ11 EN1+15
CLINPTS^ORQPTQ2 EN1+21
PATS^ORRCACK RSLT+2
EN^ORRCDPT1 MAIN+8
PATS^ORRCEVT EVNT+2
GETPTUNS^ORRCTIU SIGN+4
PATS^ORRCTSK TASK+2
$$RNG2FM^ORRHCU EXPDATES+5
DEM^VADPT FORMAT+4
$$FMTHL7^XLFDT FORMAT+5
$$UP^XLFSTR MAIN+7, EN1+14
$$GET^XPAR EN1+12

Used in RPC

RPC Name Call Tags
ORRC PHY DASHBD PATIENTS EN
ORRC DASHBOARD PATIENTS MAIN

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("OR" EN1+16
^TMP($J EN+8!, EN+10, EN+11!, EN1+8!, EN1+9*, EN1+16*, EN1+22*, EN1+23*, EN1+24, EN1+28!
, ERROR+1, ERROR+6, RSLT+3*, TASK+3*, EVNT+3*, SIGN+5*, FORMAT+3, FORMAT+6, FORMAT+7, FORMAT+8
, FORMAT+9, FORMAT+10, GETRET+1, ADD+3
^VA(200 - [#200] EN1+11

Label References

Name Line Occurrences
$$GETRET ERROR+3, FORMAT+2
@( EN1+19
ADD FORMAT+6, FORMAT+7, FORMAT+8, FORMAT+9
EN MAIN+10
EN1 MAIN+9
ERROR EN1+27
EVNT EN+9, EN1+26
EXPDATES MAIN+6
FORMAT EN+10, EN1+26
RSLT EN+9, EN1+26
SIGN EN+9, EN1+26
TASK EN+9, EN1+26

Naked Globals

Name Field # of Occurrence
^( EN1+16, ADD+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN FORMAT+1~, FORMAT+4*, FORMAT+5
DUZ EN1+11
ERRI EN1+7~*, EN1+22*
FROM EN1+10~, EN1+12*, EN1+15
I ERROR+2~*, ERROR+4*, ERROR+5*, ERROR+6*, EXPDATES+2~*, EXPDATES+3*, EXPDATES+4, EXPDATES+5, EXPDATES+6, EXPDATES+7
J ERROR+2~*, ERROR+4*, ERROR+6*
LIST MAIN~, MAIN+6, MAIN+8, MAIN+9, EXPDATES~
LIST( EXPDATES+3, EXPDATES+4, EXPDATES+5, EXPDATES+6*, EXPDATES+7*
LIST(0 MAIN+9
ORACK RSLT+1~, RSLT+2, RSLT+3, RSLT+4
ORBEG EN1+7~, EN1+20*, EN1+21
ORDER SIGN+1~
ORDOC SIGN+1~, SIGN+4, SIGN+5, SIGN+6
OREND EN1+7~, EN1+20*, EN1+21
OREVT EVNT+1~, EVNT+2, EVNT+3, EVNT+4
ORI EN1+7~, EN1+13*
ORID EN1+7~, EN1+14*, EN1+17, EN1+21, ADD+1~, ADD+2*, ADD+3*
ORJ EN1+7~, EN1+16*, EN1+23*
ORLST EN1~
ORLST( EN1+13
ORN FORMAT+1~, FORMAT+3*, FORMAT+5*, FORMAT+10*, ADD+4*, ADD+6*
ORPAT EN1+7~, EN1+15, EN1+17, EN1+21
ORPAT( EN1+23
ORPAT(1 EN1+14, EN1+22
ORPT FORMAT+1~, FORMAT+3*, FORMAT+4, FORMAT+6, FORMAT+7, FORMAT+8, FORMAT+9, FORMAT+10, ADD+3
ORSRV EN1+10~, EN1+11*, EN1+12
ORSUB ADD+1~, ADD+2*, ADD+3
ORTN EN1+7~, EN1+18*, EN1+19*
ORTSK TASK+1~, TASK+2, TASK+3, TASK+4
ORU ADD+1~, ADD+2*, ADD+4*, ADD+5*
ORUSR EN~, EN+8*, EN1~, EN1+7*, RSLT+2, TASK+2, EVNT+2, SIGN+4
ORX EN1+7~, EN1+13*, EN1+14, EN1+20, ADD+1~, ADD+2*, ADD+4*, ADD+5*, ADD+6
ORY MAIN~, MAIN+8, MAIN+9, MAIN+10, EN~, EN1~, EN1+27, ERROR~, ERROR+3*, ERROR+4
, ERROR+6, FORMAT+2*, FORMAT+5, FORMAT+10, ADD+4, ADD+6
PAT EN1+7~, EN1+16*, EN1+23*, RSLT+1~, RSLT+2*, RSLT+3*, TASK+1~, TASK+2*, TASK+3*, EVNT+1~
, EVNT+2*, EVNT+3*, SIGN+1~, SIGN+4*, SIGN+5*
RANGE EXPDATES+2~, EXPDATES+5*, EXPDATES+6, EXPDATES+7
TYPE MAIN~, MAIN+7*, MAIN+8, ADD~, ADD+2, ADD+4
U EN1+11, FORMAT+5, ADD+5
USER MAIN~, MAIN+7*, MAIN+8, MAIN+9, MAIN+10
VA FORMAT+1~
VA("PID" FORMAT+5
VADM FORMAT+1~
VADM(1 FORMAT+5
VADM(3 FORMAT+5
VADM(4 FORMAT+5
VAERR FORMAT+1~
X EN1+7~, EN1+14*, EN1+15, EN1+17, EN1+18, EN1+19, ADD+1~, ADD+3*, ADD+4, ADD+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All