Routine: GMRC101

GMRC101 ;SLC/DLT - Create Protocol entries for OE/RR ADD orders screens ;5/20/98  14:20

 ;;3.0;CONSULT/REQUEST TRACKING;**1,5**;DEC 27, 1997

EN ;Entry to build Consult types for Add menus

 W !,"There are 2 types of Protocols used by the Consult Package on 'Add Orders'",!,"menus in OE/RR."

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"

 D ^DIR K DIR S GMRCEND=$S($D(DTOUT):1,$D(DUOUT):1,$D(DIROUT):1,1:0) I GMRCEND G END

 I Y=1 D CONSULT G:GMRCEND=2 EN1 D END Q

 I Y=2 D PROCDURE G:GMRCEND=2 EN1 D END Q

CONSULT ;entry to create a Consult Type

 S GMRCPFX="GMRCT ",GMRCDESC="Consult Type",GMRCDEFN="GMRCT SAMPLE CONSULT TYPE"

 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.",!

 D SETDEF I GMRCEND Q

 D EN^GMRC101C

PROCDURE ;entry to create a Procedure Request

 S GMRCPFX="GMRCR ",GMRCDESC="Procedure Request",GMRCDEFN="GMRCR SAMPLE PROCEDURE"

 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.",!

 D SETDEF I GMRCEND Q

 D EN^GMRC101C

SETDEF ;Set GMRCDEF once to hold for filling in ORDEF for protocol processing.

 S GMRCDEF=$O(^ORD(101,"B",GMRCDEFN,"")) I 'GMRCDEF W !!,"Missing Sample Protocol "_GMRCDEFN,! S GMRCEND=1 Q

END K GMRCACT,GMRCEND,GMRCDEFN,GMRCDEF,GMRCDESC,GMRCPFX,GMRCPRF

 K ORPKG,DIROUT,DUOUT,DTOUT,Y

HELP ;?? help for DIR to define types of consults

 W @IOF

 W !,"Protocols defined in this option and Added to Add New Order menus, will have"

 W !,"orders created in OE/RR based on the protocols definition."

 W !,"(e.g. Item Text: TPN, and Related Consult Service/Specialty: Pharmacy Service"

 W !,"  creates a ""Pharmacy Service TPN"" order in OE/RR if the TPN protocol is"

 W !,"  selected from the Add New Orders menu in OE/RR"

 W !!,"CONSULT TYPES are names of consults which are very common, such as: "

 W !,"     ""TPN"" Consult for Hyperalimentation Pharmacy consult"

 W !,"     ""Physical Therapy"" Consult for RMS"

 W !,"  Once the commonly known consults are defined here, they may also be added"

 W !,"  to OE/RR Add New Orders menus for ease of ordering."

 W !,"  Consult Type protocols are always prefixed with ""GMRCT """

 W !!,"PROCEDURE REQUESTS are names of procedures, tests, or other requests"

 W !,"  which are very common, such as: "

 W !,"    ""EKG: Portable"""

 W !,"  Once the commonly known procedures which may be ordered without a consult"

 W !,"  are defined here, they may also be added to OE/RR Add New Orders menus for"

 W !,"  ease of ordering."

 W !,"  Procedure Request protocols are always prefixed with ""GMRCR """

 W !! R "Press RETURN to continue: ",X:$S($D(DTIME):DTIME,1:300)

 I $D(DTOUT)!$D(DUOUT)!$D(DIROUT) D END S GMRCEND=1 Q

GMRC101   ;SLC/DLT - Create Protocol entries for OE/RR ADD orders screens ;5/20/98  14:20

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**1,5**;DEC 27, 1997

EN        ;Entry to build Consult types for Add menus

 +1        WRITE !,"There are 2 types of Protocols used by the Consult Package on 'Add Orders'",!,"menus in OE/RR."

