GMRCQC ;SLC/DCM - GMRC List Manager routine to print Consults pending resolution for QC purposes ;5/20/98 14:20
;;3.0;CONSULT/REQUEST TRACKING;**1,22**;DEC 27, 1997
EN ; -- main entry point for GMRC QC CON PENDING RESOLUTION
K GMRCQUT
S DIC="^GMR(123.5,",DIC(0)="AEMQ",DIC("A")="Select Service/Specialty: "
S DIC("S")="I $P(^(0),U,2)'=9",D="B^D"
D MIX^DIC1 K DIC
I $S(Y<1:1,$D(DUOUT):1,$D(DTOUT):1,1:0) D Q
. S (GMRCQIT,GMRCQUT)=1 K DUOUT,DTOUT,DIROUT Q
S (GMRCSVCP,GMRCSVC)=$P(Y,"^",2),GMRCSVCN=+Y
D EN^VALM("GMRC QC CON PENDING RESOLUTION")
Q
;
HDR ; -- header code
S VALMHDR(1)="CONSULTS/REQUESTS PENDING RESOLUTION"
S VALMHDR(2)="Service: "_GMRCSVCP
Q
;
INIT ; -- init variables and list array
K ^TMP("GMRCR",$J,"QCLIST")
S DSPLINE=0,VALMAR="^TMP(""GMRCR"",$J,""QCLIST"")"
F LINE=1:1:GMRCCT S DSPLINE=$O(^TMP("GMRCR",$J,"CP",DSPLINE)) Q:DSPLINE=""!(DSPLINE?1A.E) S DATA=^(DSPLINE,0) D SET^VALM10(LINE,DATA)
S VALMCNT=GMRCCT,VALMBCK="R"
K DATA,DSPLINE,LINE
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K ^TMP("GMRCR",$J,"CP"),^TMP("GMRCR",$J,"QCLIST")
K GMRCCT,GMRCSVCP,GMRCQUT,GMRCSVTT
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCQC 1223 printed Dec 13, 2024@01:47 Page 2
GMRCQC ;SLC/DCM - GMRC List Manager routine to print Consults pending resolution for QC purposes ;5/20/98 14:20
+1 ;;3.0;CONSULT/REQUEST TRACKING;**1,22**;DEC 27, 1997
EN ; -- main entry point for GMRC QC CON PENDING RESOLUTION
+1 KILL GMRCQUT
+2 SET DIC="^GMR(123.5,"
SET DIC(0)="AEMQ"
SET DIC("A")="Select Service/Specialty: "
+3 SET DIC("S")="I $P(^(0),U,2)'=9"
SET D="B^D"
+4 DO MIX^DIC1
KILL DIC
+5 IF $SELECT(Y<1:1,$DATA(DUOUT):1,$DATA(DTOUT):1,1:0)
Begin DoDot:1
+6 SET (GMRCQIT,GMRCQUT)=1
KILL DUOUT,DTOUT,DIROUT
QUIT
End DoDot:1
QUIT
+7 SET (GMRCSVCP,GMRCSVC)=$PIECE(Y,"^",2)
SET GMRCSVCN=+Y
+8 DO EN^VALM("GMRC QC CON PENDING RESOLUTION")
+9 QUIT
+10 ;
HDR ; -- header code
+1 SET VALMHDR(1)="CONSULTS/REQUESTS PENDING RESOLUTION"
+2 SET VALMHDR(2)="Service: "_GMRCSVCP
+3 QUIT
+4 ;
INIT ; -- init variables and list array
+1 KILL ^TMP("GMRCR",$JOB,"QCLIST")
+2 SET DSPLINE=0
SET VALMAR="^TMP(""GMRCR"",$J,""QCLIST"")"
+3 FOR LINE=1:1:GMRCCT
SET DSPLINE=$ORDER(^TMP("GMRCR",$JOB,"CP",DSPLINE))
if DSPLINE=""!(DSPLINE?1A.E)
QUIT
SET DATA=^(DSPLINE,0)
DO SET^VALM10(LINE,DATA)
+4 SET VALMCNT=GMRCCT
SET VALMBCK="R"
+5 KILL DATA,DSPLINE,LINE
+6 QUIT
+7 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("GMRCR",$JOB,"CP"),^TMP("GMRCR",$JOB,"QCLIST")
+2 KILL GMRCCT,GMRCSVCP,GMRCQUT,GMRCSVTT
+3 QUIT
+4 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
