GMRCMER ;SLC/DCM - Print Medicine Results in List Manager Format ;1/10/02 14:26
;;3.0;CONSULT/REQUEST TRACKING;**1,4,15,23**;DEC 27, 1997
;
EN ; -- main entry point for GMRC ASSOCIATE RESULTS
D EN^VALM("GMRC ASSOCIATE RESULTS")
Q
;
HDRAR ; -- header code uses Detailed Display header to format VALMHDR
N GMRCVTIT
S GMRCVTIT="Procedure/Medicine Resulting"
I '$G(DFN),$G(ORVP) S DFN=+ORVP
D HDR^GMRCSLDT
S VALMHDR(2)=$$CJ^XLFSTR("Available Medicine Results",80)
Q
;
HDR ;header for results display
D HDR^GMRCSLDT
Q
;
INITAR ; -- init variables and list array for ASSOCIATE RESULTS
K ^TMP("GMRCR",$J,"DTLIST")
S VALMCNT=$O(^TMP("GMRCR",$J,"DT",999999),-1)
Q
INIT ; -- init variables and list array for RESULTS DISPLAY
K ^TMP("GMRCR",$J,"DTLIST")
N LINE
S DSPLINE=0,VARMAR=$NA(^TMP("GMRCR",$J,"DTLIST")),LINE=1
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
S VALMCNT=$O(^TMP("GMRCR",$J,"DTLIST"," "),-1)
K DSPLINE,DATA,LINE
Q
;
HELP ; -- help code for display actions
D HELP^GMRCSLDT
Q
;
EXIT ; -- exit code
K ^TMP("GMRCR",$J,"DT"),^TMP("GMRCR",$J,"DTLIST")
S:$D(GMRCLCT) VALMCNT=GMRCLCT
K GLOBAL,GMRCMODE,GMRCND,GMRCSGAD,GMRCCSIG,GMRCCSDT,GMRCSIGT,GMRCSR,GMRCSIGM,GMRCCTIT,GMRCLCT,GMRCADD,GMRCADDT,GMRCSDT,GMRCSIG,GMRCTUFN,ND,ND1
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCMER 1396 printed Dec 13, 2024@01:46:17 Page 2
GMRCMER ;SLC/DCM - Print Medicine Results in List Manager Format ;1/10/02 14:26
+1 ;;3.0;CONSULT/REQUEST TRACKING;**1,4,15,23**;DEC 27, 1997
+2 ;
EN ; -- main entry point for GMRC ASSOCIATE RESULTS
+1 DO EN^VALM("GMRC ASSOCIATE RESULTS")
+2 QUIT
+3 ;
HDRAR ; -- header code uses Detailed Display header to format VALMHDR
+1 NEW GMRCVTIT
+2 SET GMRCVTIT="Procedure/Medicine Resulting"
+3 IF '$GET(DFN)
IF $GET(ORVP)
SET DFN=+ORVP
+4 DO HDR^GMRCSLDT
+5 SET VALMHDR(2)=$$CJ^XLFSTR("Available Medicine Results",80)
+6 QUIT
+7 ;
HDR ;header for results display
+1 DO HDR^GMRCSLDT
+2 QUIT
+3 ;
INITAR ; -- init variables and list array for ASSOCIATE RESULTS
+1 KILL ^TMP("GMRCR",$JOB,"DTLIST")
+2 SET VALMCNT=$ORDER(^TMP("GMRCR",$JOB,"DT",999999),-1)
+3 QUIT
INIT ; -- init variables and list array for RESULTS DISPLAY
+1 KILL ^TMP("GMRCR",$JOB,"DTLIST")
+2 NEW LINE
+3 SET DSPLINE=0
SET VARMAR=$NAME(^TMP("GMRCR",$JOB,"DTLIST"))
SET LINE=1
+4 FOR
SET DSPLINE=$ORDER(^TMP("GMRCR",$JOB,"DT",DSPLINE))
if DSPLINE=""!(DSPLINE?1A.E)
QUIT
SET DATA=^(DSPLINE,0)
DO SET^VALM10(LINE,DATA)
SET LINE=LINE+1
+5 SET VALMCNT=$ORDER(^TMP("GMRCR",$JOB,"DTLIST"," "),-1)
+6 KILL DSPLINE,DATA,LINE
+7 QUIT
+8 ;
HELP ; -- help code for display actions
+1 DO HELP^GMRCSLDT
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("GMRCR",$JOB,"DT"),^TMP("GMRCR",$JOB,"DTLIST")
+2 if $DATA(GMRCLCT)
SET VALMCNT=GMRCLCT
+3 KILL GLOBAL,GMRCMODE,GMRCND,GMRCSGAD,GMRCCSIG,GMRCCSDT,GMRCSIGT,GMRCSR,GMRCSIGM,GMRCCTIT,GMRCLCT,GMRCADD,GMRCADDT,GMRCSDT,GMRCSIG,GMRCTUFN,ND,ND1
+4 QUIT
+5 ;