EN1        KILL DIR,DA

           SET GMRCEND=0

           SET DIR(0)="SO^1:CONSULT TYPE;2:PROCEDURE REQUEST"

           SET DIR("A")="Select Protocol Type"

           SET DIR("??")="^D HELP^GMRC101"

 +1        DO ^DIR

           KILL DIR

           SET GMRCEND=$SELECT($DATA(DTOUT):1,$DATA(DUOUT):1,$DATA(DIROUT):1,1:0)

           IF GMRCEND

               GOTO END

 +2        IF Y=1

               DO CONSULT

               IF GMRCEND=2

                   GOTO EN1

               DO END

               QUIT

 +3        IF Y=2

               DO PROCDURE

               IF GMRCEND=2

                   GOTO EN1

               DO END

               QUIT

 +4        QUIT

CONSULT   ;entry to create a Consult Type

 +1        SET GMRCPFX="GMRCT "

           SET GMRCDESC="Consult Type"

           SET GMRCDEFN="GMRCT SAMPLE CONSULT TYPE"

 +2        WRITE !!,"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.",!

 +3        DO SETDEF

           IF GMRCEND

               QUIT

 +4        DO EN^GMRC101C

 +5        QUIT

PROCDURE  ;entry to create a Procedure Request

 +1        SET GMRCPFX="GMRCR "

           SET GMRCDESC="Procedure Request"

           SET GMRCDEFN="GMRCR SAMPLE PROCEDURE"

 +2        WRITE !!,"NOTE: All Procedure/Requests in the Protocol file are prefixed with ""GMRCR "".",!,"For A Fast Look-up Of Procedures, Type 'GMRCR' At The Prompt.",!

 +3        DO SETDEF

           IF GMRCEND

               QUIT

 +4        DO EN^GMRC101C

 +5        QUIT

SETDEF    ;Set GMRCDEF once to hold for filling in ORDEF for protocol processing.

 +1        SET GMRCDEF=$ORDER(^ORD(101,"B",GMRCDEFN,""))

           IF 'GMRCDEF

               WRITE !!,"Missing Sample Protocol "_GMRCDEFN,!

               SET GMRCEND=1

               QUIT

 +2        QUIT

END        KILL GMRCACT,GMRCEND,GMRCDEFN,GMRCDEF,GMRCDESC,GMRCPFX,GMRCPRF

 +1        KILL ORPKG,DIROUT,DUOUT,DTOUT,Y

 +2        QUIT

HELP      ;?? help for DIR to define types of consults

 +1        WRITE @IOF

 +2        WRITE !,"Protocols defined in this option and Added to Add New Order menus, will have"

 +3        WRITE !,"orders created in OE/RR based on the protocols definition."

 +4        WRITE !,"(e.g. Item Text: TPN, and Related Consult Service/Specialty: Pharmacy Service"

 +5        WRITE !,"  creates a ""Pharmacy Service TPN"" order in OE/RR if the TPN protocol is"

 +6        WRITE !,"  selected from the Add New Orders menu in OE/RR"

 +7        WRITE !!,"CONSULT TYPES are names of consults which are very common, such as: "

 +8        WRITE !,"     ""TPN"" Consult for Hyperalimentation Pharmacy consult"

 +9        WRITE !,"     ""Physical Therapy"" Consult for RMS"

 +10       WRITE !,"  Once the commonly known consults are defined here, they may also be added"

 +11       WRITE !,"  to OE/RR Add New Orders menus for ease of ordering."

 +12       WRITE !,"  Consult Type protocols are always prefixed with ""GMRCT """

 +13       WRITE !!,"PROCEDURE REQUESTS are names of procedures, tests, or other requests"

 +14       WRITE !,"  which are very common, such as: "

 +15       WRITE !,"    ""EKG: Portable"""

 +16       WRITE !,"  Once the commonly known procedures which may be ordered without a consult"

 +17       WRITE !,"  are defined here, they may also be added to OE/RR Add New Orders menus for"

 +18       WRITE !,"  ease of ordering."

 +19       WRITE !,"  Procedure Request protocols are always prefixed with ""GMRCR """

 +20       WRITE !!

           READ "Press RETURN to continue: ",X:$SELECT($DATA(DTIME):DTIME,1:300)

 +21       IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)

               DO END

               SET GMRCEND=1

               QUIT

GMRC101.m