- 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 ---[H[J[2J[HXUMF684P 352 printed Feb 18, 2025@23:37:09 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