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 ---[H[J[2J[HBPSSCRDV 537 printed Oct 16, 2024@17:53:59 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 ;