HLCSRQ.m

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

 ;

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       ;