source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSRES.m@ 1259

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1HLCSRES ;ALB/MFK - HL7 MESSAGE REQUEUER SCREEN # 2 ; 08-JUN-1995
2 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
3EN(MATCH) ; -- main entry point
4 D EN^VALM("HL MESSAGE REQUEUER - 2")
5 Q
6 ;
7HDR ; -- 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 ;
16INIT ; -- 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 ;
38HELP ; -- help code
39 S X="?" D DISP^XQORM1 W !!
40 Q
41 ;
42EXPND ; -- 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
Note: See TracBrowser for help on using the repository browser.