DG53136P ;ALB/MM - POST INSTALL DG*5.3*136 ; 8/27/97
;;5.3;Registration;**136**;Aug 13, 1993
;
;Delete PROVIDER SSN field (79.101) from PTF file (#45)
;Field references PROVIDER file (#6) not New Person (#200)
;
EN ;
I $D(^DD(45,79.101,0)) D
.D BMES^XPDUTL(" Deleting Provider SSN (#79.101) field from PTF File (#45).")
.N DA,DIK
.S DIK="^DD(45,"
.S DA=79.101 ;Provider SSN field
.S DA(1)=45 ;PTF File
.D ^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53136P 441 printed Dec 13, 2024@02:36:12 Page 2
DG53136P ;ALB/MM - POST INSTALL DG*5.3*136 ; 8/27/97
+1 ;;5.3;Registration;**136**;Aug 13, 1993
+2 ;
+3 ;Delete PROVIDER SSN field (79.101) from PTF file (#45)
+4 ;Field references PROVIDER file (#6) not New Person (#200)
+5 ;
EN ;
+1 IF $DATA(^DD(45,79.101,0))
Begin DoDot:1
+2 DO BMES^XPDUTL(" Deleting Provider SSN (#79.101) field from PTF File (#45).")
+3 NEW DA,DIK
+4 SET DIK="^DD(45,"
+5 ;Provider SSN field
SET DA=79.101
+6 ;PTF File
SET DA(1)=45
+7 DO ^DIK
End DoDot:1
+8 QUIT
