Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BPSRSHLD

BPSRSHLD.m

Go to the documentation of this file.
  1. BPSRSHLD ;BHAM ISC/SS - ECME RESEARCH SCREEN ON HOLD ;05-APR-05
  1. ;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
  1. ;; Per VHA Directive 10-93-142, this routine should not be modified.
  1. Q
  1. ;
  1. OH ;
  1. ;
  1. N BPRET,BPSEL
  1. N IBIBRX
  1. I '$D(@(VALMAR)) Q
  1. D FULL^VALM1
  1. W !,"Please select a SINGLE Patient Line item when accessing the On Hold Copay Listing"
  1. S BPSEL=$$ASKLINE^BPSSCRU4("Select item","P","Please select SINGLE patient summary line.")
  1. I BPSEL<1 S VALMBCK="R" Q
  1. N DFN
  1. S DFN=+$P(BPSEL,U,2)
  1. D ONHOLD^IBNCPDPH(DFN)
  1. D PAUSE^VALM1
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. ;