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

MCPOS0E.m

Go to the documentation of this file.
  1. MCPOS0E ;HIRMFO/DAD-RESTORE LOCALLY DEFINED PROCEDURES TO THE MED VIEW FILE ;8/21/96 11:57
  1. ;;2.3;Medicine;;09/13/1996
  1. ;
  1. N D0,DA,DD,DIC,DINUM,DLAYGO,DO,MCD0,MCDATA,MCGENRIC,MCOUNT
  1. N MCPROCSP,MCTYPE
  1. S MCDATA(1)=""
  1. S MCDATA(2)="Restoring locally defined procedures to the"
  1. S MCDATA(3)="Medicine View file (#690.2)"
  1. ;
  1. S MCPROCSP=$$GET1^DID(690.2,4,"","SPECIFIER"),MCOUNT=4
  1. F MCGENRIC=1,2 D
  1. . S MCTYPE=$P("Full^Brief",U,MCGENRIC)_" Generic"
  1. . S MCGENRIC(MCGENRIC)=+$O(^MCAR(690.2,"B",MCTYPE,0))
  1. . I MCGENRIC(MCGENRIC)'>0 D
  1. .. S MCDATA(MCOUNT)=" '"_MCTYPE_"' not found in the Medicine View file"
  1. .. S MCOUNT=MCOUNT+1
  1. .. Q
  1. . Q
  1. D MES^XPDUTL(.MCDATA)
  1. ;
  1. S MCD0=0
  1. F S MCD0=$O(^MCAR(697.2,MCD0)) Q:MCD0'>0 D
  1. . I $P($G(^MCAR(697.2,MCD0,0)),U,19)'>0 Q
  1. . F MCGENRIC=1,2 I MCGENRIC(MCGENRIC) D
  1. .. I $O(^MCAR(690.2,MCGENRIC(MCGENRIC),3,"B",MCD0,0)) Q
  1. .. K DD,DIC,DINUM,DO
  1. .. S X=MCD0,DIC="^MCAR(690.2,"_MCGENRIC(MCGENRIC)_",3,",DIC(0)="L"
  1. .. S DIC("P")=MCPROCSP,DLAYGO=690.2,(D0,DA(1))=MCGENRIC(MCGENRIC)
  1. .. D FILE^DICN
  1. .. Q
  1. . Q
  1. Q