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

MCPOS01E.m

Go to the documentation of this file.
  1. MCPOS01E ;HIRMFO/WAA - Kill all cross reference in a file - ;4/29/96 14:53
  1. ;;2.3;Medicine;;09/13/1996
  1. ;;
  1. F698 ; FILE 698
  1. K ^MCAR(698,"B") ; "B" Cross
  1. K ^MCAR(698,"C") ; Medical Patient
  1. K ^MCAR(698,"PCC") ; PCC Pointer
  1. D
  1. .N MCI
  1. .S MCI=0
  1. .F S MCI=$O(^MCAR(698,MCI)) Q:MCI<1 D
  1. ..K ^MCAR(698,MCI,"ICD","B") ; "B" Cross
  1. ..Q
  1. .Q
  1. D EN1^MCPOS01(698)
  1. F698P1 ; FILE 698.1
  1. K ^MCAR(698.1,"B") ; "B" Cross
  1. K ^MCAR(698.1,"C") ; Medical Patient
  1. K ^MCAR(698.1,"PCC") ; PCC Pointer
  1. D
  1. .N MCI
  1. .S MCI=0
  1. .F S MCI=$O(^MCAR(698.1,MCI)) Q:MCI<1 D
  1. ..K ^MCAR(698.1,MCI,"ICD","B") ; "B" Cross
  1. ..Q
  1. .Q
  1. D EN1^MCPOS01(698.1)
  1. F698P2 ; FILE 698.2
  1. K ^MCAR(698.2,"B") ; "B" Cross
  1. K ^MCAR(698.2,"C") ; Medical Patient
  1. K ^MCAR(698.2,"PCC") ; PCC Pointer
  1. D
  1. .N MCI
  1. .S MCI=0
  1. .F S MCI=$O(^MCAR(698.2,MCI)) Q:MCI<1 D
  1. ..K ^MCAR(698.2,MCI,"ICD","B") ; "B" Cross
  1. ..Q
  1. .Q
  1. D EN1^MCPOS01(698.2)
  1. F698P3 ; FILE 698.3
  1. K ^MCAR(698.3,"B") ; "B" Cross
  1. K ^MCAR(698.3,"C") ; Medical Patient
  1. K ^MCAR(698.3,"PCC") ; PCC Pointer
  1. D
  1. .N MCI
  1. .S MCI=0
  1. .F S MCI=$O(^MCAR(698.3,MCI)) Q:MCI<1 D
  1. ..K ^MCAR(698.3,MCI,"ICD","B") ; "B" Cross
  1. ..Q
  1. .Q
  1. D EN1^MCPOS01(698.3)
  1. F698P4 ; FILE 698.4
  1. K ^MCAR(698.4,"B") ; "B" Cross
  1. K ^MCAR(698.4,"C") ; Type of Equipment
  1. K ^MCAR(698.4,"D") ; Manufacture
  1. D EN1^MCPOS01(698.4)
  1. F698P6 ; FILE 698.6
  1. K ^MCAR(698.6,"B") ; "B" Cross
  1. K ^MCAR(698.6,"C") ; Mnemonic
  1. D EN1^MCPOS01(698.6)
  1. F698P9 ; FILE 698.9
  1. K ^MCAR(698.9,"B") ; "B" Cross
  1. K ^MCAR(698.9,"D") ; Abbreviation
  1. D EN1^MCPOS01(698.9)
  1. G F699^MCPOS01F