AUTP20PS.m

AUTP20PS ; IHS/ASDST/GTH - AUT 98.1 PATCH 20 POST ; [ 08/18/2006  11:53 AM ]

 ;;98.1;IHS DICTIONARIES (POINTERS);**20**;MAR 04, 1998;Build 6

 ;

 S ^DD(9999999.11,0,"ID",.07)="W ?35,""DUNS....: "",$P(^(0),""^"",7)"

 Q

 ;

AUTP20PS  ; IHS/ASDST/GTH - AUT 98.1 PATCH 20 POST ; [ 08/18/2006  11:53 AM ]

 +1       ;;98.1;IHS DICTIONARIES (POINTERS);**20**;MAR 04, 1998;Build 6

 +2       ;

 +3        SET ^DD(9999999.11,0,"ID",.07)="W ?35,""DUNS....: "",$P(^(0),""^"",7)"

 +4        QUIT 

 +5       ;