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