source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSRQ.m@ 1006

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 
1HLCSRQ ;ALB/MFK - HL7 MESSAGE REQUEUER SCREEN # 3; 20-JUN-1995
2 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
3EN ; -- main entry point
4 D EN^VALM("HL MESSAGE REQUEUER - 3")
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="Selected Message from 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 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 ;
32HELP ; -- help code
33 S X="?" D DISP^XQORM1 W !!
34 Q
35 ;
36EXIT ; -- exit code
37 Q
38 ;
39EXPND ; -- expand code
40 Q
41 ;
Note: See TracBrowser for help on using the repository browser.