DG531057P ;EDE/YMG - POST-INSTALL FOR DG*5.3*1057 ;07-JUN-2021
;;5.3;Registration;**1057**;Aug 13, 1993;Build 17
;
Q
;
EN ; entry point
D PTFERR
D RIT
Q
;
PTFERR ; update PTF errors in file 45.64
N FDA,IEN
D MES^XPDUTL("Updating error messages in file 45.64...")
; error 437
S IEN=$O(^DGP(45.64,"B",437,""))
I IEN S FDA(45.64,IEN_",",.02)="Date of surgery coded greater than 72 hours prior to admission date." D FILE^DIE("","FDA")
; error 637
S IEN=$O(^DGP(45.64,"B",637,""))
I IEN K FDA S FDA(45.64,IEN_",",.02)="Date of procedure coded greater than 72 hours prior to admission date." D FILE^DIE("","FDA")
; error 640
S IEN=$O(^DGP(45.64,"B",640,""))
I IEN K FDA S FDA(45.64,IEN_",",.02)="Date of procedure coded later than discharge date." D FILE^DIE("","FDA")
D MES^XPDUTL("Done.")
Q
;
RIT ; recompile input templates
N DMAX,X,Y,NM
D MES^XPDUTL("Recompiling PTF input templates...")
F NM="DG501-10D","DG401-10P","DG501F","DG501F-10D","DG701-10D" D
.S Y=$$FIND1^DIC(.402,,"X",NM,"B") I Y'>0 Q
.S X=$P($$GET1^DIQ(.402,Y_",",1815),U,2,99) I X="" Q
.S DMAX=$$ROUSIZE^DILF
.D EN^DIEZ
.Q
D MES^XPDUTL("Recompile completed.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG531057P 1192 printed Oct 16, 2024@18:36:26 Page 2
DG531057P ;EDE/YMG - POST-INSTALL FOR DG*5.3*1057 ;07-JUN-2021
+1 ;;5.3;Registration;**1057**;Aug 13, 1993;Build 17
+2 ;
+3 QUIT
+4 ;
EN ; entry point
+1 DO PTFERR
+2 DO RIT
+3 QUIT
+4 ;
PTFERR ; update PTF errors in file 45.64
+1 NEW FDA,IEN
+2 DO MES^XPDUTL("Updating error messages in file 45.64...")
+3 ; error 437
+4 SET IEN=$ORDER(^DGP(45.64,"B",437,""))
+5 IF IEN
SET FDA(45.64,IEN_",",.02)="Date of surgery coded greater than 72 hours prior to admission date."
DO FILE^DIE("","FDA")
+6 ; error 637
+7 SET IEN=$ORDER(^DGP(45.64,"B",637,""))
+8 IF IEN
KILL FDA
SET FDA(45.64,IEN_",",.02)="Date of procedure coded greater than 72 hours prior to admission date."
DO FILE^DIE("","FDA")
+9 ; error 640
+10 SET IEN=$ORDER(^DGP(45.64,"B",640,""))
+11 IF IEN
KILL FDA
SET FDA(45.64,IEN_",",.02)="Date of procedure coded later than discharge date."
DO FILE^DIE("","FDA")
+12 DO MES^XPDUTL("Done.")
+13 QUIT
+14 ;
RIT ; recompile input templates
+1 NEW DMAX,X,Y,NM
+2 DO MES^XPDUTL("Recompiling PTF input templates...")
+3 FOR NM="DG501-10D","DG401-10P","DG501F","DG501F-10D","DG701-10D"
Begin DoDot:1
+4 SET Y=$$FIND1^DIC(.402,,"X",NM,"B")
IF Y'>0
QUIT
+5 SET X=$PIECE($$GET1^DIQ(.402,Y_",",1815),U,2,99)
IF X=""
QUIT
+6 SET DMAX=$$ROUSIZE^DILF
+7 DO EN^DIEZ
+8 QUIT
End DoDot:1
+9 DO MES^XPDUTL("Recompile completed.")
+10 QUIT
