Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
888 bytes
|
Rev | Line | |
---|
[613] | 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.