| ORU PATIENT MOVMT |
action |
|
This is the option used to review orders when a patient is discharged or transferred. |
I '$D(ORACTION) D REV^ORCHART(DFN) |
|
| ORU AUTOLIST |
action |
|
This protocol is used to automatically update OE/RR Team Lists. It is triggered by the protocol DGPM MOVEMENT EVENTS and must be an item in that protocol. |
D EN^ORLP3AUT |
|
| ORB BLANK LINE |
action |
|
Displays a blank line. (Item text is 3 spaces.) Use to get whitespace. |
|
|
| ORRP ALL |
action |
|
Display all orders for this patient |
S ORPRES="1;ALL ORDERS" |
|
| ORRP CURRENT |
action |
|
Display active orders for this patient |
S ORPRES="2;ACTIVE ORDERS" |
|
| ORRP DC |
action |
|
Display discontinued orders |
S ORPRES="3;DISCONTINUED ORDERS" |
|
| ORRP C/E |
action |
|
Display orders completed or expired |
S ORPRES="4;COMPLETED/EXPIRED ORDERS" |
|
| ORRP EXPIRING |
action |
|
Display orders about to expire |
S ORPRES="5;EXPIRING ORDERS" |
|
| ORRP PENDING |
action |
|
Display pending orders |
S ORPRES="7;PENDING ORDERS" |
|
| ORRP STATUS MENU |
menu |
|
This is the menu of order status groupings that may be selected for display. |
|
|
| ORB BLANK LINE1 |
action |
|
Displays a blank line. (Item text is 3 spaces.) Use to get whitespace. |
|
|
| ORB BLANK LINE2 |
action |
|
Displays a blank line. (Item text is 3 spaces.) Use to get whitespace. |
|
|
| ORB BLANK LINE3 |
action |
|
Displays a blank line. (Item text is 3 spaces.) Use to get whitespace. |
|
|
| ORB BLANK LINE4 |
action |
|
Displays a blank line. (Item text is 3 spaces.) Use to get whitespace. |
|
|
| ORRP UNSIGNED |
action |
|
Display unsigned orders. |
S ORPRES="11;UNSIGNED ORDERS" |
|
| ORS 24HR SUMMARY |
action |
|
This protocol allows users to generate a 24 hour summary of orders placed on a user-specified date. |
D DAY^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=ORSSTRT,ORSSTOP(+XQORNOD)=ORSSTOP |
|
| ORS RNG SUMMARY |
action |
|
This protocol allows the user to print a summary of orders placed during a user-specified date/time range. |
D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=ORSSTRT,ORSSTOP(+XQORNOD)=ORSSTOP |
|
| ORS CUSTOM SUMMARY |
action |
|
This protocol allows the user to generate summaries of orders placed during a user-specified date/time range by service and order status. |
D CUSTOM^ORPRS01 Q:$G(OREND) S ORSDG(+XQORNOD)=ORDG,ORPRES(+XQORNOD)=ORPRES D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=ORSSTRT,ORSSTOP(+XQORNOD)=ORSSTOP |
|
| ORS CHART SUMMARY |
action |
|
This protocol allows printing of chart copy summaries for patients selected from the user's preferred list of orders released during a user-specified date/time interval. |
D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=ORSSTRT,ORSSTOP(+XQORNOD)=ORSSTOP |
|
| ORS HEALTH SUMMARY |
action |
|
This protocol allows printing of Health Summaries for patients selected from the user's preferred list. |
D SELTYP^ORPRS13 |
|
| ORS GRAPH LABS |
action |
|
This action type protocol allows graphing of lab results by collection sample, and test for any time interval and # of data points. |
S LRCW=8,LRFLAG="",LRCTRL=0,(LRNSET,N)=80 D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=+ORSSTRT,ORSSTOP(+XQORNOD)=+ORSSTOP D L2^LRDIST4 S:$D(LRSPEC) ORLRSPEC(+XQORNOD)=LRSPEC S:'$D(LRTEST) OREND=1 I X="^" S DUOUT=1 S:X="^^" DIROUT=1 |
|
| ORS LAB INTERIM |
action |
|
This protocol prints interim labs for a user-specified time interval |
D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=+ORSSTRT,ORSSTOP(+XQORNOD)=+ORSSTOP |
|
| ORS VITALS REPORT |
action |
|
This protocol prints the SF511 vitals report for a time range |
D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=+ORSSTRT,ORSSTOP(+XQORNOD)=+ORSSTOP |
|
| ORS VITALS CUM REPORT |
action |
|
This protocol prints the vitals cumulative report for a time interval. |
D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=+ORSSTRT,ORSSTOP(+XQORNOD)=+ORSSTOP |
|
| ORS BLOOD BANK |
action |
|
This protocol prints blood bank reports for the patient |
W !!,"Gets Patient Blood Bank Report." |
|
| ORS ANATOMIC PATH REPORT |
action |
|
This protocol prints the anatomic pathology report for a patient |
W !!,"Gets ALL Anatomic Pathology Tests for Patient." |
|
| ORB BLANK LINE11 |
limited protocol |
|
|
|
|
| ORB BLANK LINE12 |
limited protocol |
|
|
|
|
| ORB BLANK LINE13 |
limited protocol |
|
|
|
|
| ORB BLANK LINE14 |
limited protocol |
|
|
|
|
| ORB BLANK LINE15 |
limited protocol |
|
|
|
|
| ORB BLANK LINE16 |
limited protocol |
|
|
|
|
| ORB BLANK LINE17 |
limited protocol |
|
|
|
|
| ORB BLANK LINE18 |
limited protocol |
|
|
|
|
| ORB BLANK LINE19 |
limited protocol |
|
|
|
|
| ORB BLANK LINE20 |
limited protocol |
|
|
|
|
| ORB BLANK LINE21 |
limited protocol |
|
|
|
|
| ORS AD HOC HEALTH SUMMARY |
action |
|
This protocol allows generation of Ad Hoc Health Summaries for multiple patients from the Results Reporting menu. |
S X="GMTS HS ADHOC",DIC=142,DIC(0)="ZF" D ^DIC K DIC Q:+Y'>0 S GMTSTYP=+Y,GMTSTITL="AD HOC" D BUILD^GMTSADOR |
|
| ORS RX ACTION PROFILE |
action |
|
This protocol allows the user to print action profiles for selected patients. |
|
|
| ORS REPORT MENU |
menu |
|
This is a menu of OE/RR reports that can be given to ward users to produce various patient reports. |
S ORANSI=0,XQORFLG("SH")=1 |
D EXIT^ORPRS07 |
| ORB BLANK LINE5 |
action |
|
Displays a blank line. (Item text is 3 spaces.) Use to get whitespace. |
|
|
| ORB BLANK LINE6 |
action |
|
Displays a blank line. (Item text is 3 spaces.) Use to get whitespace. |
|
|
| ORB BLANK LINE7 |
action |
|
Displays a blank line. (Item text is 3 spaces.) Use to get whitespace. |
|
|
| ORB BLANK LINE8 |
action |
|
Displays a blank line. (Item text is 3 spaces.) Use to get whitespace. |
|
|
| ORB BLANK LINE9 |
action |
|
Displays a blank line. (Item text is 3 spaces.) Use to get whitespace. |
|
|
| ORB BLANK LINE10 |
action |
|
Displays a blank line. (Item text is 3 spaces.) Use to get whitespace. |
|
|
| OR GUA DC GENERIC ORDERS |
action |
|
This protocol will discontinue all generic orders for a patient when the patient is discharged. The protocol should be set up as an item on the DGPM MOVEMENT EVENTS protocol. It will check to see if the movement is a discharge and then discontinue all generic orders (orders created by the Order Entry/Results Reporting package itself). The actual DC process is tasked, to reduce the wait for the person doing the discharge. Therefore, the order review screen may not immediately reflect the DC'd orders. |
Q:$G(DGPMT)'=3 D EN1^ORMEVNT |
|
| OR GUA DC GENERIC ORDERS NOTASK |
action |
|
This protocol will discontinue all generic orders for a patient when the patient is discharged. The protocol should be set up as an item on the DGPM MOVEMENT EVENTS protocol. It will check to see if the movement is a discharge and then discontinue all generic orders (orders created by the Order Entry/Results Reporting package itself). The DC process is done interactively, which may sometimes result in a wait. If this protocol is placed before the ORU PATIENT MOVMT protocol in the item multiple of the DGPM MOVEMENT EVENTS protocol, the review screen will reflect active orders AFTER the generic orders are DC'd. |
Q:$G(DGPMT)'=3 D EN^ORMEVNT |
|
| OR GUA DC GEN ORD ON TRANS |
action |
|
This protocol will discontinue all generic orders for a patient when the patient is transferred. The protocol should be set up as an item on the DGPM MOVEMENT EVENTS protocol. It will check to see if the movement is a transfer and then discontinue all generic orders (orders created by the Order Entry/Results Reporting package itself). The actual DC process is tasked, to reduce the wait for the person doing the transfer. |
Q:$G(DGPMT)'=2 D EN1^ORMEVNT |
|
| OR GUA DC GEN ORD ON TRANS NOTASK |
action |
|
This protocol will discontinue all generic orders for a patient when the patient is transferred. The protocol should be set up as an item on the DGPM MOVEMENT EVENTS protocol. It will check to see if the movement is a transfer and then discontinue all generic orders (orders created by the Order Entry/Results Reporting package itself). The DC process is done interactively, which may sometimes result in a wait. If this protocol is placed before the ORU PATIENT MOVMT protocol in the item multiple of the DGPM MOVEMENT EVENTS protocol, the review screen will reflect active orders AFTER the generic orders are DC'd. |
Q:$G(DGPMT)'=2 D EN^ORMEVNT |
|
| ORRP VERBAL |
action |
|
Display all verbal and telephoned orders. |
S ORPRES="13;VERBAL/PHONED ORDERS" |
|
| ORRP VERBAL UNSIGNED |
action |
|
Display all unsigned verbal and telephoned orders. |
S ORPRES="14;UNSIGNED VERBAL ORDERS" |
|
| OR RECEIVE |
action |
|
|
D EN^ORM(.XQORMSG) |
|
| OR EVSEND RA |
extended action |
|
|
|
|
| OR EVSEND LRCH |
extended action |
|
|
|
|
| OR ITEM RECEIVE |
extended action |
|
|
D EN^ORMFN(.XQORMSG) |
K ^TMP($J,"OR OI BEFORE"),^TMP($J,"OR OI AFTER"),TMP($J,"OR OI NEW") |
| OR EVSEND LRBB |
extended action |
|
|
|
|
| OR EVSEND LRAP |
extended action |
|
|
|
|
| OR EVSEND DGPM |
extended action |
|
Protocol used by OE/RR to send a message to MAS regarding a patient movement or patient information update (such as a change in primary provider or attending physician aka. provider-patient linkage.) |
|
|
| OR EVSEND FH |
extended action |
|
|
|
|
| OR EVSEND ORG |
extended action |
|
|
|
|
| OR EVSEND PS |
extended action |
|
|
|
|
| OR EVSEND GMRC |
extended action |
|
|
|
|
| ORCM MENU |
menu |
|
|
|
|
| ORCM ADD ITEMS |
action |
|
|
D ADDITM^ORCMEDT2 |
|
| ORCM REMOVE ITEMS |
action |
|
|
D REMOVE^ORCMEDT2 |
|
| ORCM EDIT ITEMS |
action |
|
|
D EDIT^ORCMEDT2 |
|
| ORCM EDIT POSITION |
action |
|
|
D MOVE^ORCMEDT2 |
|
| ORCM NEW MENU |
action |
|
|
D NEW^ORCMEDIT |
|
| ORCM ORDERABLES |
action |
|
|
D FULL^VALM1,OI^ORCMEDT1 S VALMBCK="R" |
|
| ORCM QUICK ORDERS |
action |
|
|
D FULL^VALM1,QUICK^ORCMEDT1 S VALMBCK="R" |
|
| ORCM DIALOGS |
menu |
|
|
S VALMBCK="",XQORM(0)="1AD\" |
|
| ORCM ORDER SETS |
action |
|
|
D FULL^VALM1,SET^ORCMEDT1 S VALMBCK="R" |
|
| ORCM VIEW INT/EXT |
action |
|
|
D VIEW^ORCMEDIT |
|
| ORCM ADD |
menu |
|
|
S VALMBCK="" |
|
| ORCM REMOVE |
menu |
|
|
S VALMBCK="" |
|
| ORCM EDIT |
menu |
|
|
S VALMBCK="" |
|
| ORCM ADD TEXT |
action |
|
|
D ADDTXT^ORCMEDT2 |
|
| ORCM EDIT MENU |
action |
|
|
D EDIT^ORCMEDIT |
|
| ORCM ADD ROW |
action |
|
|
D ADDROW^ORCMEDT2 |
|
| ORCM REMOVE ROW |
action |
|
|
D REMROW^ORCMEDT2 |
|
| ORCM PROTOCOLS |
action |
|
|
D FULL^VALM1,PROTOCOL^ORCMEDT1 S VALMBCK="R" |
|
| ORCM PROMPTS |
action |
|
|
D FULL^VALM1,EN^ORCMEDT4 S VALMBCK="R" |
|
| ORCM ORDERS |
action |
|
|
D FULL^VALM1,EN^ORCMEDT3 S VALMBCK="R" |
|
| ORCM ACTIONS |
action |
|
|
D FULL^VALM1,ACTION^ORCMEDT3 S VALMBCK="R" |
|
| ORC ORES ORDER ACTIONS |
menu |
|
|
S XQORM(0)="1AD\",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",VALMBCK="",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR):'$G(OREBUILD) |
| ORCHART COVER |
action |
|
|
D:ORTAB'="COVER" TAB^ORCHART("COVER") |
|
| ORCHART PROBLEMS |
action |
|
|
D:ORTAB'="PROBLEMS" TAB^ORCHART("PROBLEMS") |
|
| ORCHART MEDS |
action |
|
|
D:ORTAB'="MEDS" TAB^ORCHART("MEDS") |
|
| ORCHART ORDERS |
action |
|
|
D:ORTAB'="ORDERS" TAB^ORCHART("ORDERS") |
|
| ORCHART NOTES |
action |
|
|
D:ORTAB'="NOTES" TAB^ORCHART("NOTES") |
|
| ORCHART CONSULTS |
action |
|
|
D:ORTAB'="CONSULTS" TAB^ORCHART("CONSULTS") |
|
| ORCHART LABS |
action |
|
|
D:ORTAB'="LABS" TAB^ORCHART("LABS") |
|
| ORCHART REPORTS |
action |
|
|
D:ORTAB'="REPORTS" TAB^ORCHART("REPORTS") |
|
| ORCHART SUMMARIES |
action |
|
|
D:ORTAB'="SUMMRIES" TAB^ORCHART("SUMMRIES") |
|
| ORC PATIENT |
action |
|
|
D NEWPAT^ORCHART |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORCHART ORDERS MENU |
menu |
|
|
|
|
| ORCHART PROBLEMS MENU |
menu |
|
|
|
|
| ORCHART XRAYS |
action |
|
|
D:ORTAB'="XRAYS" TAB^ORCHART("XRAYS") |
|
| ORC ADD ORDERS |
action |
|
|
D EN^ORCMENU S VALMBCK="R" |
S:$D(^TMP("OR",$J,ORTAB,"MENU")) XQORM("HIJACK")=^("MENU") |
| ORC CHANGE ORDERS |
action |
|
|
D EDIT^ORCACT |
D EX^ORCACT |
| ORC SIGN ORDERS |
action |
|
|
D EN^ORCSIGN |
D EX^ORCACT |
| ORC RENEW ORDERS |
action |
|
|
D RENEW^ORCACT |
D EX^ORCACT |
| ORC WARD COMMENTS |
action |
|
|
D COMMENT^ORCACT1 |
|
| ORC DETAILED DISPLAY |
action |
|
|
D EN^ORCXPND |
I $G(ORTAB)'="NEW",$D(^TMP("OR",$J,"CURRENT","MENU")) S XQORM("HIJACK")=^("MENU") |
| ORC DISPLAY ACTIONS |
menu |
|
|
|
|
| ORC ADD ORDERS MENU |
menu |
|
|
|
|
| ORC ADD ITEM |
action |
|
|
D ITEM^ORCMENU |
|
| ORCHART TABS |
menu |
|
|
S XQORM(0)="1AD\",VALMBCK="" |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC DISCONTINUE ORDERS |
action |
|
|
D DC^ORCACT2 |
D EX^ORCACT |
| ORC VERIFY ORDERS |
action |
|
|
N ORV S ORV=$S($D(^XUSEC("ORELSE",DUZ)):"N",$D(^XUSEC("OREMAS",DUZ)):"C",1:"^") D VERIFY^ORCACT1(ORV) |
D EX^ORCACT |
| ORC HOLD ORDERS |
action |
|
|
D HOLD^ORCACT |
D EX^ORCACT |
| ORC FLAG ORDERS |
action |
|
|
D FLAG^ORCACT1 |
D EX^ORCACT |
| ORC EDIT PROBLEM |
action |
|
|
D EDIT^ORCPROB |
D EX^ORCPROB |
| ORC COMMENT PROBLEM |
action |
|
|
D CMMT^ORCPROB |
D EX^ORCPROB |
| ORC INACTIVATE PROBLEM |
action |
|
|
D INACT^ORCPROB |
D EX^ORCPROB |
| ORC REMOVE PROBLEM |
action |
|
|
D REMOVE^ORCPROB |
D EX^ORCPROB |
| ORC PROBLEM ACTIONS |
menu |
|
|
S XQORM(0)="1AD",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",VALMBCK="",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR):'$G(OREBUILD) S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC SIGN NOTE |
action |
|
|
D SIGN^ORCNOTE |
|
| ORC AMEND NOTE |
action |
|
|
D AMEND^ORCNOTE |
|
| ORC EDIT NOTE |
action |
|
|
D EDIT^ORCNOTE |
|
| ORCHART XRAYS MENU |
menu |
|
|
|
|
| ORC ADD XRAY |
action |
|
|
S ORDIALOG="RA OERR EXAM" D ADD^ORCACT |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC XRAY ACTIONS |
extended action |
|
|
S ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR) S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| OCX ORDER CHECK HL7 RECIEVE |
action |
|
|
Q:$G(A7RNDBI) S:'$D(OCXDUCT) OCXDUCT="" D SILENT^OCXOHL7(.XQORMSG,.OCXDUCT) K OCXDUCT |
|
| ORC TIU ACTIONS |
menu |
|
|
S XQORM(0)="1AD\",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",VALMBCK="",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR):'$G(OREBUILD) S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC COVER ACTIONS |
extended action |
|
|
S ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR) S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC NOTIFICATIONS FOLLOW UP |
action |
|
|
W !!,"Not available yet.",! H 1 S VALMBCK="" |
|
| ORC LAB ACTIONS |
menu |
|
|
S XQORM(0)="1AD",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",VALMBCK="",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR) S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORCHANGE LRC |
action |
|
|
N X S X=$P($G(^TMP("OR",$J,"LABS",0)),U,3) S $P(X,";",3)="C",$P(^TMP("OR",$J,"LABS",0),U,3,4)=X_U |
|
| ORCHANGE LRRR |
action |
|
|
N X S X=$P($G(^TMP("OR",$J,"LABS",0)),U,3) S $P(X,";",3)="R",$P(^TMP("OR",$J,"LABS",0),U,3,4)=X_U |
|
| ORCHANGE GOTO HEADER |
action |
|
|
D LRSUB^ORCHANGE |
|
| ORCHANGE DATE RANGE |
action |
|
|
D RANGE^ORCHANGE |
|
| ORCHANGE LAB CUM |
menu |
|
|
|
|
| ORCHANGE LIST |
action |
|
|
D EN^ORCHANGE |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORCHANGE LAB LIST |
menu |
|
|
|
|
| ORCHANGE PROBLEMS |
menu |
|
|
|
|
| ORCHANGE NOTES |
menu |
|
|
|
|
| ORCHANGE ORDERS SHORT |
menu |
|
|
|
|
| ORCHANGE MEDS INPT |
menu |
|
|
|
|
| ORCHANGE XRAYS |
menu |
|
|
|
|
| ORCHANGE MAX ITEMS |
action |
|
|
D MAX^ORCHANGE |
|
| ORCHANGE DISPLAY GROUP |
action |
|
|
D DGROUP^ORCHANGE |
|
| ORCHANGE PROBLEM STATUS |
action |
|
|
D PLIST^ORCHANG2 |
|
| ORCHANGE ORDER STATUS |
action |
|
|
D ORDERS^ORCHANG2 |
|
| ORQPT CLINIC LIST |
action |
|
|
D CLINIC^ORQPT1 |
|
| ORQPT WARD LIST |
action |
|
|
D WARD^ORQPT1 |
|
| ORQPT PROVIDER LIST |
action |
|
|
D PROV^ORQPT1 |
|
| ORQPT TEAM LIST |
action |
|
|
D TEAM^ORQPT1 |
|
| ORQPT SPECIALTY LIST |
action |
|
|
D SPEC^ORQPT1 |
|
| ORQPT SORT ORDER |
action |
|
|
D SORT^ORQPT1 |
|
| ORQPT CHANGE LIST |
menu |
|
|
S VALMBCK="",ORY=$$CONTEXT^ORQPT1,XQORM(0)="1AD\" |
D:ORY'=$$CONTEXT^ORQPT1 REBUILD^ORQPT1 K ORY |
| ORQPT SAVE PREFERENCE |
action |
|
|
D SAVE^ORQPT1 |
|
| ORQPT PATIENT SELECTION |
menu |
|
|
S XQORM(0)=$TR(XQORM(0),"\") |
|
| ORQPT SELECT PATIENT |
action |
|
|
D SELECT^ORQPT |
|
| ORQPT FIND PATIENT |
action |
|
|
D FIND^ORQPT |
|
| ORC ADD PROBLEM |
action |
|
|
D ADD^ORCPROB |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC NEXT SCREEN |
extended action |
|
|
|
|
| ORC PREVIOUS SCREEN |
extended action |
|
|
|
|
| ORC UP ONE LINE |
extended action |
|
|
|
|
| ORC DOWN A LINE |
extended action |
|
|
|
|
| ORC RIGHT |
extended action |
|
|
|
|
| ORC LEFT |
extended action |
|
|
|
|
| ORC FIRST SCREEN |
extended action |
|
|
|
|
| ORC LAST SCREEN |
extended action |
|
|
|
|
| ORC GOTO PAGE |
extended action |
|
|
|
|
| ORC REFRESH |
extended action |
|
|
|
|
| ORC PRINT SCREEN |
extended action |
|
|
|
|
| ORC PRINT LIST |
extended action |
|
|
|
|
| ORC SEARCH LIST |
extended action |
|
|
|
|
| ORC TURN ON/OFF MENUS |
extended action |
|
|
|
|
| ORC HIDDEN ACTIONS |
menu |
|
|
|
|
| ORCHART COVER MENU |
menu |
|
|
|
|
| ORCHART NOTES MENU |
menu |
|
|
|
|
| ORCHART SUMMARIES MENU |
menu |
|
|
|
|
| ORCHART MEDS MENU |
menu |
|
|
|
|
| ORCHART LABS MENU |
menu |
|
|
|
|
| ORCHART REPORTS MENU |
menu |
|
|
|
|
| ORCHART CONSULTS MENU |
menu |
|
|
|
|
| ORC ADD LAB |
action |
|
|
S ORDIALOG="LR OTHER LAB TESTS" D ADD^ORCACT |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC ADD MED |
menu |
|
|
S VALMBCK="" |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC ADD CONSULT |
action |
|
|
S ORDIALOG="GMRCOR CONSULT" D ADD^ORCACT |
|
| ORC ADD PROCEDURE |
action |
|
|
S ORDIALOG="GMRCOR REQUEST" D ADD^ORCACT |
|
| ORC ADD ALLERGY |
action |
|
|
N DFN,GMRAUSER,GMRAOUT S DFN=+$G(ORVP) D:DFN>0 FULL^VALM1,EN2^GMRAPEM0 S VALMBCK="R" |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC ADD NOTE |
action |
|
|
D FULL^VALM1,MAIN^TIUEDIT(3,.OREBUILD) S VALMBCK="R" |
S OREBUILD=1 S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") I +$G(OREBUILD) D TAB^ORCHART(ORTAB,1) |
| ORC ADD SUMMARY |
action |
|
Add a new discharge summary. |
D FULL^VALM1,MAIN^TIUEDIT(244,.OREBUILD) S VALMBCK="R" |
S OREBUILD=1 S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") I +$G(OREBUILD) D TAB^ORCHART(ORTAB,1) |
| ORC CONSULT ACTIONS |
action |
|
|
D EN^ORCONSLT |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORCB NOTIFICATIONS |
menu |
|
|
|
|
| ORCB ACTIONS |
action |
|
|
D SELECT^ORCB |
|
| ORCB EXPIRING MENU |
menu |
|
|
|
|
| ORCB UNSIGNED MENU |
menu |
|
|
|
|
| ORCB FLAGGED MENU |
menu |
|
|
|
|
| ORCB NEW MENU |
menu |
|
|
|
|
| ORCHANGE MEDS OUTPT |
menu |
|
|
|
|
| ORCHANGE PSJ |
action |
|
|
N X S X=$P($G(^TMP("OR",$J,"MEDS",0)),U,3) S $P(X,";",3)=1,$P(^TMP("OR",$J,"MEDS",0),U,3,4)=X_U |
|
| ORCHANGE PSO |
action |
|
|
N X S X=$P($G(^TMP("OR",$J,"MEDS",0)),U,3) S $P(X,";",3)=0,$P(^TMP("OR",$J,"MEDS",0),U,3,4)=X_U |
|
| ORC INPT MED ACTIONS |
menu |
|
|
S XQORM(0)="1AD",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",VALMBCK="",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR) S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC TRANSFER MEDS |
action |
|
|
D XFER^ORCMED |
D EX^ORCACT |
| ORC PRINT LABELS |
action |
|
|
D LBL^ORPR01 |
|
| ORC PRINT CHART COPIES |
action |
|
|
D CHT^ORPR01 |
|
| ORC PRINT SERVICE COPIES |
action |
|
|
D SRV^ORPR01 |
|
| ORC PRINT REQUISITION |
action |
|
|
D REQ^ORPR01 |
|
| ORC PRINT ORDERS |
menu |
|
|
S XQORM(0)="AD",VALMBCK="",ORRACT=1 |
K ORRACT |
| ORS PRINT MENU |
menu |
|
|
D FULL^VALM1 S VALMBCK="R" |
D EXIT^ORPRS07 S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC UNHOLD ORDERS |
action |
|
|
D UNHOLD^ORCACT |
D EX^ORCACT |
| ORC UNFLAG ORDERS |
action |
|
|
D UNFLAG^ORCACT1 |
D EX^ORCACT |
| ORC EVENT ADMISSION |
action |
|
|
N X S X=$$SPEC^ORCMENU1("A"),VALMBCK="R" I X S OREVENT="A",OREVENT("TS")=+X |
|
| ORC EVENT DISCHARGE |
action |
|
|
S OREVENT="D",OREVENT("TS")="" |
|
| ORC EVENT TRANSFER |
action |
|
|
N X S X=$$SPEC^ORCMENU1("T"),VALMBCK="R" I X S OREVENT="T",OREVENT("TS")=+X |
|
| ORC EVENT CURRENT |
action |
|
|
S OREVENT="",OREVENT("TS")="" |
|
| ORC EVENT MENU |
menu |
|
|
S VALMBCK="",XQORM(0)="1AD\" S:$L($G(OREVENT)) XQORM("B")=$S(OREVENT="A":"Admission",OREVENT="D":"Discharge",OREVENT="T":"Transfer",1:"No Delay") |
I $G(OREVENT)'=$P(^TMP("ORMENU",$J,ORMENU,0),U,5) D INIT^ORCMENU S VALMBCK="R" |
| ORC NEW ORDERS |
action |
|
|
D EN^ORCMENU2 |
D EX^ORCMENU2 |
| OCX ORDER CHECK PATIENT MOVE. |
action |
|
|
S:'$D(OCXDUCT) OCXDUCT="" D SILENT^OCXODGPM(.OCXDUCT) |
|
| ORCB RENEW ORDER |
action |
|
|
D RENEW^ORCB |
|
| ORCB REPLACE ORDER |
action |
|
|
D EDIT^ORCB |
|
| ORC REPORT ACTIONS |
extended action |
|
|
S ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR) S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| OR GUA EVENT PROCESSOR |
action |
|
This protocol will process patient orders as appropriate based on the action, and all generic orders will be discontinued. This processing is tasked, to reduce the wait for the user. patient movement; it should be set up as an item on the DGPM MOVEMENT EVENTS protocol. If the patient has been admitted, it will release all pre-admission orders to the ancillary services for action. If the patient has been transferred, it will release all orders that were pending the transfer to this location, and DC all generic orders; if the parameter DC OF GENERIC ORDERS is set to 1, then generic orders are discontinued only if the treating specialty changes. If the patient has been discharged, then all discharge orders will be released to the ancillary services for |
D EN1^ORMEVNT |
|
| OR GUA EVENT PROCESSOR NOTASK |
action |
|
This protocol will process patient orders as appropriate based on the action, and all generic orders will be discontinued. This processing is done interactively, which may sometimes result in a wait. patient movement; it should be set up as an item on the DGPM MOVEMENT EVENTS protocol. If the patient has been admitted, it will release all pre-admission orders to the ancillary services for action. If the patient has been transferred, it will release all orders that were pending the transfer to this location, and DC all generic orders; if the parameter DC OF GENERIC ORDERS is set to 1, then generic orders are discontinued only if the treating specialty changes. If the patient has been discharged, then all discharge orders will be released to the ancillary services for |
D EN^ORMEVNT |
|
| ORC TIU MAKE ADDENDUM |
action |
|
|
D ADDENDUM^ORCNOTE |
D EX^ORCNOTE |
| ORC TIU COPY |
action |
|
Allows authorized users to duplicate the current document. This is especially useful when composing a note for a group of patients (e.g., therapy group, etc.), and rapid duplication to all members of the group is appropriate. |
D COPY^ORCNOTE |
D EX^ORCNOTE |
| ORC TIU SIGN DOCUMENTS |
action |
|
|
D ELSIG^ORCNOTE |
D EX^ORCNOTE |
| ORC TIU EDIT DOCUMENT |
action |
|
|
D EDIT^ORCNOTE |
D EX^ORCNOTE |
| ORC TIU DELETE DOCUMENT |
action |
|
|
D DELETE^ORCNOTE |
D EX^ORCNOTE |
| ORC TIU DESIGNATE SIGNERS |
action |
|
|
D SIGNERS^ORCNOTE |
D EX^ORCNOTE |
| ORC TIU PRINT DOCUMENT |
action |
|
|
D PRINT^ORCNOTE S VALMBCK="R" |
D EX^ORCNOTE |
| ORC TIU BROWSE DOCUMENT |
action |
|
|
D BROWSE^ORCNOTE |
D EX^ORCNOTE |
| ORC TIU SIGN ACTION MENU |
menu |
|
Menu of actions which may be executed by clinicians. |
S ORSIGN=0,VALMSG="+ Next Screen - Prev Screen ?? More Actions" |
K ORSIGN S:$D(DIROUT) ORQUIT=1 |
| ORC TIU SIGN ACTION PRINT |
action |
|
Allows users to print copies of selected documents on their corresponding VA Standard Forms to a specified device. |
D CLEAR^VALM1,PRINT1^TIURA S VALMBCK="R" |
|
| ORC TIU SIGN ACTION REJECT |
action |
|
|
W !,"Removed from signature list." Q |
|
| ORC TIU SIGN ACTION SEARCH |
action |
|
Allows users to search for a text string (word or partial word) from the current position in the summary through its end. Upon reaching the end of the document, the user will be asked whether to continue the search from the beginning of the document through the origin of the search. |
D FIND^VALM40 |
|
| ORC TIU SIGN ACTION APPROVE |
action |
|
Allows authorized users to approve the current document for electronic signature. |
D ACCEPT^ORCNOTE(.ORPICK,NMBR) |
|
| ORC TIU SIGN ACTION EDIT |
action |
|
Allows authorized users to edit current document online...When electronic signature is enabled, physicians will be prompted for their signatures upon exit, thereby allowing doctors to review, edit and sign as a one-step process. |
D CLEAR^VALM1,EDIT1^TIURA,BLDTMP^TIUBR(TIUDA) S VALMBCK="R" |
|
| ORC ADD IV MED |
action |
|
|
N X,OREVENT S ORDIALOG="PSJI OR PAT FLUID OE",X=$$DELAY^ORCACT Q:X="^" S OREVENT=$S(X:$$PTEVENT^OREVNT(+ORVP),1:"") Q:OREVENT="^" D NW^ORCMED |
|
| ORC RESULTS DISPLAY |
action |
|
|
D RESULTS^ORCXPND |
S VALMBCK="R" |
| ORCB NEW ORDER |
action |
|
|
D NEW^ORCB |
|
| ORC RESET MENU |
action |
|
|
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
|
| ORRP UNVERIFIED NURSE |
action |
|
Display nurse unverified orders |
S ORPRES="9;NURSE UNVERIFIED ORDERS" |
|
| ORRP UNVERIFIED CLERK |
action |
|
Display orders unverified by clerk. |
S ORPRES="10;UNVERIFIED BY CLERK" |
|
| ORRP FLAGGED |
action |
|
Display flagged orders. |
S ORPRES="12;FLAGGED ORDERS" |
|
| ORU AUTOLIST CLINIC |
action |
|
This protocol is used to automatically update OE/RR team lists with clinic autolinks. It is triggered by the protocol SC CLINIC ENROLL/DISCHARGE EVENT DRIVER and must be an item in that protocol. |
D EN^ORLP3AUC |
|
| ORC PRINT WORK COPIES |
action |
|
|
D WRK^ORPR01 |
|
| ORCHANGE LONG FORMAT |
action |
|
|
N X S X=$P($G(^TMP("OR",$J,"ORDERS",0)),U,3),$P(X,";",5)="L",$P(^(0),U,3,4)=X_U |
|
| ORCHANGE SHORT FORMAT |
action |
|
|
N X S X=$P($G(^TMP("OR",$J,"ORDERS",0)),U,3),$P(X,";",5)="S",$P(^(0),U,3,4)=X_U |
|
| ORCHANGE ORDERS LONG |
menu |
|
|
|
|
| ORC OUTPT MED ACTIONS |
menu |
|
|
S XQORM(0)="1AD",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",VALMBCK="",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR) S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC ORELSE ORDER ACTIONS |
menu |
|
|
S XQORM(0)="1AD\",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",VALMBCK="",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR):'$G(OREBUILD) |
| ORC OREMAS ORDER ACTIONS |
menu |
|
|
S XQORM(0)="1AD\",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",VALMBCK="",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR):'$G(OREBUILD) |
| ORC ORDER ACTIONS |
menu |
|
|
S XQORM(0)="1AD\",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",VALMBCK="",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR):'$G(OREBUILD) |
| ORC NEW ORDERS MENU |
menu |
|
|
|
|
| ORC NEW ACTIONS |
menu |
|
|
S VALMBCK="",XQORM(0)="1AD",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR):'$G(OREBUILD)&(VALMBCK'="Q") K ORNMBR |
| ORRP NEW SINCE |
action |
|
Display active orders for this patient |
S ORPRES="6;NEW SINCE LAST REVIEW" |
|
| ORRP ADMISSION |
action |
|
Display active orders for this patient |
S ORPRES="15;DELAYED TILL ADMISSION" |
|
| ORRP DISCHARGE |
action |
|
Display active orders for this patient |
S ORPRES="16;DELAYED TILL DISCHARGE" |
|
| ORRP TRANSFER |
action |
|
Display active orders for this patient |
S ORPRES="17;DELAYED TILL TRANSFER" |
|
| ORC COMPLETE ORDERS |
action |
|
|
D COMPLETE^ORCACT1 |
D EX^ORCACT |
| ORC ALERT RESULTS |
action |
|
|
D ALERT^ORCACT1 |
|
| ORCHANGE NOTES SIGNED |
action |
|
|
N CTXT S CTXT=$P($G(^TMP("OR",$J,ORTAB,0)),U,3),$P(CTXT,";",1,5)=";;1;;",$P(^TMP("OR",$J,ORTAB,0),U,3,4)=CTXT_U |
|
| ORCHANGE NOTES UNSIGNED |
action |
|
|
N CTXT S CTXT=$P($G(^TMP("OR",$J,ORTAB,0)),U,3),$P(CTXT,";",1,5)=";;2;;",$P(^TMP("OR",$J,ORTAB,0),U,3,4)=CTXT_U |
|
| ORCHANGE NOTES UNCOSIGNED |
action |
|
|
N CTXT S CTXT=$P($G(^TMP("OR",$J,ORTAB,0)),U,3),$P(CTXT,";",1,5)=";;3;;",$P(^TMP("OR",$J,ORTAB,0),U,3,4)=CTXT_U |
|
| ORCHANGE NOTES AUTHOR |
action |
|
|
N X,CTXT S CTXT=$P($G(^TMP("OR",$J,ORTAB,0)),U,3),X=$P(CTXT,";",4),X=$$AUTHOR^ORCHANGE(X) S:X $P(CTXT,";",1,5)=";;4;"_X_";",$P(^TMP("OR",$J,ORTAB,0),U,3,4)=CTXT_U |
|
| ORCHANGE NOTES DATES |
action |
|
|
N OK,CTXT S OK=1 D RANGE^ORCHANGE S:OK CTXT=$P($G(^TMP("OR",$J,ORTAB,0)),U,3),$P(CTXT,";",3,5)="5;;",$P(^TMP("OR",$J,ORTAB,0),U,3,4)=CTXT_U |
|
| ORCM ASSIGN MENU |
action |
|
|
D ASSIGN^ORCMEDT5 |
|
| ORC CWAD DISPLAY |
extended action |
|
|
|
|
| ORC PATIENT INQUIRY |
action |
|
Patient profile for use as a hidden action within CPRS. |
N ORTAB S ORNMBR=1,ORTAB="PTINQ" D EN^VALM("OR DETAILED DISPLAY") |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC DELAY ACTIONS |
menu |
|
|
S VALMBCK="",XQORM(0)="1AD\",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
D DESELECT^ORCHART(ORNMBR):'$G(OREBUILD) K ORNMBR,OREBUILD |
| ORC DELAY ORDERS MENU |
menu |
|
|
|
|
| ORC REWRITE ORDERS |
action |
|
|
D REWRITE^ORCACT |
D EX^ORCACT |
| ORCHANGE REPORTS |
menu |
|
|
|
|
| ORC CONSULT USER MENU |
menu |
|
|
|
|
| ORC PRINT CONSULT |
action |
|
|
D EN1^ORCONSLT("PRNT") |
|
| ORC CONSULT SERVICE MENU |
menu |
|
|
|
|
| ORC RECEIVE CONSULT |
action |
|
|
D EN1^ORCONSLT("REC") |
|
| ORC DISCONTINUE CONSULT |
action |
|
|
D EN1^ORCONSLT("DC") |
|
| ORC DENY CONSULT |
action |
|
|
D EN1^ORCONSLT("DENY") |
|
| ORC REROUTE CONSULT |
action |
|
|
D EN1^ORCONSLT("RR") |
|
| ORC COMPLETE CONSULT |
action |
|
|
D EN1^ORCONSLT("COMP") |
|
| ORC FORWARD CONSULT |
action |
|
|
D EN1^ORCONSLT("FWD") |
|
| ORC COMMENT CONSULT |
action |
|
|
D EN1^ORCONSLT("CMMT") |
|
| ORCHANGE CONSULTS |
menu |
|
|
|
|
| ORCHANGE CONSULTS SERVICE |
action |
|
|
D CS^ORCHANGE |
|
| ORCHANGE STATUS |
action |
|
|
D STS^ORCHANG2 |
|
| ORC NEW SIGN ALL |
action |
|
|
D SIGNALL^ORCMENU2 |
|
| ORC EXIT |
action |
|
|
S VALMBCK="Q",OREXIT=1 |
|
| ORC CONSULT MAKE ADDENDUM |
action |
|
|
D EN1^ORCONSLT("ADDEND") |
|
| ORC CLOSE CHART |
action |
|
|
S VALMBCK="Q" |
|
| ORC ADD GMRC |
menu |
|
|
S (XQORM("?"),XQORM("??"))="D NWHELP^ORCDGMRC",VALMBCK="" |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC ADD INPT MED |
action |
|
|
N X,OREVENT S ORDIALOG="PSJ OR PAT OE",X=$$DELAY^ORCACT Q:X="^" S OREVENT=$S(X:$$PTEVENT^OREVNT(+ORVP),1:"") Q:OREVENT="^" D NW^ORCMED |
|
| ORC ADD OUTPT MED |
action |
|
|
N X,OREVENT S ORDIALOG="PSO OERR",X=$S($G(ORWARD):$$DELAY^ORCACT,1:"") Q:X="^" S OREVENT=$S(X:$$PTEVENT^OREVNT(+ORVP),1:"") Q:OREVENT="^" D NW^ORCMED |
|
| ORCHANGE SAVE VIEW |
action |
|
|
D SAVE^ORCHANGE |
|
| ORC ADD ALL ITEMS |
action |
|
|
D ALL^ORCMENU |
|
| ORC VERIFY PROBLEM |
action |
|
|
D VERIFY^ORCPROB |
D EX^ORCPROB |
| ORC REFILL MEDS |
action |
|
|
D REFILLS^ORCMED |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORCHANGE REMOVE VIEW |
action |
|
|
D REMOVE^ORCHANGE |
|
| ORC NEW LOCATION |
action |
|
|
D CHANGE^ORCMENU1 |
D EX^ORCMENU2 |
| ORCB DELETE ALERT |
action |
|
|
D DELETE^ORCB |
|
| ORC VERIFY CHART REVIEW |
action |
|
|
D VERIFY^ORCACT1("R") |
D EX^ORCACT |
| ORC VERIFY MENU |
menu |
|
|
W ! S VALMBCK="" |
|
| ORCHANGE PROBLEM COMMENTS |
action |
|
|
N CTXT,X S CTXT=$P($G(^TMP("OR",$J,ORTAB,0)),U,3),X=$P(CTXT,";",4),$P(CTXT,";",4)='X,$P(^TMP("OR",$J,ORTAB,0),U,3,4)=CTXT_U |
|
| ORC SIGNIFICANT FINDINGS |
action |
|
|
D EN1^ORCONSLT("SIGF") |
|
| ORCM DISABLE |
action |
|
|
D FULL^VALM1,DISABLE^ORCMEDT5 S VALMBCK="R" |
|
| ORU REVIEW DELAYED ORDERS |
action |
|
This option may be used to review delayed orders at the time a patient is being admitted, discharged, or transferred. |
D:$G(DFN) EN1^ORCACT3(DFN) |
|
| ORCHANGE NOTES SUBJECT |
action |
|
|
N CTXT,X S CTXT=$P($G(^TMP("OR",$J,ORTAB,0)),U,3),X=$P(CTXT,";",6),$P(CTXT,";",6)='X,$P(^TMP("OR",$J,ORTAB,0),U,3,4)=CTXT_U |
|
| ORC SIGN ALL ORDERS |
extended action |
|
|
|
|
| ORC SELECT ALL |
action |
|
|
D ALL^ORCB ;sets ORNMBR |
|
| ORC VERIFY ALL ORDERS |
extended action |
|
|
|
|
| ORS PROBLEM LIST |
action |
|
This protocol allows printing a chartable copy of the current patient's current Problem List. |
D VAF^GMPLUTL2(+ORVP) |
|
| ORC SCHEDULE CONSULT |
action |
|
|
D EN1^ORCONSLT("SCHED") |
|
| ORC REM MED RESULTS |
action |
|
|
D EN1^ORCONSLT("REMRSLT") |
|
| ORQPT REMOVE PREFERENCE |
action |
|
|
D REMOVE^ORQPT1 |
|
| ORQPT COMBINATION LIST |
action |
|
|
D COMBO^ORQPT1 |
|
| OR PATIENT ALERTS |
menu |
|
Display a patient's CPRS alerts and allow detailed display of alert recipients. |
|
|
| OR SELECT ALERTS |
action |
|
|
D SELECT^ORB3U1 |
|
| ORC CONSULT EDIT/RESUBMIT |
action |
|
|
D EN1^ORCONSLT("EDITRES") |
|
| OREV ENTER/EDIT AUTO DC MENU |
menu |
|
|
D LIST^OREV,CHKSEL^OREV |
|
| OREV ENTER/EDIT ENTRIES |
action |
|
|
D EEE^OREV |
D DESELECT^OREV K ^TMP("OREDO",$J) |
| OREV MAIN DETAILED DISPLAY |
action |
|
|
D EN^VALM("OREV DETAILED DISPLAY") |
D DESELECT^OREV |
| OREV SWITCH |
action |
|
|
D ACT^OREV1 |
D DESELECT^OREV |
| OREV EDIT WRITE ORDERS PARAM |
action |
|
|
D FULL^VALM1 D EDITPAR^XPAREDIT("ORWDX WRITE ORDERS EVENT LIST") |
S VALMBCK="R" D DESELECT^OREV |
| OREV DETAILED MENU |
menu |
|
|
|
|
| OREV SWITCH IN DETAIL |
action |
|
|
D ACT^OREV1 |
D DET^OREV2 |
| OREV ENTER/EDIT ENTRIES IN DETAIL |
action |
|
|
D EEE^OREV |
D DET^OREV2 |
| OREV ENTER/EDIT EVENTS MENU |
menu |
|
|
D LIST^OREV,CHKSEL^OREV |
|
| OREV EDIT EVENT DELAY PARAMS |
action |
|
|
D PARAM^OREV3 |
D DESELECT^OREV |
| ORC DELAYED ORDERS |
action |
|
|
D EN^OREVNT |
S:$D(^TMP("OR",$J,"CURRENT","MENU")) XQORM("HIJACK")=^("MENU") |
| ORC DELAY EVENT |
action |
|
|
D ED^OREVNT |
D EX^ORCACT |
| ORC DELAYED ORDER ACTIONS |
menu |
|
|
Q:$$DONE^OREVNT1 S XQORM(0)="1AD\",(XQORM("?"),XQORM("??"))="D ITEMHELP^ORCHART",VALMBCK="",ORNMBR=$P(XQORNOD(0),"=",2) D SELECT^ORCHART(ORNMBR) |
I '$G(OREBUILD),$G(ORNMBR) D DESELECT^ORCHART(ORNMBR) |
| ORCHANGE EVENT |
action |
|
|
D EVT^ORCHANG3 |
|
| ORC RELEASE ORDERS |
action |
|
|
D EN^OREVNT1 |
D EX^ORCACT |
| OREV INCLUDE HISTORIES |
action |
|
|
D INCHIST^OREV2 |
S VALMBG=1 D DET^OREV2 |
| OREV CHANGE DISPLAY |
action |
|
|
D CD^OREV2 |
D HDR^OREV |
| OREV ADD CHILD |
action |
|
|
D ACE^OREV3 |
D DESELECT^OREV K ^TMP("OREDO",$J) |
| ORCM GMRC CSV EVENT |
action |
|
This protocol will be invoked by the ICD event protocol upon installation of a new code set version. The protocol will be responsible for generating a mail message to a mail group containing any consult or procedure quick orders that have provisional diagnoses with inactive IDC9 codes or codes that will be inactivated in the future. |
D CSVPEP^ORCMGMCK |
|
| OR EVSEND VPR |
extended action |
|
|
|
|
| OR EVSEND SD |
extended action |
|
This protocol is used to send return to clinic appointment requests to Scheduling. |
|
|
| ORNOT LISTMAN 1 MAIN MENU |
menu |
|
|
|
D EXIT^ORPARMGR |
| ORNOT LISTMAN EDIT ENTITIES |
action |
|
|
D ADDREM^ORPARMGR |
S VALMBCK="R" |
| ORNOT DEFAULT SELECTIONS |
action |
|
|
D SELECT^ORPARMGR("ASK") |
S VALMBCK="R" |
| ORNOT LISTMAN 1 ENTITY MENU |
menu |
|
|
|
D EXIT^ORPARMG1 |
| ORNOT DEFAULT ENTITY SELECTIONS |
action |
|
|
D SELECT^ORPARMG1("ASK") |
S VALMBCK="R" |
| ORNOT LISTMAN ENTITY ADD |
action |
|
|
D ADD^ORPARMG1 |
S VALMBCK="R" |
| ORNOT LISTMAN ENTITY REMOVE |
action |
|
|
D SELECT^ORPARMG1("REMOVE") |
S VALMBCK="R" |
| ORNOT LISTMAN ENTITY VIEW |
action |
|
|
D SELECT^ORPARMG1("VIEW") |
S VALMBCK="R" |
| ORNOT LISTMAN EDIT VALUE |
action |
|
|
D SELECT^ORPARMGR("ASK") |
S VALMBCK="R" |
| ORNOT LISTMAN INSTANCE VIEW |
action |
|
|
D SELECT^ORPARMGR("VIEWP") |
S VALMBCK="R" |
| ORNOT LISTMAN INSTANCE ALL |
action |
|
|
D SELECT^ORPARMGR("VIEWA") |
S VALMBCK="R" |
| ORNOT LISTMAN QUIT |
action |
|
|
Q |
|
| ORNOT LISTMAN ENTITY REMOVE ALL |
action |
|
|
D SELECT^ORPARMG1("REMALL") |
S VALMBCK="R" |
| ORNOT LISTMAN BLANK |
action |
|
|
|
Q |
| OR COMPLETE ORDER |
extended action |
|
The purpose of this protocol is to create a way for packages (including COTS or Class 3) to receive notifications when an order is set to a complete status in CPRS. The array ORINFO will be passed to the protocol. |
|
|
| ORCHK SRCHPARAM OCCURRENCE ACCEPTED_CANCELLED |
action |
|
|
|
|
| ORCHK SRCHPARAM OCCURRENCE RTCLICK_CANCELLED |
action |
|
|
|
|
| ORCHK SRCHPARAM OCCURRENCE CANCELLED |
action |
|
|
|
|
| ORCHK SRCHPARAM LOCATION |
action |
|
|
|
|
| ORCHK SRCHPARAM PATIENT |
action |
|
|
|
|
| ORCHK SRCHPARAM USER |
action |
|
|
|
|
| ORCHK SRCHPARAM ORDERABLE ITEM |
action |
|
|
|
|
| ORCHK SRCHPARAM CLIN DANGER LEVEL |
action |
|
|
|
|
| ORCHK SRCHPARAM ORDER CHECK |
action |
|
|
|
|
| ORCHK SRCHPARAM CLIN DANGER LEVEL HIGH |
action |
|
|
|
|
| ORCHK SRCHPARAM CLIN DANGER LEVEL MEDIUM |
action |
|
|
|
|
| ORCHK SRCHPARAM CLIN DANGER LEVEL LOW |
action |
|
|
|
|
| ORCHK SRCHPARAM OCCURRENCE |
action |
|
|
|
|
| ORCHK SRCHPARAM 1 MAIN MENU |
menu |
|
|
|
|
| ORCHK SRCHPARAM 2 OCCURRENCE MENU |
menu |
|
|
|
|
| ORCHK LISTMAN 1 MAIN MENU |
menu |
|
|
|
D EXIT^OROCLM |
| ORCHK LISTMAN SELECT ENTRY |
action |
|
|
D SELECT^OROCLM("ASK") |
S VALMBCK="R" |
| ORCHK LISTMAN VIEW ORDER |
action |
|
|
D SELECT^OROCLM("VIEW") |
S VALMBCK="R" |
| ORCHK LISTMAN CHANGE SEARCH |
action |
|
|
D SELECT^OROCLM("CHANGE") |
S VALMBCK="R" |
| ORLPREM ADD ENTRY |
action |
|
|
D ADDENT^ORLPREML |
S VALMBCK="R" |
| ORLPREM MGMT MENU |
menu |
|
|
|
|
| ORLPREM EDIT ENTRY |
action |
|
|
D EDITENT^ORLPREML |
S VALMBCK="R" |
| ORLPREM RUN NOW |
action |
|
|
D RUNNOW^ORLPREML |
S VALMBCK="R" |
| ORLPREM REFRESH |
action |
|
|
D REFRESH^ORLPREML |
S VALMBCK="R" |
| ORLPREM DEL ENTRY |
action |
|
|
D DELENT^ORLPREML |
S VALMBCK="R" |
| OR ACT ON DOCUMENT ACTION |
action |
|
This protocol will process actions taken on a TIU document. |
D DOCACT^ORPDMPNT |
|
