- 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 Jan 18, 2025@02:48:14 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 ;