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

DVBA189P.m

Go to the documentation of this file.
  1. DVBA189P ;ALB/GAK - PATCH DVBA*2.7*189 POST-INSTALL ROUTINE;08/08/2014
  1. ;;2.7;AMIE;**189**;Apr 10, 1995;Build 22
  1. ; This routine adds an entry to the REMOTE APPLICATION file (#8994.5) for VLER DAS-CAPRI
  1. ; ALB/RTW -This routine adds new and hides old 2507 Cancelation Reasons in global (#396.5) for VLER DAS-CAPRI
  1. Q
  1. ;
  1. ENTER ;
  1. D INRSN
  1. D SPCON
  1. D CLMTYP
  1. D CANRSN
  1. Q
  1. ;
  1. ;
  1. INRSN ;SETUP THE INSUFFICIENT REASON FILE #396.94
  1. ;HIDE REQUESTED INSUFFICIENT REASONS
  1. N DVBAI,DVBLINE,FIND,OUT,IRIEN,RSN,CODE,REPORT
  1. F DVBAI=1:1 S DVBLINE=$P($T(IRHIDE+DVBAI),";;",2) Q:DVBLINE="QUIT" D
  1. . K FIND,OUT
  1. . S FIND=DVBLINE
  1. . D FIND^DIC(396.94,"",.01,"X",.FIND,"","","","","OUT")
  1. . S IRIEN=$G(OUT("DILIST",2,1))
  1. . I IRIEN="" D BMES^XPDUTL("INSUFFICIENT REASON NOT ON FILE TO HIDE: "_DVBLINE) Q
  1. . I '$D(^DVB(396.94,IRIEN)) D BMES^XPDUTL("INSUFFICIENT REASON NOT ON FILE TO HIDE: "_DVBLINE) Q
  1. . ;
  1. . Q:$P(^DVB(396.94,IRIEN,0),"^",4)'=""
  1. . ;
  1. . K FDA,ERR,KEYIEN
  1. . S FDA(396.94,IRIEN_",",1)="Y"
  1. . S KEYIEN(1)=IRIEN
  1. . D UPDATE^DIE("","FDA","KEYIEN","ERR")
  1. . I $G(ERR)'="" D BMES^XPDUTL("INSUFFICIENT REASON: "_DVBLINE_" COULD NOT BE DEACTIVATED BY POST-INSTALL ROUTINE. PLEASE SET INACTIVE FIELD TO YES.") Q
  1. . D BMES^XPDUTL("INSUFFICIENT REASON: "_DVBLINE_" HAS BEEN DEACTIVATED.") Q
  1. ;
  1. ;NEW REQUESTED INSUFFICIENT REASONS
  1. N DVBAI,DVBLINE,FIND,OUT
  1. F DVBAI=1:1 S DVBLINE=$P($T(IRNEW+DVBAI),";;",2) Q:DVBLINE="QUIT" D
  1. . K FIND,OUT
  1. . S FIND=$TR($P(DVBLINE,"^",1),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. . D FIND^DIC(396.94,"",.01,"X",.FIND,"","","","","OUT")
  1. . I $G(OUT("DILIST",2,1))'="" D BMES^XPDUTL("INSUFFICIENT REASON: "_FIND_" HAS ALREADY BEEN ADDED.") D Q
  1. . . S DVBABIEN=OUT("DILIST","2",1)
  1. . . S DVBAFDA(396.94,DVBABIEN_",",1)="N"
  1. . . D FILE^DIE("","DVBAFDA","DVBAERR")
  1. . K RSN,CODE,REPORT
  1. . S RSN=$TR($P(DVBLINE,"^",1),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. . S CODE=$P(DVBLINE,"^",2)
  1. . S REPORT=$P(DVBLINE,"^",3)
  1. . K FDA,ERR
  1. . S FDA(396.94,"+1,",.01)=RSN
  1. . S FDA(396.94,"+1,",.02)=CODE
  1. . S FDA(396.94,"+1,",.03)=REPORT
  1. . S FDA(396.94,"+1,",1)="N"
  1. . D UPDATE^DIE("","FDA","","ERR")
  1. . I $G(ERR)'="" D BMES^XPDUTL("INSUFFICIENT REASON: "_RSN_" COULD NOT BE ADDED BY POST-INSTALL ROUTINE.") Q
  1. . D BMES^XPDUTL("INSUFFICIENT REASON: "_RSN_" HAS BEEN ADDED.") Q
  1. ;
  1. Q
  1. ;
  1. IRHIDE ;INACTIVATE THE FOLLOWING REASONS
  1. ;;DIAGNOSIS INCONSISTENT WITH EVIDENCE
  1. ;;EXAM PREVIOUSLY RETURNED AS INSUFFICIENT, RETURN AGAIN INSUFFICIENT
  1. ;;EYE EXAM IS INSUFFICIENT
  1. ;;FAILED TO PERFORM REQUESTED SPECIALIST EXAM
  1. ;;FAILED TO PROVIDE ADDITIONAL EXAM RECOMMENDED BY EXAMINING PHYSICIAN
  1. ;;FAILED TO PROVIDE RANGE OF MOTION
  1. ;;FAILED TO PROVIDE REQUESTED MEDICAL OPINION
  1. ;;FAILED TO PROVIDE TEST ROUTINELY DONE FOR SPECIFIC CONDITION
  1. ;;FAILED TO REVIEW TEST RESULTS BEFORE MAKING DIAGNOSIS
  1. ;;OTHER
  1. ;;QUIT
  1. Q
  1. ;
  1. IRNEW ;ADD THE FOLLOWING NEW REASONS
  1. ;;Failed to provide requested/required information^FRI^Failed to provide requested/required information
  1. ;;Failed to provide medical opinion^FMO^Failed to provide medical opinion
  1. ;;Failed to comply with BVA Remand Instructions^FBVA^Failed to comply with BVA Remand Instructions
  1. ;;Failed to provide diagnosis^FPD^Failed to provide diagnosis
  1. ;;Failed to provide rationale^FPR^Failed to provide rationale
  1. ;;Conflicting information in report^CIR^Conflicting information in report
  1. ;;Failed to address all conditions requested^FAC^Failed to address all conditions requested
  1. ;;In-person examination was not performed^IPN^In-person examination was not performed
  1. ;;Case required exam by a specialist^CRS^Case required exam by a specialist
  1. ;;QUIT
  1. Q
  1. ;
  1. ;
  1. SPCON ;SETUP THE 2507 SPECIAL CONSIDERATIONS FILE #396.25
  1. ;NEW REQUESTED SPECIAL CONSIDERATIONS
  1. N DVBAI,DVBLINE,DVBLINE,FIND,OUT
  1. F DVBAI=1:1 S DVBLINE=$P($T(SCNEW+DVBAI),";;",2) Q:DVBLINE="QUIT" D
  1. . K FIND,OUT
  1. . S FIND=$TR(DVBLINE,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. . D FIND^DIC(396.25,"",.01,"X",.FIND,"","","","","OUT")
  1. . I $G(OUT("DILIST",2,1))'="" D BMES^XPDUTL("SPECIAL CONSIDERATION: "_FIND_" HAS ALREADY BEEN ADDED.") Q
  1. . K FDA,ERR
  1. . S DVBLINE=$TR(DVBLINE,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. . S FDA(396.25,"+1,",.01)=DVBLINE
  1. . D UPDATE^DIE("","FDA","","ERR")
  1. . I $G(ERR)'="" D BMES^XPDUTL("SPECIAL CONSIDERATION: "_DVBLINE_" COULD NOT BE ADDED BY POST-INSTALL ROUTINE.") Q
  1. . D BMES^XPDUTL("SPECIAL CONSIDERATION: "_DVBLINE_" HAS BEEN ADDED.") Q
  1. ;
  1. Q
  1. ;
  1. SCNEW ;ADD THE FOLLOWING NEW SPECIAL CONSIDERATIONS
  1. ;;AGE OF CLAIM
  1. ;;FDC
  1. ;;HOMELESS
  1. ;;NOT APPLICABLE
  1. ;;POW
  1. ;;TERMINAL
  1. ;;QUIT
  1. Q
  1. ;
  1. ;
  1. CLMTYP ;SETUP THE 2507 CLAIM TYPE FILE #396.27
  1. ;NEW REQUESTED CLAIM TYPES
  1. N DVBAI,DVBLINE,DVBLINE,FIND,OUT
  1. F DVBAI=1:1 S DVBLINE=$P($T(CTNEW+DVBAI),";;",2) Q:DVBLINE="QUIT" D
  1. . K FIND,OUT
  1. . S FIND=$TR(DVBLINE,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. . D FIND^DIC(396.27,"",.01,"X",.FIND,"","","","","OUT")
  1. . I $G(OUT("DILIST",2,1))'="" D BMES^XPDUTL("CLAIM TYPE: "_FIND_" HAS ALREADY BEEN ADDED.") Q
  1. . K FDA,ERR
  1. . S DVBLINE=$TR(DVBLINE,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. . S FDA(396.27,"+1,",.01)=DVBLINE
  1. . D UPDATE^DIE("","FDA","","ERR")
  1. . I $G(ERR)'="" D BMES^XPDUTL("CLAIM TYPE: "_DVBLINE_" COULD NOT BE ADDED BY POST-INSTALL ROUTINE.") Q
  1. . D BMES^XPDUTL("CLAIM TYPE: "_DVBLINE_" HAS BEEN ADDED.") Q
  1. ;
  1. Q
  1. ;
  1. CTNEW ;ADD THE FOLLOWING NEW CLAIM TYPES
  1. ;;BDD
  1. ;;BDD - DOD SHA
  1. ;;IDES
  1. ;;INCREASE ONLY
  1. ;;ORIGINAL
  1. ;;QUICK START
  1. ;;SUPPLEMENTAL
  1. ;;QUIT
  1. Q
  1. ;
  1. CANRSN ;SETUP THE CANCELLATION REASON FILE #396.5
  1. ;HIDE REQUESTED CANCELLATION REASONS
  1. N DVBAI,DVBLINE,FIND,OUT,IRIEN,RSN,CODE,REPORT
  1. F DVBAI=1:1 S DVBLINE=$P($T(CANHIDE+DVBAI),";;",2) Q:DVBLINE="QUIT" D
  1. . K FIND,OUT
  1. . S FIND=DVBLINE
  1. . D FIND^DIC(396.5,"",.01,"X",.FIND,"","","","","OUT")
  1. . S IRIEN=$G(OUT("DILIST",2,1))
  1. . I IRIEN="" D BMES^XPDUTL("CANCELLATION REASON NOT ON FILE TO HIDE: "_DVBLINE) Q
  1. . I '$D(^DVB(396.5,IRIEN)) D BMES^XPDUTL("CANCELLATION REASON NOT ON FILE TO HIDE: "_DVBLINE) Q
  1. . ;
  1. . Q:$P(^DVB(396.5,IRIEN,0),"^",4)'=""
  1. . ;
  1. . K FDA,ERR,KEYIEN
  1. . S FDA(396.5,IRIEN_",",.02)=0
  1. . S KEYIEN(1)=IRIEN
  1. . D UPDATE^DIE("","FDA","KEYIEN","ERR")
  1. . I $G(ERR)'="" D BMES^XPDUTL("CANCELLATION REASON: "_DVBLINE_" COULD NOT BE DEACTIVATED BY POST-INSTALL ROUTINE. PLEASE SET INACTIVE FIELD TO YES.") Q
  1. . D BMES^XPDUTL("CANCELLATION REASON: "_DVBLINE_" HAS BEEN DEACTIVATED.") Q
  1. ;
  1. CANNEW ;NEW REQUESTED CANCELLATION REASONS
  1. N DVBAI,DVBLINE,FIND,OUT
  1. F DVBAI=1:1 S DVBLINE=$P($T(CANRNEW+DVBAI),";;",2) Q:DVBLINE="QUIT" D
  1. . K FIND,OUT
  1. . S FIND=$P(DVBLINE,"^",1)
  1. . D FIND^DIC(396.5,"",.01,"X",.FIND,"","","","","OUT")
  1. . I $G(OUT("DILIST",2,1))'="" D BMES^XPDUTL("CANCELLATION REASON: "_FIND_" HAS ALREADY BEEN ADDED.") D Q
  1. . . S DVBABIEN=OUT("DILIST","2",1)
  1. . . S DVBAFDA(396.5,DVBABIEN_",",.02)="1"
  1. . . D FILE^DIE("","DVBAFDA","DVBAERR")
  1. . K CRSN,CODE,REPORT
  1. . S CRSN=$P(DVBLINE,"^",1)
  1. . K FDA,ERR
  1. . S FDA(396.5,"+1,",.01)=CRSN
  1. . S FDA(396.5,"+1,",.02)="1"
  1. . D UPDATE^DIE("","FDA","","ERR")
  1. . I $G(ERR)'="" D BMES^XPDUTL("CANCELLATION REASON: "_CRSN_" COULD NOT BE ADDED BY POST-INSTALL ROUTINE.") Q
  1. . D BMES^XPDUTL("CANCELLATION REASON: "_CRSN_" HAS BEEN ADDED.") Q
  1. ;
  1. Q
  1. ;
  1. CANHIDE ;INACTIVATE THE FOLLOWING CANCELLATION REASONS
  1. ;;ADEQUATE MEDICAL EVIDENCE
  1. ;;DUPLICATE EXAM
  1. ;;EMPLOYEE
  1. ;;EXAM NAME DELETED FROM FILE
  1. ;;FAILED TO REPORT
  1. ;;INCORRECT JURISDICTION
  1. ;;INCORRECT TEST ORDERED
  1. ;;NO EXAMS ORDERED
  1. ;;NOT ENOUGH INFORMATION
  1. ;;UNDELIVERED NOTIFICATION
  1. ;;VET REFUSED EXAM THIS LOCATION
  1. ;;VETERAN CANCELLED EXAM FOR DBQ
  1. ;;VETERAN WITHDREW CLAIM
  1. ;;QUIT
  1. Q
  1. ;
  1. CANRNEW ;ADD THE FOLLOWING NEW CANCELLATION REASONS
  1. ;;DUPLICATE REQUEST
  1. ;;EXAM REQUESTED AT DIFFERENT LOCATION
  1. ;;EXAM REQUESTED IN ERROR
  1. ;;INCOMPLETE REQUEST
  1. ;;UNABLE TO CONTACT VETERAN
  1. ;;VETERAN DIED
  1. ;;VETERAN FAILED TO REPORT
  1. ;;VETERAN FAILED TO RSVP
  1. ;;VETERAN HOSPITALIZED
  1. ;;VETERAN IS EMPLOYEE
  1. ;;VETERAN REFUSED EXAM
  1. ;;QUIT
  1. Q