GMRCSLDT.m

GMRCSLDT ;SLC/DCM - Get a consults detailed tracking history formated for List Manager ;9/8/98  03:29

 ;;3.0;CONSULT/REQUEST TRACKING;**1,4,15**;DEC 27, 1997

 ;

HDR ;Header code for detailed display.(also used for results display)

 I '$D(DFN) N DFN D  Q:'$D(DFN)

 . I $D(ORVP) S DFN=+ORVP

 D HDR1^GMRCSLM

 I '$D(GMRCVTIT) S GMRCX="Consult No.: "_GMRCO D HDR2^GMRCSLM(GMRCX)

 D TITLE

 Q

 ;

EN ;Select a consult for detailed display of information.

 K GMRCQUT,GMRCQIT,GMRCSEL

 I '+$G(GMRCO) D SELECT^GMRCA2(.GMRCO) I $D(GMRCQUT) Q

 I '+$G(GMRCO) S GMRCQUT=1 Q

 ;

 S GMRCND=GMRCO

 ;S GMRCDT=$O(^TMP("GMRCR",$J,"CS","AD",GMRCNO,0))

 ;S GMRCND=$O(^TMP("GMRCR",$J,"CS","AD",GMRCNO,GMRCDT,0))

 W !!,"Compiling Detailed Display..."

 D LMFMT(GMRCND)

 D EN^VALM("GMRC DETAILED DISPLAY")

 Q

 ;

TITLE ;override title if medicine resulting

 I $D(GMRCVTIT) S VALM("TITLE")=GMRCVTIT

 Q

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.

 N DFN,GMRCAGE,GMRCDOB,GMRCPNM,GMRCSSN,GMRCSS,GMRCSSN,VALMHDR

 S:'$D(TAB) TAB="",$P(TAB," ",30)=""

 S DFN=$P(^GMR(123,GMRCND,0),"^",2) D DEM^GMRCU

 S GMRCSS=$P(^GMR(123,GMRCND,0),"^",5) S GMRCSSN=$S(GMRCSS]"":$P($G(^GMR(123.5,GMRCSS,0)),"^",1),1:"Unknown Location")

 D DT^GMRCSLM2(+GMRCND)

 I $D(GMRCQUT) Q

 K ^TMP("GMRCR",$J,"DTLIST") S DSPLINE=0,VALMAR="^TMP(""GMRCR"",$J,""DTLIST"")"

 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)

 S VALMCNT=LINE-1,XQORM("A")="Select Action: "

 K DSPLINE,LINE,DATA

 Q

 ;

PHDR ; -- protocol header code called from the display action protocol menus

 ;S VALMSG=$$MSG

 D SHOW^VALM

 S XQORM("#")=$O(^ORD(101,"B","GMRC SELECT ITEM",0))_"^1:"_VALMCNT

 S XQORM("A")="Select Action: "

 S XQORM("KEY","EX")=$O(^ORD(101,"B","GMRCACT QUIT",0))_"^1"

 S XQORM("KEY","Q")=$O(^ORD(101,"B","GMRCACT QUIT",0))_"^1"

 S XQORM("KEY","CLOSE")=$O(^ORD(101,"B","GMRCACT QUIT",0))_"^1"

 S XQORM("KEY","NX")=$O(^ORD(101,"B","GMRCACT NEXT SCREEN",0))_"^1"

 S XQORM("KEY","NEXT")=$O(^ORD(101,"B","GMRCACT NEXT SCREEN",0))_"^1"

 K GMRCNMBR

 Q

HELP ; -- display help code

 N X S VALMBCK="" D FULL^VALM1 S VALMBCK="R"

 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"

 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."

 W !!,"Press <return> to continue ..." R X:DTIME

 Q

 ;

EXIT K ^TMP("GMRCR",$J,"DT"),^TMP("GMRCR",$J,"DTLIST"),GMRCCT

 ;D KILL^VALM10(GMRCO)

 K GMRCWT

 Q

GMRCSLDT  ;SLC/DCM - Get a consults detailed tracking history formated for List Manager ;9/8/98  03:29

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**1,4,15**;DEC 27, 1997

 +2       ;

HDR       ;Header code for detailed display.(also used for results display)

 +1        IF '$DATA(DFN)

               NEW DFN

               Begin DoDot:1

 +2                IF $DATA(ORVP)

                       SET DFN=+ORVP

               End DoDot:1

               IF '$DATA(DFN)

                   QUIT 

 +3        DO HDR1^GMRCSLM

 +4        IF '$DATA(GMRCVTIT)

               SET GMRCX="Consult No.: "_GMRCO

               DO HDR2^GMRCSLM(GMRCX)

 +5        DO TITLE

 +6        QUIT 

 +7       ;

