Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRCSTL1

GMRCSTL1.m

Go to the documentation of this file.
  1. GMRCSTL1 ;SLC/DCM,dee;MA - List Manager Format Routine - Get Active Consults by service - pending,active,scheduled,incomplete,etc. ;11/13/02 08:30
  1. ;;3.0;CONSULT/REQUEST TRACKING;**7,21,22,29,63**;DEC 27, 1997;Build 10
  1. ; Patch #21 changed array GMRCTOT to ^TMP("GMRCTOT,$J)
  1. ; This routine invokes IA #875, #2638
  1. Q
  1. STATNAME(STATUS) ;Return the name for the status number
  1. I STATUS<9 Q $S(STATUS=1:"Discont.",STATUS=2:"Completed",STATUS=3:"On Hold",STATUS=4:"Flagged",STATUS=5:"Pending",STATUS=6:"Active",STATUS=7:"Expired",STATUS=8:"Scheduled",1:"No Status")
  1. E Q $S(STATUS=9:"Incomplete",STATUS=10:"Delayed",STATUS=11:"Unreleased",STATUS=12:"Discont/Ed",STATUS=13:"Cancelled",STATUS=14:"Lapsed",STATUS=15:"Renewed",1:"No Status")
  1. Q
  1. ;
  1. STATABBR(STATUS) ;Return the name for the status number
  1. Q ^ORD(100.01,STATUS,.1)
  1. ;
  1. LISTTOT(COUNT,GEN,INDEX,NAME,GROUPNAM,CONTROL,ARRN) ;
  1. N LOOP,STATUS,STS,CTRLTEMP,GMRCTOTS,SP
  1. S SP=""
  1. S CTRLTEMP=$S(CONTROL#2:"^",1:"")
  1. I GEN=2 D
  1. . S COUNT=COUNT+1
  1. . S ^TMP("GMRCR",$J,ARRN,COUNT,0)=CTRLTEMP
  1. . S COUNT=COUNT+1
  1. . S ^TMP("GMRCR",$J,ARRN,COUNT,0)=CTRLTEMP_" GROUPER: "_NAME_" Totals:"
  1. S GMRCTOTS=0
  1. I $L(GMRCSTAT,",")=16 S GMRCTOTS=1 ;only incl. totals if all status
  1. F LOOP=1:1:$L(GMRCSTAT,",") S STATUS=$P(GMRCSTAT,",",LOOP) I ^TMP("GMRCTOT",$J,GEN,INDEX,STATUS)>0 D
  1. .S COUNT=COUNT+1
  1. .S STS=$$STATNAME(STATUS)
  1. .S ^TMP("GMRCR",$J,ARRN,COUNT,0)=CTRLTEMP_"Total Requests "_STS_": "_$J(^TMP("GMRCTOT",$J,GEN,INDEX,STATUS),42-$L(STS),0)
  1. ;If any printed are pending then print the total that are pending for all pending status.
  1. I ^TMP("GMRCTOT",$J,GEN,INDEX,"P")>0 D
  1. .S COUNT=COUNT+1
  1. .S ^TMP("GMRCR",$J,ARRN,COUNT,0)=CTRLTEMP_"Total Requests Pending Resolution: "_$J(^TMP("GMRCTOT",$J,GEN,INDEX,"P"),24,0)
  1. ; IF Consults
  1. I ARRN="IFC" D
  1. .N IRFN,VALSVC,VALTOT S IRFN=""
  1. .F S IRFN=$O(^TMP("GMRCTOT",$J,GEN,INDEX,"F",IRFN)) Q:IRFN="" D
  1. ..I GMRCTOTS D
  1. ...S COUNT=COUNT+1
  1. ...I GEN=1 S ^TMP("GMRCR",$J,ARRN,COUNT,0)=CTRLTEMP_"Total Requests To Service @ "_$E(IRFN,1,16)_": "_$J(SP,16-$L($E(IRFN,1,16)))_$J(^TMP("GMRCTOT",$J,1,INDEX,"F",IRFN),13,0)
  1. ...E S ^TMP("GMRCR",$J,ARRN,COUNT,0)=CTRLTEMP_"Total Requests to Grouper @ "_$E(IRFN,1,20)_": "_$J(SP,20-$L($E(IRFN,1,20)))_$J(^TMP("GMRCTOT",$J,2,INDEX,"F",IRFN),9,0)
  1. ..I $P($G(GMRCST(GEN,INDEX,IRFN)),"^",2)>0 D
  1. ...S COUNT=COUNT+1
  1. ...S VALSVC=$P(GMRCST(GEN,INDEX,IRFN),"^")\$P(GMRCST(GEN,INDEX,IRFN),"^",2)
  1. ...S ^TMP("GMRCR",$J,ARRN,COUNT,0)=CTRLTEMP_"Mean Days Completed To "_$S(GEN=1:"Service ",1:"Grouper ")_"@ "_$E(IRFN,1,16)_": "_$J(SP,16-$L($E(IRFN,1,16)))_$J(VALSVC,8,0)
  1. .I $P($G(GMRCST(GEN,INDEX)),"^",2)>0 D
  1. ..S COUNT=COUNT+1
  1. ..S VALTOT=$P(GMRCST(GEN,INDEX),"^")\$P(GMRCST(GEN,INDEX),"^",2)
  1. ..S ^TMP("GMRCR",$J,ARRN,COUNT,0)=CTRLTEMP_"Mean Days Completed To "_$S(GEN=1:"Service",1:"Grouper")_": "_$J(VALTOT,27,0)
  1. I GMRCTOTS D
  1. .S COUNT=COUNT+1
  1. .I GEN=1 S ^TMP("GMRCR",$J,ARRN,COUNT,0)=CTRLTEMP_"Total Requests To Service: "_$J(^TMP("GMRCTOT",$J,1,INDEX,"T"),32,0)
  1. .E S ^TMP("GMRCR",$J,ARRN,COUNT,0)=CTRLTEMP_"Total Requests To Grouper: "_$J(^TMP("GMRCTOT",$J,2,INDEX,"T"),32,0)
  1. Q
  1. ;