DVB4P64.m

DVB4P64 ;ALB/MJB - DISABILITY FILE UPDATE ; 6/28/10 1:34pm

 ;;4.0;HINQ;**64**;03/25/92;Build 25

 ;

 Q

EN ; START UPDATE

 D BMES^XPDUTL("  >>> *** Updating the DISABILITY CONDITION (#31) file...")

 D MES^XPDUTL("      *** Please be patient, this should take less than 5 minutes.")

 D MES^XPDUTL("  ")

 D POST^DVB464 ; ADD NEW DISABILITY CONDITIONS

 D POST^DVB464P ;DELETE REQUESTED ICD'S FROM MAPPING

 D POST^DVB464PA ; ADD NEW DIAGNOSIC CODES TO MAPPING

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVB4P64   469     printed  Mar 13, 2025@21:02:27                                                                                                                                                                                                      Page 2

DVB4P64   ;ALB/MJB - DISABILITY FILE UPDATE ; 6/28/10 1:34pm

 +1       ;;4.0;HINQ;**64**;03/25/92;Build 25

 +2       ;

 +3        QUIT 

EN        ; START UPDATE

 +1        DO BMES^XPDUTL("  >>> *** Updating the DISABILITY CONDITION (#31) file...")

 +2        DO MES^XPDUTL("      *** Please be patient, this should take less than 5 minutes.")

 +3        DO MES^XPDUTL("  ")

 +4       ; ADD NEW DISABILITY CONDITIONS

           DO POST^DVB464

 +5       ;DELETE REQUESTED ICD'S FROM MAPPING

           DO POST^DVB464P

 +6       ; ADD NEW DIAGNOSIC CODES TO MAPPING

           DO POST^DVB464PA

 +7        QUIT