XU8P769 ;BP/BT - INSTITUTION QUERY ; Mar 03, 2022@07:59:26
;;8.0;KERNEL;**769**;Jul 10, 1995;Build 5
;;Per VA Directive 6402, this routine should not be modified
Q
;
POST ; -- background job
;
N ZTRTN,ZTDESC,ZTDTH
;
S ZTRTN="EN^XUMF04Q"
S ZTDESC="XUMF load all national Institution data"
S ZTDTH=$$NOW^XLFDT
S ZTIO=""
;
D ^%ZTLOAD
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P769 367 printed Dec 13, 2024@02:08:45 Page 2
XU8P769 ;BP/BT - INSTITUTION QUERY ; Mar 03, 2022@07:59:26
+1 ;;8.0;KERNEL;**769**;Jul 10, 1995;Build 5
+2 ;;Per VA Directive 6402, this routine should not be modified
+3 QUIT
+4 ;
POST ; -- background job
+1 ;
+2 NEW ZTRTN,ZTDESC,ZTDTH
+3 ;
+4 SET ZTRTN="EN^XUMF04Q"
+5 SET ZTDESC="XUMF load all national Institution data"
+6 SET ZTDTH=$$NOW^XLFDT
+7 SET ZTIO=""
+8 ;
+9 DO ^%ZTLOAD
+10 ;
+11 QUIT
