| 1 | GMRC101 ;SLC/DLT - Create Protocol entries for OE/RR ADD orders screens ;5/20/98 14:20
|
|---|
| 2 | ;;3.0;CONSULT/REQUEST TRACKING;**1,5**;DEC 27, 1997
|
|---|
| 3 | EN ;Entry to build Consult types for Add menus
|
|---|
| 4 | W !,"There are 2 types of Protocols used by the Consult Package on 'Add Orders'",!,"menus in OE/RR."
|
|---|
| 5 | EN1 K DIR,DA S GMRCEND=0,DIR(0)="SO^1:CONSULT TYPE;2:PROCEDURE REQUEST",DIR("A")="Select Protocol Type",DIR("??")="^D HELP^GMRC101"
|
|---|
| 6 | D ^DIR K DIR S GMRCEND=$S($D(DTOUT):1,$D(DUOUT):1,$D(DIROUT):1,1:0) I GMRCEND G END
|
|---|
| 7 | I Y=1 D CONSULT G:GMRCEND=2 EN1 D END Q
|
|---|
| 8 | I Y=2 D PROCDURE G:GMRCEND=2 EN1 D END Q
|
|---|
| 9 | Q
|
|---|
| 10 | CONSULT ;entry to create a Consult Type
|
|---|
| 11 | S GMRCPFX="GMRCT ",GMRCDESC="Consult Type",GMRCDEFN="GMRCT SAMPLE CONSULT TYPE"
|
|---|
| 12 | W !!,"NOTE: All Consult Types in the Protocol file are prefixed with ""GMRCT "".",!,"For A Fast Lookup Of Consult Type Protocols, Type ""GMRCT"" At The Prompt.",!
|
|---|
| 13 | D SETDEF I GMRCEND Q
|
|---|
| 14 | D EN^GMRC101C
|
|---|
| 15 | Q
|
|---|
| 16 | PROCDURE ;entry to create a Procedure Request
|
|---|
| 17 | S GMRCPFX="GMRCR ",GMRCDESC="Procedure Request",GMRCDEFN="GMRCR SAMPLE PROCEDURE"
|
|---|
| 18 | W !!,"NOTE: All Procedure/Requests in the Protocol file are prefixed with ""GMRCR "".",!,"For A Fast Look-up Of Procedures, Type 'GMRCR' At The Prompt.",!
|
|---|
| 19 | D SETDEF I GMRCEND Q
|
|---|
| 20 | D EN^GMRC101C
|
|---|
| 21 | Q
|
|---|
| 22 | SETDEF ;Set GMRCDEF once to hold for filling in ORDEF for protocol processing.
|
|---|
| 23 | S GMRCDEF=$O(^ORD(101,"B",GMRCDEFN,"")) I 'GMRCDEF W !!,"Missing Sample Protocol "_GMRCDEFN,! S GMRCEND=1 Q
|
|---|
| 24 | Q
|
|---|
| 25 | END K GMRCACT,GMRCEND,GMRCDEFN,GMRCDEF,GMRCDESC,GMRCPFX,GMRCPRF
|
|---|
| 26 | K ORPKG,DIROUT,DUOUT,DTOUT,Y
|
|---|
| 27 | Q
|
|---|
| 28 | HELP ;?? help for DIR to define types of consults
|
|---|
| 29 | W @IOF
|
|---|
| 30 | W !,"Protocols defined in this option and Added to Add New Order menus, will have"
|
|---|
| 31 | W !,"orders created in OE/RR based on the protocols definition."
|
|---|
| 32 | W !,"(e.g. Item Text: TPN, and Related Consult Service/Specialty: Pharmacy Service"
|
|---|
| 33 | W !," creates a ""Pharmacy Service TPN"" order in OE/RR if the TPN protocol is"
|
|---|
| 34 | W !," selected from the Add New Orders menu in OE/RR"
|
|---|
| 35 | W !!,"CONSULT TYPES are names of consults which are very common, such as: "
|
|---|
| 36 | W !," ""TPN"" Consult for Hyperalimentation Pharmacy consult"
|
|---|
| 37 | W !," ""Physical Therapy"" Consult for RMS"
|
|---|
| 38 | W !," Once the commonly known consults are defined here, they may also be added"
|
|---|
| 39 | W !," to OE/RR Add New Orders menus for ease of ordering."
|
|---|
| 40 | W !," Consult Type protocols are always prefixed with ""GMRCT """
|
|---|
| 41 | W !!,"PROCEDURE REQUESTS are names of procedures, tests, or other requests"
|
|---|
| 42 | W !," which are very common, such as: "
|
|---|
| 43 | W !," ""EKG: Portable"""
|
|---|
| 44 | W !," Once the commonly known procedures which may be ordered without a consult"
|
|---|
| 45 | W !," are defined here, they may also be added to OE/RR Add New Orders menus for"
|
|---|
| 46 | W !," ease of ordering."
|
|---|
| 47 | W !," Procedure Request protocols are always prefixed with ""GMRCR """
|
|---|
| 48 | W !! R "Press RETURN to continue: ",X:$S($D(DTIME):DTIME,1:300)
|
|---|
| 49 | I $D(DTOUT)!$D(DUOUT)!$D(DIROUT) D END S GMRCEND=1 Q
|
|---|
