BPSSCRDV.m

BPSSCRDV ;BHAM ISC/SS - ECME SCREEN DEVELOPER LOG ;05-APR-05

 ;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004

 ;; Per VHA Directive 10-93-142, this routine should not be modified.

 Q

 ;

DV ;entry point for LOG menu option of the main User Screen

 N BPRET,BPSEL

 I '$D(@(VALMAR)) Q

 D FULL^VALM1

 W !,"Enter the line number for which you wish to print claim logs."

 S BPSEL=$$ASKLINE^BPSSCRU4("Select item","C","Please select SINGLE Rx Line.")

 I BPSEL<1 S VALMBCK="R" Q

 D CLAIMLOG^BPSOS6M(+$P(BPSEL,U,4))

 S VALMBCK="R"

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---BPSSCRDV   537     printed  Apr 09, 2024@20:55:28                                                                                                                                                                                                     Page 2

BPSSCRDV  ;BHAM ISC/SS - ECME SCREEN DEVELOPER LOG ;05-APR-05

 +1       ;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004

 +2       ;; Per VHA Directive 10-93-142, this routine should not be modified.

 +3        QUIT 

 +4       ;

DV        ;entry point for LOG menu option of the main User Screen

 +1        NEW BPRET,BPSEL

 +2        IF '$DATA(@(VALMAR))

               QUIT 

 +3        DO FULL^VALM1

 +4        WRITE !,"Enter the line number for which you wish to print claim logs."

 +5        SET BPSEL=$$ASKLINE^BPSSCRU4("Select item","C","Please select SINGLE Rx Line.")

 +6        IF BPSEL<1

               SET VALMBCK="R"

               QUIT 

 +7        DO CLAIMLOG^BPSOS6M(+$PIECE(BPSEL,U,4))

 +8        SET VALMBCK="R"

 +9        QUIT 

 +10      ;