Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SD5361PT

SD5361PT.m

Go to the documentation of this file.
  1. SD5361PT ;ALB/REW - SD*5.3*61 Post-init Checker ; 7 Aug 1996
  1. ;;5.3;Scheduling;**61**;SEP 25, 1993
  1. EN ;entry point
  1. ;look through HOSPITAL LOCATION File (#44) to find any active
  1. ;clinics without a stop code
  1. N SCDAYS
  1. D INTRO
  1. D SEARCH
  1. D UPDATE
  1. D EXIT
  1. Q
  1. ;
  1. INTRO ;header info for output
  1. D MES^XPDUTL(" The default number of days to wait for acknowledgements")
  1. D MES^XPDUTL(" to ACRP transmissions to Austin is too low.")
  1. D MES^XPDUTL(" If the AMB CARE LAG FOR ACK field (#704) of the")
  1. D MES^XPDUTL(" SCHEDULING PARAMETER File (#404.91) is less than")
  1. D MES^XPDUTL(" 7 days, it will be set to 7 days.")
  1. Q
  1. ;
  1. D BMES^XPDUTL(">>>Searching SCHEDULING PARAMETER File...")
  1. S SCDAYS=$P($G(^SD(404.91,1,"AMB")),U,4)
  1. D BMES^XPDUTL(" Current Value of #704: "_+SCDAYS_" days.")
  1. Q
  1. ;
  1. UPDATE ;display clinics with stop code problems
  1. N DIE,DR,DA,X,Y
  1. IF SCDAYS>6 D Q
  1. .D MES^XPDUTL("The AMB CARE LAG FOR ACK field (#704) already exceeds 6 days.")
  1. .D MES^XPDUTL(" -- No update was done.")
  1. S DIE="^SD(404.91,",DR="704///7",DA=1
  1. D ^DIE
  1. Q
  1. ;
  1. EXIT ;final cleanup
  1. D BMES^XPDUTL("This post-install output is saved in the INSTALL File (#9.7)")
  1. D MES^XPDUTL("under 'SD*5.3*61'")
  1. Q