- EC2P146A ;ALB/DBE - EC National Procedure Update;11/28/18 12:00pm
- ;;2.0;EVENT CAPTURE;**146**;8 May 96;Build 4
- ;
- ;this routine is used as a post-init in a KIDS build
- ;to modify the EC National Procedure file (#725)
- ;
- Q
- ;
- POST ; entry point
- D MES^XPDUTL(" ")
- D MES^XPDUTL("Updating the EC NATIONAL PROCEDURE File (#725)...")
- D MES^XPDUTL(" ")
- ;* add new/edit national procedures
- D ADDPROC^EC2P146B ;add new procedures
- ;D NAMECHG^ ;change description - No MID-FY19 Request
- ;D CPTCHG^ ;change CPT code - No MID-FY19 Request
- D INACT^EC2P146C ;inactivate code
- ;
- ;create task to inspect event code screens
- D MES^XPDUTL(" ")
- D BMES^XPDUTL("Queuing the inspection of the EC Event Code Screens file (#720.3)")
- D MES^XPDUTL("for 04/02/19 at 1:00 AM. If this patch is installed after that time")
- D MES^XPDUTL("the inspection will queue immediately.")
- N ZTRTN,ZTDTH,ZTDESC,ZTIO,ZTSK
- S ZTRTN="INACTSCR^ECUTL3(1)",ZTDTH=3190402.0100,ZTDESC="Inspecting EC Event Code Screens file",ZTIO="" D ^%ZTLOAD
- D BMES^XPDUTL("Done. Task: "_$G(ZTSK)_" has been created for this job.")
- D MES^XPDUTL("You will receive a MailMan message with the results on 04/02/19.")
- ;
- D MES^XPDUTL(" ")
- D BMES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725) completed.")
- D MES^XPDUTL(" ")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEC2P146A 1316 printed Feb 18, 2025@23:21:36 Page 2
- EC2P146A ;ALB/DBE - EC National Procedure Update;11/28/18 12:00pm
- +1 ;;2.0;EVENT CAPTURE;**146**;8 May 96;Build 4
- +2 ;
- +3 ;this routine is used as a post-init in a KIDS build
- +4 ;to modify the EC National Procedure file (#725)
- +5 ;
- +6 QUIT
- +7 ;
- POST ; entry point
- +1 DO MES^XPDUTL(" ")
- +2 DO MES^XPDUTL("Updating the EC NATIONAL PROCEDURE File (#725)...")
- +3 DO MES^XPDUTL(" ")
- +4 ;* add new/edit national procedures
- +5 ;add new procedures
- DO ADDPROC^EC2P146B
- +6 ;D NAMECHG^ ;change description - No MID-FY19 Request
- +7 ;D CPTCHG^ ;change CPT code - No MID-FY19 Request
- +8 ;inactivate code
- DO INACT^EC2P146C
- +9 ;
- +10 ;create task to inspect event code screens
- +11 DO MES^XPDUTL(" ")
- +12 DO BMES^XPDUTL("Queuing the inspection of the EC Event Code Screens file (#720.3)")
- +13 DO MES^XPDUTL("for 04/02/19 at 1:00 AM. If this patch is installed after that time")
- +14 DO MES^XPDUTL("the inspection will queue immediately.")
- +15 NEW ZTRTN,ZTDTH,ZTDESC,ZTIO,ZTSK
- +16 SET ZTRTN="INACTSCR^ECUTL3(1)"
- SET ZTDTH=3190402.0100
- SET ZTDESC="Inspecting EC Event Code Screens file"
- SET ZTIO=""
- DO ^%ZTLOAD
- +17 DO BMES^XPDUTL("Done. Task: "_$GET(ZTSK)_" has been created for this job.")
- +18 DO MES^XPDUTL("You will receive a MailMan message with the results on 04/02/19.")
- +19 ;
- +20 DO MES^XPDUTL(" ")
- +21 DO BMES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725) completed.")
- +22 DO MES^XPDUTL(" ")
- +23 QUIT