source: WorldVistAEHR/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCSLDT.m@ 1042

Last change on this file since 1042 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.6 KB
Line 
1GMRCSLDT ;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 ;
4HDR ;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 ;
12EN ;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 ;
25TITLE ;override title if medicine resulting
26 I $D(GMRCVTIT) S VALM("TITLE")=GMRCVTIT
27 Q
28LMFMT(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 ;
41PHDR ; -- 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
53HELP ; -- 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 ;
60EXIT K ^TMP("GMRCR",$J,"DT"),^TMP("GMRCR",$J,"DTLIST"),GMRCCT
61 ;D KILL^VALM10(GMRCO)
62 K GMRCWT
63 Q
Note: See TracBrowser for help on using the repository browser.