- SD5361PT ;ALB/REW - SD*5.3*61 Post-init Checker ; 7 Aug 1996
- ;;5.3;Scheduling;**61**;SEP 25, 1993
- EN ;entry point
- ;look through HOSPITAL LOCATION File (#44) to find any active
- ;clinics without a stop code
- N SCDAYS
- D INTRO
- D SEARCH
- D UPDATE
- D EXIT
- Q
- ;
- INTRO ;header info for output
- D MES^XPDUTL(" The default number of days to wait for acknowledgements")
- D MES^XPDUTL(" to ACRP transmissions to Austin is too low.")
- D MES^XPDUTL(" If the AMB CARE LAG FOR ACK field (#704) of the")
- D MES^XPDUTL(" SCHEDULING PARAMETER File (#404.91) is less than")
- D MES^XPDUTL(" 7 days, it will be set to 7 days.")
- Q
- ;
- SEARCH ;look for active clinics without active stop codes
- D BMES^XPDUTL(">>>Searching SCHEDULING PARAMETER File...")
- S SCDAYS=$P($G(^SD(404.91,1,"AMB")),U,4)
- D BMES^XPDUTL(" Current Value of #704: "_+SCDAYS_" days.")
- Q
- ;
- UPDATE ;display clinics with stop code problems
- N DIE,DR,DA,X,Y
- IF SCDAYS>6 D Q
- .D MES^XPDUTL("The AMB CARE LAG FOR ACK field (#704) already exceeds 6 days.")
- .D MES^XPDUTL(" -- No update was done.")
- S DIE="^SD(404.91,",DR="704///7",DA=1
- D ^DIE
- Q
- ;
- EXIT ;final cleanup
- D BMES^XPDUTL("This post-install output is saved in the INSTALL File (#9.7)")
- D MES^XPDUTL("under 'SD*5.3*61'")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD5361PT 1302 printed Feb 19, 2025@00:11:45 Page 2
- SD5361PT ;ALB/REW - SD*5.3*61 Post-init Checker ; 7 Aug 1996
- +1 ;;5.3;Scheduling;**61**;SEP 25, 1993
- EN ;entry point
- +1 ;look through HOSPITAL LOCATION File (#44) to find any active
- +2 ;clinics without a stop code
- +3 NEW SCDAYS
- +4 DO INTRO
- +5 DO SEARCH
- +6 DO UPDATE
- +7 DO EXIT
- +8 QUIT
- +9 ;
- INTRO ;header info for output
- +1 DO MES^XPDUTL(" The default number of days to wait for acknowledgements")
- +2 DO MES^XPDUTL(" to ACRP transmissions to Austin is too low.")
- +3 DO MES^XPDUTL(" If the AMB CARE LAG FOR ACK field (#704) of the")
- +4 DO MES^XPDUTL(" SCHEDULING PARAMETER File (#404.91) is less than")
- +5 DO MES^XPDUTL(" 7 days, it will be set to 7 days.")
- +6 QUIT
- +7 ;
- SEARCH ;look for active clinics without active stop codes
- +1 DO BMES^XPDUTL(">>>Searching SCHEDULING PARAMETER File...")
- +2 SET SCDAYS=$PIECE($GET(^SD(404.91,1,"AMB")),U,4)
- +3 DO BMES^XPDUTL(" Current Value of #704: "_+SCDAYS_" days.")
- +4 QUIT
- +5 ;
- UPDATE ;display clinics with stop code problems
- +1 NEW DIE,DR,DA,X,Y
- +2 IF SCDAYS>6
- Begin DoDot:1
- +3 DO MES^XPDUTL("The AMB CARE LAG FOR ACK field (#704) already exceeds 6 days.")
- +4 DO MES^XPDUTL(" -- No update was done.")
- End DoDot:1
- QUIT
- +5 SET DIE="^SD(404.91,"
- SET DR="704///7"
- SET DA=1
- +6 DO ^DIE
- +7 QUIT
- +8 ;
- EXIT ;final cleanup
- +1 DO BMES^XPDUTL("This post-install output is saved in the INSTALL File (#9.7)")
- +2 DO MES^XPDUTL("under 'SD*5.3*61'")
- +3 QUIT