- HLCSRQ ;ALB/MFK - HL7 MESSAGE REQUEUER SCREEN # 3; 20-JUN-1995
- ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
- EN ; -- main entry point
- D EN^VALM("HL MESSAGE REQUEUER - 3")
- Q
- ;
- HDR ; -- header code
- N TMP,NAME
- S TMP=$G(^HLCS(870,MATCH,0))
- S NAME=$P(TMP,"^",1)
- S:(NAME="") NAME="UNKNOWN"
- S TMP="Selected Message from Logical Link "_NAME
- S VALMHDR(1)=$$SETSTR^VALM1(TMP,"",(40-($L(TMP)\2)),$L(TMP))
- Q
- ;
- INIT ; -- init variables and list array
- N X,ENTRY,COUNTER
- Q:('$D(LLE))
- Q:('$D(MATCH))
- S ENTRY="",COUNTER=0
- F S ENTRY=$O(LLE(ENTRY)) Q:(ENTRY="") D
- .S IDX=LLE(ENTRY)
- .S X=0
- .S COUNTER=COUNTER+1
- .F S X=$O(^HLCS(870,MATCH,2,IDX,1,X)) Q:(X="") D
- ..S COUNTER=COUNTER+1
- ..S LINE=$G(^HLCS(870,MATCH,2,IDX,1,X,0))
- ..D SET^VALM10(COUNTER,LINE)
- S VALMCNT=COUNTER
- Q
- ;
- HELP ; -- help code
- S X="?" D DISP^XQORM1 W !!
- Q
- ;
- EXIT ; -- exit code
- Q
- ;
- EXPND ; -- expand code
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLCSRQ 929 printed Jan 18, 2025@02:58:19 Page 2
- HLCSRQ ;ALB/MFK - HL7 MESSAGE REQUEUER SCREEN # 3; 20-JUN-1995
- +1 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
- EN ; -- main entry point
- +1 DO EN^VALM("HL MESSAGE REQUEUER - 3")
- +2 QUIT
- +3 ;
- HDR ; -- header code
- +1 NEW TMP,NAME
- +2 SET TMP=$GET(^HLCS(870,MATCH,0))
- +3 SET NAME=$PIECE(TMP,"^",1)
- +4 if (NAME="")
- SET NAME="UNKNOWN"
- +5 SET TMP="Selected Message from Logical Link "_NAME
- +6 SET VALMHDR(1)=$$SETSTR^VALM1(TMP,"",(40-($LENGTH(TMP)\2)),$LENGTH(TMP))
- +7 QUIT
- +8 ;
- INIT ; -- init variables and list array
- +1 NEW X,ENTRY,COUNTER
- +2 if ('$DATA(LLE))
- QUIT
- +3 if ('$DATA(MATCH))
- QUIT
- +4 SET ENTRY=""
- SET COUNTER=0
- +5 FOR
- SET ENTRY=$ORDER(LLE(ENTRY))
- if (ENTRY="")
- QUIT
- Begin DoDot:1
- +6 SET IDX=LLE(ENTRY)
- +7 SET X=0
- +8 SET COUNTER=COUNTER+1
- +9 FOR
- SET X=$ORDER(^HLCS(870,MATCH,2,IDX,1,X))
- if (X="")
- QUIT
- Begin DoDot:2
- +10 SET COUNTER=COUNTER+1
- +11 SET LINE=$GET(^HLCS(870,MATCH,2,IDX,1,X,0))
- +12 DO SET^VALM10(COUNTER,LINE)
- End DoDot:2
- End DoDot:1
- +13 SET VALMCNT=COUNTER
- +14 QUIT
- +15 ;
- HELP ; -- help code
- +1 SET X="?"
- DO DISP^XQORM1
- WRITE !!
- +2 QUIT
- +3 ;
- EXIT ; -- exit code
- +1 QUIT
- +2 ;
- EXPND ; -- expand code
- +1 QUIT
- +2 ;