XU8P769.m

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 ---XU8P769   367     printed  Apr 09, 2024@21:11:18                                                                                                                                                                                                      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