DG53136P.m

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 ---DG53136P   441     printed  Apr 09, 2024@21:39:37                                                                                                                                                                                                     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