- GMRCST ;SLC/DCM,dee - Statistics on how long to complete consult/requests for a service ;23-Sep-2011 09:23;PLS
- ;;3.0;CONSULT/REQUEST TRACKING;**1,7,29,1002**;DEC 27, 1997;Build 1
- ; Modified - IHS/MSC/MGH - 09/20/2011 -
- EN ; -- main entry point for GMRC REQUEST COMPLETE STAT
- K GMRCSVC,GMRCSVCP,GMRTST
- I $D(GMRCEACT),$L(GMRCEACT) D I '$D(^GMR(123.5,$G(GMRCSVC),0)) D EXIT Q
- .S GMRCSVCP=GMRCEACT
- .S GMRCSVC=$O(^GMR(123.5,"B",GMRCSVCP,0))
- .Q:'$D(^GMR(123.5,$G(GMRCSVC),0))
- .;Build service array
- .S GMRCDG=GMRCSVC
- .D SERV1^GMRCASV
- .;Set date range to ALL
- .S GMRCDT1="ALL"
- .S GMRCDT2=0
- .D LISTDATE^GMRCSTU1(GMRCDT1,GMRCDT2,.GMRCEDT1,.GMRCEDT2)
- ;If no service ask for one
- I '$L($G(GMRCSVC)) D EN^GMRCSTU I $D(GMRCQUT) D EXIT Q
- ;Quit if no array of services
- I '$O(^TMP("GMRCSLIST",$J,0)) S GMRCQUT=1 D EXIT Q
- ;
- D ODT^GMRCSTU Q:$D(GMRCQUT)
- D EN^VALM("GMRC REQUEST COMPLETE STAT")
- Q
- ;
- HDR ; -- header code
- S VALMHDR(1)="Number Of Days To Complete A Consult For Services Statistics."
- S VALMHDR(2)="FROM: "_$G(GMRCEDT1)_" TO: "_$G(GMRCEDT2)
- Q
- ;
- INIT ; -- init variables and list array
- S VALMCNT=$G(GMRCCT),VALMBCK="R"
- Q
- ;
- HELP ; -- help code
- S X="?" D DISP^XQORM1 W !!
- Q
- ;
- EXIT ; -- exit code
- K ^TMP("GMRCR",$J,"PRL"),^TMP("GMRCSVC",$J)
- K GMRCCT,GMRCSVC,GMRCEDT1,GMRCEDT2,GMRTST
- Q
- ;
- EXPND ; -- expand code
- Q
- ;
- PRNTONLY ;Option to just send the report to a device.
- ;Get the service and date range.
- N GMRCQUT,RETURN,GMRCDG,VALMBCK
- N GMRCDT1,GMRCDT2,GMRCEDT1,GMRCEDT2,GMRTST
- D EN^GMRCSTU
- I $D(GMRCQUT) D EXIT Q
- ;Quit if no array of services
- I '$O(^TMP("GMRCSLIST",$J,0)) S GMRCQUT=1 D EXIT Q
- ;Get the device
- D PRNTASK^GMRCSTU
- I $D(GMRCQUT) D EXIT Q
- ;Create the report if not queued
- I '$D(IO("Q")) D ENOR^GMRCSTU(.RETURN,GMRCDG,GMRCDT1,GMRCDT2,GMRTST)
- ;Print the report
- D PRNTIT^GMRCSTU("PRL","PRNTQ^GMRCST","CONSULT/REQUEST PACKAGE PRINT COMPLETION TIME STATISTICS FROM OPTION")
- D EXIT
- Q
- ;
- PRNTQ ;Print Queued report from ^TMP global then kill off ^TMP & ^XTMP
- ;Create the report
- N RETURN,INDEX
- D ENOR^GMRCSTU(.RETURN,GMRCDG,GMRCDT1,GMRCDT2,GMRTST)
- U IO
- S INDEX=""
- F S INDEX=$O(^TMP("GMRCR",$J,TMPNAME,INDEX)) Q:INDEX="" W ^TMP("GMRCR",$J,TMPNAME,INDEX,0),!
- K ^TMP("GMRCR",$J,TMPNAME),^XTMP("GMRCR",J,DOLLARH,"PRINT"),J,DOLLARH
- D ^%ZISC
- D EXIT
- Q
- ;
- GMRCST ;SLC/DCM,dee - Statistics on how long to complete consult/requests for a service ;23-Sep-2011 09:23;PLS
- +1 ;;3.0;CONSULT/REQUEST TRACKING;**1,7,29,1002**;DEC 27, 1997;Build 1
- +2 ; Modified - IHS/MSC/MGH - 09/20/2011 -
- EN ; -- main entry point for GMRC REQUEST COMPLETE STAT
- +1 KILL GMRCSVC,GMRCSVCP,GMRTST
- +2 IF $DATA(GMRCEACT)
- IF $LENGTH(GMRCEACT)
- Begin DoDot:1
- +3 SET GMRCSVCP=GMRCEACT
- +4 SET GMRCSVC=$ORDER(^GMR(123.5,"B",GMRCSVCP,0))
- +5 IF '$DATA(^GMR(123.5,$GET(GMRCSVC),0))
- QUIT
- +6 ;Build service array
- +7 SET GMRCDG=GMRCSVC
- +8 DO SERV1^GMRCASV
- +9 ;Set date range to ALL
- +10 SET GMRCDT1="ALL"
- +11 SET GMRCDT2=0
- +12 DO LISTDATE^GMRCSTU1(GMRCDT1,GMRCDT2,.GMRCEDT1,.GMRCEDT2)
- End DoDot:1
- IF '$DATA(^GMR(123.5,$GET(GMRCSVC),0))
- DO EXIT
- QUIT
- +13 ;If no service ask for one
- +14 IF '$LENGTH($GET(GMRCSVC))
- DO EN^GMRCSTU
- IF $DATA(GMRCQUT)
- DO EXIT
- QUIT
- +15 ;Quit if no array of services
- +16 IF '$ORDER(^TMP("GMRCSLIST",$JOB,0))
- SET GMRCQUT=1
- DO EXIT
- QUIT
- +17 ;
- +18 DO ODT^GMRCSTU
- IF $DATA(GMRCQUT)
- QUIT
- +19 DO EN^VALM("GMRC REQUEST COMPLETE STAT")
- +20 QUIT
- +21 ;
- HDR ; -- header code
- +1 SET VALMHDR(1)="Number Of Days To Complete A Consult For Services Statistics."
- +2 SET VALMHDR(2)="FROM: "_$GET(GMRCEDT1)_" TO: "_$GET(GMRCEDT2)
- +3 QUIT
- +4 ;
- INIT ; -- init variables and list array
- +1 SET VALMCNT=$GET(GMRCCT)
- SET VALMBCK="R"
- +2 QUIT
- +3 ;
- HELP ; -- help code
- +1 SET X="?"
- DO DISP^XQORM1
- WRITE !!
- +2 QUIT
- +3 ;
- EXIT ; -- exit code
- +1 KILL ^TMP("GMRCR",$JOB,"PRL"),^TMP("GMRCSVC",$JOB)
- +2 KILL GMRCCT,GMRCSVC,GMRCEDT1,GMRCEDT2,GMRTST
- +3 QUIT
- +4 ;
- EXPND ; -- expand code
- +1 QUIT
- +2 ;
- PRNTONLY ;Option to just send the report to a device.
- +1 ;Get the service and date range.
- +2 NEW GMRCQUT,RETURN,GMRCDG,VALMBCK
- +3 NEW GMRCDT1,GMRCDT2,GMRCEDT1,GMRCEDT2,GMRTST
- +4 DO EN^GMRCSTU
- +5 IF $DATA(GMRCQUT)
- DO EXIT
- QUIT
- +6 ;Quit if no array of services
- +7 IF '$ORDER(^TMP("GMRCSLIST",$JOB,0))
- SET GMRCQUT=1
- DO EXIT
- QUIT
- +8 ;Get the device
- +9 DO PRNTASK^GMRCSTU
- +10 IF $DATA(GMRCQUT)
- DO EXIT
- QUIT
- +11 ;Create the report if not queued
- +12 IF '$DATA(IO("Q"))
- DO ENOR^GMRCSTU(.RETURN,GMRCDG,GMRCDT1,GMRCDT2,GMRTST)
- +13 ;Print the report
- +14 DO PRNTIT^GMRCSTU("PRL","PRNTQ^GMRCST","CONSULT/REQUEST PACKAGE PRINT COMPLETION TIME STATISTICS FROM OPTION")
- +15 DO EXIT
- +16 QUIT
- +17 ;
- PRNTQ ;Print Queued report from ^TMP global then kill off ^TMP & ^XTMP
- +1 ;Create the report
- +2 NEW RETURN,INDEX
- +3 DO ENOR^GMRCSTU(.RETURN,GMRCDG,GMRCDT1,GMRCDT2,GMRTST)
- +4 USE IO
- +5 SET INDEX=""
- +6 FOR
- SET INDEX=$ORDER(^TMP("GMRCR",$JOB,TMPNAME,INDEX))
- IF INDEX=""
- QUIT
- WRITE ^TMP("GMRCR",$JOB,TMPNAME,INDEX,0),!
- +7 KILL ^TMP("GMRCR",$JOB,TMPNAME),^XTMP("GMRCR",J,DOLLARH,"PRINT"),J,DOLLARH
- +8 DO ^%ZISC
- +9 DO EXIT
- +10 QUIT
- +11 ;
