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 ---[H[J[2J[HDVB4P64 469 printed Nov 22, 2024@17:07:57 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
