- 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 Jan 18, 2025@02:54:23 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 ;