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

IBCNBUH.m

Go to the documentation of this file. 
  1. IBCNBUH ;ALB/ARH-Ins Buffer: Help Text ;1 Jun 97
  1.  ;;2.0;INTEGRATED BILLING;**82,184**;21-MAR-94
  1.  ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1.  ;
  1.  ;
  1. HELP D HELP1,HELP3
  1.  Q
  1. WAIT N DIR,DIRUT,X,Y W !! S DIR(0)="E" D ^DIR W !! Q
  1.  ;
  1. HELP1 ;
  1.  W !!,"The left side of the display contains data from a buffer file entry."
  1.  W !,?3,"BOLD:  buffer data that is printed in bold will be added to the existing ",!,?10,"insurance entry if the MERGE option is used."
  1.  W !!,"The right side of the display contains data from an existing insurance entry."
  1.  W !,?3,"BOLD:  existing insurance data that is printed in bold will be replaced with ",!,?10,"the corresponding buffer entry data if the OVERWRITE option is used."
  1.  Q
  1.  ;
  1. HELP2 W !!,"When a buffer entry is determined to be a match with an existing insurance ",!,"entry, these are the options that may be used to move the data from the buffer ",!,"entry to the insurance entry:"
  1.  W !!,"MERGE:",?11,"Data from the buffer entry will be saved to the insurance entry ",!,?11,"ONLY if the corresponding data field in the insurance entry is blank."
  1.  W !,?11,"Therefore only blank fields in the insurance entry will be filled, ",!,?11,"any existing data in the insurance entry will remain unchanged."
  1.  W !!,"OVERWRITE:",?11,"ALL non-blank data in the buffer entry will be saved to the insurance"
  1.  W !,?11,"entry.  If a buffer entry field has a value it will be saved to the ",!,?11,"corresponding insurance entry field.  Therefore blank insurance ",!,?11,"fields will be filled and existing insurance data replaced."
  1.  W !!,"REPLACE:",?11,"ALL fields in the buffer entry will be saved to the insurance entry, "
  1.  W !,?11,"including blank fields.  Therefore all data in the insurance entry ",!,?11,"will be deleted then completely replaced by the buffer entry."
  1.  W !!,"NO CHANGE: This option may be used to identify the Insurance entry that",!,?11,"corresponds to a buffer entry without actually changing any of",!,?11,"the Insurance Information.  The Buffer data is ignored."
  1.  D WAIT^IBCNBAA
  1.  W !!,"INDIVIDUALLY ACCEPT (SKIP BLANKS): This option may be used to accept only",!,?11,"non-blank specific fields from the buffer entry into the Insurance",!,?11,"entry.  Only those values accepted by the user will replace the"
  1.  W !,?11,"corresponding fields in the Insurance entry."
  1.  Q
  1.  ;
  1. HELP3 W !!,"Options for moving Buffer data to Insurance files:"
  1.  W !!,"MERGE:     Save buffer data only if Insurance field is blank."
  1.  W !!,"OVERWRITE: Save all non-blank fields in Buffer to Insurance fields."
  1.  W !!,"REPLACE:   All data deleted from Insurance fields and replaced with Buffer data."
  1.  W !!,"NO CHANGE: The buffer data is ignored, the Insurance entry will not be changed."
  1.  W !!,"INDIVIDUALLY ACCEPT (SKIP BLANKS): Save non-blank user-confirmed Buffer fields."
  1.  Q