- SD659PST ;ALB/ART - SD*5.3*659 Post Install ;02/16/2017
- ;;5.3;Scheduling;**659**;Aug 13, 1993;Build 5
- ;
- QUIT
- ;
- ;Public, Supported ICRs
- ; #2916 - Data Base Server API: DD Modification Utilities (DDMOD)
- ; #10013 - Classic FileMan API: Entry Deletion & File Reindexing (DIK)
- ; #10141 - XPDUTL - Public APIs for KIDS
- ;
- ;Private ICRs
- ; #6966 - READ ACCESS TO DD(404.43
- ; #6721 - READ ACCESS TO DD(404.52
- ; #6722 - READ ACCESS TO DD(404.53
- ;
- EN ;
- ;
- ;delete cross references and indexes
- DO DEL
- ;delete records in PCMM HL7 EVENT file
- DO DELEVNTS
- ;
- QUIT
- ;
- DEL ;
- ;
- NEW SDFILE,SDFIELD,SDXREFNM,SDINDEX
- ;
- ;Delete the AEVENT1 Xref in 404.43
- SET SDFILE=404.43
- SET SDFIELD=.01
- SET SDXREFNM="AEVENT1"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AEVENT3 Xref in 404.43
- SET SDFILE=404.43
- SET SDFIELD=.02
- SET SDXREFNM="AEVENT3"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AEVENT4 Xref in 404.43
- SET SDFILE=404.43
- SET SDFIELD=.03
- SET SDXREFNM="AEVENT4"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AEVENT5 Xref in 404.43
- SET SDFILE=404.43
- SET SDFIELD=.04
- SET SDXREFNM="AEVENT5"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AEVENT2 Xref in 404.43
- SET SDFILE=404.43
- SET SDFIELD=.05
- SET SDXREFNM="AEVENT2"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AEVENT1 Xref in 404.52
- SET SDFILE=404.52
- SET SDFIELD=.01
- SET SDXREFNM="AEVENT1"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AEVENT2 Xref in 404.52
- SET SDFILE=404.52
- SET SDFIELD=.02
- SET SDXREFNM="AEVENT2"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AEVENT3 Xref in 404.52
- SET SDFILE=404.52
- SET SDFIELD=.03
- SET SDXREFNM="AEVENT3"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the ASTATUS Xref in 404.52
- SET SDFILE=404.52
- SET SDFIELD=.04
- SET SDXREFNM="ASTATUS"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AFTEE Xref in 404.52
- SET SDFILE=404.52
- SET SDFIELD=.09
- SET SDXREFNM="AFTEE"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AEVENT1 Xref in 404.53
- SET SDFILE=404.53
- SET SDFIELD=.01
- SET SDXREFNM="AEVENT1"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AEVENT2 Xref in 404.53
- SET SDFILE=404.53
- SET SDFIELD=.02
- SET SDXREFNM="AEVENT2"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AEVENT3 Xref in 404.53
- SET SDFILE=404.53
- SET SDFIELD=.04
- SET SDXREFNM="AEVENT3"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AEVENT4 Xref in 404.53
- SET SDFILE=404.53
- SET SDFIELD=.06
- SET SDXREFNM="AEVENT4"
- DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- ;
- ;Delete the AE Index in 404.57
- SET SDFILE=404.57
- SET SDINDEX="AE"
- DO DELINDEX(SDFILE,SDINDEX)
- ;
- ;Delete the AD Index in 404.57
- SET SDFILE=404.57
- SET SDINDEX="AD"
- DO DELINDEX(SDFILE,SDINDEX)
- ;
- ;Delete the AC Index in 404.59
- SET SDFILE=404.59
- SET SDINDEX="AC"
- DO DELINDEX(SDFILE,SDINDEX)
- ;
- QUIT
- ;
- DELXREF(SDFILE,SDFIELD,SDXREFNM) ; Delete traditional cross reference
- ;Inputs: SDFILE - file number
- ; SDFIELD - field number
- ; SDXREFNM - xref name
- ;
- NEW SDHIT,SDOUT,SDERR,SDXREF
- DO BMES^XPDUTL("Delete the "_SDXREFNM_" xref in "_SDFILE_"/"_SDFIELD_".")
- ;
- SET SDHIT=0
- SET SDXREF=0
- FOR SET SDXREF=$O(^DD(SDFILE,SDFIELD,1,SDXREF)) QUIT:('+SDXREF)!(SDHIT) DO
- . IF $GET(^DD(SDFILE,SDFIELD,1,SDXREF,0))[SDXREFNM DO
- . . ;W !,"SDXREF: ",SDXREF," Node: ",^DD(SDFILE,SDFIELD,1,SDXREF,0),!
- . . DO DELIX^DDMOD(SDFILE,SDFIELD,SDXREF,"","SDOUT","SDERR")
- . . IF '$DATA(SDERR) DO
- . . . DO MES^XPDUTL("The "_SDXREFNM_" cross reference was deleted.")
- . . . SET SDHIT=1
- . . ELSE DO
- . . . DO MES^XPDUTL("ERROR encountered deleting the "_SDXREFNM_" cross reference.")
- ;
- DO:'SDHIT MES^XPDUTL("The "_SDXREFNM_" cross reference was not found.")
- ;
- QUIT
- ;
- DELINDEX(SDFILE,SDINDEX) ; Delete a new style index
- ;Inputs: SDFILE - file number
- ; SDINDEX - index name
- ;
- NEW SDOUT,SDERR
- DO BMES^XPDUTL("Delete the "_SDINDEX_" Index in "_SDFILE_".")
- ;
- DO DELIXN^DDMOD(SDFILE,SDINDEX,"","SDOUT","SDERR")
- IF '$DATA(SDERR) DO
- . DO MES^XPDUTL("The "_SDINDEX_" Index in "_SDFILE_" was deleted.")
- ELSE DO
- . DO MES^XPDUTL("ERROR encountered deleting the "_SDINDEX_" Index in "_SDFILE_".")
- QUIT
- ;
- DELEVNTS ; Delete records in PCMM HL7 EVENT FILE (#404.48)
- NEW DA,DIK
- SET DA=0
- FOR SET DA=$ORDER(^SCPT(404.48,DA)) QUIT:'+DA DO
- . SET DIK="^SCPT(404.48,"
- . DO ^DIK
- ;
- DO BMES^XPDUTL(" Records were deleted from PCMM HL7 EVENT FILE.")
- QUIT
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD659PST 4576 printed Feb 19, 2025@00:13:18 Page 2
- SD659PST ;ALB/ART - SD*5.3*659 Post Install ;02/16/2017
- +1 ;;5.3;Scheduling;**659**;Aug 13, 1993;Build 5
- +2 ;
- +3 QUIT
- +4 ;
- +5 ;Public, Supported ICRs
- +6 ; #2916 - Data Base Server API: DD Modification Utilities (DDMOD)
- +7 ; #10013 - Classic FileMan API: Entry Deletion & File Reindexing (DIK)
- +8 ; #10141 - XPDUTL - Public APIs for KIDS
- +9 ;
- +10 ;Private ICRs
- +11 ; #6966 - READ ACCESS TO DD(404.43
- +12 ; #6721 - READ ACCESS TO DD(404.52
- +13 ; #6722 - READ ACCESS TO DD(404.53
- +14 ;
- EN ;
- +1 ;
- +2 ;delete cross references and indexes
- +3 DO DEL
- +4 ;delete records in PCMM HL7 EVENT file
- +5 DO DELEVNTS
- +6 ;
- +7 QUIT
- +8 ;
- DEL ;
- +1 ;
- +2 NEW SDFILE,SDFIELD,SDXREFNM,SDINDEX
- +3 ;
- +4 ;Delete the AEVENT1 Xref in 404.43
- +5 SET SDFILE=404.43
- +6 SET SDFIELD=.01
- +7 SET SDXREFNM="AEVENT1"
- +8 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +9 ;
- +10 ;Delete the AEVENT3 Xref in 404.43
- +11 SET SDFILE=404.43
- +12 SET SDFIELD=.02
- +13 SET SDXREFNM="AEVENT3"
- +14 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +15 ;
- +16 ;Delete the AEVENT4 Xref in 404.43
- +17 SET SDFILE=404.43
- +18 SET SDFIELD=.03
- +19 SET SDXREFNM="AEVENT4"
- +20 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +21 ;
- +22 ;Delete the AEVENT5 Xref in 404.43
- +23 SET SDFILE=404.43
- +24 SET SDFIELD=.04
- +25 SET SDXREFNM="AEVENT5"
- +26 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +27 ;
- +28 ;Delete the AEVENT2 Xref in 404.43
- +29 SET SDFILE=404.43
- +30 SET SDFIELD=.05
- +31 SET SDXREFNM="AEVENT2"
- +32 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +33 ;
- +34 ;Delete the AEVENT1 Xref in 404.52
- +35 SET SDFILE=404.52
- +36 SET SDFIELD=.01
- +37 SET SDXREFNM="AEVENT1"
- +38 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +39 ;
- +40 ;Delete the AEVENT2 Xref in 404.52
- +41 SET SDFILE=404.52
- +42 SET SDFIELD=.02
- +43 SET SDXREFNM="AEVENT2"
- +44 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +45 ;
- +46 ;Delete the AEVENT3 Xref in 404.52
- +47 SET SDFILE=404.52
- +48 SET SDFIELD=.03
- +49 SET SDXREFNM="AEVENT3"
- +50 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +51 ;
- +52 ;Delete the ASTATUS Xref in 404.52
- +53 SET SDFILE=404.52
- +54 SET SDFIELD=.04
- +55 SET SDXREFNM="ASTATUS"
- +56 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +57 ;
- +58 ;Delete the AFTEE Xref in 404.52
- +59 SET SDFILE=404.52
- +60 SET SDFIELD=.09
- +61 SET SDXREFNM="AFTEE"
- +62 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +63 ;
- +64 ;Delete the AEVENT1 Xref in 404.53
- +65 SET SDFILE=404.53
- +66 SET SDFIELD=.01
- +67 SET SDXREFNM="AEVENT1"
- +68 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +69 ;
- +70 ;Delete the AEVENT2 Xref in 404.53
- +71 SET SDFILE=404.53
- +72 SET SDFIELD=.02
- +73 SET SDXREFNM="AEVENT2"
- +74 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +75 ;
- +76 ;Delete the AEVENT3 Xref in 404.53
- +77 SET SDFILE=404.53
- +78 SET SDFIELD=.04
- +79 SET SDXREFNM="AEVENT3"
- +80 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +81 ;
- +82 ;Delete the AEVENT4 Xref in 404.53
- +83 SET SDFILE=404.53
- +84 SET SDFIELD=.06
- +85 SET SDXREFNM="AEVENT4"
- +86 DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
- +87 ;
- +88 ;Delete the AE Index in 404.57
- +89 SET SDFILE=404.57
- +90 SET SDINDEX="AE"
- +91 DO DELINDEX(SDFILE,SDINDEX)
- +92 ;
- +93 ;Delete the AD Index in 404.57
- +94 SET SDFILE=404.57
- +95 SET SDINDEX="AD"
- +96 DO DELINDEX(SDFILE,SDINDEX)
- +97 ;
- +98 ;Delete the AC Index in 404.59
- +99 SET SDFILE=404.59
- +100 SET SDINDEX="AC"
- +101 DO DELINDEX(SDFILE,SDINDEX)
- +102 ;
- +103 QUIT
- +104 ;
- DELXREF(SDFILE,SDFIELD,SDXREFNM) ; Delete traditional cross reference
- +1 ;Inputs: SDFILE - file number
- +2 ; SDFIELD - field number
- +3 ; SDXREFNM - xref name
- +4 ;
- +5 NEW SDHIT,SDOUT,SDERR,SDXREF
- +6 DO BMES^XPDUTL("Delete the "_SDXREFNM_" xref in "_SDFILE_"/"_SDFIELD_".")
- +7 ;
- +8 SET SDHIT=0
- +9 SET SDXREF=0
- +10 FOR
- SET SDXREF=$ORDER(^DD(SDFILE,SDFIELD,1,SDXREF))
- if ('+SDXREF)!(SDHIT)
- QUIT
- Begin DoDot:1
- +11 IF $GET(^DD(SDFILE,SDFIELD,1,SDXREF,0))[SDXREFNM
- Begin DoDot:2
- +12 ;W !,"SDXREF: ",SDXREF," Node: ",^DD(SDFILE,SDFIELD,1,SDXREF,0),!
- +13 DO DELIX^DDMOD(SDFILE,SDFIELD,SDXREF,"","SDOUT","SDERR")
- +14 IF '$DATA(SDERR)
- Begin DoDot:3
- +15 DO MES^XPDUTL("The "_SDXREFNM_" cross reference was deleted.")
- +16 SET SDHIT=1
- End DoDot:3
- +17 IF '$TEST
- Begin DoDot:3
- +18 DO MES^XPDUTL("ERROR encountered deleting the "_SDXREFNM_" cross reference.")
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +19 ;
- +20 if 'SDHIT
- DO MES^XPDUTL("The "_SDXREFNM_" cross reference was not found.")
- +21 ;
- +22 QUIT
- +23 ;
- DELINDEX(SDFILE,SDINDEX) ; Delete a new style index
- +1 ;Inputs: SDFILE - file number
- +2 ; SDINDEX - index name
- +3 ;
- +4 NEW SDOUT,SDERR
- +5 DO BMES^XPDUTL("Delete the "_SDINDEX_" Index in "_SDFILE_".")
- +6 ;
- +7 DO DELIXN^DDMOD(SDFILE,SDINDEX,"","SDOUT","SDERR")
- +8 IF '$DATA(SDERR)
- Begin DoDot:1
- +9 DO MES^XPDUTL("The "_SDINDEX_" Index in "_SDFILE_" was deleted.")
- End DoDot:1
- +10 IF '$TEST
- Begin DoDot:1
- +11 DO MES^XPDUTL("ERROR encountered deleting the "_SDINDEX_" Index in "_SDFILE_".")
- End DoDot:1
- +12 QUIT
- +13 ;
- DELEVNTS ; Delete records in PCMM HL7 EVENT FILE (#404.48)
- +1 NEW DA,DIK
- +2 SET DA=0
- +3 FOR
- SET DA=$ORDER(^SCPT(404.48,DA))
- if '+DA
- QUIT
- Begin DoDot:1
- +4 SET DIK="^SCPT(404.48,"
- +5 DO ^DIK
- End DoDot:1
- +6 ;
- +7 DO BMES^XPDUTL(" Records were deleted from PCMM HL7 EVENT FILE.")
- +8 QUIT
- +9 ;