EC2P9PST.m

EC2P9PST ;ALB/GTS/JAP - PATCH EC*2.0*9 Post-Init Rtn ; Feb 13, 1997

 ;;2.0; EVENT CAPTURE ;**9**;8 May 96

 ;

POST ;Entry point

 D INTRO

 ;

 ;if new entries (iens>489) already added, display message and quit

 I $D(^EC(725,490,0)) D  Q

 .D MES^XPDUTL(" ")

 .D MES^XPDUTL(" It appears that patch EC*2*9 was previously installed.")

 .D MES^XPDUTL(" ")

 .D MES^XPDUTL(" If you wish to repeat the installation of patch EC*2*9,")

 .D MES^XPDUTL(" then run CLEAN^EC725CH3 first -- that will delete any")

 .D MES^XPDUTL(" entries from EC*2*9 previously added.")

 .D MES^XPDUTL(" ")

 ;

 ;add new entries

 I '$D(^EC(725,490)) D ADD^EC725CH3

 Q

 ;

INTRO ; Message intro

 ;;   

 ;; The purpose of Patch EC*2*9 is to add new entries to the

 ;; EC NATIONAL PROCEDURE File (#725).  A total of 433 new

 ;; entries will be made.

 ;;   

 ;;    

 ;;QUIT

 ;

 N TXTVAR

 F I=1:1 S TXTVAR=$P($T(INTRO+I),";;",2) Q:TXTVAR="QUIT"  DO

 .D MES^XPDUTL(TXTVAR)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EC2P9PST   967     printed  Apr 09, 2024@21:00:38                                                                                                                                                                                                     Page 2

EC2P9PST  ;ALB/GTS/JAP - PATCH EC*2.0*9 Post-Init Rtn ; Feb 13, 1997

 +1       ;;2.0; EVENT CAPTURE ;**9**;8 May 96

 +2       ;

POST      ;Entry point

 +1        DO INTRO

 +2       ;

 +3       ;if new entries (iens>489) already added, display message and quit

 +4        IF $DATA(^EC(725,490,0))

               Begin DoDot:1

 +5                DO MES^XPDUTL(" ")

 +6                DO MES^XPDUTL(" It appears that patch EC*2*9 was previously installed.")

 +7                DO MES^XPDUTL(" ")

 +8                DO MES^XPDUTL(" If you wish to repeat the installation of patch EC*2*9,")

 +9                DO MES^XPDUTL(" then run CLEAN^EC725CH3 first -- that will delete any")

 +10               DO MES^XPDUTL(" entries from EC*2*9 previously added.")

 +11               DO MES^XPDUTL(" ")

               End DoDot:1

               QUIT 

 +12      ;

 +13      ;add new entries

 +14       IF '$DATA(^EC(725,490))

               DO ADD^EC725CH3

 +15       QUIT 

 +16      ;

INTRO     ; Message intro

 +1       ;;   

 +2       ;; The purpose of Patch EC*2*9 is to add new entries to the

 +3       ;; EC NATIONAL PROCEDURE File (#725).  A total of 433 new

 +4       ;; entries will be made.

 +5       ;;   

 +6       ;;    

 +7       ;;QUIT

 +8       ;

 +9        NEW TXTVAR

 +10       FOR I=1:1

               SET TXTVAR=$PIECE($TEXT(INTRO+I),";;",2)

               if TXTVAR="QUIT"

                   QUIT 

               Begin DoDot:1

 +11               DO MES^XPDUTL(TXTVAR)

               End DoDot:1

 +12       QUIT