Last change
on this file since 1006 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
888 bytes
|
Line | |
---|
1 | HLCSRQ ;ALB/MFK - HL7 MESSAGE REQUEUER SCREEN # 3; 20-JUN-1995
|
---|
2 | ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
|
---|
3 | EN ; -- main entry point
|
---|
4 | D EN^VALM("HL MESSAGE REQUEUER - 3")
|
---|
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="Selected Message from 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 X,ENTRY,COUNTER
|
---|
18 | Q:('$D(LLE))
|
---|
19 | Q:('$D(MATCH))
|
---|
20 | S ENTRY="",COUNTER=0
|
---|
21 | F S ENTRY=$O(LLE(ENTRY)) Q:(ENTRY="") D
|
---|
22 | .S IDX=LLE(ENTRY)
|
---|
23 | .S X=0
|
---|
24 | .S COUNTER=COUNTER+1
|
---|
25 | .F S X=$O(^HLCS(870,MATCH,2,IDX,1,X)) Q:(X="") D
|
---|
26 | ..S COUNTER=COUNTER+1
|
---|
27 | ..S LINE=$G(^HLCS(870,MATCH,2,IDX,1,X,0))
|
---|
28 | ..D SET^VALM10(COUNTER,LINE)
|
---|
29 | S VALMCNT=COUNTER
|
---|
30 | Q
|
---|
31 | ;
|
---|
32 | HELP ; -- help code
|
---|
33 | S X="?" D DISP^XQORM1 W !!
|
---|
34 | Q
|
---|
35 | ;
|
---|
36 | EXIT ; -- exit code
|
---|
37 | Q
|
---|
38 | ;
|
---|
39 | EXPND ; -- expand code
|
---|
40 | Q
|
---|
41 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.