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

MCPOS01A.m

Go to the documentation of this file.
  1. MCPOS01A ;HIRMFO/WAA - Kill all cross reference in a file - ;8/6/96 07:23
  1. ;;2.3;Medicine;;09/13/1996
  1. ;;
  1. ;
  1. ; These routines will loop through a list of file number
  1. ; and delete all the cross references for that file.
  1. ; Then these routines will use file manager to reindex all
  1. ; the cross references in that same file.
  1. ;
  1. ; This program is the master control program. It
  1. ; will loop through a list of file number and pass that
  1. ; number to the kill routine then it will pass to the reindex
  1. ; routine
  1. ;
  1. EN1 ; Main Entry point
  1. F690 ; FILE 690
  1. K ^MCAR(690,"B") ; "B" Cross
  1. K ^MCAR(690,"AC") ; Procedures
  1. D
  1. .N MCI
  1. .S MCI=0
  1. .F S MCI=$O(^MCAR(690,MCI)) Q:MCI<1 D
  1. ..K ^MCAR(690,MCI,"P","B") ; "B" Cross
  1. ..K ^MCAR(690,MCI,"P1","B") ; "B" Cross
  1. ..K ^MCAR(690,MCI,"P4","B") ; "B" Cross
  1. ..Q
  1. .Q
  1. D EN1^MCPOS01(690)
  1. F690P1 ; FILE 690.1
  1. K ^MCAR(690.1,"B") ; "B" Cross
  1. D
  1. .N MCI
  1. .S MCI=0
  1. .F S MCI=$O(^MCAR(690.1,MCI)) Q:MCI<1 D
  1. ..K ^MCAR(690.1,MCI,1,"B") ; "B" Cross
  1. ..K ^MCAR(690.1,MCI,2,"B") ; "B" Cross
  1. ..Q
  1. .Q
  1. D EN1^MCPOS01(690.1)
  1. F690P2 ; FILE 690.2
  1. K ^MCAR(690.2,"B") ; "B" Cross
  1. K ^MCAR(690.2,"C") ; File number cross
  1. K ^MCAR(690.2,"D") ; Procedure
  1. D
  1. .N MCI
  1. .S MCI=0
  1. .F S MCI=$O(^MCAR(690.2,MCI)) Q:MCI<1 D
  1. ..K ^MCAR(690.2,MCI,1,"B") ; "B" Cross
  1. ..K ^MCAR(690.2,MCI,2,"B") ; "B" Cross
  1. ..D
  1. ...N MCII
  1. ...S MCII=0
  1. ...F S MCII=$O(^MCAR(690.2,MCI,2,MCII)) Q:MCII<1 D
  1. ....K ^MCAR(690.2,MCI,2,MCII,1,"B") ; "B" Cross
  1. ....Q
  1. ...Q
  1. ..K ^MCAR(690.1,MCI,3,"B") ; "B" Cross
  1. ..Q
  1. .Q
  1. D EN1^MCPOS01(690.2)
  1. F690P5 ; FILE 690.5
  1. K ^MCAR(690.5,"B") ; "B" Cross
  1. K ^MCAR(690.5,"C") ; ASTM cross
  1. D EN1^MCPOS01(690.5)
  1. F690P97 ; FILE 690.97
  1. K ^MCAR(690.97,"B") ; "B" Cross
  1. D EN1^MCPOS01(690.97)
  1. F690P99 ; FILE 690.99
  1. K ^MCAR(690.99,"B") ; "B" Cross
  1. K ^MCAR(690.99,"AA") ; IEN
  1. K ^MCAR(690.99,"AB") ; SUB-IEN
  1. D EN1^MCPOS01(690.99)
  1. G F691^MCPOS01B