EN        ;Select a consult for detailed display of information.

 +1        KILL GMRCQUT,GMRCQIT,GMRCSEL

 +2        IF '+$GET(GMRCO)

               DO SELECT^GMRCA2(.GMRCO)

               IF $DATA(GMRCQUT)

                   QUIT 

 +3        IF '+$GET(GMRCO)

               SET GMRCQUT=1

               QUIT 

 +4       ;

 +5        SET GMRCND=GMRCO

 +6       ;S GMRCDT=$O(^TMP("GMRCR",$J,"CS","AD",GMRCNO,0))

 +7       ;S GMRCND=$O(^TMP("GMRCR",$J,"CS","AD",GMRCNO,GMRCDT,0))

 +8        WRITE !!,"Compiling Detailed Display..."

 +9        DO LMFMT(GMRCND)

 +10       DO EN^VALM("GMRC DETAILED DISPLAY")

 +11       QUIT 

 +12      ;

TITLE     ;override title if medicine resulting

 +1        IF $DATA(GMRCVTIT)

               SET VALM("TITLE")=GMRCVTIT

 +2        QUIT 

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.

 +1        NEW DFN,GMRCAGE,GMRCDOB,GMRCPNM,GMRCSSN,GMRCSS,GMRCSSN,VALMHDR

 +2        IF '$DATA(TAB)

               SET TAB=""

               SET $PIECE(TAB," ",30)=""

 +3        SET DFN=$PIECE(^GMR(123,GMRCND,0),"^",2)

           DO DEM^GMRCU

 +4        SET GMRCSS=$PIECE(^GMR(123,GMRCND,0),"^",5)

           SET GMRCSSN=$SELECT(GMRCSS]"":$PIECE($GET(^GMR(123.5,GMRCSS,0)),"^",1),1:"Unknown Location")

 +5        DO DT^GMRCSLM2(+GMRCND)

 +6        IF $DATA(GMRCQUT)

               QUIT 

 +7        KILL ^TMP("GMRCR",$JOB,"DTLIST")

           SET DSPLINE=0

           SET VALMAR="^TMP(""GMRCR"",$J,""DTLIST"")"

 +8        FOR LINE=1:1:GMRCCT

               SET DSPLINE=$ORDER(^TMP("GMRCR",$JOB,"DT",DSPLINE))

               IF DSPLINE=""!(DSPLINE?1A.E)

                   QUIT 

               SET DATA=^(DSPLINE,0)

               DO SET^VALM10(LINE,DATA)

 +9        SET VALMCNT=LINE-1

           SET XQORM("A")="Select Action: "

 +10       KILL DSPLINE,LINE,DATA

 +11       QUIT 

 +12      ;

PHDR      ; -- protocol header code called from the display action protocol menus

 +1       ;S VALMSG=$$MSG

 +2        DO SHOW^VALM

 +3        SET XQORM("#")=$ORDER(^ORD(101,"B","GMRC SELECT ITEM",0))_"^1:"_VALMCNT

 +4        SET XQORM("A")="Select Action: "

 +5        SET XQORM("KEY","EX")=$ORDER(^ORD(101,"B","GMRCACT QUIT",0))_"^1"

 +6        SET XQORM("KEY","Q")=$ORDER(^ORD(101,"B","GMRCACT QUIT",0))_"^1"

 +7        SET XQORM("KEY","CLOSE")=$ORDER(^ORD(101,"B","GMRCACT QUIT",0))_"^1"

 +8        SET XQORM("KEY","NX")=$ORDER(^ORD(101,"B","GMRCACT NEXT SCREEN",0))_"^1"

 +9        SET XQORM("KEY","NEXT")=$ORDER(^ORD(101,"B","GMRCACT NEXT SCREEN",0))_"^1"

 +10       KILL GMRCNMBR

 +11       QUIT 

HELP      ; -- display help code

 +1        NEW X

           SET VALMBCK=""

           DO FULL^VALM1

           SET VALMBCK="R"

 +2        WRITE !!,"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"

 +3        WRITE !,"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."

 +4        WRITE !!,"Press <return> to continue ..."

           READ X:DTIME

 +5        QUIT 

 +6       ;

EXIT       KILL ^TMP("GMRCR",$JOB,"DT"),^TMP("GMRCR",$JOB,"DTLIST"),GMRCCT

 +1       ;D KILL^VALM10(GMRCO)

 +2        KILL GMRCWT

 +3        QUIT