| 1 | HLCSRES ;ALB/MFK - HL7 MESSAGE REQUEUER SCREEN # 2 ; 08-JUN-1995
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
|
|---|
| 3 | EN(MATCH) ; -- main entry point
|
|---|
| 4 | D EN^VALM("HL MESSAGE REQUEUER - 2")
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | HDR ; -- header code
|
|---|
| 8 | N TMP,NAME
|
|---|
| 9 | S TMP=$G(^HLCS(870,MATCH,0))
|
|---|
| 10 | S NAME=$P(TMP,"^",1)
|
|---|
| 11 | S:(NAME="") NAME="UNKNOWN"
|
|---|
| 12 | S TMP="Processed Messages in Logical Link "_NAME
|
|---|
| 13 | S VALMHDR(1)=$$SETSTR^VALM1(TMP,"",(40-($L(TMP)\2)),$L(TMP))
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | INIT ; -- init variables and list array
|
|---|
| 17 | N ENTRY,DATE,APP,X,DATE1,LINEENT,CNTR,Y
|
|---|
| 18 | S (ENTRY,CNTR)=0
|
|---|
| 19 | F S ENTRY=$O(^HLCS(870,MATCH,2,ENTRY)) Q:(ENTRY="")!(ENTRY="B") D
|
|---|
| 20 | .Q:($P($G(^HLCS(870,MATCH,2,ENTRY,0)),"^",2)="P")
|
|---|
| 21 | .S CNTR=CNTR+1
|
|---|
| 22 | .S LINEENT=""
|
|---|
| 23 | .S DATE1=$P($G(^HLCS(870,MATCH,2,ENTRY,1,1,0)),"^",7)
|
|---|
| 24 | .S APP=$P($G(^HLCS(870,MATCH,2,ENTRY,1,1,0)),"^",5)
|
|---|
| 25 | .S DATE=$$FMDATE^HLFNC(DATE1)
|
|---|
| 26 | .S Y=DATE
|
|---|
| 27 | .D DD^%DT
|
|---|
| 28 | .S LINEENT=$$SETFLD^VALM1(CNTR,LINEENT,"INDEX")
|
|---|
| 29 | .S LINEENT=$$SETFLD^VALM1(Y,LINEENT,"DATE")
|
|---|
| 30 | .S LINEENT=$$SETFLD^VALM1(APP,LINEENT,"APP")
|
|---|
| 31 | .S ^TMP("HL","MESSAGE",$J,CNTR,0)=LINEENT
|
|---|
| 32 | .S ^TMP("HL","MESSAGE",$J,"IDX",CNTR,CNTR)=""
|
|---|
| 33 | .S ^TMP("HL","MESSAGE",$J,"B",CNTR,ENTRY)=""
|
|---|
| 34 | I CNTR=0 S ^TMP("HL","MESSAGE",$J,1,0)="** There are no entries in this queue **"
|
|---|
| 35 | S VALMCNT=CNTR
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | HELP ; -- help code
|
|---|
| 39 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | EXPND ; -- expand code
|
|---|
| 43 | N LOOP,LLE,X,VALMY,HLLLE
|
|---|
| 44 | S LOOP="",HLLLE=0
|
|---|
| 45 | D EN^VALM2(XQORNOD(0))
|
|---|
| 46 | ; -- find out what the user selected
|
|---|
| 47 | I ('$D(VALMY)) S VALMBCK="" Q
|
|---|
| 48 | F LOOP=$O(VALMY(LOOP)) Q:(LOOP="") D
|
|---|
| 49 | .S HLLLE=HLLLE+1
|
|---|
| 50 | .S LLE(HLLLE)=$O(^TMP("HL","MESSAGE",$J,"B",LOOP,""))
|
|---|
| 51 | ; -- call entry to show individual messages
|
|---|
| 52 | D EN^HLCSRQ
|
|---|
| 53 | ; -- re-index files in case entries were re-queued
|
|---|
| 54 | Q
|
|---|
