| 1 | GMRCSLDT ;SLC/DCM - Get a consults detailed tracking history formated for List Manager ;9/8/98 03:29
|
|---|
| 2 | ;;3.0;CONSULT/REQUEST TRACKING;**1,4,15**;DEC 27, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | HDR ;Header code for detailed display.(also used for results display)
|
|---|
| 5 | I '$D(DFN) N DFN D Q:'$D(DFN)
|
|---|
| 6 | . I $D(ORVP) S DFN=+ORVP
|
|---|
| 7 | D HDR1^GMRCSLM
|
|---|
| 8 | I '$D(GMRCVTIT) S GMRCX="Consult No.: "_GMRCO D HDR2^GMRCSLM(GMRCX)
|
|---|
| 9 | D TITLE
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | EN ;Select a consult for detailed display of information.
|
|---|
| 13 | K GMRCQUT,GMRCQIT,GMRCSEL
|
|---|
| 14 | I '+$G(GMRCO) D SELECT^GMRCA2(.GMRCO) I $D(GMRCQUT) Q
|
|---|
| 15 | I '+$G(GMRCO) S GMRCQUT=1 Q
|
|---|
| 16 | ;
|
|---|
| 17 | S GMRCND=GMRCO
|
|---|
| 18 | ;S GMRCDT=$O(^TMP("GMRCR",$J,"CS","AD",GMRCNO,0))
|
|---|
| 19 | ;S GMRCND=$O(^TMP("GMRCR",$J,"CS","AD",GMRCNO,GMRCDT,0))
|
|---|
| 20 | W !!,"Compiling Detailed Display..."
|
|---|
| 21 | D LMFMT(GMRCND)
|
|---|
| 22 | D EN^VALM("GMRC DETAILED DISPLAY")
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | TITLE ;override title if medicine resulting
|
|---|
| 26 | I $D(GMRCVTIT) S VALM("TITLE")=GMRCVTIT
|
|---|
| 27 | Q
|
|---|
| 28 | LMFMT(GMRCND) ;Build the ^TMP("GMRCR",$J,"DT", global and format the header variables and set the data into List Manager for display of detailed data.
|
|---|
| 29 | N DFN,GMRCAGE,GMRCDOB,GMRCPNM,GMRCSSN,GMRCSS,GMRCSSN,VALMHDR
|
|---|
| 30 | S:'$D(TAB) TAB="",$P(TAB," ",30)=""
|
|---|
| 31 | S DFN=$P(^GMR(123,GMRCND,0),"^",2) D DEM^GMRCU
|
|---|
| 32 | S GMRCSS=$P(^GMR(123,GMRCND,0),"^",5) S GMRCSSN=$S(GMRCSS]"":$P($G(^GMR(123.5,GMRCSS,0)),"^",1),1:"Unknown Location")
|
|---|
| 33 | D DT^GMRCSLM2(+GMRCND)
|
|---|
| 34 | I $D(GMRCQUT) Q
|
|---|
| 35 | K ^TMP("GMRCR",$J,"DTLIST") S DSPLINE=0,VALMAR="^TMP(""GMRCR"",$J,""DTLIST"")"
|
|---|
| 36 | F LINE=1:1:GMRCCT S DSPLINE=$O(^TMP("GMRCR",$J,"DT",DSPLINE)) Q:DSPLINE=""!(DSPLINE?1A.E) S DATA=^(DSPLINE,0) D SET^VALM10(LINE,DATA)
|
|---|
| 37 | S VALMCNT=LINE-1,XQORM("A")="Select Action: "
|
|---|
| 38 | K DSPLINE,LINE,DATA
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | PHDR ; -- protocol header code called from the display action protocol menus
|
|---|
| 42 | ;S VALMSG=$$MSG
|
|---|
| 43 | D SHOW^VALM
|
|---|
| 44 | S XQORM("#")=$O(^ORD(101,"B","GMRC SELECT ITEM",0))_"^1:"_VALMCNT
|
|---|
| 45 | S XQORM("A")="Select Action: "
|
|---|
| 46 | S XQORM("KEY","EX")=$O(^ORD(101,"B","GMRCACT QUIT",0))_"^1"
|
|---|
| 47 | S XQORM("KEY","Q")=$O(^ORD(101,"B","GMRCACT QUIT",0))_"^1"
|
|---|
| 48 | S XQORM("KEY","CLOSE")=$O(^ORD(101,"B","GMRCACT QUIT",0))_"^1"
|
|---|
| 49 | S XQORM("KEY","NX")=$O(^ORD(101,"B","GMRCACT NEXT SCREEN",0))_"^1"
|
|---|
| 50 | S XQORM("KEY","NEXT")=$O(^ORD(101,"B","GMRCACT NEXT SCREEN",0))_"^1"
|
|---|
| 51 | K GMRCNMBR
|
|---|
| 52 | Q
|
|---|
| 53 | HELP ; -- display help code
|
|---|
| 54 | N X S VALMBCK="" D FULL^VALM1 S VALMBCK="R"
|
|---|
| 55 | W !!,"Use the actions listed to scroll up and down, to view the data; if you want",!,"to search the data for a particular string, enter SL. You may print the"
|
|---|
| 56 | W !,"data, either the entire list or just the current screen, by entering PT or PS",!,"respectively. Enter Q when finished to return to the chart."
|
|---|
| 57 | W !!,"Press <return> to continue ..." R X:DTIME
|
|---|
| 58 | Q
|
|---|
| 59 | ;
|
|---|
| 60 | EXIT K ^TMP("GMRCR",$J,"DT"),^TMP("GMRCR",$J,"DTLIST"),GMRCCT
|
|---|
| 61 | ;D KILL^VALM10(GMRCO)
|
|---|
| 62 | K GMRCWT
|
|---|
| 63 | Q
|
|---|
