Skip to content

Commit

Permalink
Install: FB*3.5*177
Browse files Browse the repository at this point in the history 
Patch Subject:  PURPOSE OF VISIT CODE UPDATE
Description:

============
 This patch adds six new Purpose of Visit (POV) codes to the FEE BASIS
 PURPOSE OF VISIT (#161.82) file.
                                *PLEASE NOTE *
 **************************************************************************
 * There will be an FBCS update patch in the future that will allow for   *
 * the inpatient code use (codes 95-97) from the GUI application.         *
 **************************************************************************
 ASSOCIATED CA SDM TICKET:
 =========================
 1. I13660509FY17 - FEE - Modify VistA App to Add New POV Codes
 ASSOCIATED NSR(S):
 ==================
 N/A
 PARTICIPATING TEST SITES:
 =========================
 Bronx - James J. Peters VA Medical Center (Bronx, NY)
 Fargo VA Medical Center
 TICKET OVERVIEW:
 ================
 1. I13660509FY17 - FEE - Modify VistA App to Add New POV Codes
    Problem:
    --------
    The Veterans Health Administration (VHA) requires six new Fee Basis
    Purpose of Visit (POV) codes added to the VistA database.
    Resolution:
    -----------
    Routine FBXIP177 adds the six POV codes in the FEE BASIS PURPOSE OF
    VISIT (#161.82) file, as indicated.
    New Purpose of Visit Codes being added:
 POV Code   Name/ Description
        Fee Program  Associated with
 -------------------------------------------------------------------------------
 92         OUTPATIENT IVF / ART CARE - NON-VETERAN COLLATERAL SPOUSE
        OUTPATIENT
 93         OUTPATIENT IVF / ART CARE - SC VETERAN
        OUTPATIENT
 94         OUTPATIENT IVF / ART CARE - VETERAN COLLATERAL SPOUSE; FOR
            WHEN SPOUSE IS ALSO A VETERAN BUT NOT SC
        OUTPATIENT
 95         INPATIENT IVF / ART CARE - NON-VETERAN COLLATERAL SPOUSE
        CIVIL HOSPITAL
 96         INPATIENT IVF / ART CARE - SC VETERAN
        CIVIL HOSPITAL
 97         INPATIENT IVF / ART CARE - VETERAN COLLATERAL SPOUSE; FOR WHEN
            SPOUSE IS ALSO A VETERAN BUT NOT SC
         CIVIL HOSPITAL
 FBCS Note:
  Once the POV codes are present in VistA, the sites simply need to re-sync
  the lookup tables for FBCS:
     In order to resynch the data, a user with administrator privileges in
     FBCS Authorization will need to log in. From there, clicking the large
     arrow, and then Options, will bring you to the Options tabs. On the
     first options page there is a command to resynch lookup tables. It is
     recommended that the command is run toward the end of the workday.
  This step will load the outpatient codes 92-94.
  There will be an FBCS update patch in the future that will allow for the
  inpatient code use (codes 95-97) from the GUI application.

Use default answers for KIDS load/install questions.

Patch-Files: http://code.osehra.org/VistA.git/tree/master/Packages/Fee+Basis/Patches/FB_3.5_177
  • Loading branch information
@josephsnyder
josephsnyder committed May 18, 2019
1 parent fc04a25 commit 522ff9d
Show file tree
Hide file tree
Showing 7 changed files with 239 additions and 14 deletions.
30 changes: 27 additions & 3 deletions Packages/Fee Basis/Globals/161.82+FEE BASIS PURPOSE OF VISIT.zwr
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
OSEHRA ZGO Export: FEE BASIS PURPOSE OF VISIT
09-NOV-2018 16:15:35 ZWR
^FBAA(161.82,0)="FEE BASIS PURPOSE OF VISIT^161.82I^28^42"
18-MAY-2019 01:46:52 ZWR
^FBAA(161.82,0)="FEE BASIS PURPOSE OF VISIT^161.82I^97^48"
^FBAA(161.82,1,0)="UNAUTHORIZED CLAIM - OUTPATIENT^^02"
^FBAA(161.82,2,0)="HOSPICE CARE (INPT.) CONTRACT/SHARING AGREEMENT^6^37"
^FBAA(161.82,3,0)="HOSPICE CARE (INPT.) FEE BASIS AUTHORITY (CFR 17.50b)^6^38"
Expand All @@ -12,7 +12,7 @@ OSEHRA ZGO Export: FEE BASIS PURPOSE OF VISIT
^FBAA(161.82,18,0)="CLASS IIb DENTAL TREATMENT^2^18"
^FBAA(161.82,19,0)="CLASS IIc DENTAL TREATMENT^2^19"
^FBAA(161.82,20,0)="CLASS IIr DENTAL TREATMENT^2^20"
^FBAA(161.82,20,"I")="3090101"
^FBAA(161.82,20,"I")=3090101
^FBAA(161.82,21,0)="CLASS III DENTAL TREATMENT^2^21"
^FBAA(161.82,22,0)="CLASS IV DENTAL TREATMENT^2^22"
^FBAA(161.82,23,0)="CLASS V DENTAL TREATMENT^2^23"
Expand Down Expand Up @@ -44,6 +44,12 @@ OSEHRA ZGO Export: FEE BASIS PURPOSE OF VISIT
^FBAA(161.82,87,0)="STATE HOME DOM^15^87"
^FBAA(161.82,88,0)="STATE HOME HOSPITAL^15^88"
^FBAA(161.82,89,0)="STATE HOME NH^15^89"
^FBAA(161.82,92,0)="OUTPATIENT IVF / ART CARE - NON-VETERAN COLLATERAL SPOUSE^2^92"
^FBAA(161.82,93,0)="OUTPATIENT IVF / ART CARE - SC VETERAN^2^93"
^FBAA(161.82,94,0)="OUTPATIENT IVF / ART CARE - VETERAN COLLATERAL SPOUSE; FOR WHEN SPOUSE IS ALSO A VETERAN BUT NOT SC^2^94"
^FBAA(161.82,95,0)="INPATIENT IVF / ART CARE - NON-VETERAN COLLATERAL SPOUSE^6^95"
^FBAA(161.82,96,0)="INPATIENT IVF / ART CARE - SC VETERAN^6^96"
^FBAA(161.82,97,0)="INPATIENT IVF / ART CARE - VETERAN COLLATERAL SPOUSE; FOR WHEN SPOUSE IS ALSO A VETERAN BUT NOT SC^6^97"
^FBAA(161.82,"AC",15,15)=""
^FBAA(161.82,"AC",16,16)=""
^FBAA(161.82,"AC",17,17)=""
Expand Down Expand Up @@ -84,6 +90,12 @@ OSEHRA ZGO Export: FEE BASIS PURPOSE OF VISIT
^FBAA(161.82,"AC",87,87)=""
^FBAA(161.82,"AC",88,88)=""
^FBAA(161.82,"AC",89,89)=""
^FBAA(161.82,"AC",92,92)=""
^FBAA(161.82,"AC",93,93)=""
^FBAA(161.82,"AC",94,94)=""
^FBAA(161.82,"AC",95,95)=""
^FBAA(161.82,"AC",96,96)=""
^FBAA(161.82,"AC",97,97)=""
^FBAA(161.82,"AC","02",1)=""
^FBAA(161.82,"B","ADHC",76)=""
^FBAA(161.82,"B","AMBULANCE/TRAVEL - FOR INPATIENT OR OUTPATIENT SERVICES",28)=""
Expand All @@ -110,12 +122,18 @@ OSEHRA ZGO Export: FEE BASIS PURPOSE OF VISIT
^FBAA(161.82,"B","HOSPICE CARE (INPT.) CONTRACT/SHARING AGREEMENT",2)=""
^FBAA(161.82,"B","HOSPICE CARE (INPT.) FEE BASIS AUTHORITY (CFR 17.50b)",3)=""
^FBAA(161.82,"B","INPATIENT 38 U.S.C. 1725",39)=""
^FBAA(161.82,"B","INPATIENT IVF / ART CARE - NON-VETERAN COLLATERAL SPOUSE",95)=""
^FBAA(161.82,"B","INPATIENT IVF / ART CARE - SC VETERAN",96)=""
^FBAA(161.82,"B","INPATIENT IVF / ART CARE - VETERAN COLLATERAL SPOUSE; FOR WHEN ",97)=""
^FBAA(161.82,"B","MILITARY SEXUAL TRAUMA SERVICES",55)=""
^FBAA(161.82,"B","NEWBORN CARE FOR THE FIRST 7 DAYS AFTER BIRTH.",29)=""
^FBAA(161.82,"B","NEWBORN CARE FOR THE FIRST 7 DAYS AFTER BIRTH.",66)=""
^FBAA(161.82,"B","NON-VA HOSP. CARE FOR WOMEN VETERANS (NO OTHER ELIGIBILITY). IN",34)=""
^FBAA(161.82,"B","NON-VA MEDICAL CARE, CAREGIVER OVERSIGHT VISITS",25)=""
^FBAA(161.82,"B","OUTPATIENT 38 U.S.C. 1725",52)=""
^FBAA(161.82,"B","OUTPATIENT IVF / ART CARE - NON-VETERAN COLLATERAL SPOUSE",92)=""
^FBAA(161.82,"B","OUTPATIENT IVF / ART CARE - SC VETERAN",93)=""
^FBAA(161.82,"B","OUTPATIENT IVF / ART CARE - VETERAN COLLATERAL SPOUSE; FOR WHEN",94)=""
^FBAA(161.82,"B","OUTPATIENT MATERNITY CARE SERVICES",67)=""
^FBAA(161.82,"B","PROGRAM OF ALL-INCLUSIVE CARE OF THE ELDERLY (PACE)",26)=""
^FBAA(161.82,"B","RESPITE CARE (OTHER)",79)=""
Expand Down Expand Up @@ -168,4 +186,10 @@ OSEHRA ZGO Export: FEE BASIS PURPOSE OF VISIT
^FBAA(161.82,"C",87,87)=""
^FBAA(161.82,"C",88,88)=""
^FBAA(161.82,"C",89,89)=""
^FBAA(161.82,"C",92,92)=""
^FBAA(161.82,"C",93,93)=""
^FBAA(161.82,"C",94,94)=""
^FBAA(161.82,"C",95,95)=""
^FBAA(161.82,"C",96,96)=""
^FBAA(161.82,"C",97,97)=""
^FBAA(161.82,"C","02",1)=""
39 changes: 39 additions & 0 deletions Packages/Fee Basis/Routines/FBXIP177.m
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,39 @@
FBXIP177 ;ALB/BJR-PATCH INSTALL ROUTINE ;4/12/17 3:26pm
;;3.5;FEE BASIS;**177**;JAN 30, 1995;Build 7
;;Per VA Directive 6402, this routine should not be modified.
Q
;
UPDPOV ; Update Selected Purpose of Visits (POV)
N FBCODE,FBDA,FBFDA,FBI,FBNAME,FBPROG,FBX,X,Y,FBCCODE
D BMES^XPDUTL(" Updating selected POVs in the FEE BASIS PURPOSE OF VISIT (161.82) file...")
; verify IEN of OUTPATIENT program in FEE BASIS PROGRAM file
I $P($G(^FBAA(161.8,2,0)),U)'="OUTPATIENT"!($P($G(^FBAA(161.8,6,0)),U)'="CIVIL HOSPITAL") D Q
. D MES^XPDUTL(" ERROR: Fee Program IEN Mismatched.")
. D MES^XPDUTL(" Purpose of Visits could not be updated.")
. D MES^XPDUTL(" Please contact your IRM for assistance.")
F FBI=1:1 S FBX=$P($T(POV+FBI),";;",2) Q:FBX="END" D
. S FBCODE=$P(FBX,U)
. S FBNAME=$P(FBX,U,2)
. S FBPROG=$P(FBX,U,3)
. N DA,DD,DIC,DINUM,DLAYGO,DO,X
. S FBCCODE=$O(^FBAA(161.82,"B",$E(FBNAME,1,63),"")) I FBCCODE,$P(^FBAA(161.82,FBCCODE,0),U,3)=FBCODE D MES^XPDUTL("POV WITH CODE "_FBCODE_" ALREADY EXISTS AND HAS NOT BEEN ADDED") Q
. S DIC="^FBAA(161.82,",DIC(0)="L",DLAYGO=161.82
. S X=FBNAME
. S DIC("DR")="2///^S X=FBPROG;3///^S X=FBCODE"
. I +FBCODE,'$D(^FBAA(161.82,+FBCODE,0)) S DINUM=+FBCODE
. D FILE^DICN
. I Y<0 D MES^XPDUTL("ERROR ADDING POV WITH CODE "_FBCODE) Q
. D MES^XPDUTL("POV WITH CODE "_FBCODE_" HAS BEEN ADDED")
D BMES^XPDUTL("Post Install Completed.")
Q
;
POV ;Austin code^name^fee program for Purpose of Visit (POV) code(s)^Additional Description
;;92^OUTPATIENT IVF / ART CARE - NON-VETERAN COLLATERAL SPOUSE^2
;;93^OUTPATIENT IVF / ART CARE - SC VETERAN^2
;;94^OUTPATIENT IVF / ART CARE - VETERAN COLLATERAL SPOUSE; FOR WHEN SPOUSE IS ALSO A VETERAN BUT NOT SC^2
;;95^INPATIENT IVF / ART CARE - NON-VETERAN COLLATERAL SPOUSE^6
;;96^INPATIENT IVF / ART CARE - SC VETERAN^6
;;97^INPATIENT IVF / ART CARE - VETERAN COLLATERAL SPOUSE; FOR WHEN SPOUSE IS ALSO A VETERAN BUT NOT SC^6
;;END
;
;FBXIP177
Loading

0 comments on commit 522ff9d

Please sign in to comment.