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

BDGH06.m

Go to the documentation of this file. 
  1. BDGH06 ; IHS/ANMC/LJF - INTRO TEXT FOR INCOMPLETE CHART MENU ; 
  1.  ;;5.3;PIMS;**1004**;MAY 28, 2004
  1.  ;IHS/OIT/LJF 09/08/2005 PATCH 1004 added ICV and SET subroutines
  1.  ;            09/22/2005 PATCH 1004 added NICE subroutine
  1.  ;
  1.  Q
  1.  ;
  1. CODE ;EP; intro text for Inpatient Chart Coding
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to code all inpatient charts. Any changes"
  1.  S BDGX(2)="made to data stored in both ADT and PCC will be updated"
  1.  S BDGX(3)="if the change is made in this option.  You may also view"
  1.  S BDGX(4)="all In Hospital Visits for the date range of the inpatient"
  1.  S BDGX(5)="stay, run the PCC edit check and print a final A Sheet."
  1.  D DISPLAY(5)
  1.  Q
  1.  ;
  1. ECD ;EP; intro text for Edit Chrt Deficiency List     
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to add, modify or inactivate any chart"
  1.  S BDGX(2)="deficiency entries.  This file is maintained locally."
  1.  D DISPLAY(2)
  1.  Q
  1.  ;
  1. FVH ;EP; intro text for Fix V Hospitalization Entries
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to add v hospitalization and/or visit"
  1.  S BDGX(2)="entries to admissions where those entries were not added"
  1.  S BDGX(3)="automatically during admission and discharge.  These are"
  1.  S BDGX(4)="entries that show up on the Coding Status Report as errors."
  1.  D DISPLAY(4)
  1.  Q
  1.  ;
  1. ICE ;EP; intro text for Incomplete Charts Edit
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to update all incomplete charts, both"
  1.  S BDGX(2)="inpatients and day surgeries.  You can track deficiencies"
  1.  S BDGX(3)="by provider and completion dates for different phases of"
  1.  S BDGX(4)="the incomplete chart process.  Entries can no longer be"
  1.  S BDGX(5)="deleted upon completion, just marked as completed.  For"
  1.  S BDGX(6)="more information, see the IC Online help on this menu."
  1.  D DISPLAY(6)
  1.  Q
  1.  ;
  1. ICF ;EP; intro text for Incomplete Chart Forms
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to access the various printed forms used"
  1.  S BDGX(2)="in the Incomplete Chart process.  See the on-line help"
  1.  S BDGX(3)="for details on each form."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. ICR ;EP; intro text for Incomplete Chart Reports
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to access the various ways of listing"
  1.  S BDGX(2)="incomplete and delinquent charts.  See the on-line help"
  1.  S BDGX(3)="for details on each report."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. ICS ;EP; intro text for incomplete Chart Statistics
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to access all reports giving statistics"
  1.  S BDGX(2)="on current and past incomplete/deliquent charts.  See"
  1.  S BDGX(3)="the on-line help for details on each report."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. ICV ;EP; intro text for Fix Visit in ICE   ;IHS/OIT/LJF 09/08/2005 PATCH 1004 added subroutine
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to fix the link between the incomplete"
  1.  S BDGX(2)="chart record and the PCC visit.  You must know the visit date"
  1.  S BDGX(3)="AND exact time.  If more than one visit at that date and time"
  1.  S BDGX(4)="exists, make sure to select the one for your patient."
  1.  D DISPLAY(4)
  1.  Q
  1.  ;
  1. SET ;EP; intro text for Set UP IC Parameters  ;IHS/OIT/LJF 09/08/2005 PATCH 1004 added subroutine
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to set up and modify parameters dealing with"
  1.  S BDGX(2)="how you use the Incomplete Chart module.  You can select"
  1.  S BDGX(3)="which dates to use in tracking the process of your charts."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. NICE ;EP; intro text for BDG IC EDIT NEW ;IHS/OIT/LJF 09/22/05 PATCH 1004
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option in place of ICE for an easier way of updating"
  1.  S BDGX(2)="information for incomplete charts.  You can now add and resolve"
  1.  S BDGX(3)="many deficiencies for one provider very quickly."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. DISPLAY(N) ; -- display array with N lines
  1.  S BDGX(1,"F")="!!!?5"
  1.  F I=2:1:N S BDGX(I,"F")="!?5"
  1.  S BDGX(N+1,"F")="!!"
  1.  D EN^DDIOL(.BDGX)
  1.  D VAR^BDGVAR      ;makes all options able to run independently
  1.  Q