PSULRHLI.m

PSULRHLI ;HCIOFO/BH - Post install for PBM 3 enhancements ; 5/15/04 3:10p

 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005

 ;

 ;No DBIA's required

 ;

DTE ; Sets install date into file 59.91

 ;

 N FDA

 S FDA(59.91,"+1,",.01)=$P(DT,".",1)

 D UPDATE^DIE("","FDA",)

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSULRHLI   280     printed  Dec 13, 2024@02:28:03                                                                                                                                                                                                     Page 2

PSULRHLI  ;HCIOFO/BH - Post install for PBM 3 enhancements ; 5/15/04 3:10p

 +1       ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005

 +2       ;

 +3       ;No DBIA's required

 +4       ;

DTE       ; Sets install date into file 59.91

 +1       ;

 +2        NEW FDA

 +3        SET FDA(59.91,"+1,",.01)=$PIECE(DT,".",1)

 +4        DO UPDATE^DIE("","FDA",)

 +5       ;

 +6        QUIT