source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLOUSR4.m@ 1582

HLOUSR4 ;ALB/CJM -ListManager screen for reporting sequence queues;12 JUN 1997 10:00 am ;08/14/2007
        ;;1.6;HEALTH LEVEL SEVEN;**137**;Oct 13, 1995;Build 21
        ;Per VHA Directive 2004-038, this routine should not be modified.
        ;
        ;
EN      ;
        K HLPARMS ;not newed so they'll be left for realtime mode
        N OLDRFRSH
        S OLDRFRSH=$G(HLRFRSH)
        D CLEAN^VALM10
        D FULL^VALM1
        S HLRFRSH="SEARCH^HLOUSR4(.HLPARMS)"
        I '$$ASK(.HLPARMS) S VALMBCK="R" Q
        D EN^VALM("HLO SEQUENCE QUEUES")
        S HLRFRSH=OLDRFRSH
        I $L(HLRFRSH) D @HLRFRSH
        Q
HDR     ;
        S (HLSCREEN,VALMSG)="Sequence Queues"
        Q
        ;
SEARCH(HLPARMS) ;
        N MIN,LATEONLY,NS,QUE,ARY,COUNT,NOW,IEN,TIME,NODE
        S MIN=+$G(HLPARMS("MIN")),LATEONLY=+$G(HLPARMS("LATEONLY")),NS=$G(HLPARMS("NS"))
        S VALMCNT=0
        S NOW=$$NOW^XLFDT
        D CLEAN^VALM10
        ;
        S ARY="^HLB(""QUEUE"",""SEQUENCE"")"
        S QUE=NS
        D:$L(NS)  F  S QUE=$O(@ARY@(QUE)) Q:QUE=""  Q:'($E(QUE,1,$L(NS))=NS)  D
        .S NODE=$G(@ARY@(QUE))
        .S TIME=$P(NODE,"^",2)
        .I LATEONLY Q:'TIME  Q:TIME>NOW
        .S IEN=0
        .S COUNT=$S($L($P(NODE,"^")):1,1:0)
        .F  S IEN=$O(@ARY@(QUE,IEN)) Q:'IEN  S COUNT=COUNT+1
        .I MIN,COUNT<MIN,'(TIME&(TIME<NOW)) Q
        .D ADDTO(QUE,COUNT,NODE)
END     S VALMBCK="R"
        ;
        Q
ADDTO(QUE,COUNT,NODE)   ;
        N LINE,MSGID
        ;
        S MSGID=""
        I $P(NODE,"^") S MSGID=$P($G(^HLB(+NODE,0)),"^",1)
        S LINE=$$LJ(QUE,30)_$$RJ(COUNT,7)_"  "_$$LJ(MSGID,18)
        I $P(NODE,"^",2),$P(NODE,"^",2)<NOW S LINE=LINE_$$FMTE^XLFDT($P(NODE,"^",2),"2FM")_"  "_$S($P(NODE,"^",3):"YES",1:"NO")
        S @VALMAR@($$I,0)=LINE
        Q
        ;
LJ(STRING,LEN)  ;
        Q $$LJ^XLFSTR(STRING,LEN)
        ;
RJ(STRING,LEN)  ;
        Q $$RJ^XLFSTR(STRING,LEN)
        ;
I()     ;
        S VALMCNT=VALMCNT+1
        Q VALMCNT
        ;
ASK(PARMS)      ;
        N SUB
        F SUB="NS","MIN","LATEONLY" S PARMS(SUB)=""
        S PARMS("NS")=$$ASKQUE
        Q:(PARMS("NS")=-1) 0
        S PARMS("LATEONLY")=$$ASKYESNO^HLOUSR2("Include only queues that are late","NO")
        Q:(PARMS("LATEONLY")=-1) 0
        S PARMS("MIN")=$$ASKMIN
        Q:(PARMS("MIN")<0) 0
        Q 1
        ;
ASKMIN()        ;
        N DIR
        S DIR(0)="N^1:999999:0"
        S DIR("A")="Minimum Queue Size"
        S DIR("B")=1
        S DIR("?",1)="If you would like to limit the report to include only the"
        S DIR("?")="longer queues then you must specify the minimum size to include."
        D ^DIR
        Q:$D(DTOUT)!$D(DUOUT) -1
        Q X
ASKQUE()        ;
        N DIR
        S DIR(0)="FO^0:40"
        S DIR("A")="Sequence Queue Namespace"
        S DIR("?")="Enter the namespace for the queues, or '^' to exit."
        D ^DIR
        Q:$D(DTOUT)!$D(DUOUT) -1
        Q X
        ;
ADVANCE ;
        N DIR,QUE,MSG,RET
        S VALMBCK="R"
        S DIR(0)="FO^0:40"
        S DIR("A")="Sequence Queue"
        S DIR("?")="Enter the full name of the queue, or '^' to exit."
        D ^DIR K DIR
        Q:$D(DTOUT)!$D(DUOUT)
        S QUE=X
        Q:'$L(QUE)
        S MSG=$$PICKMSG^HLOUSR1()
        Q:'MSG
        S RET=$$ADVANCE^HLOQUE(QUE,MSG)
        I 'RET D
        .W !,"Sorry, that queue was not pending that message!" D PAUSE^VALM1
        E  D
        .W !,"The queue has been advanced!" D PAUSE^VALM1
        ;
        D SEARCH(.HLPARMS)
        Q