ORRCDPT ;SLC/MKB - Patient List for Physician Dashboard ; 19 Sept 2003 10:09 AM
Source file <ORRCDPT.m>
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
|
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 |
RPC Name | Call Tags |
---|---|
ORRC PHY DASHBD PATIENTS | EN |
ORRC DASHBOARD PATIENTS | MAIN |
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 |
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 |
Name | Field # of Occurrence |
---|---|
^( | EN1+16, ADD+3 |
>> | 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 |