- 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 ---[H[J[2J[HEC2P9PST 967 printed Feb 18, 2025@23:22:45 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