| 1 | GMRCS ;SLC/DLT - Review consults by Patient and Service ;5/20/98 14:20
|
|---|
| 2 | ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
|
|---|
| 3 | SELCT ;Select a Consult Type from the protocol file
|
|---|
| 4 | S DIC=101,DIC(0)="AEMQZ",DIC("A")="Select Consult Type: ",DIC("B")="GMRCT TPN" D ^DIC K DIC Q:Y<0 S GMRCCT=+7
|
|---|
| 5 | Q
|
|---|
| 6 | SELPT K DIC S DIC=2,DIC("A")="Select Patient: ",DIC(0)="AEQM" D ^DIC K DIC S DFN=+Y
|
|---|
| 7 | I X="^"!(Y=-1) S GMRCQUT=1 K DFN Q
|
|---|
| 8 | D DEM^GMRCU
|
|---|
| 9 | Q
|
|---|
| 10 | SELPR ;Get Procedure
|
|---|
| 11 | K GMRCPRNM,GMRCQUT
|
|---|
| 12 | S Y=$O(^ORD(101,"B","GMRCRM MEDICINE REQUEST TYPES",0)) Q:Y=""
|
|---|
| 13 | S XQORM=+Y_";ORD(101,",XQORM(0)="1A\",XQORM("A")="Select Procedure: ",XQORM("NO^^")=""
|
|---|
| 14 | D EN^XQORM K XQORM I Y<0 S GMRCQUT=1 K GMRCPR,GMRCPRNM,GMRCCT Q
|
|---|
| 15 | S GMRCPR=$P(Y(1),"^",2)
|
|---|
| 16 | Q
|
|---|
| 17 | EXIT ;Exit action logic
|
|---|
| 18 | K GMRCA,GMRCACT,GMRCACTM,GMRCAGE,GMRCCT,GMRCCTX,GMRCDG,GMRCDGT,GMRCDOB,GMRCDTM,GMRCGRP,GMRCH,GMRCHDR,GMRCIFN,GMRCLFG,GMRCNM,GMRCNPG,GMRCPG,GMRCPNM,GMRCPR,GMRCRB,GMRCRPG
|
|---|
| 19 | K GMRCSN,GMRCSS,GMRCSSNM,GMRCTC,GMRCTITL,GMRCTM,GMRCTYPE,GMRCVP,GMRCWARD,SEX,VAROOT,W
|
|---|
| 20 | K DFN,HEAD,GMRCEND,GMRCORNP,GMRCORVP,GETPROV,GMRCDEV,GMRCDIC,GMRCPLI,GMRCPRI,GMRCURGI,GMRCGL,GMRCSR,GMRCSRDT,GMRCSRS,GMRCORVP,LASTA,MCBRANCH,MCC,MCK,MCPROC
|
|---|
| 21 | K O,ORGY,ORL,ORNP,ORNS,OREND,ORIOSL,ORPK,ORTKG,ORTO,ORTX,ORSTS,ORACTION,ORANSI,ORATTEND,ORI,ORSSN,ORTIT,ORTS,ORINDX,Z,ZTDESC
|
|---|
| 22 | Q
|
|---|
