- BPSRSHLD ;BHAM ISC/SS - ECME RESEARCH SCREEN ON HOLD ;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
- ;
- OH ;
- ;
- N BPRET,BPSEL
- N IBIBRX
- I '$D(@(VALMAR)) Q
- D FULL^VALM1
- W !,"Please select a SINGLE Patient Line item when accessing the On Hold Copay Listing"
- S BPSEL=$$ASKLINE^BPSSCRU4("Select item","P","Please select SINGLE patient summary line.")
- I BPSEL<1 S VALMBCK="R" Q
- N DFN
- S DFN=+$P(BPSEL,U,2)
- D ONHOLD^IBNCPDPH(DFN)
- D PAUSE^VALM1
- S VALMBCK="R"
- Q
- ;
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSRSHLD 572 printed Jan 18, 2025@02:54:08 Page 2
- BPSRSHLD ;BHAM ISC/SS - ECME RESEARCH SCREEN ON HOLD ;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 ;
- OH ;
- +1 ;
- +2 NEW BPRET,BPSEL
- +3 NEW IBIBRX
- +4 IF '$DATA(@(VALMAR))
- QUIT
- +5 DO FULL^VALM1
- +6 WRITE !,"Please select a SINGLE Patient Line item when accessing the On Hold Copay Listing"
- +7 SET BPSEL=$$ASKLINE^BPSSCRU4("Select item","P","Please select SINGLE patient summary line.")
- +8 IF BPSEL<1
- SET VALMBCK="R"
- QUIT
- +9 NEW DFN
- +10 SET DFN=+$PIECE(BPSEL,U,2)
- +11 DO ONHOLD^IBNCPDPH(DFN)
- +12 DO PAUSE^VALM1
- +13 SET VALMBCK="R"
- +14 QUIT
- +15 ;
- +16 ;