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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCSLDT 2763 printed Apr 09, 2024@20:52:34 Page 2
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
