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

DG53136P.m

Go to the documentation of this file.
  1. DG53136P ;ALB/MM - POST INSTALL DG*5.3*136 ; 8/27/97
  1. ;;5.3;Registration;**136**;Aug 13, 1993
  1. ;
  1. ;Delete PROVIDER SSN field (79.101) from PTF file (#45)
  1. ;Field references PROVIDER file (#6) not New Person (#200)
  1. ;
  1. EN ;
  1. I $D(^DD(45,79.101,0)) D
  1. .D BMES^XPDUTL(" Deleting Provider SSN (#79.101) field from PTF File (#45).")
  1. .N DA,DIK
  1. .S DIK="^DD(45,"
  1. .S DA=79.101 ;Provider SSN field
  1. .S DA(1)=45 ;PTF File
  1. .D ^DIK
  1. Q