SD5361PT.m

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 ---SD5361PT   1302     printed  Apr 09, 2024@21:50:46                                                                                                                                                                                                    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