XUMF684P.m

XUMF684P ;BP/BT - INSTITUTION QUERY ;07/19/17

 ;;8.0;KERNEL;**684**;Jul 10, 1995;Build 5

 ;;Per VA Directive 6402, this routine should not be modified

 Q

 ;

BG ; -- 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 ---XUMF684P   352     printed  Dec 13, 2024@02:10:43                                                                                                                                                                                                     Page 2

XUMF684P  ;BP/BT - INSTITUTION QUERY ;07/19/17

 +1       ;;8.0;KERNEL;**684**;Jul 10, 1995;Build 5

 +2       ;;Per VA Directive 6402, this routine should not be modified

 +3        QUIT 

 +4       ;

BG        ; -- 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