GMRCMER.m

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

 ;

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       ;