source: FOIAVistA/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCMER.m@ 905

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1GMRCMER ;SLC/DCM - Print Medicine Results in List Manager Format ;1/10/02 14:26
2 ;;3.0;CONSULT/REQUEST TRACKING;**1,4,15,23**;DEC 27, 1997
3 ;
4EN ; -- main entry point for GMRC ASSOCIATE RESULTS
5 D EN^VALM("GMRC ASSOCIATE RESULTS")
6 Q
7 ;
8HDRAR ; -- header code uses Detailed Display header to format VALMHDR
9 N GMRCVTIT
10 S GMRCVTIT="Procedure/Medicine Resulting"
11 I '$G(DFN),$G(ORVP) S DFN=+ORVP
12 D HDR^GMRCSLDT
13 S VALMHDR(2)=$$CJ^XLFSTR("Available Medicine Results",80)
14 Q
15 ;
16HDR ;header for results display
17 D HDR^GMRCSLDT
18 Q
19 ;
20INITAR ; -- init variables and list array for ASSOCIATE RESULTS
21 K ^TMP("GMRCR",$J,"DTLIST")
22 S VALMCNT=$O(^TMP("GMRCR",$J,"DT",999999),-1)
23 Q
24INIT ; -- init variables and list array for RESULTS DISPLAY
25 K ^TMP("GMRCR",$J,"DTLIST")
26 N LINE
27 S DSPLINE=0,VARMAR=$NA(^TMP("GMRCR",$J,"DTLIST")),LINE=1
28 F S DSPLINE=$O(^TMP("GMRCR",$J,"DT",DSPLINE)) Q:DSPLINE=""!(DSPLINE?1A.E) S DATA=^(DSPLINE,0) D SET^VALM10(LINE,DATA) S LINE=LINE+1
29 S VALMCNT=$O(^TMP("GMRCR",$J,"DTLIST"," "),-1)
30 K DSPLINE,DATA,LINE
31 Q
32 ;
33HELP ; -- help code for display actions
34 D HELP^GMRCSLDT
35 Q
36 ;
37EXIT ; -- exit code
38 K ^TMP("GMRCR",$J,"DT"),^TMP("GMRCR",$J,"DTLIST")
39 S:$D(GMRCLCT) VALMCNT=GMRCLCT
40 K GLOBAL,GMRCMODE,GMRCND,GMRCSGAD,GMRCCSIG,GMRCCSDT,GMRCSIGT,GMRCSR,GMRCSIGM,GMRCCTIT,GMRCLCT,GMRCADD,GMRCADDT,GMRCSDT,GMRCSIG,GMRCTUFN,ND,ND1
41 Q
42 ;
Note: See TracBrowser for help on using the repository browser.