LA105PST.m

LA105PST ;NMG/HDSO - POST-INSTALL ROUTINE; Dec 13, 2024@12:16

 ;;5.2;AUTOMATED LAB INSTRUMENTS;**105**;Sep 27, 1994;Build 2

 ;

 Q

 ;

EN ;

 N FDA

 S FDA(62.485,110_",",1)="Msg #|1|, No valid provider (|2|) found for order."

 D FILE^DIE(,"FDA","")

 S FDA(62.485,110_",",2)="S LA7TXT(1)=$G(LA76249),LA7TXT(2)=$S('$G(LRXPRAC):""None"",1:LRXPRAC_""^""_$$NAME^XUSER(LRXPRAC,""F""))"

 D FILE^DIE(,"FDA","")

 D BMES^XPDUTL($$CJ^XLFSTR("*** Post-install has modified error 110 in file 62.485. ***",80))

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LA105PST   514     printed  Sep 23, 2025@19:14:41                                                                                                                                                                                                     Page 2

LA105PST  ;NMG/HDSO - POST-INSTALL ROUTINE; Dec 13, 2024@12:16

 +1       ;;5.2;AUTOMATED LAB INSTRUMENTS;**105**;Sep 27, 1994;Build 2

 +2       ;

 +3        QUIT 

 +4       ;

EN        ;

 +1        NEW FDA

 +2        SET FDA(62.485,110_",",1)="Msg #|1|, No valid provider (|2|) found for order."

 +3        DO FILE^DIE(,"FDA","")

 +4        SET FDA(62.485,110_",",2)="S LA7TXT(1)=$G(LA76249),LA7TXT(2)=$S('$G(LRXPRAC):""None"",1:LRXPRAC_""^""_$$NAME^XUSER(LRXPRAC,""F""))"

 +5        DO FILE^DIE(,"FDA","")

 +6        DO BMES^XPDUTL($$CJ^XLFSTR("*** Post-install has modified error 110 in file 62.485. ***",80))

 +7        QUIT 

 +8       ;