GECSP35 ;WOIFO/SAB - PATCH INSTALL ROUTINE ;4/3/2012
;;2.0;GCS;**35**;MAR 14, 1995;Build 2
;
; ICRs
; #2051 $$FIND1^DIC
; #2053 FILE^DIE
; #2054 CLEAN^DILF
; #10141 BMES^XPDUTL, MES^XPDUTL, $$NEWCP^XPDUTL
;
Q
;
PS ; post-install entry point
; create KIDS checkpoints with call backs
N GECX,Y
F GECX="UPD" D
. S Y=$$NEWCP^XPDUTL(GECX,GECX_"^GECSP35")
. I 'Y D BMES^XPDUTL("ERROR Creating "_GECX_" Checkpoint.")
Q
;
UPD ; update file
N GECNM
D BMES^XPDUTL(" Updating GENERIC CODE SHEET TRANSACTION TYPE/SEGMENT file...")
;
; inactivate code sheets
F GECNM="994.00","994.01","994.02","994.10","994.90" D INACT(GECNM)
;
D MES^XPDUTL(" Done.")
Q
;
INACT(GECNM) ; inactivate entry
N GECFDA,GECI
S GECI=$$FIND1^DIC(2101.2,,"X",GECNM)
I GECI D
. S GECFDA(2101.2,GECI_",",1)="N"
. D FILE^DIE("","GECFDA")
. D CLEAN^DILF
Q
;
;GECSP35
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGECSP35 916 printed Nov 22, 2024@17:06:23 Page 2
GECSP35 ;WOIFO/SAB - PATCH INSTALL ROUTINE ;4/3/2012
+1 ;;2.0;GCS;**35**;MAR 14, 1995;Build 2
+2 ;
+3 ; ICRs
+4 ; #2051 $$FIND1^DIC
+5 ; #2053 FILE^DIE
+6 ; #2054 CLEAN^DILF
+7 ; #10141 BMES^XPDUTL, MES^XPDUTL, $$NEWCP^XPDUTL
+8 ;
+9 QUIT
+10 ;
PS ; post-install entry point
+1 ; create KIDS checkpoints with call backs
+2 NEW GECX,Y
+3 FOR GECX="UPD"
Begin DoDot:1
+4 SET Y=$$NEWCP^XPDUTL(GECX,GECX_"^GECSP35")
+5 IF 'Y
DO BMES^XPDUTL("ERROR Creating "_GECX_" Checkpoint.")
End DoDot:1
+6 QUIT
+7 ;
UPD ; update file
+1 NEW GECNM
+2 DO BMES^XPDUTL(" Updating GENERIC CODE SHEET TRANSACTION TYPE/SEGMENT file...")
+3 ;
+4 ; inactivate code sheets
+5 FOR GECNM="994.00","994.01","994.02","994.10","994.90"
DO INACT(GECNM)
+6 ;
+7 DO MES^XPDUTL(" Done.")
+8 QUIT
+9 ;
INACT(GECNM) ; inactivate entry
+1 NEW GECFDA,GECI
+2 SET GECI=$$FIND1^DIC(2101.2,,"X",GECNM)
+3 IF GECI
Begin DoDot:1
+4 SET GECFDA(2101.2,GECI_",",1)="N"
+5 DO FILE^DIE("","GECFDA")
+6 DO CLEAN^DILF
End DoDot:1
+7 QUIT
+8 ;
+9 ;GECSP35
