PSB96PST ;SLC/ARF - Post install for ORDERCOM.DLL ; 8/16/18 11:09am
;;3.0;BAR CODE MED ADMIN;**96**;Mar 2004;Build 6
Q
; This routine uses the following IAs:
; 2263 - ^XPAR (supported)
;
EN ; main entry point
; Variables:
; MOBDLL [Private] Current version of DLL being installed
;
; New private variables
N MOBDLL
; Announce my intentions
D BMES^XPDUTL("Updating DLL parameter.")
S MOBDLL="2.0.18.3" ;patch 96
D EN^XPAR("SYS","PSB MOB DLL REQUIRED VERSION",1,MOBDLL)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSB96PST 519 printed Oct 16, 2024@17:40:48 Page 2
PSB96PST ;SLC/ARF - Post install for ORDERCOM.DLL ; 8/16/18 11:09am
+1 ;;3.0;BAR CODE MED ADMIN;**96**;Mar 2004;Build 6
+2 QUIT
+3 ; This routine uses the following IAs:
+4 ; 2263 - ^XPAR (supported)
+5 ;
EN ; main entry point
+1 ; Variables:
+2 ; MOBDLL [Private] Current version of DLL being installed
+3 ;
+4 ; New private variables
+5 NEW MOBDLL
+6 ; Announce my intentions
+7 DO BMES^XPDUTL("Updating DLL parameter.")
+8 ;patch 96
SET MOBDLL="2.0.18.3"
+9 DO EN^XPAR("SYS","PSB MOB DLL REQUIRED VERSION",1,MOBDLL)
+10 QUIT
