source: WorldVistAEHR/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCQC.m@ 1042

Last change on this file since 1042 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1GMRCQC ;SLC/DCM - GMRC List Manager routine to print Consults pending resolution for QC purposes ;5/20/98 14:20
2 ;;3.0;CONSULT/REQUEST TRACKING;**1,22**;DEC 27, 1997
3EN ; -- main entry point for GMRC QC CON PENDING RESOLUTION
4 K GMRCQUT
5 S DIC="^GMR(123.5,",DIC(0)="AEMQ",DIC("A")="Select Service/Specialty: "
6 S DIC("S")="I $P(^(0),U,2)'=9",D="B^D"
7 D MIX^DIC1 K DIC
8 I $S(Y<1:1,$D(DUOUT):1,$D(DTOUT):1,1:0) D Q
9 . S (GMRCQIT,GMRCQUT)=1 K DUOUT,DTOUT,DIROUT Q
10 S (GMRCSVCP,GMRCSVC)=$P(Y,"^",2),GMRCSVCN=+Y
11 D EN^VALM("GMRC QC CON PENDING RESOLUTION")
12 Q
13 ;
14HDR ; -- header code
15 S VALMHDR(1)="CONSULTS/REQUESTS PENDING RESOLUTION"
16 S VALMHDR(2)="Service: "_GMRCSVCP
17 Q
18 ;
19INIT ; -- init variables and list array
20 K ^TMP("GMRCR",$J,"QCLIST")
21 S DSPLINE=0,VALMAR="^TMP(""GMRCR"",$J,""QCLIST"")"
22 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)
23 S VALMCNT=GMRCCT,VALMBCK="R"
24 K DATA,DSPLINE,LINE
25 Q
26 ;
27HELP ; -- help code
28 S X="?" D DISP^XQORM1 W !!
29 Q
30 ;
31EXIT ; -- exit code
32 K ^TMP("GMRCR",$J,"CP"),^TMP("GMRCR",$J,"QCLIST")
33 K GMRCCT,GMRCSVCP,GMRCQUT,GMRCSVTT
34 Q
35 ;
36EXPND ; -- expand code
37 Q
38 ;
Note: See TracBrowser for help on using the repository browser.