- 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 Feb 19, 2025@00:02:16 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