Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SD659PST

SD659PST.m

Go to the documentation of this file.
  1. SD659PST ;ALB/ART - SD*5.3*659 Post Install ;02/16/2017
  1. ;;5.3;Scheduling;**659**;Aug 13, 1993;Build 5
  1. ;
  1. QUIT
  1. ;
  1. ;Public, Supported ICRs
  1. ; #2916 - Data Base Server API: DD Modification Utilities (DDMOD)
  1. ; #10013 - Classic FileMan API: Entry Deletion & File Reindexing (DIK)
  1. ; #10141 - XPDUTL - Public APIs for KIDS
  1. ;
  1. ;Private ICRs
  1. ; #6966 - READ ACCESS TO DD(404.43
  1. ; #6721 - READ ACCESS TO DD(404.52
  1. ; #6722 - READ ACCESS TO DD(404.53
  1. ;
  1. EN ;
  1. ;
  1. ;delete cross references and indexes
  1. DO DEL
  1. ;delete records in PCMM HL7 EVENT file
  1. DO DELEVNTS
  1. ;
  1. QUIT
  1. ;
  1. DEL ;
  1. ;
  1. NEW SDFILE,SDFIELD,SDXREFNM,SDINDEX
  1. ;
  1. ;Delete the AEVENT1 Xref in 404.43
  1. SET SDFILE=404.43
  1. SET SDFIELD=.01
  1. SET SDXREFNM="AEVENT1"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AEVENT3 Xref in 404.43
  1. SET SDFILE=404.43
  1. SET SDFIELD=.02
  1. SET SDXREFNM="AEVENT3"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AEVENT4 Xref in 404.43
  1. SET SDFILE=404.43
  1. SET SDFIELD=.03
  1. SET SDXREFNM="AEVENT4"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AEVENT5 Xref in 404.43
  1. SET SDFILE=404.43
  1. SET SDFIELD=.04
  1. SET SDXREFNM="AEVENT5"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AEVENT2 Xref in 404.43
  1. SET SDFILE=404.43
  1. SET SDFIELD=.05
  1. SET SDXREFNM="AEVENT2"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AEVENT1 Xref in 404.52
  1. SET SDFILE=404.52
  1. SET SDFIELD=.01
  1. SET SDXREFNM="AEVENT1"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AEVENT2 Xref in 404.52
  1. SET SDFILE=404.52
  1. SET SDFIELD=.02
  1. SET SDXREFNM="AEVENT2"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AEVENT3 Xref in 404.52
  1. SET SDFILE=404.52
  1. SET SDFIELD=.03
  1. SET SDXREFNM="AEVENT3"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the ASTATUS Xref in 404.52
  1. SET SDFILE=404.52
  1. SET SDFIELD=.04
  1. SET SDXREFNM="ASTATUS"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AFTEE Xref in 404.52
  1. SET SDFILE=404.52
  1. SET SDFIELD=.09
  1. SET SDXREFNM="AFTEE"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AEVENT1 Xref in 404.53
  1. SET SDFILE=404.53
  1. SET SDFIELD=.01
  1. SET SDXREFNM="AEVENT1"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AEVENT2 Xref in 404.53
  1. SET SDFILE=404.53
  1. SET SDFIELD=.02
  1. SET SDXREFNM="AEVENT2"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AEVENT3 Xref in 404.53
  1. SET SDFILE=404.53
  1. SET SDFIELD=.04
  1. SET SDXREFNM="AEVENT3"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AEVENT4 Xref in 404.53
  1. SET SDFILE=404.53
  1. SET SDFIELD=.06
  1. SET SDXREFNM="AEVENT4"
  1. DO DELXREF(SDFILE,SDFIELD,SDXREFNM)
  1. ;
  1. ;Delete the AE Index in 404.57
  1. SET SDFILE=404.57
  1. SET SDINDEX="AE"
  1. DO DELINDEX(SDFILE,SDINDEX)
  1. ;
  1. ;Delete the AD Index in 404.57
  1. SET SDFILE=404.57
  1. SET SDINDEX="AD"
  1. DO DELINDEX(SDFILE,SDINDEX)
  1. ;
  1. ;Delete the AC Index in 404.59
  1. SET SDFILE=404.59
  1. SET SDINDEX="AC"
  1. DO DELINDEX(SDFILE,SDINDEX)
  1. ;
  1. QUIT
  1. ;
  1. DELXREF(SDFILE,SDFIELD,SDXREFNM) ; Delete traditional cross reference
  1. ;Inputs: SDFILE - file number
  1. ; SDFIELD - field number
  1. ; SDXREFNM - xref name
  1. ;
  1. NEW SDHIT,SDOUT,SDERR,SDXREF
  1. DO BMES^XPDUTL("Delete the "_SDXREFNM_" xref in "_SDFILE_"/"_SDFIELD_".")
  1. ;
  1. SET SDHIT=0
  1. SET SDXREF=0
  1. FOR SET SDXREF=$O(^DD(SDFILE,SDFIELD,1,SDXREF)) QUIT:('+SDXREF)!(SDHIT) DO
  1. . IF $GET(^DD(SDFILE,SDFIELD,1,SDXREF,0))[SDXREFNM DO
  1. . . ;W !,"SDXREF: ",SDXREF," Node: ",^DD(SDFILE,SDFIELD,1,SDXREF,0),!
  1. . . DO DELIX^DDMOD(SDFILE,SDFIELD,SDXREF,"","SDOUT","SDERR")
  1. . . IF '$DATA(SDERR) DO
  1. . . . DO MES^XPDUTL("The "_SDXREFNM_" cross reference was deleted.")
  1. . . . SET SDHIT=1
  1. . . ELSE DO
  1. . . . DO MES^XPDUTL("ERROR encountered deleting the "_SDXREFNM_" cross reference.")
  1. ;
  1. DO:'SDHIT MES^XPDUTL("The "_SDXREFNM_" cross reference was not found.")
  1. ;
  1. QUIT
  1. ;
  1. DELINDEX(SDFILE,SDINDEX) ; Delete a new style index
  1. ;Inputs: SDFILE - file number
  1. ; SDINDEX - index name
  1. ;
  1. NEW SDOUT,SDERR
  1. DO BMES^XPDUTL("Delete the "_SDINDEX_" Index in "_SDFILE_".")
  1. ;
  1. DO DELIXN^DDMOD(SDFILE,SDINDEX,"","SDOUT","SDERR")
  1. IF '$DATA(SDERR) DO
  1. . DO MES^XPDUTL("The "_SDINDEX_" Index in "_SDFILE_" was deleted.")
  1. ELSE DO
  1. . DO MES^XPDUTL("ERROR encountered deleting the "_SDINDEX_" Index in "_SDFILE_".")
  1. QUIT
  1. ;
  1. DELEVNTS ; Delete records in PCMM HL7 EVENT FILE (#404.48)
  1. NEW DA,DIK
  1. SET DA=0
  1. FOR SET DA=$ORDER(^SCPT(404.48,DA)) QUIT:'+DA DO
  1. . SET DIK="^SCPT(404.48,"
  1. . DO ^DIK
  1. ;
  1. DO BMES^XPDUTL(" Records were deleted from PCMM HL7 EVENT FILE.")
  1. QUIT
  1. ;